Contoh Program Kalkulator Sederhana dengan Visual Basic 6.0

Kalkulator merupakan alat untuk menghitung bilangan angka biasanya di gunakan di sekolahan, kantor, instansi dan lain-lain yang berfungsi mulai dari perkalian, pengurangan, pembagian, persen dan banyak lagi kegunaan kalkulator ini

Untuk tutorial sekarang kami mengambil hasil contoh belajar member dari Group Belajar Visual Basic 6, yaitu tentang Cara membuat Kalkulator sederhana dengan Visual Basic, Kalkulator ini hanya menghitung perkalian, pengurangan, pembagian, pertambahan jadi cukup sederhana untuk belajar mengenal logika dan mengembangan logika IF/then. Logika If/then ini merupakan logika untuk memperkirakan hal yang akan terjadi menurut pemahaman sederhana saya.

Untuk lebih jelasnya mari kita langsung ke materi Cara Membuat Kalkulator Sederhana dengan Visual Basic.
1. Buatlah sebuah form dengan Referensi desain form seperti di bawah ini, untuk tampilan desain pada visual basic bisa di sesuaikan dengan selera.

2. Buatlah 18 Command button untuk angka 1 sampai 10, 1 buah text box untuk memasukan angka dan tambahan lain seperti gambar desain form di atas.

3. Masukan kode program tersebut pada visual basic sesuai dengan pengaturan properti yang sudah di atur

Dim inAngka(0 To 1), Opr

Private Sub cmdAngka_Click(Index As Integer)
txtHasil.Text = txtHasil.Text + cmdAngka(Index).Caption
End Sub

Private Sub cmdClear_Click()
txtHasil.Text = ""
End Sub

Private Sub cmdKoma_Click()
If txtHasil.Text <> "" Then
txtHasil.Text = txtHasil.Text + ","
End If
End Sub

Private Sub cmdOpr_Click(Index As Integer)
If txtHasil.Text <> "" Then
inAngka(0) = CSng(txtHasil.Text)
Opr = cmdOpr(Index).Caption
txtHasil.Text = ""
Else
psn = MsgBox("Masukkan Angka Terlebih Dahulu!", vbCritical, "Warning!")
End If
End Sub

Private Sub cmdPlusMin_Click()
txtHasil.Text = txtHasil.Text * (-1)
End Sub

Private Sub cmdProses_Click()
inAngka(1) = CSng(txtHasil.Text)

Select Case Opr
Case "*"
total = inAngka(0) * inAngka(1)
Case "/"
total = inAngka(0) / inAngka(1)
Case "+"
total = inAngka(0) + inAngka(1)
Case "-"
total = inAngka(0) - inAngka(1)
End Select

txtHasil.Text = total
End Sub