NBA - Offiical Logo

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

3 komentar:

 

GITAR HEROO

Ada kesalahan di dalam gadget ini

Follow Me

My Facebook account

Chat

wellcome © 2012 | Template By Yusuf firdaus