Membuat timer menggunakan visual basic.net 2008

Langkah 1.
Pertama yang harus dilakukan membuat windows form baru yang kita beri nama “timer.vb”, form ini kita menggunakan 2 picturebox, 2 commandbutton, 1textbox dan 1 timer. untuk lebih jelasnya dapat dilihat sebagai berikut.

Langkah 2.
Setelah membuat dan menyusun object dari toolbox seperti gambar diatas, sekarang waktunya merubah properties dari setiap object tersebut.
• 2 Picturebox, disini saya menggunakan picture berextension gif, agar dapat terlihat lebih cantik dalam aplikasi ini, pada dasarnya visualbasic tidak dapat membaca file gambar berextension gif, namun kita dapat mengakalinya dengan rename nama file tersebut menjadi extension jpg, meskipun begitu file gif anda masih akan bisa berjalan. Pada properties kita pilih Image – kemudian Import file yang ingin kita masukan lalu pilih ok.
• Button1, kita ganti text menjadi “stop”.
• Button2, kita ganti text menjadi “start”
• Textbox, kita ganti name nya menjadi “txtTime”, accessiblename kita ganti menjadi “txtFilePath”, kita ganti text menjadi “10:10:10”.
• Timer, kita ganti name menjadi “tmrWorldClock”, enable diubah menjadi “true” dengan interval “100”.
Langkah 3.
Jika langkah2 sudah dilakukan dengan benar, maka sekarang saatnya untuk pengetikkan coding untuk perhitungan, codingan sebagai berikut.

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Public Class Form1   Private Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) Private Structure SYSTEMTIME Public wYear As Short Public wMonth As Short Public wDayOfWeek As Short Public wDay As Short Public wHour As Short Public wMinute As Short Public wSecond As Short Public wMilliseconds As Short End Structure   '#Region " World Clock Variables " Dim lpT As SYSTEMTIME Dim dateUTC As Date Dim WTime As Date '#End Region   Private Sub getWorldClock() Try Call GetSystemTime(lpT) dateUTC = Date.Today.UtcNow().AddHours(17.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(17.0) txtTime.Text = WTime.ToLongTimeString Catch ex As Exception MsgBox(ex.Message) End Try End Sub   Private Sub tmrWorldClock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWorldClock.Tick getWorldClock() End Sub   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click tmrWorldClock.Enabled = False End Sub   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click tmrWorldClock.Enabled = True End Sub   End Class

Codingan yang saya gunakan ini sangat sederhana namun sangat mudah untuk dikembangkan karna mudah dipahami dan dimengerti.