Dalam laporan ini akan dijelaskan cara pembuatan aplikasi sederhana menggunakan Visual Basic 6.0. dalam aplikasi sederhana ini berisi salam ucapan, tanggal yang dinamis, judul yang dapat berubah-ubah warna setiap detiknya, kalkulator sederhana, dan menampilkan data pembuat aplikasi.
Buka software Visual Basic 6.0 dan pilih Standard EXE. Atur sedemikian rupa sehingga tampilan UI aplikasinya seperti gambar dibawah ini.
Berikut jenis-jenis dan properti dari setiap tools yang harus diatur.
Tools name |
Type |
Caption |
Text |
Extras |
Label1 | label | Praktikum VB 6.0 – Membuat kalkulator sederhana | Font: bold, 10px | |
Btn_msg | CommandButton | Ucapan | ||
Btn_exit | CommandButton | Keluar | ||
Frame1 | Frame | Tanggal | ||
Frame2 | Frame | Waktu | ||
Label2 | label | Label2 | ||
Label3 | label | Label3 | ||
Numb1 | TextBox | (empty) | ||
Numb2 | TextBox | (empty) | ||
Btn_plus | CommandButton | + | ||
Btn_min | CommandButton | – | ||
Btn_mul | CommandButton | X | ||
Btn_div | CommandButton | / | ||
Btn_mod | CommandButton | Mod | ||
Btn_pang | CommandButton | ^ | ||
result | TextBox | (empty) | ||
Label10 | Label | Pembuat | Font : bold, 10px | |
Label4 | label | Nama | ||
tname | TextBox | (empty) | ||
Label5 | label | Kelas | ||
tclass | TextBox | (empty) | ||
Label6 | label | NPM | ||
tnpm | TextBox | (empty) | ||
Btn_view | CommandButton | Tampil | ||
Label7 | label | Nama : | ||
Label8 | label | Kelas : | ||
Label9 | label | NPM : | ||
lname | label | (empty) | ||
Lclass | Label | (empty) | ||
lnpm | label | (empty) | ||
Timer1 | timer | Interval : 1000 |
Dan berikut ini adalah kode-kode untuk setiap tools beserta penjelasan dan logikanya.
Private Sub btn_div_Click()
result.Text = Val(numb1.Text) / Val(numb2.Text)
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_div’ di klik. Akan memproses sebuah kalkulasi pembagian antara numb1 dan numb2 setelah itu hasil pembagiannya ditaruh di result. Fungsi Val() berfungsi untuk mengambil nilai atau value dari sebuah karakter yang diinput.
Private Sub btn_exit_Click()
End
End Sub
Bagian ini akan bekerja ketika CommandButton bernama ‘btn_exit’ di klik. Akan menghentikan dan keluar dari proses kompilasi program.
Private Sub btn_min_Click()
result.Text = Val(numb1.Text) – Val(numb2.Text)
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_min’ di klik. Akan memproses sebuah kalkulasi pengurangan antara numb1 dikurang numb2 setelah itu hasil pengurangannya ditaruh di result. Fungsi Val() berfungsi untuk mengambil nilai atau value dari sebuah karakter yang diinput.
Private Sub btn_mod_Click()
result.Text = Val(numb1.Text) Mod Val(numb2.Text)
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_mod’ di klik. Akan memproses sebuah kalkulasi, mencari sisa hasil bagi numb1 dengan numb2. Setelah itu hasil yang didapat ditaruh di result. Fungsi Val() berfungsi untuk mengambil nilai atau value dari sebuah karakter yang diinput, dan Mod adalah fungsi aritmatika bawaan dari Visual Basic yang digunakan untuk mencari sisa hasil bagi.
Private Sub btn_msg_Click()
MsgBox “Hello World!”
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_msg’ di klik. Akan memunculkan sebuah message box yang berisi karakter “Hello World!”.
Private Sub btn_mul_Click()
result.Text = Val(numb1.Text) * Val(numb2.Text)
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_mul’ di klik. Akan memproses sebuah kalkulasi perkalian antara numb1 dan numb2. Setelah itu hasil perkaliannya ditaruh di result. Fungsi Val() berfungsi untuk mengambil nilai atau value dari sebuah karakter yang diinput.
Private Sub btn_pang_Click()
result.Text = Val(numb1.Text) ^ Val(numb2.Text)
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_pang’ di klik. Akan memproses sebuah kalkulasi perpangkatan antara numb1 dipangkatkan numb2. Setelah itu hasil perpangkatannya ditaruh di result. Fungsi Val() berfungsi untuk mengambil nilai atau value dari sebuah karakter yang diinput, dan simbol karakter ‘^’ untuk perpangkatan.
Private Sub btn_plus_Click()
result.Text = Val(numb1.Text) + Val(numb2.Text)
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_plus’ di klik. Akan memproses sebuah kalkulasi penjumlahan antara numb1 dan numb2. Setelah itu hasil penjumlahannya ditaruh di result. Fungsi Val() berfungsi untuk mengambil nilai atau value dari sebuah karakter yang diinput.
Private Sub btn_view_Click()
lname.Caption = tname.Text
lclass.Caption = tclass.Text
lnpm.Caption = tnpm.Text
tname.Text = “”
tclass.Text = “”
tnpm.Text = “”
End Sub
Bagian kode ini akan bekerja ketika CommandButton bernama ‘btn_view’ diklik. Button ini yang berfungsi untuk menampilkan atau memindahkan data-data yang diinput oleh pembuat pada form yang sudah disediakan. Cara kerjanya yaitu dengan meng-copy value dari input text ke label yang sudah disiapkan, setelah itu mengeset ulang nilai dari inputan ke kosong(empty).
Private Sub Timer1_Timer()
Label1.ForeColor = QBColor(Rnd * 15)
Label2.Caption = Format(Now, “d mmmm yyyy”)
Label3.Caption = Format(Now, “hh : mm : ss”)
End Sub
Bagian kode ini berfungsi untuk mengaktifkan fungsi dari tools timer. Disini kita mengesetnya dengan mengganti warna teks dari Label1, merubah caption dari Label2 ke tanggal hari ini, dal caption Label3 ke waktu sekarang. Semua blok kode yang ada pada timer ini akan terus berulang setiap satu detik tergantung dari banyaknya interval yang sudah diset di properti Timer sebelumnya.
Dan screenshot dibawah ini adalah hasilnya dari setiap event yang dilakukan.
Btn_msg, menampilkan messagebox “Hello World!”
Timer1, tanggal dan waktu yang berubah secara dinamis.
Btn_plus, proses penjumlahan antara numb1 dan numb2 dan ditaruh hasil di result.
Proses pengisian biodata Pembuat.
Btn_view, memindahkan value dari form input ke label dan kemudian mengosongkannya kembali