Membuat Kalkulator Sederhana menggunakan Visual Basic 6.0

Adapun langkah-langkah dalam membuat kalkulator sederhana menggunakan visual basic adalah sebagai berikut:
1.    Buka program visual basic yang telah terinstal di komputer anda. Dalam hal ini yang digunakan adalah  Visual Basic versi 6.0
2.    Buat sebuah project baru dan pilih standart EXE.
3.    Kemudian tambahkan tiga buah contol textbox. Satu untuk hasil, satu untuk bilangan pertama dan yang lainnya untuk bilangan kedua.
4.    Tambahkan sebuah command button dan ubah namanya menjadi CmdOperator. Selanjutnya copykan sebanyak tiga buah. Tambahkan lagi sebuah command button.
5.    Atur propertiesnya sesuai keinginan anda. Atur tampilannya kurang lebih seperti gambar.1 berikut.

Gambar.1 Desain Kalkulator sederhana

6.    Klik salah satu CmdOperator dan ketikan Scipt Basic berikut:
Dim Operator As Integer
Dim hasil  As Single

Operator = Index

If Txt1.Text = "" Or Txt2.Text = "" Then Exit Sub

Select Case Operator
Case 0
    hasil = CSng(Txt1.Text) + CSng(Txt2.Text)
Case 1
    hasil = CSng(Txt1.Text) - CSng(Txt2.Text)
Case 2
    hasil = CSng(Txt1.Text) * CSng(Txt2.Text)
Case 3
    If Txt2.Text = 0 Then
        TxtHasil.Text = "Hasil melampaui batas"
        Exit Sub
    End If
    hasil = CSng(Txt1.Text) / CSng(Txt2.Text)
End Select
TxtHasil.Text = hasil
7.    Klik dua kali command button C dan ketikan script visual basic berikut:
Txt1.Text = ""
Txt2.Text = ""
TxtHasil.Text = ""
Txt1.SetFocus
8.    Selanjutnya jalankan Program yang anda buat. Jika tidak ada masalah, program anda telah berhasil di buat.
9.    Masalah dari program tersebut adalah jika nilai yang kita masukan bukan berupa angka maka akan terjadi masalah baru.(Silakan baca http://bocah-cakil.blogspot.com\2010\04\hanya-angka-yang-bisa-tips-dan-trik.html) Namun jangan khawatir hal tersebut dapat di atasi dengan perintah sebagai berikut.
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
10.    selanjutnya silakan jalankan program kalkulator sederhanan buatan anda sendiri.

Source :  http://bocah-cakil.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Menggunakan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.