fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Zufällige Muster basierend auf Langtons Ameise II

Uploader:	Sebastian
Datum/Zeit:	31.03.2008 13:29:36

'Zufällige Muster basierend auf Langtons Ameise

'Programm von Skilltronic (07.03.2008)

'siehe http://forum.qbasic.at/viewtopic.php?t=5409

'Mustergenerator als SUB-Unterprogramm (für QB!)



DECLARE SUB MUSTER ()



DEFINT A-Z

SCREEN 12



PRINT "Drcken Sie eine beliebige Taste, um das Sub-Unterprogramm zu starten."

PRINT "Danach Mustergenerator durch ESC abbrechen."



SLEEP



CLS



MUSTER



CLS



PRINT "Das war's. Beliebige Taste drcken."

SLEEP: END



SUB MUSTER



        DIM weg(15)

        RANDOMIZE TIMER

        DO

         CLS

         FOR a = 0 TO 15

          weg(a) = FIX(RND * 2) * 2 - 1

         NEXT

         x = 319

         y = 239

         DO

          r = r + weg(POINT(x, y))

          IF r = 4 THEN r = 0

          IF r = -1 THEN r = 3

          nf = POINT(x, y) + 1

          IF nf = 16 THEN nf = 0

          PSET (x, y), nf

          IF r = 0 THEN x = x + 1

          IF r = 1 THEN y = y + 1

          IF r = 2 THEN x = x - 1

          IF r = 3 THEN y = y - 1

          IF x = 640 THEN x = 0

          IF x = -1 THEN x = 639

          IF y = 480 THEN y = 0

          IF y = -1 THEN y = 479

          taste$ = INKEY$

         LOOP WHILE taste$ = ""

        LOOP UNTIL taste$ = CHR$(27)



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.