| Zeichen umwandel functionen von m |
| Hy, Mein 2. Beitrag: Für Setup Progs ist es ganz gut, wenn man noch ein paar Zeichen (oder Tasten) umwandeln kann, auch wenn man keine Function dazu in Blitz hat. Hier 2 von mir: [code:1:d4dd1f9faf] Function scan2ascii$(Scan) Buchstabe$ = "spezial Taste" If scan = 30 Then Buchstabe$ = "A" If scan = 48 Then Buchstabe$ = "B" If scan = 46 Then Buchstabe$ = "C" If scan = 32 Then Buchstabe$ = "D" If scan = 18 Then Buchstabe$ = "E" If scan = 33 Then Buchstabe$ = "F" If scan = 34 Then Buchstabe$ = "G" If scan = 35 Then Buchstabe$ = "H" If scan = 23 Then Buchstabe$ = "I" If scan = 36 Then Buchstabe$ = "J" If scan = 37 Then Buchstabe$ = "K" If scan = 38 Then Buchstabe$ = "L" If scan = 50 Then Buchstabe$ = "M" If scan = 49 Then Buchstabe$ = "N" If scan = 24 Then Buchstabe$ = "O" If scan = 25 Then Buchstabe$ = "P" If scan = 16 Then Buchstabe$ = "Q" If scan = 19 Then Buchstabe$ = "R" If scan = 31 Then Buchstabe$ = "S" If scan = 20 Then Buchstabe$ = "T" If scan = 22 Then Buchstabe$ = "U" If scan = 47 Then Buchstabe$ = "V" If scan = 17 Then Buchstabe$ = "W" If scan = 45 Then Buchstabe$ = "X" If scan = 44 Then Buchstabe$ = "Y" If scan = 21 Then Buchstabe$ = "Z" If scan = 40 Then Buchstabe$ = "Ä" If scan = 39 Then Buchstabe$ = "Ö" If scan = 26 Then Buchstabe$ = "Ü" If scan = 12 Then Buchstabe$ = "ß" If scan = 82 Then Buchstabe$ = "0" If scan = 79 Then Buchstabe$ = "1" If scan = 80 Then Buchstabe$ = "2" If scan = 81 Then Buchstabe$ = "3" If scan = 75 Then Buchstabe$ = "4" If scan = 76 Then Buchstabe$ = "5" If scan = 77 Then Buchstabe$ = "6" If scan = 71 Then Buchstabe$ = "7" If scan = 72 Then Buchstabe$ = "8" If scan = 73 Then Buchstabe$ = "9" If scan = 181 Then Buchstabe$ = "/" If scan = 55 Then Buchstabe$ = "*" If scan = 74 Then Buchstabe$ = "-" If scan = 78 Then Buchstabe$ = "+" If scan = 83 Then Buchstabe$ = "," If scan = 2 Then Buchstabe$ = "1" If scan = 3 Then Buchstabe$ = "2" If scan = 4 Then Buchstabe$ = "3" If scan = 5 Then Buchstabe$ = "4" If scan = 6 Then Buchstabe$ = "5" If scan = 7 Then Buchstabe$ = "6" If scan = 8 Then Buchstabe$ = "7" If scan = 9 Then Buchstabe$ = "8" If scan = 10 Then Buchstabe$ = "9" If scan = 11 Then Buchstabe$ = "0" ;--Sonderzeichen-- If scan = 1 Then Buchstabe$ = "ESC" If scan = 15 Then Buchstabe$ = "TAB" If scan = 14 Then Buchstabe$ = "Backspace" If scan = 42 Then Buchstabe$ = "Unschalten" If scan = 54 Then Buchstabe$ = "Unschalten" If scan = 57 Then Buchstabe$ = "Leertaste" If scan = 28 Then Buchstabe$ = "Enter" If scan = 56 Then Buchstabe$ = "Alt" If scan = 184 Then Buchstabe$ = "Alt-Gr" If scan = 29 Then Buchstabe$ = "Strg" If scan = 157 Then Buchstabe$ = "Strg" If scan = 200 Then Buchstabe$ = "Oben" If scan = 203 Then Buchstabe$ = "Links" If scan = 208 Then Buchstabe$ = "Unten" If scan = 205 Then Buchstabe$ = "Rechts" DebugLog scan + " x " + Buchstabe$ Return Buchstabe$ End Function Function Ascii2scan(Ascii) If Ascii = 1 Then scan = 199 If Ascii = 2 Then scan = 207 If Ascii = 3 Then scan = 209 If Ascii = 4 Then scan = 210 If Ascii = 5 Then scan = 201 If Ascii = 6 Then scan = 209 If Ascii = 8 Then scan = 14 If Ascii = 9 Then scan = 15 If Ascii = 13 Then scan = 28 If Ascii = 15 Then scan = 42 If Ascii = 20 Then scan = 0 If Ascii = 27 Then scan = 1 If Ascii = 28 Then scan = 200 If Ascii = 29 Then scan = 208 If Ascii = 30 Then scan = 205 If Ascii = 31 Then scan = 203 If Ascii = 32 Then scan = 57 If Ascii = 35 Then scan = 40 If Ascii = 39 Then scan = 40 If Ascii = 41 Then scan = 55 If Ascii = 43 Then scan = 78 If Ascii = 44 Then scan = 51 If Ascii = 45 Then scan = 74 If Ascii = 46 Then scan = 52 If Ascii = 48 Then scan = 11 If Ascii = 49 Then scan = 2 If Ascii = 50 Then scan = 3 If Ascii = 51 Then scan = 4 If Ascii = 52 Then scan = 5 If Ascii = 53 Then scan = 6 If Ascii = 54 Then scan = 7 If Ascii = 55 Then scan = 8 If Ascii = 56 Then scan = 9 If Ascii = 57 Then scan = 10 If Ascii = 65 Then scan =30 If Ascii = 66 Then scan =48 If Ascii = 67 Then scan =46 If Ascii = 68 Then scan =32 If Ascii = 69 Then scan =18 If Ascii = 70 Then scan =33 If Ascii = 71 Then scan =34 If Ascii = 72 Then scan =35 If Ascii = 73 Then scan =23 If Ascii = 74 Then scan =36 If Ascii = 75 Then scan =37 If Ascii = 76 Then scan =38 If Ascii = 77 Then scan =50 If Ascii = 78 Then scan =49 If Ascii = 79 Then scan =24 If Ascii = 80 Then scan =25 If Ascii = 81 Then scan =16 If Ascii = 82 Then scan =19 If Ascii = 83 Then scan =31 If Ascii = 84 Then scan =20 If Ascii = 85 Then scan =22 If Ascii = 86 Then scan =47 If Ascii = 87 Then scan =17 If Ascii = 88 Then scan =45 If Ascii = 89 Then scan =21 If Ascii = 90 Then scan =44 If Ascii = 97 Then scan = 30 If Ascii = 98 Then scan = 48 If Ascii = 99 Then scan = 46 If Ascii = 100 Then scan = 32 If Ascii = 101 Then scan = 18 If Ascii = 102 Then scan =33 If Ascii = 103 Then scan =34 If Ascii = 104 Then scan =35 If Ascii = 105 Then scan =23 If Ascii = 106 Then scan =36 If Ascii = 107 Then scan =37 If Ascii = 108 Then scan =38 If Ascii = 109 Then scan =50 If Ascii = 110 Then scan =49 If Ascii = 111 Then scan =24 If Ascii = 112 Then scan =25 If Ascii = 113 Then scan =16 If Ascii = 114 Then scan =19 If Ascii = 115 Then scan =31 If Ascii = 116 Then scan =20 If Ascii = 117 Then scan =22 If Ascii = 118 Then scan =47 If Ascii = 119 Then scan =17 If Ascii = 120 Then scan =45 If Ascii = 121 Then scan =21 If Ascii = 122 Then scan =44 Return scan End Function [/code:1:d4dd1f9faf] Ich hoffe, ich konnte euch helfen. Cu |
| von ??? |
| alder dafür würdest du in meiner schule nen fünfer in programmieren bekommen! schon mal was von select gehört? |
| von ??? |
| Wollte ich auch gerade meinen... Select Case, der Rest (If_Then) ist reine Systemresourcenverschwendung... |
| von ??? |
| hmm??? select case? sowas macht man mit einem array ;) die gesamte funktion ist einfach nur ein riesengroßes recht langsames dim-feld =) also mein tipp: feld anlegen und da die ganzen werte zu den zahlen reinschschreiben. is schneller, sieht im code genauso aus und außerdem lässt sich dann das ganze auch leicht aus einer externen datei auslesen :) desweiteren kann man dann die umkehrfunktion auch seeehr kurz schreiben. |
| von ??? |
| Stimmt eigentlich... Aber was ich vergessen habe, dieser Code funzt nicht mit allen Tastaturen... Gibt eben einen unterschied, ob CH, D, GB, US ... |