Tutorial VB.Net #15: Membuat Waktu Otomatis - priacoding. Pada postingan sebelumnya priacoding membahas tentang Tutorial VB.Net #12: Membuat Format Tanggal. Dan pada postingan kali ini priacoding akan membahas tentang Trik membuat format waktu otomatis. Waktu (Time) sangat berperan penting dalam sebuah aplikasi, seperti kapan terjadinya transaksi, kapan pengimputan dilakukan dan bisa juga untuk membuat sebuah faktur.
Sebenarnaya menampilkan format waktu pada VB.Net itu sangat mudah, tetapi membuat waktu atau jam tersebut berputar sesuai dengan waktu sekarang itu yang lumayan sulit, membutuhkan trik dan strategi yang khusus. He he.. :v :v
Format tampilan waktunya seperti tabel di bawah
Untuk implementasinya langsung saja ikuti langkah-langkah berikut..
1. Buat form baru dengan cara klik kanan pada project kita di solution exporer > add > windows form.. kira - kira seperti pada gambar di bawah
Buat nama form setelah itu add..
2. Sekarang kita masuk ke tahap menampilkan waktu, masukkan 1 buah Lable pada form yang kita buat tadi, dangan cara tarik Lable dari toolbox.
Kira - kira seperti gambar di bawah..
Kira - kira seperti gambar di bawah..
3. Sekarang kita masuk ke tahap pengcodingan, doble klik form project, pada form load pastekan coding di bawah..
Label1.Text = Format(Now, "HH:mm:ss")
Maka hasilnya akan menjadi seperti gambar di bawah
Cara di atas hanya menampilkan waktu ketika aplikasi kita di jalankan, akan tetapi waktunya tidak berjalan.
Bagaimana jika membuat waktu nya berjalan otomatis untuk meminimalisir kesalahan dalam program? Tetap ikuti step selanjutnya..
Bagaimana jika membuat waktu nya berjalan otomatis untuk meminimalisir kesalahan dalam program? Tetap ikuti step selanjutnya..
4. Tahap yang paling penting, membuat waktu otomatis berjalan dengan sendirinya.
Langsung pastekan coding di bawah pada coding project anda.
Langsung pastekan coding di bawah pada coding project anda.
Sub waktu() 'HR' Dim hr As String = TimeOfDay.Hour If hr = 1 Then hr = "0" + hr End If If hr = 2 Then hr = "0" + hr End If If hr = 3 Then hr = "0" + hr End If If hr = 4 Then hr = "0" + hr End If If hr = 5 Then hr = "0" + hr End If If hr = 6 Then hr = "0" + hr End If If hr = 7 Then hr = "0" + hr End If If hr = 8 Then hr = "0" + hr End If If hr = 9 Then hr = "0" + hr End If If hr = 0 Then hr = "0" + hr End If 'MN' Dim mn As String = TimeOfDay.Minute If mn = 1 Then mn = "0" + mn End If If mn = 2 Then mn = "0" + mn End If If mn = 3 Then mn = "0" + mn End If If mn = 4 Then mn = "0" + mn End If If mn = 5 Then mn = "0" + mn End If If mn = 6 Then mn = "0" + mn End If If mn = 7 Then mn = "0" + mn End If If mn = 8 Then mn = "0" + mn End If If mn = 9 Then mn = "0" + mn End If If mn = 0 Then mn = "0" + mn End If 'SC' Dim sc As String = TimeOfDay.Second If sc = 1 Then sc = "0" + sc End If If sc = 2 Then sc = "0" + sc End If If sc = 3 Then sc = "0" + sc End If If sc = 4 Then sc = "0" + sc End If If sc = 5 Then sc = "0" + sc End If If sc = 6 Then sc = "0" + sc End If If sc = 7 Then sc = "0" + sc End If If sc = 8 Then sc = "0" + sc End If If sc = 9 Then sc = "0" + sc End If If sc = 0 Then sc = "0" + sc End If Label1.Text = hr + ":" + mn + ":" + sc End Sub
Panggil sub waktu pada form load dan matikan coding yang ada di form load sebelumnya, seperti gambar dibawah
Uups… belum selesai, masih ada 1 tahap lagi, lanjutkan step selanjutnya.
5. Pada form project tambahkan 1 buah Timer dengan cara drag dari toolbox.
Seperti gambar di bawah..
Seperti gambar di bawah..
Pada properties Timer Enable ganti true
6. Double klik Timer1, panggil sub waktu di dalamnya
Kira-kira seperti gambar di bawah
Kira-kira seperti gambar di bawah
Jalankan aplikasi anda, maka waktu akan berjalan otomatis
Pass: priacoding.com
Demikianlah tutorial trik menmbuat waktu otomatis pada VB.Net semoga bermanfaat dan berjalan dengan semestinya. :) :)
Catatan :
Trik menmbuat waktu otomatis di atas mengikuti waktu atau jam yang ada pada komputer anda, jika waktu pada komputer anda tidak akurat maka trik di atas tidak akan akurat juga begitu juga sebaliknya.
Trik menmbuat waktu otomatis di atas mengikuti waktu atau jam yang ada pada komputer anda, jika waktu pada komputer anda tidak akurat maka trik di atas tidak akan akurat juga begitu juga sebaliknya.
Baca Juga:
| Note |
| Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini disharing kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih.. |