Membuat Aplikasi jadwal Kuliah berbasis dekstop

Membuat Aplikasi jadwal Kuliah berbasis dekstop

Perhatikan tabel berikut ini

Kemudian buatlah Desain Form sebagai berikut

Jika sudah selesai mendesain formnya Kemudian

Ketikanlah kode dibawah ini pada jendela code

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


Jika sudah selesai menulis codingnya silahkan coba jalankan dengan menekan (F5)
Jika Program jadi maka Akan tampil Seperti ini  :