membuat aplikasi jadwal matakuliah menggunakan Vb 6.0
Membuat Aplikasi jadwal Kuliah berbasis dekstop
Kemudian buatlah Desain Form sebagai berikut
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 :
Komentar
Posting Komentar