sangak
Admin
Jumlah posting : 150
Age : 39
Lokasi : Banda Aceh, NAD
Registration date : 07.06.08
 | Subyek: Membuat text active title bar berjalan ala vfp  Sun Jun 08, 2008 6:47 pm | |
| Bagi yang ingin buat text berjalan pada active title bar, nih codingnya.. semoga bermanfaat..!! - Code:
-
SET TALK OFF
CLEAR
SET ESCAPE ON && agar kalo di tekan ESC mau berhenti
** aa='* * * * * * * * * * * * * * '
aa='Pilahlah tiap kesulitan yg Anda hadapi menjadi parsial-parsial, kecil realistik & feasible agar bisa diselesaikan bertahap & tuntas. (Rene Descartes- Matematikawan Prancis)'
_screen.Caption=aa
i=1
DO WHILE i<=100
bb=SUBSTR(aa,i,100)
_screen.Caption=bb
x=1
FOR x=1 TO 100
? CHR(7)
ENDFOR
i=i+1
ENDDO
| |
|
