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)
funkheld hat geschrieben:Habe mit dem "lel" keine Probleme, du....?
x64 sind heute nur ein zwangskauf beim Computerkauf, welches Programm nutzt schon dieses x64 ?
gruss
PROSIT...