Menghitung Luas Segitiga

SOURCE CODE: Project dan Form

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:
a. Label1, Caption = Alas
b. Label2, Caption = Tinggi
c. Label3, Caption = Luas

d. Textbox1, Name = txt_alas
e. Textbox2, Name = txt_tinggi
f. Textbox3, Name = txt_luas
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_close; Caption = Close

3. Deklarasi data dengan coding sbb:

Dim alas As Double 'tipe data variabel alas adalah double
Dim tinggi As Double 'tipe data variabel tinggi adalah double
Dim luas As Double 'tipe data variabel luas adalah double

4. Membuat coding cmd_proses

Private Sub cmd_proses_Click()
alas = txt_alas.Text 'variabel alas mengambil nilai dari textbox alas
tinggi = txt_tinggi.Text 'variabel tinggi mengambil nilai dari textbox tinggi
luas = 0.5 * alas * tinggi 'rumus luas segitiga
txt_luas.Text = luas 'memasukkan textbox luas ke dalam nilai luas
End Sub

5. Membuat coding cmd_close

Private Sub cmd_close_Click()
End
End Sub

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 20 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma