سلام دوستان
میخوام 2 میکرو رو با ارتباط سریال با max232 به هم متصل کنم. اما متاسفانه کار نمی کنه.
ممنون میشم کمکم کنین.
یکی از میکروها ATMEGA128 با اسیلاتور 8مگ است و دیگری ATMEGA8 با کریستال 8مگ است، کارکرد میکروها درسته و فقط ارسال و دریافت درست نیست.
برنامه ها :
برنامه میکرو دیگری :
میخوام 2 میکرو رو با ارتباط سریال با max232 به هم متصل کنم. اما متاسفانه کار نمی کنه.
ممنون میشم کمکم کنین.
یکی از میکروها ATMEGA128 با اسیلاتور 8مگ است و دیگری ATMEGA8 با کریستال 8مگ است، کارکرد میکروها درسته و فقط ارسال و دریافت درست نیست.
برنامه ها :
$crystal = 8000000
regfile = "m8def.dat$
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Config Serialout = Buffered , Size = 20
Config Serialin = Buffered , Size = 20
$baud = 4800
Dim B As Byte , S As Single
Enable Interrupts
Do
Cls
B = Waitkey()
S = B / 2.048
Lcd S
Waitms 100
Loop
End
regfile = "m8def.dat$
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Config Serialout = Buffered , Size = 20
Config Serialin = Buffered , Size = 20
$baud = 4800
Dim B As Byte , S As Single
Enable Interrupts
Do
Cls
B = Waitkey()
S = B / 2.048
Lcd S
Waitms 100
Loop
End
برنامه میکرو دیگری :
$regfile = "m128def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Config Lcd = 20 * 2
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Serialout = Buffered , Size = 20
Config Serialin = Buffered , Size = 20
$baud = 4800
Config Timer1 = Timer , Prescale = 256
Enable Interrupts
Do
cls
Ad2 = Getadc(0)
Asn2 = Ad2 / 2.048
Lcd Asn2
Print Ad0
Wait 1
Loop
End
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Config Lcd = 20 * 2
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Serialout = Buffered , Size = 20
Config Serialin = Buffered , Size = 20
$baud = 4800
Config Timer1 = Timer , Prescale = 256
Enable Interrupts
Do
cls
Ad2 = Getadc(0)
Asn2 = Ad2 / 2.048
Lcd Asn2
Print Ad0
Wait 1
Loop
End
دیدگاه