Inkey funktioniert nicht bei Linux

Hier werden, insbesondere in den Beta-Phasen, Bugmeldungen gepostet. Das offizielle BugForum ist allerdings hier.
mbvwt4
Beiträge: 18
Registriert: 17.11.2006 10:33
Wohnort: bei Siegen

Inkey funktioniert nicht bei Linux

Beitrag von mbvwt4 »

Hallo,
der Inkey() Befehl funktioniert bei der Linuxversion nicht. Die
Programmausführung bleibt bei dem Befehl stehen; soll ja eigentlich fortgeführt werden. Wenn man aber die Compileroption von Console auf Linux umstellt wird die Programmausführung fortgeführt, aber ohne Console sieht man nix.
THEEX
Beiträge: 804
Registriert: 07.09.2004 03:13

Beitrag von THEEX »

Wie immer bitte mit Beispielcode, vorallem wenn es um Bugmeldungen geht...
mbvwt4
Beiträge: 18
Registriert: 17.11.2006 10:33
Wohnort: bei Siegen

Beitrag von mbvwt4 »

Das ist das Beispiel aus der Hilfe, nur das hier hinter Inkey() eine einfache Textausgabe erfolgt, um zu sehen ob die Programmausführung fortgesetzt wird. Das merkwürdige ist aber wenn man die Compileroption auf Linux setzt, und dann startet, dann den Debugger stopt sieht man das die Programmfortführung erfolgt ist, weil die Ausführung irgendwo im Code gestopt wurde. Wenn eine ausführbare Datei übersetzt wurde funktioniert Inkey() ebenfalls nicht. Der Rawkey() Befehl funktioniert in diesem Zusammenhang ebenfalls nicht. Ich habe dies auf zwei verschiedenen Computern getestet, dies ist bei der 4.02 und 4.10 so.

Code: Alles auswählen

If OpenConsole()
    PrintN("Druecken Sie Escape zum Beenden.")
  
    Repeat
      KeyPressed$ = Inkey()
      PrintN("Test")
      If KeyPressed$ <> ""
        
        PrintN("Sie drueckten: " + KeyPressed$)
          PrintN("Diese hat einen Roh-Code von: "+Str(RawKey()))
        
      ElseIf RawKey()
      
        PrintN("Sie haben eine Nicht-Ascii Taste gedrueckt.")
        PrintN("Diese hat einen Roh-Code von: "+Str(RawKey()))
        
      Else
        Delay(20) ; Wir verbrauchen nicht die gesamte CPU-Leistung, da wir uns auf einem Multitasking-OS befinden
      EndIf
    
    Until KeyPressed$ = Chr(27) ; Wartet, bis Escape gedrückt wird
  EndIf
osta
Beiträge: 87
Registriert: 08.09.2004 11:48
Wohnort: Morsbach (Am Arsch der Welt)
Kontaktdaten:

Dito

Beitrag von osta »

Hab die Beta 4.20 und immernoch das gleiche Problem.
Ich hänge zu oft und zu lange vor dem PC! Ich muss dringend was an meinem Lebenswandel verändern!.......
Nur heute geht's grad nicht.
Benutzeravatar
Froggerprogger
Badmin
Beiträge: 855
Registriert: 08.09.2004 20:02

Beitrag von Froggerprogger »

Hab keine Bugmeldung im englischen Forum gefunden und daher dort mal eine gepostet:
http://www.purebasic.fr/english/viewtop ... 032#263032
!UD2
Antworten