Membuat Kalkulator dengan Visual Basic 6.0
Daftar Isi
Oke, kali ini saya akan membagikan tutor cara membuat kalkulator sederhana dengan VB. Sebenarnya ga susah susah amat, simple. Kodingnya juga ga terlalu banyak. Berikut ini stepnya.
1. Tentunya buka VB dulu, pilih standard exe.
2. Setelah itu kita desain formnya seperti pada gambar di bawah ini.
Keterangan :
- Nama Textbox dengan label bil 1 : text1
- Nama Textbox dengan label bil 2 : text2
- Nama Command + : command1
- Nama Command - : command2
- Nama Command x : command3
- Nama Command : : command4
- Nama textbox dengan label hasil : text3
3. kalo udah beres desainnya tinggal di masukkin kodingnya. Langsung “dimakan” aja nih koding di bawah. Tapi jangan mabok yaah gan ^_^
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a + b
Text3.Text = hasil
End Sub
Private Sub Command2_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a - b
Text3.Text = hasil
End Sub
Private Sub Command3_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a * b
Text3.Text = hasil
End Sub
Private Sub Command4_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a / b
Text3.Text = hasil
End Sub
'koding dibawah hanyalah koding untuk menentukan karakter apa saja yang dapat di inputkan dalam textbox. baca juga artikel cara mengunci textbox. tanpa menyertakan koding di bawah juga tak masalah untuk pembuatan kalkulator.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("1234567890,.-+", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If InStr("1234567890,.-+", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If InStr("", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
4. kalo udah masukin kodingnya, yaa tinggal di run aja.. beres, hasilnya kaya gini gan
5. terus kalo misalnya pengen dipake di komputer agan, (bangga kan kalo bikinan sendiri) tinggal di jadiin file .exe aja, terus buat shorcutnya di desktop. Kaya gini caranya :
Udah beres, sekian semoga bermanfaat :)
Posting Komentar