۱۰-خرداد-۱۳۹۰, ۰۴:۲۳:۵۹
صفحه‌ها: 1 2
۰۶-مهر-۱۳۹۰, ۱۰:۱۹:۳۲
۰۶-مهر-۱۳۹۰, ۱۱:۰۴:۲۰
۰۶-مرداد-۱۳۹۱, ۱۸:۰۷:۰۸
۲۱-شهریور-۱۳۹۱, ۰۰:۴۰:۳۶
۲۱-شهریور-۱۳۹۱, ۰۰:۵۸:۱۱
۲۱-شهریور-۱۳۹۱, ۰۱:۳۷:۰۰
(۲۱-شهریور-۱۳۹۱, ۰۰:۵۸:۱۱)abbasalifix نوشته است: [ -> ]مقدار کریستال رو درست دادین؟ فیوزبیت هارو تنظیم کردین؟
سیم هایی که به ال سی دی وصل میشه رو یه بار دیگه چک کردین؟
این فرمان روهم به برنامه اضافه کنید قبل از کانفیگ پایه های ال سی دی config lcd=16*2
به نوشته اقای خوانین زاده دقت کردین؟
آره همه این کارارو کردم ، فیوز بیت رو رو 0100 گذاشتم و روی lcd مطالبی رو که می خوام رو درست مینویسه و پایه 6 ماژول رو به 5+ولت و خروجی رو از پایه 7 به 13 مکس232 زدم و از 12مکس232 به 14 مگا16
و اینم برنامه
کد php:
$regfile = "m16def.dat"
$crystal = 11059800
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Porta.5 , Rs = Porta.6
Config Lcd = 16 * 2
Cursor Off
Config Portb.0 = Output
Dim Code As String * 10
Dim C(12) As String * 1
Dim E As Byte
Dim P As Byte
Cls
Home : Lcd "EM_18" : Wait 2 : Cls
Portb.0 = 1
Do
Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next
E = 0
P = 0
Locate 1 , 1 : Lcd Code
Loop
End 'end program
۲۱-شهریور-۱۳۹۱, ۰۸:۰۵:۳۶
۲۱-شهریور-۱۳۹۱, ۰۸:۴۸:۴۶
۲۸-آذر-۱۳۹۱, ۰۰:۵۵:۳۷
۲۸-آذر-۱۳۹۱, ۲۰:۳۸:۲۵
صفحه‌ها: 1 2