سلام
من یه ماژولو راه انداختم و قشنگ کار میکنه حالا خودم برای راه اندازی 4 تا دچار مشکل شدم
نمیدونم i2c استفاده کنم یا سریال ،البته سریال که بهتره ولی ما یه سریال که بیشتر نداریم
نظر شما بچه ها من از سریال مجازی استفاده کنم یا نه؟
اگه کسی میتونه این سورسو برای 4 تا تغییر بده خیلی ثواب میکنه
تو آدرس دهی دچار مشکل شدم
این سورس کامل برای یه ماژوله
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2
Dim A As Byte
Dim B As Byte
Dim C As Word
Enable Interrupts
Cursor Off
Cls
Do
Printbin 0
Waitms 50
Printbin 84
A = Waitkey()
B = Waitkey()
C = A * 256
C = C + B
Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "
End If
Loop
End
من یه ماژولو راه انداختم و قشنگ کار میکنه حالا خودم برای راه اندازی 4 تا دچار مشکل شدم
نمیدونم i2c استفاده کنم یا سریال ،البته سریال که بهتره ولی ما یه سریال که بیشتر نداریم
نظر شما بچه ها من از سریال مجازی استفاده کنم یا نه؟
اگه کسی میتونه این سورسو برای 4 تا تغییر بده خیلی ثواب میکنه
تو آدرس دهی دچار مشکل شدم
این سورس کامل برای یه ماژوله
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2
Dim A As Byte
Dim B As Byte
Dim C As Word
Enable Interrupts
Cursor Off
Cls
Do
Printbin 0
Waitms 50
Printbin 84
A = Waitkey()
B = Waitkey()
C = A * 256
C = C + B
Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "
End If
Loop
End
دیدگاه