سلام
من یه پروژه دارم که در اون باید توسط یک کی پد 3*4 داده (اعداد روی کی پد)رو به میکرو بدیم و بعد میکرو اعداد رو توسط سنسور مادون قرمز ارسال بکنه و در گیرنده توسط TSOP1238 اطلاعات دریافت بشه و روی lcd نشون بده
برنامه رو توسط help bascom avr نوشتم.داخل پروتئوس شبیه سازی کردم و با یک سیم پایه فرستنده رو به پایه گیرنده وصل کردم اما جواب نداد
آیا اصولا این کار درسته ؟منظورم باسیم وصل کردن داخل پروتئوس هستش.
لطفا یه نگاهی به برنامه بیاندازید و اشکالاتش رو بگید
ممنون میشم راهنمایی کنید
فرستنده:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcdbus = 4
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2
Config Kbd = Porta , Debounce = 50 , Delay = 50
Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 0
Togbit = 0
Address = 12
Do
Command = Getkbd()
If Command < 16 Then
Cls
Lcd Command
Waitms 300
Rc5send Togbit , Address , Command
End If
Loop
End
وگیرنده:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"
Config Lcdpin = Pin , Db7 = Porta.7 , Db6 = Porta.6 , Db5 = Porta.5 , Db4 = Porta.4 , E = Porta.3 , Rs = Porta.2
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Rc5 = Pinb.0
Enable Interrupts
Dim Address As Byte , Command As Byte
Do
Getrc5(address , Command)
If Address = 12 Then
Command = Command
Lcd "code is:" ; Command
End If
Loop
End
من یه پروژه دارم که در اون باید توسط یک کی پد 3*4 داده (اعداد روی کی پد)رو به میکرو بدیم و بعد میکرو اعداد رو توسط سنسور مادون قرمز ارسال بکنه و در گیرنده توسط TSOP1238 اطلاعات دریافت بشه و روی lcd نشون بده
برنامه رو توسط help bascom avr نوشتم.داخل پروتئوس شبیه سازی کردم و با یک سیم پایه فرستنده رو به پایه گیرنده وصل کردم اما جواب نداد
آیا اصولا این کار درسته ؟منظورم باسیم وصل کردن داخل پروتئوس هستش.
لطفا یه نگاهی به برنامه بیاندازید و اشکالاتش رو بگید
ممنون میشم راهنمایی کنید
فرستنده:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcdbus = 4
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2
Config Kbd = Porta , Debounce = 50 , Delay = 50
Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 0
Togbit = 0
Address = 12
Do
Command = Getkbd()
If Command < 16 Then
Cls
Lcd Command
Waitms 300
Rc5send Togbit , Address , Command
End If
Loop
End
وگیرنده:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"
Config Lcdpin = Pin , Db7 = Porta.7 , Db6 = Porta.6 , Db5 = Porta.5 , Db4 = Porta.4 , E = Porta.3 , Rs = Porta.2
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Rc5 = Pinb.0
Enable Interrupts
Dim Address As Byte , Command As Byte
Do
Getrc5(address , Command)
If Address = 12 Then
Command = Command
Lcd "code is:" ; Command
End If
Loop
End
دیدگاه