aldiunanto.com

Tanggal dinamis dan kalkulator sederhana dengan VB 6.0

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.

Tanggal dinamis dan kalkulator sederhana dengan VB 6.0 - Aldi Unanto

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.

Tanggal dinamis dan kalkulator sederhana dengan VB 6.0 - Aldi Unanto

Btn_msg, menampilkan messagebox “Hello World!

Tanggal dinamis dan kalkulator sederhana dengan VB 6.0 - Aldi Unanto Timer1, tanggal dan waktu yang berubah secara dinamis.

Tanggal dinamis dan kalkulator sederhana dengan VB 6.0 - Aldi Unanto

Btn_plus, proses penjumlahan antara numb1 dan numb2 dan ditaruh hasil di result.

Tanggal dinamis dan kalkulator sederhana dengan VB 6.0 - Aldi Unanto

Proses pengisian biodata Pembuat.Tanggal dinamis dan kalkulator sederhana dengan VB 6.0 - Aldi Unanto

Btn_view, memindahkan value dari form input ke label dan kemudian mengosongkannya kembali

Leave a Reply

%d bloggers like this: