Dim a, b, topla, çıkar, çarp As Integer



Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub



Private Sub Command2_Click()

End

End Sub



Private Sub Option1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

topla = a + b



sonuc = a + b

Text3.Text = sonuc

End Sub



Private Sub Option2_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

çıkar = a - b

sonuc = a - b

Text3.Text = sonuc

End Sub



Private Sub Option3_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

çarp = a * b

sonuc = a * b

Text3.Text = sonuc

End Sub



Private Sub Option4_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

çarp = a / b

sonuc = a / b

Text3.Text = sonuc

End Sub





ufuk

ufuk.yesiltas.228@gmail.com