Zum Inhalt springen

Kurs:FreeBASIC/Open problems

Aus Wikiversity

In diesem Bereich kannst du Probleme veröffentlichen und schauen, ob andere für deine Probleme bereits eine fertige Lösung kennen, vor ähnlichen Problemen stehen oder eine Ahnung haben, wie man das Problem lösen könnte. Ein Eintrag hier sollte erst erfolgen, wenn eine Anfrage im Forum erfolglos war. Vergiss nicht deine Probleme --~~~~ zu signieren.

  • Ein Programm zu jedem Zeitpunkt (insbes. eine Do-Loop-Schleife) über Esc. verlassen können. --Michael Reschke 17:44, 20. Jul. 2008 (CEST)
    Durch das Erstellen eines neuen Threads:
    
    Dim Shared As Any Ptr Thread
    Declare Sub Threadsub
    
    Thread = ThreadCreate(Cast(Any Ptr, @Threadsub))
    
    [...]                           'Irgend ein Programmverlauf
    
    Sub Threadsub
         Do
              Sleep 1               'Auslastung minimieren
         Loop Until Inkey = Chr(27) 'Beenden mit ESC
         End
    End Sub
  • Die Chr(...)-Werte für die Pfeiltasten sowie für Esc. --Michael Reschke 17:44, 20. Jul. 2008 (CEST)
    Links:  Chr(255,75)
    Rechts: Chr(255,77)
    Oben:   Chr(255,72)
    Unten:  Chr(255,80)
    ESC:    Chr(27)

Noch keine Probleme vermerkt.