Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [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

Bildgame version 2

Uploader:MitgliedBull-T07
Datum/Zeit:05.01.2008 21:56:27

Dim schauen as string
Screen 18,32
Bload "Front.bmp"
Input "willst du nach (rechts) oder nach (links) schauen?", schauen
Select Case LCASE(schauen)
Case "rechts": Bload "rsite.bmp"
Case "links": Bload "lsite.bmp"
Case Else: Print "Du hast Unsinn eingegeben!"
End Select
Sleep 2000
CLS
Dim schauen2 as string
Screen 18, 32
Bload "Front.bmp"
Input "willst du nach (oben) oder nach (unten) schauen?", schauen2
Select Case LCASE(schauen)
Case "oben": Bload "oben.bmp"
Case "unten": Bload "unten.bmp"
Case Else: Print "Du hast Unsinn eingegeben!"
End Select
sleep