Program Untuk Menghitung Keliling dan Luas Segitiga Sama Sisi dengan menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Langkah - langkah pembuatan program:

·     Buka proyek Standard EXE yang baru

·     Disain tampilan form seperti gambar berikut dengan menggunakan objek Label dan TextBox dan CommandButton

 Gbr 1

·     Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Text	txt_sisi [dikosongkan]
Label1	Name Caption Appearance Border Style	lbl_keliling [dikosongkan] 0 - Flat 1 - Fixed Single
Label2	Name Caption Appearance Border Style	lbl_luas [dikosongkan] 0 - Flat 1 - Fixed Single
Label3	Caption	Sisi
Label5	Caption	Keliling
Label6	Caption	Luas
CommandButton2	Name Caption	cmd_exit E&xit

Form1

Name Caption

Frm_SegitigaSamaSisi Program untuk Mencari Keliling dan Luas Segitiga Sama Sisi

·     Klik menu View  =>  Code, lalu kode program di bawah ini :

Private Sub cmd_exit_Click()

End

End Sub

Private Sub txt_sisi_Change()

If Me.txt_sisi.Text = "" Then

    Me.lbl_luas.Caption = ""

    Me.lbl_keliling.Caption = ""

Else

    Me.lbl_luas.Caption = Format(((Me.txt_sisi.Text ^ 2) / 4) * (Sqr(3)), "##0.0#")

    Me.lbl_keliling.Caption = 3 * Me.txt_sisi.Text

End If

End Sub

·     Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·     Hasilnya ketika program dijalankan :

 

 Gbr 2

Download Source Code-nya  disini atau disini