با سلام
من در پروژه خودم تو قسمت برنامه نویسیش موندم چون روی بسکام تسلط کافی ندام لطفا در مورد این مساله کمکم کنید
من میخام با استفاده از ماژول بلوتوث hc05 چند وسیله رو روشن و خاموش کنم اما در برنامه گوشی به علت محدود بودن شستی ها میخاهم با فرستادن حرف A پورت b0 رو فعال و دوباره با فرستادن همان حرف A پورت b0 رو غیر فعال شود برنامه ای هم خودم نوشتم اما ارور میده و نمیدونم علت ارورش چیه برنامه به این صورته
$regfile = "M8adef.dat"
$crystal = 8000000
$baud = 9600
Dim A As String * 2
Enable Interrupts
Enable Urxc
Enable Utxc
Config Portd = Output
Config Portb = Output
Do
A = Inkey()
A = "A" And Portb.0 = 0
Set Portb.0
Print "on"
A = "A" And Portb.0 = 1
Reset Portb.0
Print "1"
لطفا راهنمایی کنید
من در پروژه خودم تو قسمت برنامه نویسیش موندم چون روی بسکام تسلط کافی ندام لطفا در مورد این مساله کمکم کنید
من میخام با استفاده از ماژول بلوتوث hc05 چند وسیله رو روشن و خاموش کنم اما در برنامه گوشی به علت محدود بودن شستی ها میخاهم با فرستادن حرف A پورت b0 رو فعال و دوباره با فرستادن همان حرف A پورت b0 رو غیر فعال شود برنامه ای هم خودم نوشتم اما ارور میده و نمیدونم علت ارورش چیه برنامه به این صورته
$regfile = "M8adef.dat"
$crystal = 8000000
$baud = 9600
Dim A As String * 2
Enable Interrupts
Enable Urxc
Enable Utxc
Config Portd = Output
Config Portb = Output
Do
A = Inkey()
A = "A" And Portb.0 = 0
Set Portb.0
Print "on"
A = "A" And Portb.0 = 1
Reset Portb.0
Print "1"
لطفا راهنمایی کنید
دیدگاه