Merhaba Arkadaslar Azmettim BAsardım Bi yerimi Yırttım Pc basında oturmakdan Bi yerim duzleşti Kalcalarını buyuk hisseden bayanlar vb ile urasmanızı tawsiye ederim dumduz

nese şamatayı bıraqim de konuya donim
Sabahtan beri Bi hesap makinesi manyaqlıgım war urasıorm Yawastan yawastan yaptım ama kesmedi kesmedi kesmedi

en sonunda bende dedim Windows yapmıs ben ndn yapamayım sayı butonlu yaptım hemde Windowsda Olmayan ozellikleri war

Mesela Uslu ALıor, Kare kok, Mod 3in 1 yani

iLk BasTa SS weRim Projenin Gorunumu nasıL Gorun




Buyuk yaptımki Gozu bozuk oLanlar da gorsun

eeT şeklimizi Gorduq

Sayılarımızın Adı 1 = b1
2 = b2

gibi gidioda gidio 9 ve sıfır a kadar

+ topla olarak geçio
- cıkar
/ bol
* carp
Ce clear
kök kok
Mod Mod
Uslu uslu
Text de sayi olaraq



Die qecioR
siMDi Sıra geLdi Kodlarımıza Biraz incelerseniz anLarsınız
bende eN basta bi siTeden Buldum
Ordan iice Orendim qeNdim YazDım......

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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod 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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod 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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "-"
End Sub
Private Sub kok_Click()
A = Val(sayi.Text)
B = Sqr(A)
giris = sayi.Text
sayi.Text = B
End Sub
Private Sub mod_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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "Mod"
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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod 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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod Val(sayi.Text)
End Sub
Private Sub clear_Click()
sayi.Text = ""
islem = ""
giris = ""
End Sub
Private Sub uslu_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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "^"

End Sub





biraz acıklamalara geçeyim

şimdik siz 1 e bastınız guzel 12 yazcaksınız 2 ye bastınız 1 gitti iki geLdi
Dedin ananın urastın oLmadı (kendi durumum:))
bi sagına yazmak için sayının 10 katı alınır yani
12 de 1 onluq 2 birlik vardır

Private Sub b1_Click()
sayi.Text = Val(sayi.Text) * 10 + 1

bu sadece 1 için ornek yukarda hepsini yazdımm....

şimdi sıra geLdi işlemlere boLmedeN basLayaLım....

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)
If islem = "^" Then sayi.Text = Val(giris) ^ Val(sayi.Text)
If islem = "Mod" Then sayi.Text = Val(giris) Mod Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "/"
End Sub

Diorki Bize eger Girdigimiz Sayı 0 dan buYuq iSe
+ işaretini gordugunde topla
- de çıkart vesaire vesaire...

End ıf den sonra ndn
sayi.Text = ""
Bu qoD geLdi die meraq Ediosan soLeyim ortalıq Green pach (cewreci bi grup ) qaYnıoR
arTıq LaraDa Karsı Bi gRup arTıq olmasın doWerLer Sonra die oraya TemizLiorz
işlemden sonra
sayi.text = bosluq
greenpach = muTLu

beNi uRasTıran yeRLerDen Birine geLiorz
Burayı Da dier YerLer qiBi Aynı ManTıq Yapmayı DeneDim aMa oLmaDı
BenDe Farklı Bi yonTem geLişTirDim
o iLk hesap MakinesiNdeqiNin Bi Değişini GiRdm

Private Sub kok_Click()
A = Val(sayi.Text)
B = Sqr(A)
giris = sayi.Text
sayi.Text = B
End Sub

KodlarımızDa Bitti


Hııı Bu Arada AkLıma geLmişqeN bu kodları GirMedeN

tooLs>option>Reaquaie bilmemne DeccoratiOn Tklayın....

SoNra Bi Arıza CıKarSa soLeyiN

Alıntı Yapanı eşeqLer We Tum GevezeLiLer Basta Ben

gayet başarılı teşekkürler...

İnanmassın beLki vb 6 da yeniyim sırf o yuzden Bi yerim duzLeşti Bunu Yaptım Vede saDece Bu Forumda Yayınladım Dier Forumlara BaqsınLar herkez Ozenmeden anLatmıs Ben Urastım Cogu Kisi Bi teseKKuru Cok GoruoR pFFs