Re: Konsole im Vollbildmodus
Verfasst: 29.01.2018 18:00
Wie ich schon dachte, verwendest du Windows 7. Das ist nicht möglich. Du kannst, wie Derren vorgeschlagen hat, selber mit CanvasGadget machen.
Code: Alles auswählen
RunProgram("cmd.exe", " MODE CON COLS=999 LINES=999", "")
Code: Alles auswählen
; Schnittstelle für MyDos Console
#TestDos=1
CompilerIf Defined(TestDos,#PB_Constant)
Procedure MyDosClose() : MessageRequester("Konsole zu","fertig"):CloseConsole() : EndProcedure
Procedure MyDosCls() : ClearConsole() : EndProcedure
Procedure MyDosColor(Farbe,Hintergrund) : ConsoleColor(Farbe,Hintergrund) : EndProcedure
Procedure.s MyDosInkey() : ProcedureReturn Inkey() : EndProcedure
Procedure.s MyDosInput() : ProcedureReturn Input() : EndProcedure
Procedure MyDosLocate(x.i,y.i) :ConsoleLocate(x,y) : EndProcedure
Procedure MyDosOpenConsole() : OpenConsole() : EnableGraphicalConsole(1) : EndProcedure
Procedure MyDosPrint(Text.s) : Print(Text) : EndProcedure
Procedure MyDosPrintN(Text.s) : PrintN(Text) : EndProcedure
Procedure.i MyDosRawKey() : ProcedureReturn RawKey() : EndProcedure
CompilerElse
Procedure MyDosClose() : EndProcedure
Procedure MyDosCls() : EndProcedure
Procedure MyDosColor(Farbe,Hintergrund) : EndProcedure
Procedure.s MyDosInkey() : ProcedureReturn "" : EndProcedure
Procedure.s MyDosInput() : ProcedureReturn "" : EndProcedure
Procedure MyDosLocate(x.i,y.i) : EndProcedure
Procedure MyDosOpenConsole() : EndProcedure
Procedure MyDosPrint(Text.s) : EndProcedure
Procedure MyDosPrintN(Text.s) : EndProcedure
Procedure.i MyDosRawKey() : ProcedureReturn $ff : EndProcedure
CompilerEndIf
Macro ClearConsole() : MyDosCls() : EndMacro
Macro CloseConsole() : MyDosClose() : EndMacro
Macro ConsoleColor(Farbe,Hintergrund) : MyDosColor(Farbe,Hintergrund) : EndMacro
Macro ConsoleLocate(x,y) : MyDosLocate(x,y) : EndMacro
Macro ConsoleTitle(Text) : EndMacro
Macro EnableGraphicalConsole(Wert) : EndMacro
Macro Inkey() : MyDosInkey() : EndMacro
Macro Input() : MyDosInput() : EndMacro
Macro OpenConsole() : MyDosOpenConsole() : EndMacro
Macro Print (Text) : MyDOSPrint(Text) : EndMacro
Macro PrintN(Text) : MyDOSPrint(Text) :EndMacro
Macro RawKey() : MyDosRawKey() : EndMacro
Was z.B.?DarkSoul hat geschrieben:weil ich die letzte Zeit sehr viel Pech mit dieser Programmiersprache hatte.