1. Buka Visual Basic 6.0, Pilih Standart EXE
2. Buatlah 3 TextBox, 5 CommandButton , 2 Label dan 2 Frame sebagai bingkai, kemudian disusun seperti pada gambar 1, gimana ? pasti bisakan ;)
Gambar 1
3. Ubah Object properti yg tadi dibuat sesuai tabel dibawah ini
5. Dan terakhir coba jalankan hasil pada menu Run > Start atau F5
Dim x, y As Single
Dim textval, numval As String
Private Sub Command1_Click()
x = Text1.Text
y = Text2.Text
Text3.Text = x + y
End Sub
Private Sub Command2_Click()
x = Text1.Text
y = Text2.Text
Text3.Text = x - y
End Sub
Private Sub Command3_Click()
x = Text1.Text
y = Text2.Text
Text3.Text = x * y
End Sub
Private Sub Command4_Click()
x = Text1.Text
y = Text2.Text
Text3.Text = x / y
End Sub
Private Sub Command5_Click()
x = Text1.Text
y = Text2.Text
Text3.Text = x + y
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
Cancel = Not IsNumeric(Text1.Text)
End Sub
Private Sub Text2_Validate(Cancel As Boolean)
Cancel = Not IsNumeric(Text2.Text)
End Sub
Nah, kira-kira bergitu sob.. Contoh Program Kalkulator Sederhana dengan Visual Basic 6.0, simple kan ? ( namanya juga kalkulator sederhana )
Tapi kalau masih ada error silahkan download source code lengkapnya, semoga bermanfaat.
Download Source Code Kalkulator Sederhana dengan Visual Basic 6.0
Tidak ada komentar:
Posting Komentar