|
Hesap Makinesi
Aug 10,2008 00:00
by
RubeNiS
forma 1 textbox ve 17 tane button ekleyin. formun basında 3 tane değişken atıyoruz. dim a as string dim b,c as long değişkenler kısa olması için a, b, c diye yazdım isterseniz değiştirebilirsiniz. buttonların textlerine 0 dan 9 kadar sayıları yazın ve bir tanesine 00 yazın. kalan buttonların textlerine + , - , * , / , C , = yazın üzerinde sayı olan buttonların click olayına; textbox1.text = textbox1.text & "buttonun üzerinde yazan sayıyı buraya yazın" şimdi buttonlar yazı yazabiliyor şimdi işlem yaptıralım + buttonunun içine; (aşağıdaki kodları yapıştırabilirsiniz) a = "+" if textbox1.text = "" then 'bir sayı yazmadan butona tıklanırsa hata vermez ilk sayı 0 olarak algılar b = 0 else b = textbox1.text end if textbox1.clear() aynılarını - , * ve / buttonlarının click olaylarınada yapıştırın ama + hangi buttonun click olayına yazıyorsanız onu yazın C buttonunun click olayına; textbox1.clear() ve son olarak = buttonunun click olayına; if textbox1.text = "" then c = 0 else c = textbox1.text end if if a = "+" then textbox1.text =c + b if a = "-" then textbox1.text = b - c if a = "*" then textbox1.text =c * b if a = "/" then textbox1.text =b + c |