Membuat Teks Berjalan Menggunakan QuickBasic atau QBasic

Assalamualikum Wr.Wb.

Pada postingan kali ini saya akan menulis apa yang saya kerjakan. satu bulan yang lalu dosen saya dosen algoritma dan pemrogramman memberi tugas. Beliau memberi tugas untuk membuat Teks Berjalan di Qbasic atau Quick Basic. Saya mencari tutorial di web dan blog di dalam negeri ternyata belum dapet. saya coba mencari di web luar negeri tepatnya di mbah google dulu prosesnya. saya pun dapat dan setelah saya pelajari sebelumnya saya cukup mengerti dengan codingan tersebut.

Mau tau kodingannya seperti apa? ok saya akan berikan kodingannya.

Mungkin seperti ini kodingannya:

10 DIM FajarStr AS STRING
20 DIM LongStr AS STRING
30 DIM CountTxt AS INTEGER
40 DIM CountDly AS LONG
50 FajarStr$ = "HALLO SAYA FAJAR HIDAYATULLOH DARI 1IA02 TEKNIK INFORMATIKA."
60 LongStr$ = FajarStr
70 LenFajar = LEN(FajarStr$)
80 lenLong = 80
90 CountTxt = 0
100 CountDly = 0
110 CLS
120 DO
130 LOCATE 10, 50
140 CountTxt = CountTxt + 1
150 IF CountTxt = LenFajar + 1 THEN CountTxt = 1
160 LongStr = MID$(FajarStr$, CountTxt) * " " + FajarStr
170 COLOR 2
180 PRINT LongStr$
190 CountDly = 0
200 DO
210 CountDly = CountDly + 1
220 LOOP UNTIL CountDly = 300000
230 LOOP UNTIL INKEY$ <> ""

Mau saya jelaskan kodingan-kodingan yang belum mengerti?
silahkan tanyakan di textfield comment :) .

Demikian postingan saya. semoga bermanfaat untuk anda.
Kkritik dan saran yang membangun silahkan sampaikan :)

sumber : http://brisray.com

Wassalamualaikum wr.wb