Membuat Aplikasi Penghitung Luas Persegi dengan VB6

Malam ini apes pas mau ngampus udah keujanan ban bocor dapet tukang tambal kaga profisional akhirnya kaga masuk kuliah jadi nulis tut ini aja deh :'(

Langsung aja sesuai judul hari ini saya mau berbagi bagaimana cara Membuat Aplikasi Penghitung Luas Persegi dengan VB6, buat form seperti gamabar dibawah ini

Label1
Caption = Menghitung Luas Persegi

Label 2
Caption = Panjang Persegi

Label3
Caption = Luas Persegi

TextBox1
Name = TextPanjang
Enabled = False
Text = Panjang

TextBox2
Name = TextLebar
Enabled = False
Text = Lebar

TextBox3
Name = TextHasil
Enabled = False
Text = Hasil

CommandButton1
Name = CInput
Caption = &Input

CommandButton2
Name = CHitung
Caption = &Hitung
Enabled = False

CommandButton3
Name = CExit
Caption = &Exit

Jika properti telah disesuaikan seperti diatas klik 2 kali pada TextLebar dan pastikan pada event Change dan ketikan kode dibawah ini

Private Sub TextLebar_Change()
CHitung.Enabled = True
TextHasil.Text = "Tekan Hitung"
End Sub

Klik dua kali pada CInput dan pastiakan pada event on Click lalu ketikan kode

Private Sub CInput_Click()
TextPanjang.Enabled = True
TextPanjang.Text = ""
TextPanjang.SetFocus
TextLebar.Enabled = True
TextLebar.Text = ""
TextHasil.Text = ""
End Sub

Klik dua kali pada CHitung dan pastiakan pada event on Click lalu ketikan kode

Private Sub CHitung_Click()
TextHasil.Enabled = True
If TextPanjang.Text = "" Then
MsgBox "Panjang tidak boleh kosong", vbCritical, "error"
TextPanjang.SetFocus
Exit Sub
ElseIf TextLebar.Text = "" Then
MsgBox "Lebar tidak boleh kosong", vbCritical, "error"
TextLebar.SetFocus
Exit Sub
Else
TextHasil.Text = Val(TextPanjang.Text) * Val(TextLebar.Text)
End If
End Sub

Klik dua kali pada CExit dan pastiakan pada event on Click lalu ketikan kode

Private Sub CExit_Click()

If MsgBox("Anda yakin ingin keluar", vbYesNo, "Konfirmasi") = vbYes Then
Unload Me
Exit Sub
End If
End Sub

Selesai, kita sudah bisa menghitung luas persegi dengan program sederhana!!

Program Running!!!