Friday, April 20, 2012

Kalkulator Sederhana

Ini contoh program Visual Basic Kalkulator Sederhana versi saya :)
-----------------------------------------------------------------
Codingan 

Private Sub Command1_Click()
If Option1.Value = True Then
Label8.Caption = Val(Text1.Text) + Val(Text2.Text)
End If

If Option2.Value = True Then
Label8.Caption = Val(Text1.Text) - Val(Text2.Text)
End If

If Option3.Value = True Then
Label8.Caption = Val(Text1.Text) * Val(Text2.Text)
End If

If Option4.Value = True Then
Label8.Caption = Val(Text1.Text) / Val(Text2.Text)
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Tampilan dan Keterangan





No comments:

Post a Comment