Programalama > VISUAL BASIC

Private Sub böl_Click()
Cls
Text3 = Val(Text1) / Val(Text2)
End Sub


Private Sub Çarp_Click()
Cls
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub çıkar_Click()
Cls
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub çıkış_Click()
End
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub topla_Click()
Cls
Text3 = Val(Text1) + Val(Text2)
End Sub