|
Post by DJLinux on May 11, 2009 16:46:23 GMT -5
ConsolePluginDownload: ConsolePlugin.zipTrue or False = ConsoleCreate() ConsoleDestroy() ConsoleCls() ConsoleSetColors(ForeColorr%, BackgroundColor%) ConsoleShowCursor(True or False) ConsoleSetCursorPos(xPos%, yPos%) ConsoleSetTitle(TitleText$) Key$ = ConsoleGetKey() Text$ = ConsoleRead() ConsoleWrite(Text$) ConsoleWriteR(Text$) ' test01.gb dim x,y,f,b,d if ConsoleCreate()=TRUE then ConsoleWrite("Hello from Console ") ConsoleWriteR("print with return on the same line! ") ConsoleWriteR("print on the next line ") ConsoleSetTitle("Color Test!") for f=0 to 15 for b=0 to 15 ConsoleSetColors(f,b) ConsoleWrite("color") next next Sleep(3000) ConsoleSetTitle("Clear Console!") for b=0 to 15 ConsoleSetColors(0,b) ConsoleCls() sleep(200) next ConsoleSetTitle("CursorPosition!") for d=0 to 356 step 5 x=sind(d)*28+40-7 y=cosd(d)*11+13 ConsoleSetCursorPos(x,y) ConsoleWrite("black on white!") next Sleep(3000) ConsoleSetColors(15,0) ConsoleCLS() ConsoleSetTitle("Cursor Test!") for x= 1 to 2 ConsoleSetCursorPos(12,17) ConsoleWrite("Cursor off") ConsoleShowCursor(False) sleep(2000) ConsoleSetCursorPos(12,17) ConsoleWrite("Cursor on ") ConsoleShowCursor(True) sleep(2000) next
ConsoleDestroy() end if end
|
|