fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Debug Probleme

Uploader:	BigGreenFoot
Datum/Zeit:	04.01.2011 15:27:43

Declare Function eingabe(fled()As integer) As Integer

Declare Sub ausgabe(feld() As Integer)



Dim As Integer feld(80, 25), x, y

x=20

y=13

Dim fertig As Integer





feld(x, y)= 1

ausgabe(feld())

Sleep







End



Function eingabe(feld()As Integer) As Integer

    Dim eing As String

    Do

        eing=""

        Do While eing=""

            eing=InKey

        Loop



    Loop



End Function



Sub ausgabe(feld() As Integer)

    Dim x As Integer

    Dim y As Integer

    y=1

    x=1

    Cls

    Do While y<=25

        Do While x<=40

            Locate y, x

            If feld(x, y)=0 Then

                Print" "

            EndIf

            If feld(x, y)=1 Then

                Print"X"

            EndIf

            x+=1

        Loop

        y+=1

    Loop

End Sub

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.