Cara Menghitung Volume Limas dengan Menggunakan Visual Basic 6.0.

Pada tutorial kali ini saya akan membagikan sebuah tip bagaimana Cara menghitung volume limas dengan menggunakan visual basic 6.0.

Limas adaah sebuah bangun ruang tiga dimensi yang memiliki alas bersegi banyak, sisi-sisinya berbentuk segitiga dan memiliki puncak.

Rumus limas ada 2 jenis yaitu : Rumus Luas Permukaan Limas dan Rumus Volume Limas

Rumus Luas Permukaan Limas

L = Luas alas + Jumlah luas sisi tegak


Rumus Volume Limas

V= 1/3 x luas alas x tinggi

Sebelum kita mencari Volume limas terlebih dahulu kita mencari luas alasnya,setelah luas alasnya diketahui barulah kita mencari volumenya, berikut adalah rumus yang akan kita gunakan untuk mencari volume limas yaitu 1/3 x luas alas x tinggi yang nantinya kita akan masukan dalam kode program VB.

Cara menghitung volume limas dengan menggunakan visual basic 6.0

Berikut dibawah ini adalah langkah-langkah mencari Volume Limas dengan VB6 :

Buka VB6 Anda dengan standar EXE

Desainlah form seperti pada gambar dibawah ini :

Form Desain

Setelah Anda mendesain form seperti gambar diatas, ketikan kode dibawah ini pada jendela kode :


Private Sub Command1_Click() 'Tombol Hitung

'jika textbox dikosongkan

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "LENGKAPI DATA", vbInformation, "TIPANDTRICKUNIKVB"

Text1.SetFocus

Else

LUAS = Val(Text2.Text) ^ 2 'MENCARI LUAS


VOL = 1 / 3 * LUAS * Val(Text1.Text) 'MENCARI VOLUME


Label4.Caption = VOL

End If

End Sub


Private Sub Command2_Click() 'Tombol RESET


'MENGOSONGKAN TEXTBOX

Text1.Text = ""

Text2.Text = ""


End Sub


Private Sub Command3_Click() 'Tombol Exit

End

End Sub


Private Sub Form_Load()

'MENGKLIK TOMBOL RESET SAAT DI LOAD DILAYAR

Call Command2_Click

End Sub


Setelah Anda mengetikan kode diatas silahkan jalakan vb Anda, dan hasilnya akan tampak pada gambar dibawah ini :


Form Mencari Rumus Limas

Demikian tips dari saya tentang Cara menghitung volume limas dengan menggunakan visual basic 6.0., semoga bermanfaat



No comments: