Foxpro: Hari, Tanggal, Bulan, Tahun (Bahasa Indonesia)

Pada kesempatan kali ini di malam yang dingin hehe, kita akan belajar penggunaan format Hari, Tanggal, Bulan, Tahun pada Microsoft Visual Foxpro dengan format Bahasa Indonesia. Tentunya karena kita berada di wilayah Negara Republik Indonesia dan saya juga orang Indonesia (?), maka kita juga harus menggunakan Bahasa Indonesia dalam berbagai Aspek kehidupan.

Salah satunya yaitu dalam pembuatan program menggunakan FOXPRO yang juga harus menggunakan bahasa indonesia dalam pembuatan Tanggal, Hari, Bulan, Tahun, Jam, Menit, Detik dan lain-lain. Karena bahasa Indonesia itu penting namun secara default program menggunakan bahasa Inggris, Maka kita harus menggunakan fungsi lainnya untuk dapat mencetak string ke Bahasa Indonesia. Bagaimana cara mengubah format tanggal ke bahasa Indonesia? Ikuti langkah berikut:

Langkah Pembuatan:

Hal pertama yang harus dilakukan untuk membuat form dengan format Hari, Tanggal, Bulan, Tahun dalam format indonesia yaitu dengan membuat desain seperti gambar berikut menggunakan form control:

Untuk membuat tulisan “Tanggal, Hari, Bulan, Tahun, Tanggal, dan Jam” dapat menggunakan Label atau yang ber-ikon huruf “A”. Sedangkan pada teks area “Text1, Text2, Text3, Text4, Text5, Text6” yaitu menggunakan Text Box. Dan yang terakhir adalah Timer yang mempunyai ikon seperti gambar jam.

Kemudian perhatikan pada jendela properties berikut ini:

Pilih pada bagian Timer1, kemudian cari properti Interval dan ganti nilai value 0 dengan 1000. Nah sekarang pengaturan interval waktu telah ditetapkan. Anda bisa mengganti pengaturan lainnya seperti Form Caption (Nama jendela form anda), Label Caption (Mengubah nama label) dan lain-lain.

Sekarang kembali pada bagian form desain. Double Click pada ikon Timer dan akan terbuka jendela tempat menaruh Kode program. Masukkan kode berikut ini:

thisform.text6.Value=TIME()
 SET DATE ITALIAN

thisform.text1.Value=DATE()
thisform.text4.Value=YEAR(DATE())
thisform.text5.Value=DAY(DATE())

*Hari bahasa indonesia dengan fungsi Case
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

*Bulan bahasa indonesia dengan fungsi Case
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

Sumber Kode

Atau download contoh filenya disini

Pada bagian object, pilih Timer1 dan pada bagian Procedure pilih Timer. Seperti gambar berikut:

Setelah pengaturan dan penuliasan kode selesai, silahkan  tutup jendela tersebut. Sekarang coba jalankan dengan menekan ikon tanda seru (!) yang ada di toolbar bagian atas. Jika sebelumnya form berlum disimpan, maka akan muncul dialog konfirmasi untuk menyimpan form tersebut. Kemudian hasilnya akan seperti gambar di bawah ini:

Jika sudah tidak terjadi error, maka selesailah proyek kita hari ini 🙂 . Selain menggunakan fungsi Do Case, kita juga dapat membuat form dengan menggunakan fungsi If Else. Namun karena nilai value yang kita gunakan adalah berupa angka, jadi akan lebih mudah jika menggunakan fungsi Do Case.

Cara kerja konversi pengalihan data dari nilai value ke bahasa indonesia yaitu sebagai berikut:

Pada bagian hari (Bahasa Indonesia), kita melihat sebuah fungsi hari=DOW(DATE()) yang nantinya nilai variabel hari akan terisi dengan bilangan 1 sampai dengan 7. Nilai-nilai tersebut tergantung pada waktu saat ini dan dimulai dengan hari minggu. Sehinga dengan fungsi Do dan Case, kita akan membuat nilai-nilai tersebut berubah seperti ini:

1 = Minggu
2 = Senin
3 = Selasa
4 = Rabu
5 = Kamis
6 = Jum’at
7 = Sabtu

Sedangkan pada bagian Bulan (Bahasa Indonesia), fungsi dan cara kerjanya sama seperti diatas. Kita menggunakan subuah definisi fungsi bulan=MONTH(DATE())yang nantinya variabel string Bulan akan terisi dengan nilai bilangan 01 sampai dengan 12. Nilai-nilai inilah yang akan diubah kedalam bahasa indonesia dengan menggunakan Do Case.

01 = Januari
02 = Februari
03 = Maret
04 = April
05 = Mei
06 = Juni
07 = Juli
08 = Agustus
09 = September
10 = Oktober
11 = Nopember
12 = Desember

Nah dengan demikian data hari dan bulan yang awalnya berupa nilai akan berubah menjadi String hari dan bulan dalam bahasa indonesia. Selain mengubahnya ke bahasa indonesia, kita juga bisa mengubahnya ke bahasa lain seperti Bahasa Jawa misalnya 😀 . Caranya cukup mudah, yaitu tinggal mengganti variabel String pada Do Case dengan String yang kita kehendaki.

Selamat Mencoba!! 🙂