VB 6.0 Hesap Makinesi

[yusuf4153]

Arkadaşlar ben bu işe yeni başladım ve size yaptığım hesap makinesini sunuyorum.

Bana yardım eden herkese çok teşekkür ediyorum.
Arkadaşlar virüs varsa kusuruma bakmayın pc ye format atınca virüs programı yüklemedim ve pc ye yüklediğim her program TurkHackTeam'dan dır. Ne olur ne olmaz taratın siz.
Basit bir program acemiyim lütfen küçümsemeyin emeğe saygı!

Program Adı: Hesapçı
Versiyon : 1
Yapımcı : yusuf4153

LFİLESERVE: http://www.fileserve.com/file/B5B34dG/Yusuf4153-Hesapçı v1.7z
DepositFiles :Deposit Files

Kodu

Dim giris, islem
Private Sub b0_Click()
sayi.Text = Val(sayi.Text) * 10 + 0
End Sub
Private Sub b1_Click()
sayi.Text = Val(sayi.Text) * 10 + 1
End Sub
Private Sub b2_Click()
sayi.Text = Val(sayi.Text) * 10 + 2
End Sub
Private Sub b3_Click()
sayi.Text = Val(sayi.Text) * 10 + 3
End Sub
Private Sub b4_Click()
sayi.Text = Val(sayi.Text) * 10 + 4
End Sub
Private Sub b5_Click()
sayi.Text = Val(sayi.Text) * 10 + 5
End Sub
Private Sub b6_Click()
sayi.Text = Val(sayi.Text) * 10 + 6
End Sub
Private Sub b7_Click()
sayi.Text = Val(sayi.Text) * 10 + 7
End Sub
Private Sub b8_Click()
sayi.Text = Val(sayi.Text) * 10 + 8
End Sub
Private Sub b9_Click()
sayi.Text = Val(sayi.Text) * 10 + 9
End Sub
Private Sub bol_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "/"
End Sub
Private Sub carp_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "*"
End Sub
Private Sub cikar_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "-"
End Sub
Private Sub topla_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "+"
End Sub
Private Sub esit_Click()
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End Sub

Umarım beğenirsiniz )
Versiyon 2'de karekök ve üslü sayıları yapmaya çalışıcam İnşallah

 

[HackerByJoker]

aferem len

 

[yusuf4153]

eyw

 

[HackerByJoker]

bide kaynak kodu versen yeniler içi iyi olur

 

[yusuf4153]

peki

 

[bekodark123]

Yeni başlayanlar için en uygun şey hesap makinesidir zaten

 

[yusuf4153]

Yeni başlayanlar için en uygun şey hesap makinesidir zaten

tabii

 

[Mr Depp]

kod için sağol

 

[H3R0SHN]

süper paylaşım kardeşim. yeniler için çok önemli bi husus bende ilk basladığımda aradım durdum hesap makinesi ni

 

[Mr Depp]

süper paylaşım kardeşim. yeniler için çok önemli bi husus bende ilk basladığımda aradım durdum hesap makinesi ni

Eyvallah kardeşim bu arada ben yusuf4153 hesabımı geri alamadığım için bunu açtım foruma 1 ay ara verdim herşeyimi unuttum