ESC Taste gedrückt ?

[Franz54]

Hallo Gemeinde.
ich bin gerad dabei aus meinem QB Code was lauffähiges in PureBasic zu bauen.

Da habe ich jetzt gerade was, wofür ich keinen Ersatz finde. Der Codeschnipsel ist wie folgt:

Code: Alles auswählen

 eg$ = Input()
	  If eg$ = "" 
	    Goto eing14
	    If eg$ = CHR$(27)
	      End

Ich lese hier Taste für Taste aus, was ich gedrückt haben. wenn es ESC gedrückt wurde, bekommen ich chr$(27) und beende das Programm.
Aber diese Auswertung "CHR$()" gibts in PB nicht mehr. Was kann ich also ersatzweise für "if eg$ = CHR$(27)" benutzen?

Franz

[Olafmagne]

Da habe ich jetzt gerade was, wofür ich keinen Ersatz finde. Der Codeschnipsel ist wie folgt:

Code: Alles auswählen

 eg$ = Input()
	  If eg$ = "" 
	    Goto eing14
	    If eg$ = CHR$(27)
	      End

Ich lese hier Taste für Taste aus, was ich gedrückt haben. wenn es ESC gedrückt wurde, bekommen ich chr$(27) und beende das Programm.
Aber diese Auswertung "CHR$()" gibts in PB nicht mehr. Was kann ich also ersatzweise für "if eg$ = CHR$(27)" benutzen?

Franz

Chr(xx) ist immer noch in PureBasic verfügbar
( siehe PB_ Hilfe -> String )
Es kommt nun auch noch darauf an, ob es eine GUI-App ist oder nicht!
in einem Fenster werden Tasten via ShortCut ermittelt, und einem MenuEvent wird generiert!

Code: Alles auswählen

  AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_ShortCut_F, 15) ; Erstellt ein Tastaturkürzel 'CTRL+F' (STRG-F) für das Fenster 0,
                                                                    ; welches nach Tastendruck ein Menüereignis '15' liefert

Es muss also auch ein entsprechender MenuPunkt vorhanden sein.

Aber auch Chr() ist zur ermittlung des Ascii-Codes verfügbar, wenn man mit einem Screen arbeitet

Olaf

[mk-soft]

Hallo Franz,

ich glaube es ist besser die alten QBasic Sachen zu vergessen und neu anzufangen.
Mit Console und Input wie damals zu verwenden ist der falsche Weg um wieder mit programmieren anzufangen.
Da gibt es mit PureBasic und GUI OpenWindow und Gadgets ein besseren Weg.
Hierzu hatte ich dir zum Einstieg zwei Template reingestellt zu ausprobieren. Link zu den Templates.
Da braucht man sich nicht mehr wie früher sich um die ganzen Tastatur-Codes mehr kümmern.
Zur Dos-Zeit hatte ich auch unter Basic und Pascal auch die die ganze Tastatur- und Ausgabe- Steuerung selber erstellt.
Die Zeiten sind ein Glück vorbei.

Alles Gute
Michael

[Franz54]

....ich glaube es ist besser die alten QBasic Sachen zu vergessen und neu anzufangen.....

Ja, ich habe mir heute eines meiner Programme vorgenommen, um es auf PB zu ändern. Und habe schon gemerkt dass das nicht sooooo leicht ist. Ich dachte damit meiner Erinnerung etwas auf die Sprünge helfen zu können, wenn ich die alten Code Lauffähig mache. Ich habe mir damals Module gemacht, von denen ich dann immer, wenn ich ein neues Programm in Angriff genommen habe, die Module reingenommen habe, die ich brauche, dann war eigentlich das Programm schon in der Grundstruktur fertig. Dann war nur noch die Kleinarbeit zu tun. EingabeMasken und DateieStrukuren anpassen. Das System muss ich mir wieder neu zusammenstellen.

Ich werde schon mit PB Beispielen lernen. Habe heute schon das erste in Angriff genommen.

Mal schauen wo ich lande. Danke euch, schönes Wochenende.
Franz

[jacdelad]

Die Arbeit wird sich lohnen. Aber, auch wenn ich mich bei dem einen kddr anderen jetzt unbeliebt mache: nutze kein Goto/Gosub! Tu's nicht!!! Nutze Procedures und Schleifen und was weiß ich...

[Franz54]

nutze kein Goto/Gosub! Tu's nicht!!!

Meist du allgemein, weil man jeden Sprung auch wieder konsequent zurück springen muss, wenn man saubere Funktion haben will. Oder weil der PB Compiler da Mist macht ?

Zweites wäre naürlich nicht so toll.

Servus
Franz

[mk-soft]

Da muss man sehr aufpassen, da man aus bestimmten Bereichen nicht raus springen darf. Stack Error ...

[H.Brill]

Das GOTO/GOSUB hatte Fred ja nur wegen den Usern, die vom alten GW-BASIC herkommen
erschaffen, um erste Schritte zu erleichtern. Am besten erst gar nicht benutzen und
gleich mit Proceduren anfangen. Dann gibt es auch bei etwas größeren Programmen
keinen Spaghetti-Code. Ich hatte damlas das schon bei QB vermieden, da dieses ja
auch schon SUBs kannte.
Wenn man sich mal verinnerlicht hat, daß eine Procedure und eine Funktion fast das gleiche
ist, lernt man diese auch schätzen. Der einzige Unterschied ist, daß eine Funktion einen
Wert (z.b. berechnet o.ä., oder True-False) mit PROCEDURERETURN zurück gibt. Auch ein Vorteil ist,
daß man Parameter mitgeben kann, das bei GOTO/GOSUB nicht der Fall ist. Ein weiterer Vorteil
ist auch die Wiedervendbarkeit solcher Proceduren, da man sie auch problemlos in Includedateien
sammeln kann.

Fred hat das ja gut gelöst und es gibt nur eine Procedure und keine Funktion.

[H.Brill]

Hallo Gemeinde.
ich bin gerad dabei aus meinem QB Code was lauffähiges in PureBasic zu bauen.

Da habe ich jetzt gerade was, wofür ich keinen Ersatz finde. Der Codeschnipsel ist wie folgt:

Code: Alles auswählen

 eg$ = Input()
	  If eg$ = "" 
	    Goto eing14
	    If eg$ = CHR$(27)
	      End

Ich lese hier Taste für Taste aus, was ich gedrückt haben. wenn es ESC gedrückt wurde, bekommen ich chr$(27) und beende das Programm.
Aber diese Auswertung "CHR$()" gibts in PB nicht mehr. Was kann ich also ersatzweise für "if eg$ = CHR$(27)" benutzen?

Franz

Da hast du doch einen wunderbaren Ersatz in der Hilfe, nur daß es eben Inkey() heißt. Input() ist gedacht für Strings.

Code: Alles auswählen

If OpenConsole()
    PrintN("Druecken Sie Escape zum Beenden.")
  
    Repeat
      KeyPressed$ = Inkey()
      
      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

Ein klein wenig umdenken muß man schon.

[Franz54]

Da hast du doch einen wunderbaren Ersatz in der Hilfe, nur daß es eben Inkey() heißt. Input() ist gedacht für Strings.
Ein klein wenig umdenken muß man schon.

Das Input war schon der Ersatz, weil das QB "INKEY$" mit dem $ hinten dran von der Hilfe mit F1 nicht erkannt wurde. Dann dachte ich dafür gibt es keinen Ersatz und habe es erst mal mit "input()" ersetzt. Dabei gibt es bei PB "INKEY$" doch als "inkey()"

Genaus wie bei VAL$, MID$ u.s.w

Das $ im Anschluss sorgt dafür, dass der Befehl von der Hilfe nicht erkannt wird, und daher auch nicht angezeigt wird. Man glaubt dann fürs erste, da gibt es nichts im PB.

Franz