-         

Ergebnis 1 bis 4 von 4

Thema: Tastatur auslesen

  1. #1
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    14.01.2007
    Beiträge
    209

    Tastatur auslesen

    Anzeige

    Hallo,
    ich möchte eine PC-Tastatur mit einem AVR auslesen. Funktioniert das mit jeder Tastatur mit PS2 Anschluss und wo gibt es darüber Hardwaretechnisch sowie Softwaretechnisch ein gutes Tutorial zu finden?
    Vielen Dank für die Hilfe im Vorraus!

    MfG Killer

  2. #2
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    11.09.2004
    Ort
    Düsseldorf
    Beiträge
    3.948
    Steht eigentlich alles in der Bascom-Hilfe bzw. in der Referenz.

    Config Keyboard

    für PS2 gibts auch noch einiges im Netz.

    Einfach mal bei Google "bascom ps2 keyboard" eingeben und die Ergebnisse sichten.
    Gruß
    Ratber

  3. #3
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    18.12.2006
    Ort
    Oderberg
    Alter
    25
    Beiträge
    870
    Hi,
    http://www.ckuehnel.ch/
    Unter AVR - Programmbeispiele ist ein Programm zum Auslesen.
    Außerdem gibt zahllose Threads darüber wo Code dabei ist den du testen kannst, z.B: http://www.roboternetz.de/phpBB2/zei...ag.php?t=36091
    MfG Christopher \/


  4. #4
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    14.01.2007
    Beiträge
    209
    was ich noch gefunden habe ist folgendes:
    Code:
    $regfile = "8535def.dat"                                   ' specify the used micro
    
    $crystal = 4000000                                         ' used crystal frequency
    
    $baud = 19200                                               ' use baud rate
    
    $hwstack = 32                                               ' default use 32 for the hardware stack
    
    $swstack = 10                                               ' default use 10 for the SW stack
    
    $framesize = 40                                             ' default use 40 for the frame space
    
     
    
    'For this example :
    
    'connect PC AT keyboard clock to PIND.2 on the 8535
    
    'connect PC AT keyboard data to PIND.4 on the 8535
    
     
    
    'The GetATKBD() function does not use an interrupt.
    
    'But it waits until a key was pressed!
    
     
    
    'configure the pins to use for the clock and data
    
    'can be any pin that can serve as an input
    
    'Keydata is the label of the key translation table
    
    Config Keyboard = Pind.2 , Data = Pind.4 , Keydata = Keydata
    
     
    
    'Dim some used variables
    
    Dim S As String * 12
    
    Dim B As Byte
    
     
    
    'In this example we use SERIAL(COM) INPUT redirection
    
    $serialinput = Kbdinput
    
     
    
    'Show the program is running
    
    Print "hello"
    
     
    
    Do
    
    'The following code is remarked but show how to use the GetATKBD() function
    
    ' B = Getatkbd()     'get a byte and store it into byte variable
    
    'When no real key is pressed the result is 0
    
    'So test if the result was > 0
    
    ' If B > 0 Then
    
    '    Print B ; Chr(b)
    
    ' End If
    
     
    
    'The purpose of this sample was how to use a PC AT keyboard
    
    'The input that normally comes from the serial port is redirected to the
    
    'external keyboard so you use it to type
    
    Input "Name " , S
    
    'and show the result
    
    Print S
    
    'now wait for the F1 key , we defined the number 200 for F1 in the table
    
    Do
    
      B = Getatkbd()
    
    Loop Until B <> 0
    
    Print B
    
    Loop
    
    End
    
     
    
    'Since we do a redirection we call the routine from the redirection routine
    
    '
    
    Kbdinput:
    
    'we come here when input is required from the COM port
    
    'So we pass the key into R24 with the GetATkbd function
    
    ' We need some ASM code to save the registers used by the function
    
    $asm
    
    push r16           ; save used register
    
    push r25
    
    push r26
    
    push r27
    
     
    
    Kbdinput1:
    
    rCall _getatkbd   ; call the function
    
    tst r24           ; check for zero
    
    breq Kbdinput1     ; yes so try again
    
    pop r27           ; we got a valid key so restore registers
    
    pop r26
    
    pop r25
    
    pop r16
    
    $end Asm
    
    'just return
    
    Return
    
     
    
    'The tricky part is that you MUST include a normal call to the routine
    
    'otherwise you get an error
    
    'This is no clean solution and will be changed
    
    B = Getatkbd()
    
     
    
    'This is the key translation table
    
     
    
    Keydata:
    
    'normal keys lower case
    
    Data 0 , 0 , 0 , 0 , 0 , 200 , 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
    
     
    
    'shifted keys UPPER case
    
    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
    Ich verstehe aber nicht, wie ich daraus jetzt eine Zahl oder einen Buchstaben ziehen kann... wie funktioniert das??

    MfG Killer

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •