Vonalkód olvasó modult keresek

Apróhirdetés az oldalon a megunt, kinőtt holmikhoz. Kereskedelmi mennyiségek nem engedélyezettek.
Avatar
SirLeslie
Pákabűvész
Hozzászólások: 245
Csatlakozott: 2005. április 14. csütörtök, 6:00
Tartózkodási hely: Zalaegerszeg
Kapcsolat:

Vonalkód olvasó modult keresek

HozzászólásSzerző: SirLeslie » 2012. április 28. szombat, 22:22

Sziasztok!

Keresnék olyan vonalkód olvasó modult (akár kibelezett, de működőképeset), amit hozzá lehet csatolni avr-hez (lehetőleg soros vonalon). Ha esetleg tanítható lenne (spec. vonalkódokkal) az csak hab lenne a tortán.

Avatar
Robert
Elektronbűvölő
Hozzászólások: 9886
Csatlakozott: 2005. december 9. péntek, 7:00
Tartózkodási hely: Budapest
Kapcsolat:

HozzászólásSzerző: Robert » 2012. április 29. vasárnap, 6:12

AT-s nem jó? Azt mostanában dobják az ember után (billenytűzetet játszik). Ezt meg az AVR egyből ttudja a getatkbd utasítással fogadni...
kb. 4-5 eFt újonan...

Avatar
SirLeslie
Pákabűvész
Hozzászólások: 245
Csatlakozott: 2005. április 14. csütörtök, 6:00
Tartózkodási hely: Zalaegerszeg
Kapcsolat:

HozzászólásSzerző: SirLeslie » 2012. április 29. vasárnap, 6:35

Robert írta:AT-s nem jó? Azt mostanában dobják az ember után (billenytűzetet játszik). Ezt meg az AVR egyből ttudja a getatkbd utasítással fogadni...
kb. 4-5 eFt újonan...



Természetesen az is jó (a lényeg, hogy ne kelljen hozzá feltalálni a hideg vizet)... kérek szépen egy linket!

Avatar
Robert
Elektronbűvölő
Hozzászólások: 9886
Csatlakozott: 2005. december 9. péntek, 7:00
Tartózkodási hely: Budapest
Kapcsolat:

HozzászólásSzerző: Robert » 2012. április 29. vasárnap, 6:45

Árukereső, árgép :)
pl: http://www.arukereso.hu/banki-gep-vonal ... 57/f:ar=1/

A Bascom alatt a billenytűzetes minta:

Kód: Egész kijelölése

$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

Avatar
SirLeslie
Pákabűvész
Hozzászólások: 245
Csatlakozott: 2005. április 14. csütörtök, 6:00
Tartózkodási hely: Zalaegerszeg
Kapcsolat:

HozzászólásSzerző: SirLeslie » 2012. április 29. vasárnap, 6:52

Robert írta:Árukereső, árgép :)
pl: http://www.arukereso.hu/banki-gep-vonal ... 57/f:ar=1/


Köszönöm szépen! ...(itt még nem is kerestem)


Vissza: “Apróhirdetés - csere-bere”

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég