Minggu, 20 Oktober 2013
Cara Buat Tangga, Hari, Bulan, Tahun dan Jam di Visual Foxpro 9.0
Kali ini saya coba membagi pengetahuan yang mendasar akan tetapi bagi pemula sangatlah baik untuk dipahami. Baik lah dari pada lama-lama
silahkan kalian bikin dulu Formnya dan desain sesuai keinginan kalian :
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 interval-nya menjadi 100 lalu klik kanan pada timer1 lagi pilih Code & isi kan koding berikut :
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 interval-nya menjadi 100 lalu klik kanan pada timer1 lagi pilih Code & isi kan koding berikut :
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 :
SET DATE ITALIAN
thisform.text1.Value=DATE()
thisform.text4.Value=YEAR(DATE())
thisform.text5.Value=DAY(DATE())
*Untuk Menampilkan Hari Dalam Bahasa Indonesia
hari=DOW(DATE())
DO case
CASE hari=1
thisform.text2.Value="Minggu"
CASE hari=2
thisform.text2.Value="Senin"
CASE hari=3
thisform.text2.Value="Selasa"
CASE hari=4
thisform.text2.Value="Rabu"
CASE hari=5
thisform.text2.Value="Kamis"
CASE hari=6
thisform.text2.Value="Jum'at"
CASE hari=7
thisform.text2.Value="Sabtu"
ENDCASE
*Untuk Tampilan Bulan Dalam Bahasa Indonesia
bulan=MONTH(DATE())
DO CASE
CASE bulan=01
thisform.text3.Value="Januari"
CASE bulan=02
thisform.text3.Value="Februari"
CASE bulan=03
thisform.text3.Value="Maret"
CASE bulan=04
thisform.text3.Value="April"
CASE bulan=05
thisform.text3.Value="Mei"
CASE bulan=06
thisform.text3.Value="Juni"
CASE bulan=07
thisform.text3.Value="Juli"
CASE bulan=08
thisform.text3.Value="Agustus"
CASE bulan=09
thisform.text3.Value="September"
CASE bulan=10
thisform.text3.Value="Oktober"
CASE bulan=11
thisform.text3.Value="Nopember"
CASE bulan=12
thisform.text3.Value="Desember"
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 dan Seperti inilah
hasilnya :
