Hesap Makinesi

Çok kullanışlı gerçek bir hesap makinesi

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