Bahasa program Turbo basic adalah program yang berkembang setelah bahasa program Basic dan Basica, program ini termasuk bahasa program tingkat tinggi yang mudah untuk di pelajari dan juga baik untuk melatih logika seorang programer pemula.
Untuk mendapatkan master bahasa program turbo basic ini cukup banyak di internet dan free di download.
Untuk menjalankan master program ini sangat mudah cukup dengan mengetikan atau meng klik TB.exe maka akan tampil kotak lengkap dengan tampilan menu pilihan.
Kelebihan dari Turbo Basic ini di banding bahasa progaram Basic atau Basica dia mempunyai runing Compiler yang artinya setiap listing program yang sudah kita buat dan berjalan dengan bagus kita bisa men compiler nya menjadi EXE file sehingga program bisa kita jalankan dengan 1 file saja.
Singkat saja di bawa ini adalah contoh list program sangat sederhana untuk pengenalan, anda bisa mencoba dan mengembangkan nya, selamat mencoba.
'----------------------------------------------------------------------------------
'º *** Contoh Program Sederhana untuk bahasa Pemrograman Turbo Basic *** º
'----------------------------------------------------------------------------------
Cls
Rem ***** Program Membuat Bingkai *****
color 1,1
for t =10 to 18
locate t,5:print string$(65,chr$(254))
next t
color 5,7,5
locate 8,3:print chr$(201)
locate 8,4:print string$(64,chr$(205))
locate 8,68:print chr$(187)
for i = 9 to 17
locate i,3:print chr$(186)
locate i,68:print chr$(186)
locate i,4:print string$(64,chr$(219))
next i
locate 17,3:print chr$(200)
locate 17,4:print string$(64,chr$(205))
locate 17,68:print chr$(188)
color 7,5,5
locate 10,15:print"....>>> SELAMAT DATANG DI ALTCOMMS <<<...."
color 2.1
locate 11,15:print string$(43,chr$(205))
color 7.1
Rem ********* End of Program Bingkai *********
Rem -------------------------------------------------------------
Rem ********* Program Input / Output ***********
color 7,0,7
locate 2,5:print " Nama :"
locate 3,5:print " Alamat :"
color 7,5
locate 13,5:print"N a m a :"
locate 14,5:print"Alamat :"
10 mulai :
color 7,0
locate 2,18:print" "
locate 3,18:print" "
color 5,5
locate 13,18:print" "
locate 14,18:print" "
color 7,0
locate 2,18:input"",nm$
locate 3,18:input"",al$
color 7,5
locate 13,18:print"";nm$
locate 14,18:print"";al$
locate 16,20:print"... Terimakasih atas kunjungan anda..."
sound 5,0
20 ulang:
color 7,0
sound 2000.1,1
locate 20,65:print" "
locate 20,18:print ".. Apkah anda ingin mendptar lagi ? ( Y/T )"
locate 20,65:input"",yt$
if yt$="Y" or yt$="y" then goto 10
if yt$="T" or yt$="t" then goto 25
if yt$<>"Y" or yt$<>"y" then goto 20
if yt$<>"T" or yt$<>"y" then goto 20
25 selesai:
color 14,0
locate 23,15:print ".....Sampai jumpa lagi di lain waktu ...Salam AltComms"
end
Rem ********* End of Program Input / Output *********
Rem ---------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
'º *** Selesai Contoh Program Sederhana untuk bahasa Pemrograman Turbo Basic ***º º
' *********** di buat oleh Usman.YB ************
'--------------------------------------------------------------------------------------------
