Programalama > VISUAL BASIC

Private Sub cmdtoplam_Click()
frmisaret.Caption = "Toplama"
End Sub

Private Sub cmdcikarma_Click()
frmisaret.Caption = "Çikarma"
End Sub

Private Sub cmdcarpma_Click()
frmisaret.Caption = "Çarpma"
End Sub

Private Sub cmdbolme_Click()
frmisaret.Caption = "Bölme"
End Sub

Private Sub cmdesittir_Click()
a = Val(frm1sayi.Text)
b = Val(frm2sayi.Text)
If frmisaret.Caption = "Toplama" Then
frm3sayi.Text = a + b
End If
If frmisaret.Caption = "Çikarma" Then
frm3sayi.Text = a - b
End If
If frmisaret.Caption = "Çarpma" Then
frm3sayi.Text = a * b
End If
If frmisaret.Caption = "Bölme" Then
frm3sayi.Text = a / b
End If

End Sub

aren
aren_kaya@hotmail.com