MEMBUWAT TEXT BERJALAN PADA QBASIC

YUK KITA BELAJAR MANIFULASI STRING UNTUKTEXT BERJALAN

NIE SOURCE CODE NYA
DIM Y AS STRING * 31
DIM Z AS LONG

HURUP$ = " AKU INGIN BELAJAR MENCINTAI MU"
GABHUR = LEN(HURUP$)
X = 0

DO
    CLS
    LOCATE 12, 21
    X = X + 1
    IF X = GABHUR + 1 THEN X = 0
    Y = MID$(HURUP$, X) + HURUP$
    COLOR 10
    PRINT Y
    Z = 0
    DO
        Z = Z + 1
    LOOP UNTIL Z = 100000000
LOOP UNTIL CEP$ <> ""
END

OKE SEKARANG PENJELASANNYA:
DISINI SAYA MENDEFINISIKAN PROGRAM DALAM 3 VARIABEL X, Y, Z
X = DIGUNAKAN UNTUK MENAMBAH 1 HURUP TIAP SESUDAH MENGHILANG
Y= DIGUNAKAN UNTUK MENJALANKAN HURUP DENGAN CARA MENGHILANGKAN HURUP SATU PERSATU
Z= DIGUNAKAN UNTUK CEPAT ATAU LAMBATNYA HURUP BERJALAN

DIM Y AS STRING * 31 , ANGKA 31 ITU DI DAPAT DARI PERHITUNGAN BANYAK HURUP+SPASI ( " AKU INGIN BELAJAR MENCINTAI MU" )

LOCATE 12, 21 , DIGUNAKAN UNTUK MENENTUKAN POSISI HURUP ITU BERADA

X = X + 1, DIGUNAKAN UNTUK MENAMBAH 1 HURUP SETELAH MENGHILANG JIKA INGIN 2 ATAU 3 ATAU SESUAI DENGAN KEINGINAN KITA MAKA RUBAH ANGKA +1 SESUAI DENGAN YANG KITA INGINKAN

Y = MID$(HURUP$, X) + HURUP$ , UNTUK VARIABEL Y BISA KITA RUBAH-RUBAH
SILAHKAN TENTUKAN MANA YANG KITA SUKAI
Y=LEFT$(HURUP$,X)
Y=LEFT$(HURUP$,X)+HURUP$
Y=RIGHT$(HURUP$,X)
 Y=RIGHT$(HURUP$,X)+HURUP$
Y=MID$(HURUP$,X)
SILAHKAN PILIH SALAH SATU :)

 LOOP UNTIL Z = 100000000, JUMLAH NOL MENENTUKAN CEPAT LAMBATNYA


SEKIAN MOGA BERMANFAAT :)