1. Klik dua kali "TIMER" dan atur posisinya seterah sobat setelah itu tuliskan 2 program dibawah ini dengan mengklik dua kali kotak form jangan sampai terkena "COMMANDBUTTON"
(a). program pertama
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Timer1.Tag = 200
End Sub
(b).Program kedua, setelah itu klik dua kali lagi "TIMER" dan tuliskan program seperti dibawah ini:
Private Sub Timer1_Timer()
Cls
Form1.FontSize = 10
Form1.FontBold = 2
Form1.ForeColor = vbgren
Print Time$
End Sub
2. klik dua kali "LABEL" dan aturlah posisinya tepat disamping "TIMER"seperti gambar disamping dan hapus tulisan "LABEL1" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan hapus tulisan "LABEL1" setelah itu klik dua kalik kotak form dan tuliskan program sederhana dibawah ini tepatnya di tuliskan dibawah "Timer1.Tag = 200".
Label1.FontSize = 10
Label1.FontBold = 2
Label1.ForeColor = vbGreen
Label1.Caption = "JADWAL KULIAH"
3. klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "SENIN" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanya menjadi "SENIN" dan tuliskan program sederhana dibawah ini:
Private Sub Command1_Click()
MsgBox "Senin = Kalkulus dan Matematika" & ", Nama Dosen = fatimah " & ", jam = 1:00", vbOKOnly, "JADWAL SAYA"
End Sub
4. Untuk membuat "SELASA" s/d "MINGGU" caranya sama seperti membuat "SENIN", yang terdapat pada nomer 3 sepeti diatas.
5. terakhir untuk membuat "SELESAI" sepeti gambar diatas klik dua kali "COMMANDBUTTON" dan atur posisinya sesuai keinginan sobat dan tuliskan program sederhna seperti dibawah ini yaitu dengan mengklik dua kali "SELESAI"
Private Sub Command8_Click()
End
End Sub
Apabila program ini berhasil maka akan terlihat seperti gambar disamping atas, selamat mencooba semoga bermanfaat. Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya
0 komentar:
Posting Komentar