PROGRAM MENGHITUNG LUAS SEGITIGA DAN LINGKARAN

Pada postingan kali ini saya akan mengajak anda untuk membuat program sederhana menghitung luas segitiga dan lingkaran. Selamat membaca !

PROGRAM MENGHITUNG LUAS SEGITIGA

Rumus perhitungan luas segitiga adalah : alas x tinggi / 2

Jadi mari kita membuat program dengan vb.6 sebagai berikut :

1.Buka Visual Basic 6.0

2.Open Standard.Exe

3.Kemudian tarik 3 Label,3 Textbox dan 2 Command Button.

4.Ubah Caption Label 1 menjadi Alas,Label 2 menjadi Tinggi dan Label 3 menjadi Luas Segitiga

5.Ubah name pada properties(untuk digunakan dalam coding) untuk Text1 = txtalas,Text2 = txttinggi ,Text3 = txtluas, untuk command1 ubah name menjadi = btnhitung,dan untuk command2 menjadi btnrefresh.

6.Setelah itu ketikkan coding berikut pada tombol hitung (klik dua kali pada tombol hitung)

Private Sub btnhitung_Click()
     a = Val(txtalas.Text)
     t = Val(txttinggi.Text)
  If txtalas.Text = "" Or txttinggi.Text = "" Then
     MsgBox "Informasi Tidak Lengkap", vbInformation, "SEGITIGA"
  Else
     txtluas.Text = (a * t) / 2
     txtalas.Text = a
     txttinggi.Text = t
  End If

End Sub

7.Kemudian pada tombol refresh tuliskan script berikut

Private Sub btnrefresh_Click()
    txtalas.Text = ""
    txttinggi.Text = ""
    txtluas.Text = ""
  
    txtalas.SetFocus
End Sub

keywords : menghitung luas segitiga, visual basic