Selasa, 11 Oktober 2011

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.

Tidak ada komentar:

Poskan Komentar