Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

ASCII-Finder

Uploader:Mitgliedgast
Datum/Zeit:06.08.2005 16:54:48

'ASCII-Finder
'by M. "Mecki" Arnold, www.FreeBASIC.de

Color 15,1:Cls  'Weiße Schrift auf blauem Grund.

' Statt PRINT kann man auch einfach ein Fragezeichen schreiben.
?"welches ASCII-Zeichen hat welcher Buchstabe"
?"Gib nun die gesuchten Buchstaben und Zeichen ein!"

Do Until K$=chr$(27) 'ASCII-Code für ESC. Schleife wird solange durchlaufen,
                     'bis ESC gedrückt wird.


    'Auf Tastendruck warten:

    K$=""
    Do Until K$<>""  'Diese Schleife wartet, bis eine Taste gedrückt wird.
        K$=INKEY$    'Welche ist egal.
    Loop


    'Die gedrückte Taste und den entsprechenden ASCII-Code ausgeben:

    ? 'eine Zeile leer
    ?" gedr";chr$(129);"ckte Taste: <";K$;">" '129 ist der ASCII-Code für "ü"
    ?"      ASCII-Code:";Asc(K$)              'ASC liefert den ASCII-Code von K$

Loop

'nach Ende der Hauptschleife:

'wartet 3 Sekunden
T!=Timer: While Timer-T!<3:Wend