Cara Membuat Kalkulator Dengan VB 6

Pada kesempatan kali ini saya akan berbagi tentang cara membuat Kalkulator menggunakan bahasa pemrograman Visual Basic 6.0 atau biasa disingkat dengan VB 6 saja. Tampilan aplikasi Kalkulator yang akan dibuat ini nantinya seperti yang terlihat pada gambar diatas.

Kalkulator ini masih sederhana dan hanya bisa melakukan operasi perkalian, pembagian, penjumlahan dan pengurangan saja.

Tidak perlu berlama-lama, sekarang kita langsung saja masuk ke praktek.

Cara Membuat program Kalkulator Dengan VB 6

1. Buka/ jalankan Visual Basic 6.0, pilih Standard EXE lalu klik OK.

2. Tambahkan objek-objek berikut ini kedalam Jendela Object/ lembar kerja VB 6:

    1 objek TextBox

    16 objek CommandButton

3. Atur ukuran dan susun masing-masing objek seperti yang terlihat pada gambar berikut ini.

4. Atur nilai Properties masing-masing objek seperti yang terlihat pada tabel dibawah ini.

Berikut ini bentuk tampilan antarmuka aplikasi Kalkulator yang sudah diatur Propertiesnya.

5. Ketikkan/ copas Kode Program berikut ini di Jendela Code

Dim dblData1 As Double, dblData2 As Double, dblHasil As Double Dim strOperator As String Dim blnKondisi As Boolean Private Sub cmd0_Click() If blnKondisi = False Then dblData1 = dblData1 & 0 txtData.Text = dblData1 Else dblData2 = dblData2 & 0 txtData.Text = dblData2 End If End Sub Private Sub cmd1_Click() If blnKondisi = False Then dblData1 = dblData1 & 1 txtData.Text = dblData1 Else dblData2 = dblData2 & 1 txtData.Text = dblData2 End If End Sub Private Sub cmd2_Click() If blnKondisi = False Then dblData1 = dblData1 & 2 txtData.Text = dblData1 Else dblData2 = dblData2 & 2 txtData.Text = dblData2 End If End Sub Private Sub cmd3_Click() If blnKondisi = False Then dblData1 = dblData1 & 3 txtData.Text = dblData1 Else dblData2 = dblData2 & 3 txtData.Text = dblData2 End If End Sub Private Sub cmd4_Click() If blnKondisi = False Then dblData1 = dblData1 & 4 txtData.Text = dblData1 Else dblData2 = dblData2 & 4 txtData.Text = dblData2 End If End Sub Private Sub cmd5_Click() If blnKondisi = False Then dblData1 = dblData1 & 5 txtData.Text = dblData1 Else dblData2 = dblData2 & 5 txtData.Text = dblData2 End If End Sub Private Sub cmd6_Click() If blnKondisi = False Then dblData1 = dblData1 & 6 txtData.Text = dblData1 Else dblData2 = dblData2 & 6 txtData.Text = dblData2 End If End Sub Private Sub cmd7_Click() If blnKondisi = False Then dblData1 = dblData1 & 7 txtData.Text = dblData1 Else dblData2 = dblData2 & 7 txtData.Text = dblData2 End If End Sub Private Sub cmd8_Click() If blnKondisi = False Then dblData1 = dblData1 & 8 txtData.Text = dblData1 Else dblData2 = dblData2 & 8 txtData.Text = dblData2 End If End Sub Private Sub cmd9_Click() If blnKondisi = False Then dblData1 = dblData1 & 9 txtData.Text = dblData1 Else dblData2 = dblData2 & 9 txtData.Text = dblData2 End If End Sub Private Sub cmdBagi_Click() blnKondisi = True strOperator = "/" End Sub Private Sub cmdClear_Click() blnKondisi = False txtData.Text = "0" dblData1 = 0 dblData2 = 0 End Sub Private Sub cmdHasil_Click() blnKondisi = False If strOperator = "+" Then dblHasil = dblData1 + dblData2 txtData.Text = dblHasil dblData1 = dblHasil dblData2 = 0 ElseIf strOperator = "-" Then dblHasil = dblData1 - dblData2 txtData.Text = dblHasil dblData1 = dblHasil dblData2 = 0 ElseIf strOperator = "/" Then dblHasil = dblData1 / dblData2 txtData.Text = dblHasil dblData1 = dblHasil dblData2 = 0 ElseIf strOperator = "*" Then dblHasil = dblData1 * dblData2 txtData.Text = dblHasil dblData1 = dblHasil dblData2 = 0 End If End Sub Private Sub cmdKali_Click() blnKondisi = True strOperator = "*" End Sub Private Sub cmdKurang_Click() blnKondisi = True strOperator = "-" End Sub Private Sub cmdTambah_Click() blnKondisi = True strOperator = "+" End Sub Private Sub Form_Load() blnKondisi = False txtData.Text = 0 End Sub

Pengujian Program Kalkulator

1. Klik icon Start yang terdapat pada Toolbar untuk menjalankan program.

2. Lakukan operasi perkalian, pembagian, penjumlahan dan pengurangan seperti menggunakan aplikasi kalkulator pada umumnya.

Demikianlah tutorial singkat tentang cara membuat Kalkulator dengan VB 6, semoga bermanfaat.

Bagi yang baru pertama kali menggunakan bahasa pemrograman Visual Basic 6.0 (VB 6), saya sarankan membaca postingan saya sebelumnya yang berjudul:

Pengenalan Dasar Visual Basic 6.0

Contoh Program Sederhana Dengan VB 6 Bagian 1 (Desain Antarmuka)

Contoh Program Sederhana Dengan VB6 Bagian 2 (Pengaturan Properties Objek)

Contoh Program Sederhana Dengan VB 6 Bagian 3 (Menulis Kode Program)