HARI DAN TANGGAL DI INDONESIA DENGAN APLIKASI M vfr9.0
Dalam aplikasi program ini pemakai diminta mengklik tombol mulai, maka akan muncul hari dan tanggal dalam bentuk negara Indenesia, tombol Captionya menjadi selesai. Dan pastikan sebelumnya agar settingan date pada Pc sudah benar.
Langkahnya :
1.Buat project baru dengan menggunakan m vfr.9.0
OBJEK PROPERTI NILAI
Form Caption Hari dan Tanggal
Cmd1 CmdMulai Mulai
Label1 Label1 Label1
Label2 Label2 Label2
2.Isi perintah pada Click Event CmdMulai sebagai berikut :
IF Thisform.CmdMulai.Caption=”Mulai”
Thisform.CmdMulai.Caption=”Selesai”
SET TALK OFF
SET STATUS OFF
SET Score OFF
SET CENTURY ON
SET COLOR TO
Hari1=”Minggu”
Hari2=”Senin”
Hari3=”Selasa”
Hari4=”Rabu”
Hari5=”Kamis”
Hari6=”Jum’at”
Hari7=”Sabtu”
Bulan1=”Januari”
Bulan2=”Februari”
Bulan3=”Maret”
Bulan4=”April”
Bulan5=”Mei”
Bulan6=”Juni”
Bulan7=”Juli”
Bulan8=”Agustus”
Bulan9=”September”
Bulan10=”Oktober”
Bulan11=”Novenber”
Bulan12=”Desember”
HR=DOW (DATE())
HR=STR(HR, 1)
TGL=DAY(DATE())
TGL=STR(TGL, 2)
BL=MONTH (DATE())
IF BL>9 Then
BL=STR(BL, 2)
ELSE
BL=STR(BL, 1)
ENDIF
THN=YEAR (DATE())
THN=STR(THN, 4)
Thisform.Label1.Caption=Hari&HR
Thisform.Label2.Caption=TGL+” “+BULAN&BL+” “+THN
ELSE
IF Thisform.CmdMulai.Caption=”Selesai” Then
Thisform.Release
ENDIF
ENDIF
3.Simpan Form dengan nama Form Hari dan Tanggal.
4.Jalankan aplikasi tersebut.
5.Klik Mulai, dan aplikasi akan menjalankan perintah tersebut
6.Simpan Project.
mariberbagi....ikhlas......
