[ADS] Top Ads

Tutorial VB.Net #15: Membuat Waktu Otomatis

Tutorial VB.Net #15: Membuat Waktu Otomatis


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
Membuat Waktu Otomatis

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..


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
Membuat Waktu Otomatis

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..

4. Tahap yang paling penting, membuat waktu otomatis berjalan dengan sendirinya.
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
Membuat Waktu Otomatis

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..
Membuat Waktu Otomatis

Pada properties Timer Enable ganti true
Membuat Waktu Otomatis

6. Double klik Timer1, panggil sub waktu di dalamnya
Kira-kira seperti gambar di bawah
Membuat Waktu Otomatis

Jalankan aplikasi anda, maka waktu akan berjalan otomatis
Membuat Waktu Otomatis

Penjelasan lebih lanjut putar video di bawah

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.


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..

Post a Comment

[ADS] Bottom Ads