Materi Ajar VB 6.0 - Kalkulator

📚 Pemrograman Visual Basic 6.0

Membuat Program Kalkulator

Panduan lengkap membuat aplikasi kalkulator sederhana dengan Visual Basic 6.0

🎯 Pemula ⏱️ 45 Menit 💡 Praktik

Tujuan Pembelajaran

⚙️

C3 - Menerapkan

Setelah mempelajari materi ini, peserta didik mampu menerapkan komponen-komponen Visual Basic 6.0 (TextBox, CommandButton, Label) untuk membuat antarmuka program kalkulator sederhana.

🔍

C4 - Menganalisis

Setelah mempelajari materi ini, peserta didik mampu menganalisis logika pemrograman pada setiap tombol operasi matematika (penjumlahan, pengurangan, perkalian, pembagian) dalam program kalkulator.

Materi Ajar

📖 Penjelasan Umum

Program kalkulator adalah aplikasi sederhana yang dapat melakukan operasi matematika dasar. Dalam Visual Basic 6.0, kita akan menggunakan beberapa komponen utama:

📝 TextBox

Untuk menampilkan angka dan hasil perhitungan

🔘 CommandButton

Tombol untuk angka dan operasi matematika

🏷️ Label

Untuk memberikan keterangan atau judul

📦 Variabel yang Diperlukan

'Deklarasi variabel di bagian General Declaration
Dim angka1 As Double    'Menyimpan angka pertama
Dim angka2 As Double    'Menyimpan angka kedua
Dim hasil As Double     'Menyimpan hasil perhitungan
Dim operasi As String   'Menyimpan jenis operasi (+, -, *, /)

🎨 Desain User Interface (UI)

Form1 - Kalkulator Sederhana

Label1

KALKULATOR VB 6.0

Text1

📋 Tabel Properties Komponen

Komponen	Name	Caption/Text	Keterangan
Label	Label1	KALKULATOR VB 6.0	Judul aplikasi
TextBox	Text1	0	Display hasil
CommandButton	Cmd0 - Cmd9	0, 1, 2, ... 9	Tombol angka
CommandButton	CmdTambah	+	Penjumlahan
CommandButton	CmdKurang	−	Pengurangan
CommandButton	CmdKali	×	Perkalian
CommandButton	CmdBagi	÷	Pembagian
CommandButton	CmdHasil	=	Hitung hasil
CommandButton	CmdClear	C	Hapus semua

💻 Kode Program Setiap Tombol

0-9 Tombol Angka (Cmd0 - Cmd9)

'Contoh untuk tombol angka 1
Private Sub Cmd1_Click()
    If Text1.Text = "0" Then
        Text1.Text = "1"
    Else
        Text1.Text = Text1.Text & "1"
    End If
End Sub

'Logika yang sama untuk Cmd0 - Cmd9
'Ganti "1" dengan angka yang sesuai

+ Tombol Penjumlahan (CmdTambah)

Private Sub CmdTambah_Click()
    angka1 = Val(Text1.Text)  'Simpan angka pertama
    operasi = "+"              'Set operasi penjumlahan
    Text1.Text = "0"           'Reset display
End Sub

− Tombol Pengurangan (CmdKurang)

Private Sub CmdKurang_Click()
    angka1 = Val(Text1.Text)  'Simpan angka pertama
    operasi = "-"              'Set operasi pengurangan
    Text1.Text = "0"           'Reset display
End Sub

× Tombol Perkalian (CmdKali)

Private Sub CmdKali_Click()
    angka1 = Val(Text1.Text)  'Simpan angka pertama
    operasi = "*"              'Set operasi perkalian
    Text1.Text = "0"           'Reset display
End Sub

÷ Tombol Pembagian (CmdBagi)

Private Sub CmdBagi_Click()
    angka1 = Val(Text1.Text)  'Simpan angka pertama
    operasi = "/"              'Set operasi pembagian
    Text1.Text = "0"           'Reset display
End Sub

= Tombol Hasil (CmdHasil)

Private Sub CmdHasil_Click()
    angka2 = Val(Text1.Text)  'Ambil angka kedua
    
    'Proses berdasarkan operasi yang dipilih
    Select Case operasi
        Case "+"
            hasil = angka1 + angka2
        Case "-"
            hasil = angka1 - angka2
        Case "*"
            hasil = angka1 * angka2
        Case "/"
            If angka2 <> 0 Then
                hasil = angka1 / angka2
            Else
                MsgBox "Error: Pembagian dengan nol!"
                Exit Sub
            End If
    End Select
    
    Text1.Text = hasil  'Tampilkan hasil
End Sub

C Tombol Clear (CmdClear)

Private Sub CmdClear_Click()
    Text1.Text = "0"   'Reset display
    angka1 = 0          'Reset angka pertama
    angka2 = 0          'Reset angka kedua
    hasil = 0           'Reset hasil
    operasi = ""         'Reset operasi
End Sub

🎮 Demo Interaktif

Coba kalkulator di atas! Klik tombol-tombol untuk melihat bagaimana logika program bekerja. Kalkulator ini menggunakan logika yang sama dengan kode VB 6.0 yang telah dijelaskan.

💡

Tips: Perhatikan bagaimana setiap tombol operasi menyimpan angka pertama dan jenis operasi, kemudian tombol "=" menghitung berdasarkan kedua nilai tersebut.

🔄 Alur Logika Program

1️⃣

Input Angka 1

Tekan tombol angka

→

2️⃣

Pilih Operasi

+, −, ×, atau ÷

→

3️⃣

Input Angka 2

Tekan tombol angka

→

4️⃣

Tekan =

Lihat hasil

Quiz Pemahaman

Soal 1 C3

Komponen VB 6.0 yang digunakan untuk menampilkan hasil perhitungan pada kalkulator adalah...

A Label

B TextBox

C CommandButton

D ListBox

Soal 2 C4

Pada kode program kalkulator, fungsi Val() digunakan untuk...

A Mengubah angka menjadi teks

B Mengubah teks menjadi angka (numerik)

C Menghapus isi TextBox

D Menampilkan pesan error

Soal 3 C4

Mengapa pada operasi pembagian perlu dilakukan pengecekan If angka2 <> 0?

A Untuk mempercepat perhitungan

B Untuk mencegah error karena pembagian dengan nol tidak terdefinisi

C Untuk mengubah hasil menjadi bilangan bulat

D Untuk menampilkan hasil dengan desimal

Soal 4 C3

Pernyataan yang BENAR tentang variabel operasi pada program kalkulator adalah...

A Menyimpan hasil perhitungan

B Menyimpan jenis operasi matematika yang dipilih user

C Menyimpan angka pertama

D Menyimpan nama tombol yang ditekan

Soal 5 C4

Perhatikan kode berikut:
Text1.Text = Text1.Text & "5"
Apa yang terjadi jika Text1.Text sebelumnya berisi "12"?

A Text1.Text menjadi "17" (12 + 5)

B Text1.Text menjadi "125" (gabungan string)

C Text1.Text menjadi "5"

D Terjadi error