World Clock
0 likes357 views
Dokumen ini adalah tutorial untuk membuat aplikasi jam antar negara menggunakan VB.NET, dimulai dari ide sederhana untuk membantu mengetahui waktu di berbagai negara. Penulis memberikan langkah-langkah detail mengenai pembuatan form, coding class, dan penanganan waktu berdasarkan zona waktu yang berbeda. Selain itu, penulis juga menyertakan informasi latar belakang pribadi sebagai pengantar.
World Clock
- 1. qwertyuiopasdfghjklzxcvbnmqwerty uiopasdfghjklzxcvbnmqwertyuiopasd fghjklzxcvbnmqwertyuiopasdfghjklzx cvbnmqwertyuiopasdfghjklzxcvbnmq APLIKASI JAM ANTAR NEGARA wertyuiopasdfghjklzxcvbnmqwertyui Berawal dari iseng dan berbagi ilmu saja opasdfghjklzxcvbnmqwertyuiopasdfg 12/22/2011 hjklzxcvbnmqwertyuiopasdfghjklzxc WIRATMOJO vbnmqwertyuiopasdfghjklzxcvbnmq wertyuiopasdfghjklzxcvbnmqwertyui opasdfghjklzxcvbnmqwertyuiopasdfg hjklzxcvbnmqwertyuiopasdfghjklzxc vbnmqwertyuiopasdfghjklzxcvbnmq wertyuiopasdfghjklzxcvbnmqwertyui opasdfghjklzxcvbnmqwertyuiopasdfg hjklzxcvbnmrtyuiopasdfghjklzxcvbn mqwertyuiopasdfghjklzxcvbnmqwert yuiopasdfghjklzxcvbnmqwertyuiopas
- 2. Salam Kata PENULIS Viva VB.Net Programmer semuanya !!! Pada kesempatan kali ini saya akan kembali berbagi trik dasar dan singkat tentunya masih berkaitan dengan VB.Net Kali ini saya mengambil tema “Perbedaan Jam Antar Negara” dimana diawali dari obrolan ringan dengan teman dikantor yang saat itu mau nelpon ke luar negeri (Jepang) tapi menanyakan disana saat itu jam berapa, maksudnya adalah apakah disana sudah jam pulang kantor atau belum. Sebenarnya pertanyaan itu pun sudah terjawab beberapa saat kemudian, tapi jiwa programming saya terusik (loh kok ?), iya maklum saja deh. Saat itu saya terpikir untuk membuat aplikasi sederhana yang dapat menjawab pertanyaan seperti itu. Dengan ilmu dari pak dosen waktu kuliah dulu dan sedikit modifikasi ya lahirlah ide ini. Salam Polymorphic372 Aplikasi Jam Antar Negara by morphicsoft 2011 Page 2
- 3. Langkah-01 Buatlah 2 buah folder (CLASS & FORM) pada project anda seperti gambar dibawah ini, dan tambahkan 1 Class, ClassJAMDUNIA 1 Form, FormAPLIKASI_JAM_DUNIA Note : lagi-lagi disini penulis berasumsi bahwa semua pembaca sudah mengerti dasar penggunaan aplikasi visual studio (VB.NET) dan disini penulis menggunakan Visual Studio 2005 Aplikasi Jam Antar Negara by morphicsoft 2011 Page 3
- 4. Langkah-02 Hal pertama yang dilakukan adalah membuat form aplikasi. Silahkan buat form seperti dibawah ini. Ga mirip juga gapapa.. yang penting properties yang digunakan sama. Dan juga aplikasi ini tidak membutuhkan database. Kita akan menggunakan system bawaan windows itu sendiri. Aplikasi Jam Antar Negara by morphicsoft 2011 Page 4
- 5. Langkah-03 Pembuatan Coding class, bukalah menu editor codingnya dan tuliskan source code berikut, tidak harus sama mau ada improvisasi juga boleh kok, tapi nanti aja kalo sampeyan bikin tutorial sendiri. Hahaha lol. Loh jadi becanda si?? Tulis SourceCode berikut : Namespace JAM_ANTAR_DUNIA Public Class ClassJAMDUNIA #Region "VARIABEL JAM DUNIA" Public lpT As CLASS_SISTEM Public dateUTC As Date Public WTime As Date #End Region Public Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime As CLASS_SISTEM) Public Structure CLASS_SISTEM 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 wMiliSeconds As Short End Structure End Class End Namespace Aplikasi Jam Antar Negara by morphicsoft 2011 Page 5
- 6. Langkah-04 Langkah terakhir dan ini artinya ending dari tutorial singkat ini adalah membuat SourceCode untuk Jam Antar Negara itu sendiri. Tulis SourceCode berikut : Public Class FormAPLIKASI_JAM_DUNIA Dim MyJAMDUNIA As New JAM_ANTAR_DUNIA.ClassJAMDUNIA Private Sub IsiCombo() With CmbPOSISIANDA .Items.Clear() .Items.Add("(GMT+07:00) Bangkok, Hanoi, Jakarta") .Items.Add("(GMT+08:00) Beijing, Chongqing, Urumqi") .Items.Add("(GMT+08:00) Kuala Lumpur, Singapore") .Items.Add("(GMT+09:00) Osaka, Sapporo, Tokyo, Seoul") .Items.Add("(GMT+10:00) Canberra, Melbourne , Sydney") .Items.Add("(GMT+03:00) Moscow, St. Petersburg , Volgograd") .Items.Add("(GMT-03:00) Buenos Aires, Georgetown, Brasil") .Items.Add("(GMT+01:00) Brussels, Copenhagen, Madrid, Paris") End With With CmbPOSISITUJUAN .Items.Clear() .Items.Add("(GMT+07:00) Bangkok, Hanoi, Jakarta") .Items.Add("(GMT+08:00) Beijing, Chongqing, Urumqi") .Items.Add("(GMT+08:00) Kuala Lumpur, Singapore") .Items.Add("(GMT+09:00) Osaka, Sapporo, Tokyo, Seoul") .Items.Add("(GMT+10:00) Canberra, Melbourne , Sydney") .Items.Add("(GMT+03:00) Moscow, St. Petersburg , Volgograd") .Items.Add("(GMT-03:00) Buenos Aires, Georgetown, Brasil") .Items.Add("(GMT+01:00) Brussels, Copenhagen, Madrid, Paris") End With End Sub Private Sub PosisiAnda() Try JAM_ANTAR_DUNIA.ClassJAMDUNIA.GetSystemTime(MyJAMDUNIA.lpT) If CmbPOSISIANDA.Text = "(GMT+07:00) Bangkok, Hanoi, Jakarta" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+7.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+7.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString Aplikasi Jam Antar Negara by morphicsoft 2011 Page 6
- 7. ElseIf CmbPOSISIANDA.Text = "(GMT+08:00) Beijing, Chongqing, Urumqi" Or _ CmbPOSISIANDA.Text = "(GMT+08:00) Kuala Lumpur, Singapore" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+8.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+8.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISIANDA.Text = "(GMT+09:00) Osaka, Sapporo, Tokyo, Seoul" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+9.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+9.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISIANDA.Text = "(GMT+10:00) Canberra, Melbourne , Sydney" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+10.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(10.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISIANDA.Text = "(GMT+03:00) Moscow, St. Petersburg , Volgograd" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+3.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+3.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISIANDA.Text = "(GMT-03:00) Buenos Aires, Georgetown, Brasil" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(-3.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(-3.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISIANDA.Text = "(GMT+01:00) Brussels, Copenhagen, Madrid, Paris" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+1.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+1.0) LblPOSISIANDA.Text = MyJAMDUNIA.WTime.ToLongTimeString End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub PosisiTujuan() Try JAM_ANTAR_DUNIA.ClassJAMDUNIA.GetSystemTime(MyJAMDUNIA.lpT) If CmbPOSISITUJUAN.Text = "(GMT+07:00) Bangkok, Hanoi, Jakarta" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+7.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+7.0) Aplikasi Jam Antar Negara by morphicsoft 2011 Page 7
- 8. LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISITUJUAN.Text = "(GMT+08:00) Beijing, Chongqing, Urumqi" Or _ CmbPOSISITUJUAN.Text = "(GMT+08:00) Kuala Lumpur, Singapore" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+8.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+8.0) LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISITUJUAN.Text = "(GMT+09:00) Osaka, Sapporo, Tokyo, Seoul" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+9.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+9.0) LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISITUJUAN.Text = "(GMT+10:00) Canberra, Melbourne , Sydney" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+10.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(10.0) LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISITUJUAN.Text = "(GMT+03:00) Moscow, St. Petersburg , Volgograd" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+3.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+3.0) LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISITUJUAN.Text = "(GMT-03:00) Buenos Aires, Georgetown, Brasil" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(-3.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(-3.0) LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString ElseIf CmbPOSISITUJUAN.Text = "(GMT+01:00) Brussels, Copenhagen, Madrid, Paris" Then MyJAMDUNIA.dateUTC = Date.UtcNow().AddHours(+1.0) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(+1.0) LblPOSISITUJUAN.Text = MyJAMDUNIA.WTime.ToLongTimeString End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub CmbPOSISIANDA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbPOSISIANDA.SelectedIndexChanged TimerPosisiAnda.Enabled = True LblPOSISIANDA.Visible = True End Sub Aplikasi Jam Antar Negara by morphicsoft 2011 Page 8
- 9. Private Sub FormAPLIKASI_JAM_DUNIA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call IsiCombo() JAM_ANTAR_DUNIA.ClassJAMDUNIA.GetSystemTime(MyJAMDUNIA.lpT) MyJAMDUNIA.WTime = CDate(MyJAMDUNIA.lpT.wHour & ":" & MyJAMDUNIA.lpT.wMinute & ":" & MyJAMDUNIA.lpT.wSecond).AddHours(7.0) LblTANGGAL.Text = Format(Now, "Long Date") End Sub Private Sub TimerPosisiAnda_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerPosisiAnda.Tick Call PosisiAnda() End Sub Private Sub TimerPosisiTujuan_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerPosisiTujuan.Tick Call PosisiTujuan() End Sub Private Sub CmbPOSISITUJUAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbPOSISITUJUAN.SelectedIndexChanged TimerPosisiTujuan.Enabled = True LblPOSISITUJUAN.Visible = True End Sub End Class Aplikasi Jam Antar Negara by morphicsoft 2011 Page 9
- 10. B.Wiratmojo Kuliah D3nya diselesaikan pada tahun 2008 lalu di Kampus STMIK Bina Insani, Jurusan Teknik Informatika dan kemudian kembali melanjutkan Program Strata 1 pada tahun 2011 ditempat dan jurusan yang sama. Bekerja di PT Bridgestone Tire Indonesia sejak 2008. Bercita-cita dapat selalu mendedikasikan dirinya dalam bidang IT Indonesia dan Dunia. Kontak : Polymorphic372 bambang.wiratmojo@gmail.com bambangwiratmojo.wordpress.com APLIKASI SEDEHANA JAM ANTAR NEGARA 2011 SUPPORTED BY MORPHICSOFT2011 Aplikasi Jam Antar Negara by morphicsoft 2011 Page 10