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