PDA

View Full Version : ٍمشکل با ساخت em4095 با attiny13



amirt66
شنبه 21 اردیبهشت 1392, 08:49 صبح
سلام
من تازه عضو شدم
یه سوالی داشتم
من یه برنامه با بسکام برای ساخت یک سیستم پروکسی ریدر نوشتم
همونطور که میدونید میکروی tiny13 امکان uart نداره
واسه همین به صورت مجازی با بسکام واسش ایجاد کردم
اما با این خطا موقع کامپایل مواجه میشم
ممنون میشم اگه بهم بگین چیکار کنم
راستی کسی میدونه چطوری میشه توی کد ویژن پورت uart مجازی درست کرد؟؟
:متفکر: :متفکر: :اشتباه:
مثل بسکام دستور خاصی داره؟؟
این برنامه
$regfile = "attiny13.dat"
$baud = 9600
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 24

Config Portb.2 = Output

'Make SHD and MOD low
Config Portb.3 = Output
Portb.4 = 0

Shd Alias Portb.4
Config Shd = Output
Shd = 0

Dim Tags(5) As Byte 'make sure the array is at least 5 bytes
Dim J As Byte
Dim A As Byte
Dim B As Byte
Dim L As Bit

Open "comb.0:9600,8,n,1" For Output As #1

Config Hitag = 64 , Type = Em4095 , Demod = Pinb.1 , Int = @int0


Print #1 , "Test EM4095"



On Int0 Checkints Nosave 'we use the INT1 pin all regs are saved in the lib
Config Int0 = Change 'we have to config so that on each pin change the routine will be called
Enable Interrupts


L = 0

Do
'Print "Check..." 'my test
If L = 1 Then
If B = A Then
B = 0
A = 0

End If
End If
If Readhitag(tags(1)) = 1 Then
Print #1 , Chr(2) 'this will enable INT1
For J = 5 To 1 Step -1
'Print Hex(tags(j)) ; ",";

A = Tags(j) / 16
A = A + 48
Print #1 , Chr(a)
A = Tags(j) Mod 16
A = A + 48
Print #1 , Chr(a)
B = A
L = 1
Next
Print #1 , Chr(0); 'CHECK SUM
Print #1 , Chr(0); 'CHECK SUM
Print #1 , Chr(13);
Print #1 , Chr(10);
Print #1 , Chr(3);

Reset Portb.2
Else
'Set Portd.7
End If
Waitms 100

Loop
Close #1


Checkints:
Call _checkhitag
Return

اینم خطاش

error: 222 line : 26 illegal character [expected (,got "[ TIFR0]]

که وقتی روش دو بار کلیک می کنم میره روی config hitag = 64 ...