با سلام و درود
من یه کد نوشتم که میکرو داده رو از طریق پورت سریال از کامپیوتر بگیره و روی پورت B نشون بده، برنامه توی پرتیوس به خوبی جواب میده ولی در عمل وقتی که دیتا ارسال میکنم همه پینها یک میشن. کد رو اینجا قرار میدم ممنون میشم راهنمایی کنید:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Config Portd = Input
Dim A As Integer
For A = 1 To 10
$asm
L:
SBIS UCSRA,7
RJMP L
$end Asm
Portb = Udr
Next A
من یه کد نوشتم که میکرو داده رو از طریق پورت سریال از کامپیوتر بگیره و روی پورت B نشون بده، برنامه توی پرتیوس به خوبی جواب میده ولی در عمل وقتی که دیتا ارسال میکنم همه پینها یک میشن. کد رو اینجا قرار میدم ممنون میشم راهنمایی کنید:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Config Portd = Input
Dim A As Integer
For A = 1 To 10
$asm
L:
SBIS UCSRA,7
RJMP L
$end Asm
Portb = Udr
Next A
دیدگاه