Aplikasi Untuk Menghitung Luas Persegi Panjang dengan Menggunakan Visual Basic 6

Visua Basic, software yang sering digunakan untuk membuat suatu aplikasi komputer. Tisak sedikit mahasiswa yang membuat tugas akhir atau skripsi menggunakan program VB.

Bahkan saat ini anak sekelas SMP/MTs sudah harus dikenalkan dengan software komputer yang digunakan untuk membuat suatu aplikasi, salah satunya adalah Visual Basic (VB).

Oke langsung saja tanpa harus berpanjang-panjang kali ini kita akan belajar bagaimana cara untuk membuat aplikasi penghitung luas persegi panjang dengan menggunakan VB.

Silahkan simak langkah-langkah berikut ini:

• Buat sebuah form baru ya....
• Buat label sebanyak 4
• Buat textbox sebanyak 3
• buat commandbutton sebanyak 3

Lihat gambar di bawah ini untuk lebih jelasnya

Untuk propertisnya bisa mengikuti di bawah ini:

Label ke1:

Name: Label1

Caption: KALKULATOR MENGHITUNG LUAS PERSEGI PANJANG

Label ke2:

Name: Label2

Caption: PANJANG

Label ke3:

Name: Label3

Caption: LEBAR

Label ke4:

Name: Label4

Caption: LUAS

TextBox ke1:

Name: Text1

Text: 

TextBox ke2:

Name: Text2

Text: 

TextBox ke3:

Name: Text3

Text: 

CommandButton ke1:

Name: Command1

Caption: HITUNG 

CommandButton ke2:

Name: Command2

Caption: RESET

CommandButton ke3:

Name: Command3

Caption: TUTUP

Okeee setelah semua dibuat sekarang kita memasukkan kode programnya.....

Kode Program (Source Code)

Untuk memasukkan kode program, pertama silahkan klik 2x tombol HITUNG maka akan keluar seperti ini:

Private Sub Command1_Click()

End Sub 

Lalu silalhkan isi dengan kode ini: Text3.Text = Val(Text1.Text) * Val(Text2.Text)

maka nanti akan seperti ini:

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Penjelasan dari kode tersebut adalah seperti ini ya........:

Bila Command1 di klik dengan kata lain bila tombol HITUNG di klik maka akan ada perintah untuk menampilkan hasil pada Text3 dengan rumus  isi dari Text1 dikali dengan isi dari Text2.

Dalam hal ini Text3 adalah LUAS, Text1 adalah PANJANG dan Text3 adalah LEBAR.

Lanjut..........

Silahkan klik 2x tombol RESET lalu tuliskan kodenya sehingga nanti akan seperti ini:

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Penjelasannya adalah seperti ini..... silahkan simak....

Bila Command2 di Klik (Tombol RESET di klik) maka akan ada perintah untuk mengosongkan isi dari textbox 1, 2, dan 3.

Text1.Text = ""  ini artinya isi dari Text1 di kosongkan (" ")

Begitu juga untuk textbox ke2 dan ke3.

Terakhirrr.......

Silahkan Klik 2x Tombol TUTUP lalu ketikkan kode End, nanti hasilnya seperti ini:

Private Sub Command3_Click()

End

End Sub

Maksud dari kode tersebut (kode End) adalah untuk menutup aplikasi yang dibuat.

Kode lengkapnya seperti ini ya......

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Kalu sudah diisi programnya silahkan dicoba untuk menjalankan aplikasi dengan menekan tombol F5 pada keyboard atau tombol start pada VB.

Silahkan mencoba ya............

Untuk Video tutorialnya ada di link ini ya...... https://youtu.be/rTVcd6A2nlY