Basit Hesap Makinası

'İlk olarak 4 işlem kodları

Private sub form_load()

text1.text=""

text2.text=""

label1.caption=""

end sub

Private sub command1_click()'toplama

label1=val(text1)+val(text2) ' İş val yani türkçesi ile değer fonksiyonunu kullanmaktan ibaret

end sub

Private sub command2_click() ' çıkartma

label1=val(text1)-val(text2)

end sub

private sub command3_click()'bölme

label1=val(text1)/val(text2)

end sub

private sub command4_click()'Çarpma

label1=val(text1)*val(Text2)

end sub

private sub command5_click()' Faktöriyel işlemi ( n -1 ) * (n-2) ..... Yani her seferinde 1 eksiği ile çarpmak

Dim fakto as integer ' Fakto tanımladık

Sonuc=1

fakto=inputbox ( "Lütfen faktöriyeli alınacak sayıyı giriniz","Faktöriyel)

For i = 0 to fakto step -1 ' Bu işlemde step bir tur demektir ve her turda sayıyı bir azaltıp kendisi ile çaprıyoruz

sonuc=sonuc * i

msgbox sonuc,vbokonly+vbinformation,"Sonuç" ' Bunu kendiniz geliştirebilir fakto yerine val(text1) yazabilirsiniz.

end sub

Private sub command6_click()'Modüler aritmatik

label1=val(text1) Mod val(text2) ' text1 i text2 de yazan değere böler kalanı labelde gösterir.

end sub

privae sub command7_click()'üssünü almak

label1=val(text1)^val(text2) 'text1 taban text2 üssü olarak kabul edersek..

end sub

'Kodların kullanımı bu şekilde Sinüs , Cos v.s şeyler içinse

'sinüs=sin Cos=Cos İlk harflerinden oluşan fonksiyonlar mevcut