Membuat Kalkulator dengan Visual Basic 6.0

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 :)

Share ke :

About Syakir Rahman

Syakir rahman adalah seorang blogger, dan juga front-end web developer. Kunjung website pribadinya disini : http://www.syakirurohman.net