Membuat Kalkulator Sederhana dengan Visual Basic 6

 

Visual Basic 6 (VB6) adalah salah satu bahasa pemrograman yang populer untuk membuat aplikasi desktop. Dalam artikel ini, kita akan membahas langkah-langkah untuk membuat sebuah aplikasi kalkulator sederhana menggunakan VB6. Kalkulator ini akan mampu melakukan operasi dasar seperti penjumlahan, pengurangan, perkalian, dan pembagian.

Persiapan

Sebelum memulai, pastikan Anda telah menginstal Visual Basic 6 di komputer Anda. Jika belum, Anda dapat mencari tutorial instalasi VB6 secara online.

Langkah-Langkah

1. Membuat Proyek Baru

1. Buka Visual Basic 6.

2. Pilih Standard EXE pada menu New Project.

3. Klik tombol OK untuk membuat proyek baru.

2. Desain Antarmuka Kalkulator

1. Tambahkan komponen berikut ke Form:

   • 3 TextBox untuk memasukkan angka pertama, angka kedua, dan hasil perhitungan.

   • 4 CommandButton untuk operasi matematika (Tambah, Kurang, Kali, Bagi).

   • 1 Label untuk menampilkan instruksi.

2. Atur posisi dan ukuran komponen sesuai keinginan Anda.

Contoh tata letak komponen:

• TextBox1: Angka pertama.

• TextBox2: Angka kedua.

• TextBox3: Menampilkan hasil (ReadOnly).

• CommandButton1: Tombol "+" untuk penjumlahan.

• CommandButton2: Tombol "-" untuk pengurangan.

• CommandButton3: Tombol "*" untuk perkalian.

• CommandButton4: Tombol "/" untuk pembagian.

   

  
  

3. Menambahkan Kode Program

Klik dua kali pada masing-masing tombol operasi matematika untuk membuka editor kode. Tambahkan kode berikut:

Penjumlahan

Private Sub CommandButton1_Click()
    Dim angka1 As Double
    Dim angka2 As Double
    Dim hasil As Double

    angka1 = Val(TextBox1.Text)
    angka2 = Val(TextBox2.Text)
    hasil = angka1 + angka2

    TextBox3.Text = hasil
End Sub

Pengurangan

Private Sub CommandButton2_Click()
    Dim angka1 As Double
    Dim angka2 As Double
    Dim hasil As Double

    angka1 = Val(TextBox1.Text)
    angka2 = Val(TextBox2.Text)
    hasil = angka1 - angka2

    TextBox3.Text = hasil
End Sub

Perkalian

Private Sub CommandButton3_Click()
    Dim angka1 As Double
    Dim angka2 As Double
    Dim hasil As Double

    angka1 = Val(TextBox1.Text)
    angka2 = Val(TextBox2.Text)
    hasil = angka1 * angka2

    TextBox3.Text = hasil
End Sub

Pembagian

Private Sub CommandButton4_Click()
    Dim angka1 As Double
    Dim angka2 As Double
    Dim hasil As Double

    angka1 = Val(TextBox1.Text)
    angka2 = Val(TextBox2.Text)

    If angka2 <> 0 Then
        hasil = angka1 / angka2
        TextBox3.Text = hasil
    Else
        MsgBox "Tidak dapat membagi dengan nol.", vbExclamation, "Kesalahan"
    End If
End Sub

4. Menjalankan Program

1. Klik tombol Start atau tekan F5 untuk menjalankan program.

2. Uji kalkulator Anda dengan memasukkan angka pada TextBox1 dan TextBox2, lalu klik tombol operasi yang sesuai.

    

   
   

Penutup

Dengan langkah-langkah di atas, Anda telah berhasil membuat aplikasi kalkulator sederhana menggunakan Visual Basic 6. Anda dapat mengembangkan kalkulator ini lebih lanjut dengan menambahkan fitur seperti tombol untuk menghapus data atau operasi matematika tambahan. Semoga artikel ini bermanfaat!