Membuat jadwal pelajaran menggunakan IF di VB 6.0

Perhatikan tabel berikut ini

Kemudian buatlah Desain Form sebagai berikut

Ketikanlah kode seperti ini untuk Form_Activate()

Private Sub Form_Activate()

Dim x As Control

For Each x In Me

If TypeName(x) = "TextBox" Then x.Enabled = False

Next

    Combo1.AddItem ("Senin")

    Combo1.AddItem ("Kamis")

    Combo1.AddItem ("Jumat")

    Combo1.AddItem ("Sabtu")

End Sub

Pada ComboBox ketikan kode berikut

Private Sub Combo1_Click()
    If Combo1.Text = "Senin" Then
        List1.Clear
        List1.AddItem ("Pemrograman Visual I")
    ElseIf Combo1.Text = "Kamis" Then
        List1.Clear
        List1.AddItem ("Sistem Operasi")
        List1.AddItem ("Statistika Deskriptif")
    ElseIf Combo1.Text = "Jumat" Then
        List1.Clear
        List1.AddItem ("Sistem Informasi Manajemen")
    Else
        List1.Clear
        List1.AddItem ("Interaksi Manusia Komputer")
        List1.AddItem ("Teknik Pemrograman")
    End If
End Sub

Pada ListBox ketikan kode berikut

Private Sub List1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If List1.Text = "Pemrograman Visual I" Then
            txtdosen.Text = "RGA"
            txtruang.Text = "203"
            txtsks.Text = "4"
            txtjam.Text = "07:45-10:45"
        ElseIf List1.Text = "Sistem Operasi" Then
            txtdosen.Text = "ROP"
            txtruang.Text = "202"
            txtsks.Text = "3"
            txtjam.Text = "12:15-14:30"
        ElseIf List1.Text = "Statistika Deskriptif" Then
            txtdosen.Text = "YRU"
            txtruang.Text = "202"
            txtsks.Text = "3"
            txtjam.Text = "14:30-16:45"
        ElseIf List1.Text = "Sistem Informasi Manajemen" Then
            txtdosen.Text = "WPN"
            txtruang.Text = "202"
            txtsks.Text = "4"
            txtjam.Text = "08:30-11:30"
        ElseIf List1.Text = "Interaksi Manusia Komputer" Then
            txtdosen.Text = "AWO"
            txtruang.Text = "202"
            txtsks.Text = "3"
            txtjam.Text = "07:45-10:00"
        ElseIf List1.Text = "Teknik Pemrograman" Then
            txtdosen.Text = "AJE"
            txtruang.Text = "202"
            txtsks.Text = "3"
            txtjam.Text = "10:00-12:15"
        End If
    End If
End Sub

Seperti ini saat Program dijalankan

Sekian Terimakasih . . .