Tutorial 3 -Program Menguji Kotak - Penggunaan IF (Visual Basic)

Buatlah Layout Form seperti berikut :

Langkah berikutnya adalah : Lakukan pengeditan sehingga menjadi seperti gambar dibbawah ini .

Langkah berikutnaya ketikkan program berikut ini yaitu untuk menguji sebuah kotak bisa digunakan untuk memasukan bola berukuran 30 cm tingginya.

Dim Panjang As Integer
Dim Lebar As Integer
Dim Tinggi As Integer

Const TinggiBola = 30 

Private Sub Command1_Click()
Panjang = Val(Text1.Text)
Lebar = Val(Text2.Text)
Tinggi = Val(Text3.Text)

If Panjang < TinggiBola Then
   Label1.Caption = "Kurang Panjang"
Else
   Label1.Caption = " Panjang memuhi syarat "
End If

If Lebar < TinggiBola Then
   Label2.Caption = "Kurang Lebar"
Else
   Label2.Caption = " Lebar memuhi syarat"
End If

If Tinggi < TinggiBola Then
   Label3.Caption = "Kurang Tinggi"
Else
   Label3.Caption = " Tinggi memuhi syarat"
End If

End Sub


Langkah terakhir tekan tombol F5

Selamat Berlatih ...!

<< Tutorial 2                     Tutorial 4 >>

Posted in: Pemrograman,Tutorial