Cara Membuat Kalkulator Sederhana di Visual Basic 6.0

Assalamu'alaikum Warrahmatullahi Wabarakatuh

Langsung saja untuk membuat kalkulator di Visual Basic 6.0, ikuti langkah-langkah berikut :

1. Buka Visual Basic 6.0, dan pilih Standard.EXE.

2. Masukkan Toolbar berikut :

    - 3 buah Label
    - 3 buah TextBox
    - 12 CommandButton

    Atur seperti gambar dibawah ini :

3. Edit Caption dan Text di Properties Window sepeerti dibawah ini :

4. Langkah terakhir yaitu masukkan kode dibawah ini pada View Code :

Private Sub Command1_Click()

Text3.Text = Val(Text1) + Val(Text2)

End Sub

Private Sub Command10_Click()

Text3.Text = Sqr(Val(Text1))

Text2.Text = "Scientific Mode"

End Sub

Private Sub Command11_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command12_Click()

endarto = MsgBox("Anda Yakin Ingin Keluar ?", vbOKCancel, "Peringatan")

If endarto = vbOK Then End

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1) + Val(Text2)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1) / Val(Text2)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1) * Val(Text2)

End Sub

Private Sub Command5_Click()

Text3.Text = Val(Text1) ^ 2

Text2.Text = "Scientific Mode"

End Sub

Private Sub Command6_Click()

Text3.Text = Log(Val(Text1)) / Log(10)

Text2.Text = "Scientific Mode"

End Sub

Private Sub Command7_Click()

Text3.Text = Round((Sin(Val(Text1.Text) * 3.14159265 / 180)), 4)

Text2.Text = "Scientific Mode"

End Sub

Private Sub Command8_Click()

Text3.Text = Round((Cos(Val(Text1.Text) * 3.14159265 / 180)), 4)

Text2.Text = "Scientific Mode"

End Sub

Private Sub Command9_Click()

Text3.Text = Round((Tan((Text1.Text) * 3.14159265 / 180)), 4)

Text2.Text = "Scientific Mode"

End Sub

5. Mainkan Programnya dengan Klik Run pilih Start atau tekan F5. dan kalkulator sederhana siap digunakan.

Cepat dan mudah kan cara membuatnya ?, jika ada debug tanya aja ya di tato.endarto@gmail.com dan follow @Muhammad_Tato :)

                                       Wassalamu'alaikum Warrahmatullahi Wabarakatuh