Menentukan Volume Limas Program VB 6.0


Pada tutorial kali ini kita akan membuat sebuah progam untuk mencari volume sebuah Limas, rumus dari sebuah volume bola adalah 1 / 3 x Luas Permukaan  x Tinggi, Untuk luas permukaan limas, di sini saya menggunakan luas permukaan persegi dengan rumus sisi kali sisi, sehingga rumusnya :
V = 1/3 x S x S x T dan berikut tutorialnya :

1. Buka Visual Basic dengan project standar EXE
2. Lalu tambahkan 4 Label, 2 Text box, 1 frame, dan 3 command button
3. Atur ptopertiesnya seperti ini :

Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Command 1CaptionRESET
Command 2CaptionHITUNG
Command 3CaptionEND
Label 1CaptionVolume Limas
Label 2CaptionT
Label 3CaptionS
Label 4Caption0
Frame 1Caption(Kosong)
Text 1Text(Kosong)
Text 2Text(Kosong)

4. Jika sudah, tuliskan script berikut :

Private Sub Command1_Click()
'Untuk Mengkosongkan Form Text 1, Text 2 dan Label
Text1 = ""
Text2 = ""
Label1 = ""
End Sub


Private Sub Command2_Click()
'Pesan jika Text 1 dan Text 2 dalam keadaan kosong
If Text1 = "" Or Text2 = "" Then
MsgBox "Lengkapi Data", vbInformation, "Blues Pedia"
Else

'Perhitungan Luas Permukaan (Pesegi)
Luas = Val(Text2.Text) ^ 2

'Perhitungan Volume Limas
vol = 1 / 3 * Luas * Val(Text1.Text)
Label1.Caption = vol
End If
End Sub


'Script untuk menghentikan program
Private Sub Command3_Click()
End
End Sub


Private Sub Form_Load()
Call Command1_Click
End Sub

5. Jika sudah, jalankan program dan Coba programnya
Untuk menguji kebenaran dan keakuratanya dalam perhitungan, Kita akan mencobanya :

Untuk tinggi limas di sini saya setting 9, dan untuk sisi persegi saya setting 6, sehingga
V = 1/3 x 6 x 6 x 9
V = 2 x 6 x 9
V = 12 x 9
V = 108

Silahkan anda coba dengan angka lainya
sekian tutorial kali ini semoga bermanfaat



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Menentukan Volume Limas Program VB 6.0"

Post a Comment