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

verwert

Uploader:MitgliedBigGreenFoot
Datum/Zeit:05.01.2011 22:20:44

Declare Sub fausgabe(feld() As String)
#Include "level1.txt"
Dim feld(1 To 79, 1 To 24) As String
level(feld())
End

Sub fausgabe(feld() As String)
    Dim As Integer x, y, uy
    x=1
    y=1
    Do While y<=24
        Do While x<=79
            If feld(x, y)=1 then
            uy=25-y
            Locate uy, x, 0
            Print"X"
            EndIf
            x+=1
        Loop
        y+=1
    Loop
End Sub