Lunarman
29.08.2007, 14:33
Okay, ich glaub, ich sollte mich mal entschuldigen, war gestern nich so prima drauf...
also, sorry, hab nicht gesehen, dass du 13 bist... willkommen im Club ^^
ich fand das nur halt ein bisschen komisch, du schienst dich halt überhaupt nicht informiert haben.... egal ^^ also, Stichwort ist zum Beispiel schonmal PS/2. Allerdings, versuch nicht, das in die Forensuche einzugeben, da kriegste mehr als 4000 Ergebnisse, die meisten ham nix mit Tastaturen zu tun :/
der von Jon gezeigte Link ist gut. Mehr hab ich jetzt auf die schnelle hier im Forum auch nicht gefunden. Anschließen kannst dus direkt mit pullups. keine TreiberICs oder sowas notwendig. Nur mal so aus Interessa: wofür brauchst du das denn?
also, sorry nochmal...
@Jon: Ja, keine Sorge, ich schreibe natürlich noch vernünftige Beiträge. Kann mal sein, dass ich ein bisschen offtopic schreibe, aber eigentlich hab ich immer auch was sinnvolles im Post. Und kein Problem, ich weiß ja, dass es mist war, was ich gesagt habe... dachte halt, da sitzt irgendson fauler Sack vorm Rechner, der nur zu faul zum suchen ist... @richi: klick mal auf den Link in meiner sig, da werden Sie geholfen! hab ich mir auch durchgelesen und finde es sehr interessant (hat jetzt nix mit der Tastatur zu tun!). Und das ist auch nicht sarkastisch gemeint, sonern absolut ernst!
kingmassivid
04.09.2007, 15:30
Wie ich das gemacht habe?
Ganz einfach. Ich hatte noch eine Tastatur ohne Stecker rumfliegen von der hab ich die Anschlussbelegung rausgesucht (stand auf der Platine) und dann Vcc and +5v und GNG an GND .
Data hab ich an Pinc.1 und clock an Pinc.2
dirket ohne Wiederstände (brauch man da welche?!)
Dazu verwende ich volgenden Code:
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config Keyboard = Pinc.1 , Data = Pinc.0 , Keydata = Keydata
Dim B As Byte
Print "Eingabetest von PC-AT-Tastatur"
Portd.7 = 1
Do
B = Getatkbd() ' Abfrage der Tastatur
If B > 0 Then
Print Chr(b)
End If
Loop
End
Keydata:
' Shift-Taste nicht gedrückt
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , &H5E , 0
Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0
Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0
Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0
Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0
Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0
Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
' Shift-Taste gedrückt
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0
Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0
Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0
Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0
Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0
Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
Jetzt wüsste ich noch gerne wie ich funktionstasten abfragen kann?
Ich hab es einfach mal mit:
If B = 27 Then.. (27 ist esc) probiert aber da tut sich nichts!
Weiß jemand wie man die LED's an der Tastatur steuern kann?
Lukas
p.s. es lag wirklich am code !
Powered by vBulletin® Version 4.2.5 Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.