مشکل LCD با Mega8

[nesarian]

با سلام خدمت دوستان عزیز :job:
مشکل در اجرای برنامه در Mega8 و نمایش درLCD
وقتی تغذیه وصل میشه سطر اول وسوم روشن هستن مشکل کجاست حتی یک کارکتر معمولی
ممون
با تشکر فراوان

[ali16231]

پاسخ : مشکل LCD با Mega8

ممکنه از نویز باشه.

[Iran-PC]

پاسخ : مشکل LCD با Mega8

مشکل در init شدن lcd هست.
برنامه و شماتیکتون رو بگذارید.

[nesarian]

پاسخ : مشکل LCD با Mega8

با سلام خدمت دوستان عزیز
این کد برنامه
$regfile = "m8def.dat"
$crystal = 1000000
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , _
E = Portd.3 , Rs = Portd.2
Dim Name3 As String * 16 , A As Integer , I As Byte , N As Byte , Name1 As String * 1 , Name2 As String * 16 , J As Byte
Dim S As String * 10
Dim S2 As String * 1
Dim X As Byte
S = "Design By:"
N = 1
Cls
Cursor Off
Name3 = "Saeed Nesarian"
A = Len(name3)
Name2 = " "
For I = 1 To A
Name1 = Mid(name3 , N , 1)
If Name1 <> " " Then
For J = 16 To N Step -1
Cls
Locate 1 , 1
Lcd Name2
Locate 1 , J
Lcd Name1
Waitms 150
Next
End If
Name2 = Mid(name3 , 1 , I)
Incr N
Next
For X = 1 To 10
S2 = Mid(s , X , 1 )
Locate 2 , 1
Lcd S
Waitms 500
Next X
End 'end program
با تشکر فراوان

[nesarian]

پاسخ : مشکل LCD با Mega8

مشکل حل شد