- Klik Star
- Pilih Microsoft Visual Foxpro 9.0 (jika di komputer anda sudah terinstal foxpro 9.0)
- Klik File
- Pilih NEW
- Pilih Form pada option
- Klik New file
- Tampil sebuah Form lalu dari view pilih Form Controls Toolbar (jika form controls belum tampil)
- Buatlah sebuah label dan timer (di ambil dari form controls)
- Pada label ganti caption dengan kata-kata yang diinginkan
- Pada timer atur interval menjadi 500
- Klik 2 x pada timer yang ada di form
- Silahkan isikan sintak berikut ini :
Object: timer1 procedure:timer
x=thisform.label1.caption
thisform.label1.caption=right(x,len(x)-1) + left(x,1)
x=thisform.label1.caption
thisform.label1.caption=right(x,len(x)-1) + left(x,1)
Simpan lalu jalankan form yang telah terbuat.
\ . /
(o o)
-------------------------------oOOo-(_)-oOOo-----------------------------
[-> Copyright ©1990 - 2012 As - Gangster Corp™ <-]
-================================================-
Labels:
Timer Foxpro