Membuat program jadwal kuliah sederhana

Asalamualaikum wr.wb baiklah dalam kesempatan kali ini saya akan memfosting  jadwal kuliah saya sendiri dan saya akan memberikan cara-cara membauatnya.

Saya di disini menggunakan software visual basic 6, langkah pertama tentunya membuka visual basic ,  dan buat form terlebih dahulu dan beri nama jadwal kuliah tanpa panjang lebar langsug saja saya  ke bagian inti membuatnya menggunakn  8 Label dan label 1 untuk judul dan  di beri nama program jadwal kuliah dan cara memberi namanya ada di pojok kanan bawah  di bagian caption untuk label 2 saya isi dengan hari cara memberi namanya sama saja dengan label 1 dan label 3 saya beri nama dengan matkul dan label 4 saya beri nama dengan jam dan label 5 saya beri nama dengan ruangan dan label 6 saya beri nama dengan Bila ada yang ingin di tanyakan hubungi onwer dan label 7  dan 8 tidak usah di beri nama karena itu untuk menampilkan jam dan ruangan pada program  dan semua label dari 1-8  di bukin transparan cara membuat transparannya hampir sama dengan memberikan nama pada label hanya saja cara memberi nama label ada di bagian caption  tetapi cara membuat label trasnparan  ada di bagian BackStyle.

Dan selain label saya juga di sini menggunakan 4 CommandButton Dan CommandButton 1 saya beri nama dengan cetak dan CommandButton 2 saya beri nama dengan clear dan CommandButton 3 saya beri nama dengan  bantuan dan CommandButton 4 saya beri nama dengan keluar  cara memberi nama pada CommandButton  sama saja dengan memberikan nama pada label dan selain itu saya juga menggunakan  1 ListBox dan setelah itu saya juga menggunakan  2 ComboBox nah  maka tampilannya yang saya buat seperti ini.

Ini coding untuk membuatnya: =D

 Private Sub Combo1_Click()
If Combo1.Text = "Senin" Then
Combo2.Text = "1.IMK 2.MATRIK 3.PBO"
ElseIf Combo1.Text = "Selasa" Then
Combo2.Text = "1.KOMGRAF 2.RPL"
ElseIf Combo1.Text = "Rabu" Then
Combo2.Text = "1.LAB.IMK 2.MP"
ElseIf Combo1.Text = "Kamis" Then
Combo2.Text = "1.KB"
End If
End Sub

Private Sub Combo2_Change()
If Combo1.Text = "Senin" And Combo2.Text = "1.IMK 2.MATRIK 3.PBO" Then
Label7 = "08.00   09.45   14.45"
ElseIf Combo1.Text = "Selasa" And Combo2.Text = "1.KOMGRAF 2.RPL" Then
Label7 = "08.00   14.45"
ElseIf Combo1.Text = "Rabu" And Combo2.Text = "1.LAB.IMK 2.MP" Then
Label7 = "11.15   14.45"
ElseIf Combo1.Text = "Kamis" And Combo2.Text = "1.KB" Then
Label7 = "11.30"
Else
Label7 = "no schedule"
End If
End Sub
Private Sub Command2_Click()
MsgBox "Untuk pemakaian program yang baik apabila jam dan ruangan telah tampil sebaiknya setelah itu klik tombol Clear", vbOKOnly, "Cara Penggunaan"
MsgBox "085764383***", vbOKOnly, "Nmr Tlpn Onwer"
End Sub

Private Sub Label7_Change()
If Combo1.Text = "Senin" And Combo2.Text = "1.IMK 2.MATRIK 3.PBO" Then
Label8 = "R 3.7   R 4.2   R 4.5"
ElseIf Combo1.Text = "Selasa" And Combo2.Text = "1.KOMGRAF 2.RPL" Then
Label8 = "R 1.5   R 3.8"
ElseIf Combo1.Text = "Rabu" And Combo2.Text = "1.LAB.IMK 2.MP" Then
Label8 = "R 1.4   R 4.5"
ElseIf Combo1.Text = "Kamis" And Combo2.Text = "1.KB" Then
Label8 = "R 4.6"
Else
Label8 = "no schedule"
End If
End Sub
Private Sub Command1_Click()
List2.Clear
Label7 = ""
Label8 = ""
Combo1 = ""
Combo2 = ""
End Sub

Private Sub tambah_Click()
List2.AddItem "Hari:" + " " + Combo1
List2.AddItem "Matkul:" + " " + Combo2
List2.AddItem "Jam:" + " " + Label7
List2.AddItem "Ruangan:" + " " + Label8
MsgBox "Jadwal telah berhasil didapatkan. ", vbOKOnly, "Sukses"
MsgBox "Untuk melihat jadwal yang lain silahkan klik tombol Clear", vbOKOnly, "Sukses"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Activate()
Combo1.Clear
Combo1.AddItem "Senin"
Combo1.AddItem "Selasa"
Combo1.AddItem "Rabu"
Combo1.AddItem "Kamis"
Combo2.Clear
Combo2.AddItem "1.IMK 2.MATRIK 3.PBO"
Combo2.AddItem "1.KOMGRAF 2.RPL"
Combo2.AddItem "1.LAB.IMK 2.MP"
Combo2.AddItem "1.KB"
End Sub

Mungkin tidak sama dengan yang anda buat karena punya saya sudah di desain mungkin warna form punya anda masih berwarna abu-abu tapi jangan kwatir tanpa di desain pun programnya tidak bakal eror bila anda  sesuai memasukan coding yang di atas, dan untuk desain warna form ataupun warna CommandButton  atau bentuk tulisan itu sesuai keinginan masing-masing saja untuk desainnya hampir sama dengan memberikan nama pada CommandButton/label tadi tetapi untuk desain warna ada di bagian Backcolor dan desain bentuk tulisan/ukuran ada di bagian font.

Bila di jalankan programnya akan seperti ini

Nah setelah jalan silahkan anda masukan hari apa yang mau anda pilih maka akan tampil secara otomatis Matkul,jam dan ruangnnya

Sekin dulu postingan hari ini semoga bermanfaat bila ada yang di tanyakan silahkan komentar