Quantcast
Channel: MCS Electronics Forum
Viewing all articles
Browse latest Browse all 20610

BASCOM-AVR : Library Variable Definiton : REPLY

$
0
0
What I'm doing wrong??? ](*,) Here my sample code [code:1:b2f9414f71] $regfile = "m128def.dat" $crystal = 16000000 $baud = 19200 $baud1 = 19200 $hwstack = 100 $swstack = 130 $framesize = 100 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 Config Lcd = 16 * 2 Cls Cursor Off Noblink Dim Tags(5) As Byte , J As Byte , X As Byte Rfid_mod Alias Porta.1 Rfid_mod_pin Alias Pina.1 Rfid_shd Alias Porta.0 Rfid_shd_pin Alias Pina.0 Config Rfid_mod_pin = Output Config Rfid_shd_pin = Output Reset Rfid_mod Reset Rfid_shd Waitms 100 Set Rfid_shd Waitms 100 Reset Rfid_shd Config Hitag = 64 , Type = Em4095 , Demod = Pine.4 , Int = @int4 On Int4 Checkints Nosave ' <<-- http://www.atmel.com/Images/doc2467.pdf; page 90 Config Int4 = Change ' This interrupt on PORT E supports the logical change Enable Interrupts Cls Locate 1 , 1 : Lcd "Ready" Do If Readhitag(tags(1)) = 1 Then Locate 2 , 1 For J = 1 To 5 Step 1 Lcd " " ; Hex(tags(j)) Next J Else Locate 2 , 1 : Lcd "Empty" ; Space(10) End If Loop End Checkints: Call _checkhitag Return [/code:1:b2f9414f71] But it still not work :( According to the Datasheet I tried also [code:1:b2f9414f71] '.... Some code .... Config Hitag = 64 , Type = Em4095 , Demod = Pind.2 , Int = @int2 Config Int2 = Rising '.... Some code .... Checkints: Toggle EICRA.ISC21 Call _checkhitag Return [/code:1:b2f9414f71] with no result. Any suggestions? Sincerely, Peter

Viewing all articles
Browse latest Browse all 20610

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>