Penggunaan For Next dan Mids pada QBasic

CLS

INPUT "JUMLAH PERCOBAAN : ", P

CLS

FOR i = 1 TO P

INPUT "Masukkan Kalimat : ", K$

IF K$ = "exit" THEN GOTO 50 ELSE GOTO 20

PRINT

20 INPUT "Convert ke Code ASCII [ANGKA 1 - 183] : ", N

PRINT "=========================="

PRINT "PERCOBAAN KE - "; i

PRINT "=========================="

PRINT "JUMLAH HURUF             :"; LEN(K$)

PRINT "KALIMAT HURUF BESAR      : "; UCASE$(K$)

PRINT "KODE ASCII               : "; CHR$(N)

PRINT

NEXT i

50 PRINT "=======[TEKAN ESC]======="

PRINT "========[SELESAI]========"

END

CLS

10 INPUT "Masukkan Nama Anda : ", nama$

INPUT "Masukkan NPM [8 ANGKA] : ", T$

PRINT "======================================"

PRINT "NAMA       : "; nama$

a$ = MID$(T$, 4, 2)

PRINT "ANGKATAN   : "; a$

j$ = MID$(T$, 2, 2)

IF j$ = "01" THEN PRINT "JURUSAN    : SISTEM INFORMASI"

IF j$ = "02" THEN PRINT "JURUSAN    : TEKNIK INFORMATIKA"

IF j$ = "03" THEN PRINT "JURUSAN    : EKONOMI"

IF j$ = "04" THEN PRINT "JURUSAN    : SASTRA"

g$ = LEFT$(T$, 1)

IF g$ = "1" THEN PRINT "JENJANG    : S1"

IF g$ = "3" THEN PRINT "JENJANG    : D3"

INPUT "MENCOBA LAGI [Y/N] : ", N$

IF N$ = "Y" THEN GOTO 10 ELSE GOTO 50

50 PRINT "=============[TEKAN ESC]=============="

PRINT "==============[SELESAI]==============="

END