Contoh Penggunaan For, Next, Locate, Print pada turbo basic

Berikut ini adalah contoh program turbo basic dengan penggunaan For, Next,delay.


cls
Color 14
locate 5,23 : print " Program By: Victor Indra Gunawan "
color 25
locate 19,27 : print " Tekan Enter Untuk Keluar "

Color 15
locate 8,33 : print "============="
locate 9,33 : print "= ="
locate 10,33: print "= ="
locate 11,33: print "= ="
locate 12,33: print "= ="
locate 13,33: print "= ="
locate 14,33: print "= ="
Locate 15,33: print "= ="
locate 16,33: print "============="
color 14

for a=1 to 5 step 2
locate 10,35+a

print a
delay 0.5
next a

for b=2 to 5 step 2
locate 11,35+b
delay 0.5
print b
next b

for c=1 to 5 step 2
locate 12,35+c
delay 0.5
print c
next c

for d=2 to 5 step 2
locate 13,35+d
delay 0.5
print d
next d

for e=1 to 5 step 2
locate 14,35+e
delay 0.5
print e
next e
end

Contoh Program Kakulator Turbo Basic

BERIKUT INI ADALAH CONTOH PROGRAM KAKULATOR (TURBO BASIC)


cls
color 6
locate 1,16: print "TUGAS ALOGARITMA DAN PEMROGRAMAN 1"
color 3
locate 2,20: print "========================="
locate 3,20: print " DIBUAT OLEH : VICTOR INDRA"
locate 4,20: print "========================="


color 9
locate 6,20: print "========================="
locate 8,21: print " Program Perhitungan "
locate 9,20: print "========================="
locate 10,20: print "[1] Penjumlahan "
locate 11,20:print "[2] Pengurangan "
locate 12,20: print "========================"
locate 14,20: print "Pilihan Anda : Enter"

locate 14,35: input ,pil$

if pil$="1" then
cls
locate 7,20: print "========================="
locate 8,20: print " ketik angka pertama ="
locate 9,20: print " ketik angka kedua ="
locate 10,20: print " hasil Penjumlahan ="
locate 11,20: print "========================="
locate 8,42: input ,a1
locate 9,42: input ,a2
locate 10,42: print ;a1+a2
locate 11,20: print "tekan enter untuk keluar program!"
end if

if pil$="2" then
cls
locate 7,20: print "========================="
locate 8,20: print "ketik angka pertama ="
locate 9,20: print "ketik angka kedua ="
locate 10,20: print "Hasil Pengurangan ="
locate 11,20: print "========================="
locate 8,42: input ,a1
locate 9,42: input ,a2
locate 10,42: print ,a1-a2
locate 11,20: print "tekan enter untuk keluar program!"
end if