Ini Contoh Soal Selection Sructure dengan Visual Basic :P, sekedar Contoh mungkin berguna untuk pemula.
Materi dasar Pemrograman
Dim Nilai, Sisa, Menit, Jam, Detik As Integer
ClsNilai = InputBox("Masukan Nilai yg Dirubah :", "Variabel Nilai")Jam = (Nilai \ 3600)Sisa = (Nilai Mod 3600)Menit = (Sisa \ 60)Detik = Sisa - (Menit * 60)
Print "Nilai Detik yang dikonversi ="; Nilai
Print "Sisa Nilai Detik Setelah dibagi 3600 ="; SisaPrint vbCrLfPrint ; Jam; "Jam"Print vbCrLfPrint ; Menit; "Menit"Print vbCrLfPrint ; Detik; "Detik"
Private Sub Command1_Click()Dim Nilai, Sisa, Menit, Jam, Detik As Integer
ClsNilai = InputBox("Masukan Nilai yg Dirubah :", "Variabel Nilai")Jam = (Nilai \ 3600)Sisa = (Nilai Mod 3600)Menit = (Sisa \ 60)Detik = Sisa - (Menit * 60)
Print "Nilai Detik yang dikonversi ="; Nilai
Print "Sisa Nilai Detik Setelah dibagi 3600 ="; SisaPrint vbCrLfPrint ; Jam; "Jam"Print vbCrLfPrint ; Menit; "Menit"Print vbCrLfPrint ; Detik; "Detik"
End Sub
Private Sub Command2_Click()ClsDim Nilai As IntegerDim Grade As StringNilai = InputBox("Masukan Nilai =", "Variabel Nilai")If Nilai >= 80 ThenGrade = "A"ElseIf Nilai >= 70 ThenGrade = "B"ElseIf Nilai >= 60 ThenGrade = "C"ElseIf Nilai >= 50 ThenGrade = "D"ElseGrade = "E"End IfPrint "Contoh IF-THEN-ELSE"Print vbCrLfPrint "Nilai ="; NilaiPrint vbCrLfPrint "Grade ="; Grade
End Sub
Private Sub Command3_Click()Unload Me
End Sub
Private Sub Command4_Click()
ClsDim Hadiah, Undian As StringDim x As IntegerUndian = InputBox("Masukan Nomor Undian Anda ;", "Nomor Undian")
Select Case UndianCase "1", "3", "5"Hadiah = "Laptop"Case "2"Hadiah = "PDA"Case "4"Hadiah = "Printer"Case Elsex = MsgBox("Nomor Undian yang Valid 1,2,3,4,5", vbOKCancel, Pesan)
End SelectPrint "Nomor Undian = "; UndianPrint "Hadiah Yang Didapat :"; Hadiah
End Sub
Private Sub SELECTCASE_Click()Cls
Dim Nilai As IntegerDim Grade As String
Nilai = InputBox("Masukan NIlai Mahasiswa :", "Variabel Nilai")Select Case NilaiCase Is >= 80: Grade = "A"Case Is >= 70: Grade = "B"Case Is >= 60: Grade = "C"Case Is >= 50: Grade = "D"Case Else: Grade = "E"End SelectPrint "Contoh Select Case"Print vbCrLfPrint "Nilai Mahasiswa : "; NilaiPrint vbCrLfPrint "Grade Nilai :"; GradeEnd Sub
