مشکل در استفاده از LCD

[omid_mybb1.2_import12755]

سلام.من یه میکروکنترلر atmega32 دارم که یه دونه LCD به اون وصله که 2*16 هم هست.ولی هر وقت که مدار رو بایاس میکنم به جای متنی که قراره بنویسه فقط یه خط از صفحه نمایش روشن میشه.تا حالا دو تا صفحه نمایش رو هم امتحان کردم ولی فایده نداشته.اگه کسی میدونه مشکل چیه کمک کنه.ممنون

[ha_60]

اگه فقط خط بالاي كامل روشن مي شه يعني هنوز LCD رو اينشيالايز نكردي
اگه برنامه اي كه نوشتي درسته يا مثلا از توابع خود Codevision يا Bascom استفاده كردي شايد سيم كشي ها اشتباه باشه يا اگه پورتي رو كه استفاده كرديي Jtag روشه بايد اونو غير فعال كني بگو از چه زباني استفاده كردي تا بهتر بتونم كمت كنم

[omid_mybb1.2_import12755]

از Basecom استفاده کردم

[ha_60]

خوب نبايد مشكلي داشته باشه يكي از مثالهاي خودش رو امتحان كن و روي يه پرتي هم بزار كه مطمني وسيله ديگه اي رو روي اون فعال نكردي

[omid_mybb1.2_import12755]

سلام.آقا خیلی ممنون.همون که توی پست اولتون گفتید درست بود.من صفحه نمایش رو روی پورت c قرار داده بودم که روی آن jtag فعال بود.اون رو که غیر فعال کردم درست شد.بازم ممنون

[ha_60]

خوب به سلامتي

[Blossom]

منم دو تا سوال اضافه کنم!
اگه خط پایین روشن بشه چی؟
و این که من با آو متر پایه های دو و سه رو چک کردم و به هم متصل بودن! ال سی دی رو هم نو گرفتم. مشکل از کجاست؟!

[ha_60]

خط پایین رونمی دونم اونم احتمالا همینه
و اما آو متر هم مشکل اینجاست که با اون چک می کنی :wink: اگه اهم بین ایندو پایه خیلی کم باشه در حد چند اهم احتمالا باید LCD سوخته باشه ولی اگه بیشتره چیزی نمی شه گفت باید امتحانش کنی

[Blossom]

مشکل از تعریف توی ای وی آر بود! تازه اون خط هم خط بال بود نه پایین!
پس نتیجه میگیریم که من خرابم نه ال سی دی :wink:

[ha_60]

:wink:

[etrmodern]

من با m8 می خواستم یک ساعت درست کنم اما وقتی برنامه ی زیر را روی آن پروگرام می کنم، روی LCD حروف های عجیب و غریب می نویسه ! ؟

من این مشکل رو با برنامه های دیگه ندارم !

کد:

$regfile = "m8def.dat"
$crystal = 1000000

Config Lcdpin = Pin , Db7 = Portd.0 , Db6 = Portd.1 , Db5 = Portd.2 , _
Db4 = Portd.3 , Rs = Portd.4 , E = Portd.5
Config Lcd = 16 * 2

Config Debounce = 15

Config Clock = Soft
Config Date = Ymd , Separator = /

Dim T As Byte , D As Byte
T = 0
D = 0

Enable Interrupts
Time$ = "23:59:50"
Date$ = "85/12/3"

Cursor Off
Cls
Do
  Home
  Lcd "Time: " ; Time$
  Lowerline
  Lcd "Date: " ; Date$
  Debounce Pinb.0 , 0 , Menu

  Repeat:
Loop
End                                                         'end program

'******************************************************************************


Menu:
T = 0
D = 0
Cls
Lcd "1-Time Setting"
Do
  Debounce Pinb.0 , 0 , Labeld
  Debounce Pinb.1 , 0 , Timeset
Loop

Labeld:
Cls
Lcd "2-Date Setting"
Do
  Debounce Pinb.0 , 0 , Repeat
  Debounce Pinb.1 , 0 , Dateset
Loop
'----------------------------------------
Timeset:
Cls
Incr T
Lcd "Hour: " ; _hour
Do
  Debounce Pinb.1 , 0 , Inctime , Sub
  Debounce Pinb.0 , 0 , Labelmi
Loop

Labelmi:
Cls
Incr T
Lcd "Min: " ; _min
Do
  Debounce Pinb.1 , 0 , Inctime , Sub
  Debounce Pinb.0 , 0 , Labeld
Loop

'----------------------------------------
Dateset:
Cls
Incr D
Lcd "Day: " ; _day
Do
  Debounce Pinb.1 , 0 , Incdate , Sub
  Debounce Pinb.0 , 0 , Labelmo
Loop

Labelmo:
Cls
Incr D
Lcd "Month: " ; _month
Do
  Debounce Pinb.1 , 0 , Incdate , Sub
  Debounce Pinb.0 , 0 , Labely
Loop

Labely:
Cls
Incr D
Lcd "Year: " ; _year
Do
  Debounce Pinb.1 , 0 , Incdate , Sub
  Debounce Pinb.0 , 0 , Repeat
Loop

'-------------------------------------
Inctime:
If T = 1 Then
  Incr _hour
  If _hour = 24 Then
     _hour = 0
  End If
  Cls
  Lcd "Hour: " ; _hour
Else
If T = 2 Then
  Incr _min
  If _min = 60 Then
     _min = 0
  End If
  Cls
  Lcd "Min: " ; _min
End If
End If
Return
'-------------------------------------
Incdate:
If D = 1 Then
  Incr _day
  If _day > 31 Then
    _day = 1
  End If
  Cls
  Lcd "Day: " ; _day
Else
If D = 2 Then
  Incr _month
  If _month > 12 Then
     _month = 1
  End If
  Cls
  Lcd "Month: " ; _month
Else
If D = 3 Then
  Incr _year
  If _year > 100 Then
     _year = 0
  End If
  Cls
  Lcd "Year: " ; _year
End If
End If
End If
Return