Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

22 Zeilen Interpreter(4 Befehle)

Uploader:MitgliedWestbeam
Datum/Zeit:25.04.2010 12:31:09

dim shared as string befehl

Open "prog.txt" for input as #1
do
LINE input #1,befehl
if instr(befehl,"Print") then
print mid(befehl,7)
elseif instr(befehl,"Color") then
color val(mid(befehl,7)),val(mid(befehl,9))
elseif instr(befehl,"Sleep") then
sleep val(mid(befehl,7))
elseif instr(befehl,"End") then
End
else
color 4,0
Print "Unbekannter Befehl: ";befehl
Print "Programm wird beendet"
getkey
end
end if
loop until eof(1)
close #1

'-------prog.txt-------

Color 5,3
Print Hello World
Sleep 2000
End