5 işlemli hesap makinesi

 
Private Sub Command1_Click(Index As Integer)
'yazilimciyim.org
Dim sayi1, sayi2, sonuc As Double
sayi1 = Val(Text1.Text)
sayi2 = Val(Text2.Text)
Select Case Index
Case 0
sonuc = sayi1 + sayi2
Case 1
sonuc = sayi1 - sayi2
Case 2
sonuc = sayi1 * sayi2
Case 3
sonuc = sayi1 / sayi2
Case 4
sonuc = sayi1 ^ sayi2
End Select
Text3.Text = Str(sonuc)
End Sub

Private Sub Command2_Click()
Text1.Text = ""(tırnak işareti 2 tane)
Text2.Text = ""
Text3.Text = ""

End Sub

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

5 işlemli hesap makinesi