PureBoard

Code: Alles auswählen

If OpenConsole()    
  stdout.l=GetStdHandle_(#STD_OUTPUT_HANDLE)  
  NewSize.SMALL_RECT
  NewSize\top = 0
  NewSize\left = 0
  NewSize\bottom=50
  NewSize\right=50
  SetConsoleWindowInfo_(stdout,1,@NewSize)
  
  mySize.l
  mySize = (51 << 16) + 51
  SetConsoleScreenBufferSize_(stdout, mySize) 
  Debug(Str(GetLastError_()) ) 
  Input()
EndIf

Code: Alles auswählen

text$  = "der consolentest..."                 ; just a small text$ string
dlay   = 1000                                  ; delay will set to 4000
;-------- Open our Console --------
OpenConsole()  
stdout.l=GetStdHandle_(#STD_OUTPUT_HANDLE) 
NewSize.SMALL_RECT
NewSize\top = 0
newSize\left = 0
NewSize\bottom=50
NewSize\right=50
SetConsoleWindowInfo_(stdout,1,@NewSize)
 
mySize.l
mySize = (51 << 16) + 51
SetConsoleScreenBufferSize_(stdout, mySize) 

; First we must open a console
    ConsoleTitle ("Consolentest:")  ; Now we can give the opened console a Titlename ;)                                                  
    EnableGraphicalConsole(1)                                                                                                 
;-------- Ask and display the UserName -------- 
    ConsoleLocate (10,12)                          ; x y position 
    Print ("Bitte Namen eingeben: ")               ; Ask for name
    name$=Input()                                  ; Wait for user input

    ClearConsole()                                 ; This will clean the ConsoleScreen
    
    ConsoleLocate (10,10)                          ; x y position 
    PrintN ("Willkommen "+name$)                      ; Print our text and the UserName
    ConsoleLocate (16,12)                          ; x y position
    PrintN (text$)                                 ; Print our text

    Delay (dlay)                                   ; Waits for moment
;-------- Cls and Cycle the Text-BG-Color 0 to 15 --------                                                 
    ClearConsole()                                 ; This will clean the ConsoleScreen
                                                   ; Info: Standard colors are (8 for text, 0 for backround)
    For i = 0 To 15
        ConsoleColor (0,i)                         ; Change BackGround text color (max 15) in every loop         
        ConsoleLocate (10+i,4+i)                     ; x y position 
        Print (text$)                              ; Print our text
    Next i

    Delay (dlay)                                   ; Waits for moment
;-------- Cls and Cycle the Text-FG-Color 0 to 15 --------
    ConsoleColor(0,0)                              ; Set back to black (0,0) for complete background...
    ClearConsole()                                 ; This will clean the ConsoleScreen
                                                   ; Info: Standard colors are (8 for text, 0 for backround)
    For i = 0 To 15
        ConsoleColor (i,0)                         ; Change ForGround text color (max 15) in every loop         
        ConsoleLocate (10,4+i)                     ; x y position 
        Print (text$)                              ; Print our text
    Next i

    Delay (dlay)                                   ; Waits for moment
;-------- Cls and Cycle the Background-Color 0 to 15 --------
    For a = 1 To 15
        ConsoleColor(a,a)                          ; Cycle background color...
        ClearConsole()                             ; This will clean the ConsoleScreen
        ;                                          ; Info: Standard colors are (8 for text, 0 for backround)
        For i = 0 To 15
            ConsoleColor (i,a)                     ; Change ForGround text color (max 15) in every loop         
            ConsoleLocate (5,4+i)                  ; x y position 
            Print (text$)                          ; Print our text
        Next i
        ;
        Delay(dlay/8)                              ; Waits for moment
      Next a   
      
    Delay (dlay)                                   ; Waits for moment
;-------- Cls and Cycle the Background-Color 0 to 15 --------
    For a = 1 To 15
      ConsoleColor(a,a)                          ; Cycle background color...
      ClearConsole()                             ; This will clean the ConsoleScreen
      ;                                          ; Info: Standard colors are (8 for text, 0 for backround)
      For i = 0 To 15
        ConsoleColor (i,a)                       ; Change ForGround text color (max 15) in every loop         
        ConsoleLocate (8+i,14+i)                 ; x y position 
        Print (text$)                            ; Print our text
      Next i
      
     Delay(dlay/8)                               ; Waits for moment
   Next a  
   
   ConsoleColor (4,15)  
   ConsoleLocate (8,40)                          ; x y position 
   Print ("fertisch...") 
   
   Input()
   CloseConsole()
End

Code: Alles auswählen

stdout.i=GetStdHandle_(#STD_OUTPUT_HANDLE)