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