TUTORIAL SEDERHANA MEMBUAT PROGRAM JADWAL KULIA BESERTA ALERT PENGINGAT MENGGUNAKAN VB 6.0

Pada kesempatan kali ini saya akan berbagi sedikit tentang cara membuat program jadwal kulia dengan menggunakan program visual basic 6.0.

Diprogram kali ini juga saya lengkapi dengan system alert atau alarm yang berfungsi mengingatkan apabila waktu kulia sudah habis atau selesai, program ini sebenarnya  terinsfirasi dari dosen saya yang hobi “nyolong waktu” pada saat mata kulia berlangsung. hehe

Langsung aja ya,

Langkah pertama buka Microsoft visual basic 6.0 >> Pilih standard exe

Buat tampilan  form seperti gambar

Dengan keterangan property sebagai berikut:

NO	OBJECK	PROPERTY	NILAI
1	form	Caption Startup position	Jadwal Kulia V.02 center
2	combobox	Text	PILIH HARI
3	Command button	caption	GO
4	Command button2	caption	Aktifkan Alarm
5	Command button3	caption	EXIT
6	Label1	Caption Fotnsize	Jadwal Kulia 20
7	Label5	Autosize	True
8	Label2	Caption alignment	Nama Mata Kulia 2-center
9	Label3	Caption alignment	SKS 2-center
10	Label4	Caption Alignment	Waktu Mulai 2-center
11	Label6	Caption Alignment	Waktu Selesai 2-center
12	Lable7	Name Caption Alignment	labmatkul (kosongkan) 2-center
13	Label8	Name Caption Alignment	sks (kosongkan) 2-center
14	Label9	Name Caption Alignment	waktu (kosongkan) 2-center
15	Label10	Name Caption Alignment	waksel (kosongkan) 2-center
16	Label11	Name Caption Alignment	labmatkul2 (kosongkan) 2-center
17	Label12	Name Caption Alignment	sks2 (kosongkan) 2-center
18	Label13	Name Caption Alignment	waktu2 (kosongkan) 2-center
19	Label14	Name Caption Alignment	waksel2 (kosongkan) 2-center
20	Timmer1	Interval Enabled	100 True
21	Timmer2	Interval Enabled	100 false

Kemudian ketik kode/listing/koding berikut pada jendela kode

Dim alarm As Boolean

Private Sub Command1_Click()

If Combo1.Text = "SELASA" Then

labmatkul.Caption = "AGAMA"

sks.Caption = "2"

waktu.Caption = "10:45:00 AM"

waksel.Caption = "12:15:00 PM"

labmatkul2.Caption = "PERANCANGAN DATABASE"

sks2.Caption = "4"

waktu2.Caption = "1:45:00 PM"

waksel2.Caption = "16:45:00 PM"

ElseIf Combo1.Text = "KAMIS" Then

labmatkul.Caption = "B.Inggris"

sks.Caption = "2"

waktu.Caption = "12:15:00 PM"

waksel.Caption = "1:45:00 PM"

labmatkul2.Caption = "STRUKTUR DATA"

sks2.Caption = "4"

waktu2.Caption = "1:45:00 PM"

waksel2.Caption = "16:45:00 PM"

ElseIf Combo1.Text = "JUM'AT" Then

labmatkul.Caption = "DASAR MANAJEMEN BISNIS"

sks.Caption = "2"

waktu.Caption = "7:45:00 AM"

waksel.Caption = "9:15:00 AM"

labmatkul2.Caption = "CARAKTER BUILDING"

sks2.Caption = "3"

waktu2.Caption = "9:15:00 AM"

waksel2.Caption = "11:15:00 AM"

ElseIf Combo1.Text = "SABTU" Then

labmatkul.Caption = "PRAKTIKUM PERANCANGAN DATABASE"

sks.Caption = "2"

waktu.Caption = "7:45:00 AM"

waksel.Caption = "9:15:00 aM"

labmatkul2.Caption = ""

sks2.Caption = ""

waktu2.Caption = ""

waksel2.Caption = ""

Else

MsgBox "Tidak Ada Kelas"

End If

End Sub

Private Sub Command2_Click()

If alarm = True Then

Timer2.Enabled = False

Command2.Caption = "Aktifkan Alarm"

alarm = False

Else

Command2.Caption = "Nonaktifkan Alarm"

alarm = True

End If

End Sub

Private Sub Form_Load()

alarm = False

Combo1.AddItem "SENIN"

Combo1.AddItem "SELASA"

Combo1.AddItem "RABU"

Combo1.AddItem "KAMIS"

Combo1.AddItem "JUM'AT"

Combo1.AddItem "SABTU"

End Sub

Private Sub Timer1_Timer()

Label5.Caption = Time

If waksel.Caption = Label5.Caption And alarm = True Then

    Timer2.Enabled = True

    waksel.Caption = "WAKTU HABIS"

End If

If waksel2.Caption = Label5.Caption And alarm = True Then

    Timer2.Enabled = True

    waksel2.Caption = "WAKTU HABIS"

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

Setelah selesai coba tekan tombol F5 atau klik ikon Play pada jendela editor, dan lihat hasilnya

Catatan

                Pastikan format waktu(time) pada computer anda sama dengan listing, seperti penggunaan  AM PM, atau sesuaikan listing/coding dengan format jam pada computer anda
jika anda ingin mendownload projek program ini bisa di download >>DISINI<<

Semoga sedikit pengetahuan saya dapat berguna untuk anda, terimakasih sudah membaca