Farbe und Quadraten in Konsolenanwendung hinzufügen

[Zero_Cool]

Hallo Zusammen

Leider habe ich in der Hilfe nicht zu diesem Thema gefunden. Wie kann ich in einer Konsolenanwendung einen Text farbig schreiben, Zeilen Farbig machen und Farbige Quadrate erstellen?

Danke und Gruss Phil

[Franky]

Hallo Zero_Cool.

Hier mal ein kleines Beispiel zum Thema Quadrate.

Code: Alles auswählen

Procedure Quadrat(farbe1,farbe2,x,y,laenge,hoehe)
          ConsoleLocate(x,y);Zum Rand des Quadrats
          ConsoleColor(farbe1,farbe2) ;Farbe Setzen
          PrintN(LSet("",laenge,"a")) ;Und mit "a" den oberen Rand schreiben
          laenge=laenge-1 ;ein abziehen, da das quadrat sonst zu breit wird
          For a=1 To hoehe  ;die schleife für die rechten und linken wände
                      ConsoleLocate(x,y+a) ;linke seite aufsuchen
                      ConsoleColor(farbe1,farbe2) ;farbe setzen
                      Print("a") ;den rand setzen 
                      ConsoleLocate(x+laenge,y+a) ;weiter zum rechten rand
                      Print("a") ;setzen
           Next           
           ConsoleLocate(x,y+hoehe) ;die untere seite
          laenge=laenge+1
          ConsoleColor(farbe1,farbe2)
          PrintN(LSet("",laenge,"a"))
EndProcedure

OpenConsole()
     a=0
      Repeat 
            ConsoleColor(0,0) ;Sonst wirds mir zu bunt
            ClearConsole()
            For  a=0 To 4
                   Quadrat(Random(16),Random(16),Random(20),Random(20),4+Random(20),4+Random(20)) 
            ;Hier werden dann halt irgendwelche Quadrate gezeichnet
            Next 
             Delay(1200)
      Until a=40
  

Schau´s dir mal an, dann kommst du sicher auch von alleine Drauf, wie man Zeilen ganz einfärbt oder bestimmten text

[Zero_Cool]

Super! Danke!