Mungkin para pembaca pernah di tanya tentang jam berapa pada saat ke warnet atau ke rental ??? Mungkin saja
??? Trus penulis kepikiran, kenapa tidak kita buat aja program yang adapat membuat jam digital gmn coba ???
Perinagatan :
(Khusus Profesional no Basic or Novice)
DESIGN & CODING
A. Buat project baru dengan nama “Jam Digital“
Ganti properties form seperti pada tabel dibawah ini.
Lalu tambahkan komponen-komponen dibawah ini kedalam form.
Mengganti properties masing-masing komponen. misalkan seperti di bawah ini :
B. Coding
Sekarang saat nya kita melakukan coding pada project ini.
Double click pada form, lalu ketikkan code seperti dibawah ini.
lblJalan.Text = “Ini adalah code untuk melihat jam pada
beberapa negara”
Code diatas merupakan kalimat yang akan nantinya menjadi running text pada form.
Ketikkan code di bawah pada form.
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)
‘India
dateUTC = Date.Today.UtcNow().AddHours(5.5)
WTime = CDate(lpT.wHour & ” : ” & lpT.wMinute & ” :
” & lpT.wSecond).AddHours(5.5)
txtTimeIndia.Text = WTime.ToLongTimeString
lblDayDelhi.Text = dateUTC.DayOfWeek().ToString()
‘Austria/Germany
dateUTC = Date.Today.UtcNow().AddHours(1.0)
WTime = CDate(lpT.wHour & ” : ” & lpT.wMinute & ” :
” & lpT.wSecond).AddHours(1.0)
txtTimeAustria.Text = WTime.ToLongTimeString
lblDayAustria.Text = dateUTC.DayOfWeek().ToString()
‘Zhuhai
dateUTC = Date.Today.UtcNow().AddHours(8.0)
WTime = CDate(lpT.wHour & ” : ” & lpT.wMinute & ” :
” & lpT.wSecond).AddHours(8.0)
txtTimeZhuhai.Text = WTime.ToLongTimeString
lblDayZhuhai.Text = dateUTC.DayOfWeek().ToString()
‘Indonesia
dateUTC = Date.Today.UtcNow().AddHours(7.0)
WTime = CDate(lpT.wHour & ” : ” & lpT.wMinute & ” :
” & lpT.wSecond).AddHours(7.0)
txtTimeBatam.Text = WTime.ToLongTimeString
lblDayBatam.Text = dateUTC.DayOfWeek().ToString()
‘Singapore/JB
dateUTC = Date.Today.UtcNow().AddHours(8.0)
WTime = CDate(lpT.wHour & ” : ” & lpT.wMinute & ” :
” & lpT.wSecond).AddHours(8.0)
txtTimeSingapore.Text = WTime.ToLongTimeString
lblDaySingpore.Text =
dateUTC.DayOfWeek().ToString()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Setelah selesai double click pada tmrWorldClock dan ketik code seperti di bawah ini
getWorldClock()
Dan terakhir double click pada komponen TmrText dan ketik code seperti di bawah ini :
Dim s1 As String
Dim S2 As String
s1 = Microsoft.VisualBasic.Left(lblJalan.Text, 1)
S2 = Microsoft.VisualBasic.Right(lblJalan.Text,
Len(lblJalan.Text) – 1)
lblJalan.Text = S2 + s1
Setelah selesai melakukan petunjun seperti diatas, mari kita lihat hasil nya, tekan F5 pada project. Jika para pembaca mengikuti petunjuk sesuai dengan yang penulis intruksikan maka form yang di running akan seperti gambar di bawah ini :
Dan tentunya para pembaca bingung kenapa kalau untuk indonesia Add.Hours = 7.0, untuk hal kita dapat melihat informasinya pada Date and Time > Time Zone, seperti pada gambar di bawah ini :
Jadi jika seandainya para pembaca ingin melihat / mengubah program ini untuk melihat negara yang di inginkan, kita tinggal melihat Time Zone negara tersebut. + (plus) atau – (minus) berapa suatu negara terhadap Greenwich Mean Time (GMT). Dan pada source code tinggal di ubah pada bagian AddHours(nilai).
