Membuat Aplikasi “Calendar” dengan Visual Basic 6.0

Butuh kalender untuk tahun baru? tidak perlu repot-repot untuk membeli tanggalan dinding. Kenapa tidak buat saja sendiri hehehe :P (mohon maaf cuma bercanda). Tapi kalau dipikir-pikir tidak ada salahnya kan? karena saya masih menggunakan Windows XP dan tidak pernah menginstall skin, theme dll yang bisa mempercantik desktop oleh karena itulah saya membuat aplikasi ini. Karena di jamin gratis dan bisa dimodifikasi sesuai kebutuhan xixixi ;)

 

 

 

 

1. Jalankan aplikasi Visual Basic 6.0

2. Pada jendela “New Project” pilih “Standard EXE” kemudian tekan tombol “Open”

3. Berikut setingan kontrol properti yang terdapat pada aplikasi ini

Object	Name	Properties	Setting
Form	Form1	Border Style	1 - Fixed Single
		Caption	Calendar
		Font	Tahoma; 10pt
		Start Up Position	2 - Center Screen
Label	lblMonth	Alignment	2 - Center
		Caption	XXXXXXXXXX
		Font	Tahoma; 24pt
Label	lblYear	Alignment	2 - Center
		Caption	XXXX
		Font	Tahoma; 24pt
Label	lblDay	Alignment	2 - Center
		Back Color	&HFFFFFF
		Border Style	1 – Fixed Single
		Caption	XXXXXXXXXX
		Font	Tahoma; 24pt
Label	lblDate	Alignment	2 - Center
		Back Color	&HFFFFFF
		Border Style	1 – Fixed Single
		Caption	XX
		Font	Tahoma; 72pt
Text Box	txtEvent	Alignment	2 - Center
		Enabled	False
		Font	Tahoma; 18pt
		Multi Line	True
		Scroll Bar	2 - Vertical
Label	lblClock	Alignment	2 - Center
		Caption	XX:XX:XX
		Font	Tahoma; 24pt
Command Button	cmdExit	Caption	E&xit

4. Berikut event code program

Private Sub cmdExit_Click()
    End
End Sub

Private Sub Timer1_Timer()
    lblDay.Caption = Format(Now, "dddd")
    lblClock.Caption = Format(Now, "hh:mm:ss")
    lblMonth.Caption = Format(Now, "mmmm")
    lblDate.Caption = Format(Now, "d")
    lblYear.Caption = Format(Now, "yyyy")
    If lblDay.Caption = "Minggu" Then
        lblDay.ForeColor = vbRed
        lblDate.ForeColor = vbRed
    ElseIf lblMonth.Caption = "Desember" And lblDate.Caption = "25" Then
        lblDay.ForeColor = vbRed
        lblDate.ForeColor = vbRed
        txtEvent.Text = "Hari Raya Natal"
    ElseIf lblMonth.Caption = "Januari" And lblDate.Caption = "1" Then
        lblDay.ForeColor = vbRed
        lblDate.ForeColor = vbRed
        txtEvent.Text = "Tahun Baru " + lblYear.Caption
    Else
        lblDay.ForeColor = &H80000012
        lblDate.ForeColor = &H80000012
        txtEvent.Text = ""
    End If
End Sub