Menghitung Luas Segitiga Menggunakan Microsoft Visual Basic 6.0

Menghitung Luas Segitiga Menggunakan Microsoft Visual Basic 6.0

Sebelum membuat program menghitung luas segitiga, kita harus mengetahui rumus cara menghitung luas segitiga tersebut supaya dapat diterjemahkan kedalam bahasa pemograman yang pada kesempatan ini menggunakan Visual Basic (VB) 6.0. Adapun rumus meghitung luas segitiga adalah 1/2 x Alas x Tinggi. Ini berarti kita menggunakan tiga textbox untuk input data alas dan tinggi serta untuk menampilkan hasil. Tiga buah command button untuk mengeksekusi proses, pengosongan textbox dan comandbutton untuk keluar.

Desain programnya seperti gambar berikut :

( Desain Program )

Kalau desain disini tidak terlalu dimasalahkan, yang penting komponen" yang perlukan harus ada seperti Nama objeck Alas,Tinggi,Hasil,Hitung, Reset, Eit. desain sih sesuka kawan-kawan saja enaknya gimana, Ok.

Nah nih Silahkan Copy Coding dibawah ini :

Private Sub Command1_Click()
Const rumus = 0.5
Dim luas As Double
luas = rumus * Val(Text1.Text) * Val(Text2.Text)
Text3.Text = luas
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
 End
End Sub

NB : Coding nya ditempatkan dengan fungsi masing" menu button yang kalian buat               tadi.

Maka hasilnya seperti gambar dibawah ini :

(gambar Setelah di RUN)

* SELAMAT MENCOBA *