Membuat Aplikasi “Calendar” dengan Visual Basic.NET 2010

Setelah sebelumnya sudah saya terapkan pada Visual Basic 6.0 maka sekarang saya terapkan pada Visual Basic.NET 2010. Ketika program ini saya buat ada beberapa perbedaan yang paling terasa pada Visual Basic.NET 2010 yaitu pada saat mensetting tampilan keluaran nama Hari, Tanggal, Bulan dan Tahun. Beruntung di beberapa forum di internet ada yang menanyakan hal yang sama seperti yang saya inginkan. Hasilnya aplikasi berjalan sesuai dengan aplikasi yang pertama kali saya buat pada Visual Basic 6.0. Akan tetapi aplikasi ini berjalan agak aneh pada komputer saya. Apa mungkin terjadi bug? saya kurang tahu. Bila teman-teman mencoba membuat aplikasi ini sesuai dengan yang saya buat dan teman-teman menemukan hal yang serupa! tolong konfirmasikan kepada saya, karena saya sudah menceknya satu persatu tanpa menemukan error atau bug dan mungkin teman-teman bisa menemukannya. Trims.

1. Jalankan terlebih dahulu aplikasi Visual Basic 2010

2. Pada tabulasi “Start Page” pilih “New Project” atau bisa juga dengan menekan tombol “Ctrl + N” pada keyboard

3. Pada jendela “New Project” pilih “Windows Forms Application” kemudian tekan tombol “OK”

4. Berikut setingan kontrol properti yang terdapat pada aplikasi ini

Object	Name	Properties	Setting
Form	Form1	Font	Tahoma; 10pt
		Form Border Style	Fixed Single
		Maximize Box	False
		Minimize Box	False
		Start Position	Center Screen
		Text	Calendar
Label	lblMonth	Auto Size	False
		Font	Tahoma; 24pt
		Text	XXXXXXXXXX
		Text Align	Middle Center
Label	lblYear	Auto Size	False
		Font	Tahoma; 24pt
		Text	XXXX
		Text Align	Middle Center
Label	lblDay	Auto Size	False
		Back Color	White
		Font	Tahoma; 24pt
		Text	XXXXXXXXXX
		Text Align	Middle Center
Label	lblDate	Auto Size	False
		Back Color	White
		Font	Tahoma; 72pt
		Text	XX
		Text Align	Middle Center
Text Box	txtEvent	Enabled	False
		Font	Tahoma; 18pt
		Multiline	True
		Scroll Bar	Vertical
		Text Align	Center
Label	lblClock	Auto Size	False
		Font	Tahoma; 24pt
		Text	XX:XX:XX
		Text Align	Middle Center
Button	cmdExit	Text	E&xit

5. Berikut event code program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtEvent.BackColor = Color.FromKnownColor(KnownColor.Window)
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lblMonth.Text = System.DateTime.Now.ToString("MMMM")
        lblYear.Text = System.DateTime.Now.ToString("yyyy")
        lblDay.Text = System.DateTime.Now.ToString("dddd")
        lblDate.Text = System.DateTime.Now.ToString("D")
        lblClock.Text = System.DateTime.Now.ToString("hh:mm:ss")

        If lblDay.Text = "Minggu" Then
            lblDay.ForeColor = Color.Red
            lblDate.ForeColor = Color.Red
        ElseIf lblMonth.Text = "Desember" And Val(lblDate.Text) = "25" Then
            lblDay.ForeColor = Color.Red
            lblDate.ForeColor = Color.Red
            txtEvent.Text = "Hari Raya Natal"
        ElseIf lblMonth.Text = "Januari" And Val(lblDate.Text) = "1" Then
            lblDay.ForeColor = Color.Red
            lblDate.ForeColor = Color.Red
            txtEvent.Text = "Tahun Baru " + lblYear.Text
        Else
            lblDay.ForeColor = Color.FromKnownColor(KnownColor.ControlText)
            lblDate.ForeColor = Color.FromKnownColor(KnownColor.ControlText)
            txtEvent.Text = ""
        End If
    End Sub

End Class