Code-Beispiel

Abfrage der Uni-Code mit WCHR

Lizenz:	Erster Autor:	Letzte Bearbeitung:
Freeware (proprietär)	Sundboy60	24.11.2023

Da man mit "WCHR" nicht nur das Euro-Zeichen, sondern auch viele weitere Zeichen darstellen kann,
habe ich mich mal daran gemacht eine Übersicht in Tabellenform (Ausgewählter!) Uni-Code zu
erstellen. (wie man den WCHR-Befehl nutzen kann, siehe auch "Euro-Zeichen eingeben und anzeigen"!
Einige kleine Beispiele:
? Variable; WCHR(Code); Variable ... Variable kann auch Text sein
? "Der Geldbetrag ist "; W; WCHR(8364); " zu klein."
? "Der Widerstand ist "; W; "k"; WCHR(937); " gross."
? "Die "; WCHR(8730); " von "; W; " ist "; SQR(W); "."

'' Datei: WCHR Uni-Code Abfrage.bas

'' (p) Sundboy60, 1985-2023, letzte Aenderung 24.11.2023

'' -------------------------------------------------------------------

    DATA 32, 126, 168, 168, 170, 170, 192, 198, 200, 213, 217, 221

    DATA 224, 227, 229, 245, 247, 247, 249, 253, 255, 383, 402, 402

    DATA 506, 511, 536, 539, 728, 733, 894, 894, 900, 902, 904, 906

    DATA 908, 908, 910, 929, 931, 945, 947, 955, 957, 974, 1025, 1036

    DATA 1038, 1103, 1105, 1106, 1108, 1116, 1118, 1119, 1168, 1169

    DATA 7808, 7813, 7922, 7923, 8215, 8218, 8220, 8222, 8224, 8226

    DATA 8230, 8230, 8240, 8240, 8252, 8252, 8260, 8260, 8319, 8319

    DATA 8355, 8355, 8359, 8359, 8364, 8364, 8470, 8470, 8482, 8482

    DATA 8539, 8539, 8542, 8542, 8706, 8706, 8710, 8710, 8719, 8719

    DATA 8721, 8721, 8729, 8730, 8734, 8734, 8745, 8745, 8747, 8747

    DATA 8776, 8776, 8800, 8801, 8804, 8805, 8976, 8976, 8992, 8993

    DATA 9554, 9555, 9557, 9558, 9560, 9561, 9563, 9564, 9566, 9567

    DATA 9769, 9570, 9572, 9573, 9575, 9576, 9578, 9579, 9674, 9674

    DIM AS INTEGER AW, A, E, Y = 3, X = 2

    WIDTH 135, 48 : LOCATE 2, 10, 0

    ? !"Programm zum anzeigen ausgew\132hlter (WCHR nnnn) Uni-Code"

    COLOR 10

    FOR J AS INTEGER = 1 TO 69 : READ A, E

        FOR I AS INTEGER = A TO E

            Y + = 1 : IF Y = 48 THEN X + = 11 : Y = 4

            LOCATE Y, X : ? USING !"\179 #### \179 "; I;

            ? WCHR(I); !" \179";

    NEXT : COLOR 15 : NEXT

    LOCATE Y + 5, X + 2, 1 : ? "[TASTE] "; : GETKEY : END

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 24.11.2023 von Sundboy60 angelegt.
Die aktuellste Version wurde am 24.11.2023 von Sundboy60 gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.