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
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 *
Good Jobs (y) (*)
ReplyDeletewow sangat cepat menghitung dengan visual basic http://www.hargatiketwisata.xyz/
ReplyDeleteAmazing...
ReplyDelete