Program Mencari Volume Kubus

Kubus merupakan berdiri ruang yang berbentuk persegi yang terdiri dari 6 sisi, rumus untuk mencari volume kubus sangatlah simple adalah sisi x sisi x sisi atau S pangkat 3, menurut rumus volume kubus tersebut kita dapat mengaplikasikanya / menciptakan jadwal 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, kemudian sehabis frame di tambahkan tambahkan lagi 1 label di atas frame.
3. Ubahlah propertienya, ibarat 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 ibarat ini :

4. Tambahkan script berikut :

Private Sub Command1_Click()

If Command1.Caption = "COUNT" Then
     If Text1.Text = "" Then 'Jika Text 1 dalam keadaan kosong saat command 1 di klik maka
     MsgBox "Please, Complete the form !", vbInformation, "BLUES PEDIA"
     'Maka akan muncul kotak pesan "Isi Form dengan lengkap" atas nama Routeros Mikrotik
     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 aku mencoba dengan angka 4, dan saat di klik "Count", maka otomatis label 2 berisi hasil dari 4 pangkat 3, caption command1 berkembang menjadi "Try Again", dan text1 di kunci.