Program Mencari Volume Kubus

Kubus merupakan bangun ruang yang berbentuk persegi yang terdiri dari 6 sisi, rumus untuk mencari volume kubus sangatlah simple yaitu sisi x sisi x sisi atau S pangkat 3, berdasarkan rumus volume kubus tersebut kita bisa mengaplikasikanya / membuat program aritmatika sederhana untuk menemtukan volume di visual basic, untuk cara pembuatanya pun sangatlah mudah, berikut tutorialnya :

1. Jalankan VB dengan project standar EXE, lalu
2. Tambahkan 1 label, 1 text box, 1 command button, dan 1 frame, lalu setelah frame di tambahkan tambahkan lagi 1 label di atas frame.
3. Ubahlah propertienya, seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Command 1	Caption	COUNT
Label 1	Caption	SIDE
Label 2	Caption	(Kosong)
Frame 1	Caption	Result
Text 1	Text	(Kosong)

sehingga seperti ini :

4. Tambahkan script berikut :

Private Sub Command1_Click()

If Command1.Caption = "COUNT" Then
     If Text1.Text = "" Then 'Jika Text 1 dalam keadaan kosong ketika command 1 di klik maka
     MsgBox "Please, Complete the form !", vbInformation, "BLUES PEDIA"
     'Maka akan muncul kotak pesan "Isi Form dengan lengkap" atas nama Blues Pedia
     Else 'Jika text1 tidak kosong maka
     Label2.Caption = Val(Text1) ^ 3 'maka nilai dari Text1 di pangkatkan 3, dan di tulis di label2
     Text1.Enabled = False 'Text 1 tidak aktif
     Command1.Caption = "TRY AGAIN" 'Caption command1 menjadi TRY AGAIN
     End If

ElseIf Command1.Caption = "TRY AGAIN" Then 'Jika command1 = TRY ..... dan di klik, maka
Text1.Text = "" 'Text 1 dalam keadaan kosong
Text1.Enabled = True 'Text1 aktif kembali
Label2.Caption = "" 'Label 2 dalam keaddan kosong
Text1.SetFocus 'Fokus / kursor mouse ada di text1
Command1.Caption = "COUNT" 'Caption command1 menjadi count
End Sub

5. Jika sudah, jalankan program

Coba masukan angka berapa saja di text1, disini saya mencoba dengan angka 4, dan ketika di klik "Count", maka otomatis label 2 berisi hasil dari 4 pangkat 3, caption command1 berubah menjadi "Try Again", dan text1 di kunci.

dan jika ingin mencobanya kembali, klik saja "TRY AGAIN", maka kondisinya akan seperti awal

Sekian tutorial VB kali ini,
Semoga bermanfaat