Baik lah dari pada lama-lama
silahkan kalian bikin dulu Formnya dan desain sesuai keinginan kalian,tapi
kalau kalian ingin sama seperti punya saya yha ga papa juga kok,..
Nih desain saya
Nih desain saya
Nah untuk membuat timer yang seperti
di gambar di atas tepatnya di samping Text6 maka lihat dulu di Form
Kontrol yang berbundar berwarna Merah itu adalah Timer,klik timer tersebut lalu
drag di dalam form tepatnya di samping Text6.Setelah selesai klik 1x pada
timer1 lalu pada bagian properties ganti intervalnya menjadi 100
lalu klik kanan pada timer1 lagi pilih Code & isi kan koding berikut
1. thisform.text6.Value=TIME()
Nah setelah selesai dengan timer
lalu klik kanan pada form lalu pilih Code maka akan muncul layar untuk kita
mengetikan kodenya…tapi sebelum mengetikkan kodenya kalian harus merubah
Procedure-nya dulu dari Load menjadi Activate karena Procedure Activate
akan aktif secara otomatis pada saat kita menjalankan programnya.
Setelah kaliah rubah procedure-nya menjadi Activate maka silahkan ketik program berikut :
Setelah kaliah rubah procedure-nya menjadi Activate maka silahkan ketik program berikut :
1. SET
DATE ITALIAN
2.
3. thisform.text1.Value=DATE()
4. thisform.text4.Value=YEAR(DATE())
5. thisform.text5.Value=DAY(DATE())
*Untuk Menampilkan Hari Dalam Bahasa Indonesia
1. hari=DOW(DATE())
2. DO
case
3. CASE
hari=1
4. thisform.text2.Value="Minggu"
5. CASE
hari=2
6. thisform.text2.Value="Senin"
7. CASE
hari=3
8. thisform.text2.Value="Selasa"
9. CASE
hari=4
10.thisform.text2.Value="Rabu"
11.CASE
hari=5
12.thisform.text2.Value="Kamis"
13.CASE
hari=6
14.thisform.text2.Value="Jum'at"
15.CASE hari=7
16.thisform.text2.Value="Sabtu"
17.ENDCASE
*Untuk Tampilan Bulan Dalam Bahasa Indonesia
1. bulan=MONTH(DATE())
2. DO
CASE
3. CASE
bulan=01
4. thisform.text3.Value="Januari"
5. CASE
bulan=02
6. thisform.text3.Value="Februari"
7. CASE
bulan=03
8. thisform.text3.Value="Maret"
9. CASE
bulan=04
10.thisform.text3.Value="April"
11.CASE
bulan=05
12.thisform.text3.Value="Mei"
13.CASE
bulan=06
14.thisform.text3.Value="Juni"
15.CASE
bulan=07
16.thisform.text3.Value="Juli"
17.CASE
bulan=08
18.thisform.text3.Value="Agustus"
19.CASE
bulan=09
20.thisform.text3.Value="September"
21.CASE
bulan=10
22.thisform.text3.Value="Oktober"
23.CASE
bulan=11
24.thisform.text3.Value="Nopember"
25.CASE
bulan=12
26.thisform.text3.Value="Desember"
27.ENDCASE
Nah setelah kalian ketikan koding di atas maka silahkan jalankan formnya maka format Tanggal,Hari,Bulan,Tahun & Jam akan otomatis mengikuti Format waktu yang ada di Komputer/Laptop Kalian.
Ket :
TIME() = Berfungsi Untuk Menampilkan Waktu sekarang
SET DATE ITALIAN = Berfungsi agar Format Tanggal Yang Di gunakan Sesuai s=dengan format tanggal di Indonesia;
DATE() = Berfungsi Untuk Menampilkan Tanggal,Bulan & Tahun Sekarang;
YEAR(DATE()) = Berfungsi Untuk Menampilkan Tahun Sekarang;
DAY(DATE()) = Berfungsi Untuk Menampilkan Tanggal nya saja;
DOW(DATE()) = Berfungsi Untuk Menampilkan Hari dengan Angka dan di mulai dari angka 1 yaitu Sunday sampai dengan angka 7 yaitu Saturday;
MONTH(DATE()) = Berfungsi Untuk Menampilkan Bulan dengan Angka dimana Januari adalah Bulan Ke 1 dan Desember adalah bulan Ke 12.
Nah selesailah sudah Program & keterangan Kode-kode yang kita pakai silahkan di pahami tapi kalo ada yang kurang jelas silahkan bertanya,…
Silahkan Mencoba Goog Luck. ..
Nih hasilnya punya saya
Artikel Ini Posting dari Blog
Tidak ada komentar:
Posting Komentar