Menentukan Volume Limas Jadwal Vb 6.0

Pada tutorial kali ini kita akan menciptakan sebuah progam untuk mencari volume sebuah Limas, rumus dari sebuah volume bola ialah 1 / 3 x Luas Permukaan  x Tinggi, Untuk luas permukaan limas, di sini saya memakai 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 menyerupai ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Command 1	Caption	RESET
Command 2	Caption	HITUNG
Command 3	Caption	END
Label 1	Caption	Volume Limas
Label 2	Caption	T
Label 3	Caption	S
Label 4	Caption	0
Frame 1	Caption	(Kosong)
Text 1	Text	(Kosong)
Text 2	Text	(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 kalau Text 1 dan Text 2 dalam keadaan kosong
If Text1 = "" Or Text2 = "" Then
MsgBox "Lengkapi Data", vbInformation, "Routeros Mikrotik"
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 kegiatan 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 agar bermanfaat