راه اندازی lcd گرافیکی در بسکام

ak83

سلام مهندس من پژوهشگر هستم تازه وارد ای وی ار شدم راستش یه پروژه دارم که برا تعریف lcd اون مشکل دارم برنامه را نوشتم و توی پرتیوس راحت لود میشه ولی من یک lcd گرافیکی ts12864a 2 گرفتم ولی ظاهرا پین هاش با هم فرق می کنه اینم کدمه لطف کنی اگه میشه برام اصلاح کنید

SoS

برای شما لینک دانلود دیتا شیت این LCD را قرار دادم. اگر با آکروبات ریدر ورژن بالا این دیتا شیت را باز کنید توضیحات لازم جهت برنامه ریزی در بسکام نیز بر روی جدول مربوط به پین ها بصورت فارسی قرار داده شده است.
http://mohpooria.110mb.com/Ebook/TS12864A-2_en.pdf

ak83

مهندس خسته نباشید هواسی هستم خیلی به این پروژه نیاز دارم لطفا کمک کنید

ak83

ممنون مهندس من دقیقا این کارها را انجام دادم اما جواب نمیده در ضمن این
esd که پشت سر 128×64 می نویسند چیه

ak83

درضمن لطف کنید یه نگاهی به برنامه یندازید ببیند آیا اشکالی داره
با تشکر راستش این پروژه برام حیاتیه

SoS

برنامه ظاهرا درسته اما شاید مدارتون بخصوص در سیم بندی LCD دارای اشکال هست.

meysamhl

من يه ال سي دي سري سد دارم كه راه اندازي شده مثلا مي تونم دايره يا مربع بكشم يا خط...... ولي نمي تونم متني روي ال سي دي بنويسم يعني وقتي متن مي نويسم صفحه كاملا سياه ميشه مثال زير و ببينيد:

SoS

دستور زیر را استفاده کنید :

ak83

$lib "glcdKS108.lib"
Config Graphlcd = 128 * 64sed , Dataport = Porte , Controlport = Portf , Cd = 0 , Rd = 1 , Enable = 2 , Ce = 3 , Ce2 = 4 , Reset = 5
این کد چه فرقی داره
اون بالا libچیه

ak83

سلام مهندس مجبور شدم مانیتورم را تعقیر بدم برای همین هم بیشتر
کدهامواز جمله پروگرامر عوض کردم وعکس ها رو حذف کردم
این هم کد جدیدمه لطف کنی چک کنید اونو چک کنین ببینی مشکل از کجاست

$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Lcd = 16 * 2
Config Porta = Input
Config Portb = Output
Config Pinc.0 = Output
Config Portc.3 = Output
Config Portc.1 = Input

Res Alias Pina.7
M_key Alias Pina.5
H_key Alias Pina.4
Dd_key Alias Pina.3
Mm_key Alias Pina.2
Yy_key Alias Pina.1
Shift_ Alias Pina.0
_info Alias Pinc.2
Led Alias Portc.3 'cheragh signal'
Sw Alias Pinc.1 'kelid dasti'
Rel Alias Portc.0

Dim A As Word
Dim B As Single

Dim Z As Word
Dim C As Byte
Dim Temp As Byte
Dim Total_use As Single
Dim Water_used_week As Word
Dim Water_used_day As Word
Dim Unusual_use As Bit
Dim Wuk As Single
Dim Tu As Single
Dim Wuk2 As String * 5
Dim Tu2 As String * 5
Dim Week As Byte
Dim W As Single
Dim D As Single

Dim Week_mean As Single
Dim Day_mean As Single

Dim S As Byte
Dim M As Byte
Dim H As Byte
Dim Dd As Byte
Dim Mm As Byte
Dim Yy As Word

Cursor Off

Lcd "sallam"

Wait 2

Cls

Lcd "abfar ilam"

Wait 2

Cls

Lcd "kontor ab"

Wait 2

Cls

Lcd "hoshmand"

Wait 2

Cls

Config Timer0 = Timer , Prescale = 1024

Config Timer1 = Counter , Edge = Rising

Config Timer2 = Counter , Edge = Rising

Enable Interrupts
Enable Timer0
Enable Timer1
Enable Timer2
On Ovf0 S1
Start Timer0

S = 0
M = 17
H = 11
Yy = 88
Mm = 7
Dd = 10

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

Do

Cls

Wuk = Water_used_week / 1000

Wuk2 = Fusing(wuk , "#.###")

Tu = Total_use / 1000

Tu2 = Fusing(tu , "#.###")

Locate 1 , 1
Lcd "week use: " ; Wuk2

Locate 2 , 1
Lcd "Total : " ; Tu2

Line(0 , 45) -(127 , 45) , 255

Locate 1 , 1
Lcd H ; ":" ; M ; ":" ; S

Locate 2 , 1
Lcd Yy ; "/" ; Mm ; "/" ; Dd

Waitms 2

Water_used_day = Counter2 * 20

A = Counter1
A = A * 20
Water_used_week = A

Total_use = C + A

If S > 59 Then
S = 0
Incr M
End If

If M > 59 Then
M = 0
Incr H
End If

If H > 23 Then
H = 0
Counter2 = 0
Incr Dd
Incr D

If D > 7 Then

C = Total_use

Counter1 = 0

D = 1

If Water_used_week > 4200 Then
Unusual_use = 1
Else
Unusual_use = 0
End If
Water_used_week = 0
End If

End If

If Dd > 31 Then
Incr Mm
Dd = 1
End If

If Mm > 12 Then
Incr Yy
Mm = 1
End If

If H_key = 1 Then
If Shift_ = 0 Then
Incr H
Bitwait H_key , Reset

Else
Decr H
Bitwait H_key , Reset
End If
End If

If M_key = 1 Then
If Shift_ = 0 Then
Incr M
Bitwait M_key , Reset
Else
Decr M
Bitwait M_key , Reset
End If
End If

If Yy_key = 1 Then
If Shift_ = 0 Then
Incr Yy
Bitwait Yy_key , Reset
Else
Decr Yy
Bitwait Yy_key , Reset
End If
End If

If Mm_key = 1 Then
If Shift_ = 0 Then
Incr Mm
Bitwait Mm_key , Reset
Else
Decr Mm
Bitwait Mm_key , Reset
End If
End If

If Dd_key = 1 Then
If Shift_ = 0 Then
Incr Dd
Bitwait Dd_key , Reset
Else
Decr Dd
Bitwait Dd_key , Reset
End If
End If

If H = 10 And Unusual_use = 1 Then
Set Rel
Else
Reset Rel
End If

If Res = 1 Then
Total_use = 0
C = 0
Counter1 = 0
End If

If Water_used_day > 590 Then 'warning led

Toggle Led

Else

Led = 0
End If

If _info = 1 Then

Waitms 20

If _info = 1 Then

Cls

Lcd "ayob"

Wait 2

Cls

Lcd "taimori"

Wait 2

Cls

Lcd "bairanvand"

Wait 2

Cls

End If
End If

If Sw = 1 Then
Rel = 1
Else
Rel = 0
End If

Loop

End 'end program

'*******************************************************************************
S1:

Z = Z + 1

If Z > 4 Then
Z = 0
Incr S

End If

Return

ak83

مهندس لطفا کمک کنید اگه امکان دار ه این کد پایینی را اصلاح کنید
Cool

meysamhl

سلام اقای مهندس
اول تشکر کنم بخاطر راهنمایی بالا ....دستور setfont 8*8 جواب داد ....
حالا می خوام تو ال سی دی گرافیکی(سری سد) فارسی بنویسم ..... تو نت گشتم .... یه چیز هایی فهمیدم .. که باید کتابخانه فراخانی کنم

چطوری ؟ لطفا یه مثال بزنید

با تشکر

[code]

ak83

ak83

سلام مهندس خوشبختانه erorانو گرفتم اما توال سی دس کاراکتری نشون نمی ده اینم کد جدیدمه

$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 , Db5 = Portb.2 , Db4 = Portb.3 , E = Portb.5 , Rs = Portb.6
Config Lcd = 16 * 2
Config Porta = Input
Config Portb = Output
Config Pinc.0 = Output
Config Portc.3 = Output
Config Portc.1 = Input

M_key Alias Pina.5
H_key Alias Pina.4
Dd_key Alias Pina.3
Mm_key Alias Pina.2
Yy_key Alias Pina.1
Shift_ Alias Pina.0
_info Alias Pinc.2
Led Alias Portc.3 'cheragh signal'
Sw Alias Pinc.1 'kelid dasti'
Rel Alias Portc.0

Toggle Pina.5
Toggle pina.4
Toggle Pina.3
Toggle Pina.2
Toggle Pina.1
Toggle Pina.0
Toggle Pinc.2
Toggle Portc.3
Toggle Pinc.1
Toggle Portc.0
Dim A As Word
Dim B As Single

Dim Z As Word
Dim C As Byte
Dim Temp As Byte
Dim Total_use As Single
Dim Water_used_week As Word
Dim Water_used_day As Word
Dim Unusual_use As Bit
Dim Wuk As Single
Dim Tu As Single
Dim Wuk2 As String * 5
Dim Tu2 As String * 5
Dim Week As Byte
Dim W As Single
Dim D As Single

Dim Week_mean As Single
Dim Day_mean As Single

Dim S As Byte
Dim M As Byte
Dim H As Byte
Dim Dd As Byte
Dim Mm As Byte
Dim Yy As Word

Lcd "sallam"

Waitms 50

Cls

Lcd "abfar ilam"

Waitms 50

Cls

Lcd "kontor ab"

Waitms 50

Cls

Lcd "hoshmand"

Waitms 50

Cls

Config Timer0 = Timer , Prescale = 1024

Config Timer1 = Counter , Edge = Rising

Config Timer2 = Counter , Edge = Rising

Enable Interrupts
Enable Timer0
Enable Timer1
Enable Timer2
On Ovf0 S1
Start Timer0

S = 0
M = 17
H = 11
Yy = 88
Mm = 7
Dd = 10

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

Do

Cls

Wuk = Water_used_week / 1000

Wuk2 = Fusing(wuk , "#.###")

Tu = Total_use / 1000

Tu2 = Fusing(tu , "#.###")

Locate 1 , 1
Lcd "WEEK USE:" ; Wuk2

Locate 2 , 1
Lcd "TOTAL :" ; Tu2
Waitms 100
Cls
Locate 1 , 1
Lcd H ; ":" ; M ; ":" ; S

Locate 2 , 1
Lcd Yy ; "/" ; Mm ; "/" ; Dd

Waitms 100
Cls

Water_used_day = Counter2 * 20

A = Counter1
A = A * 20
Water_used_week = A

Total_use = C + A

If S > 59 Then
S = 0
Incr M
End If

If M > 59 Then
M = 0
Incr H
End If

If H > 23 Then
H = 0
Counter2 = 0
Incr Dd
Incr D

If D > 7 Then

C = Total_use

Counter1 = 0

D = 1

If Water_used_week > 4200 Then
Unusual_use = 1
Else
Unusual_use = 0
End If
Water_used_week = 0
End If

End If

If Dd > 31 Then
Incr Mm
Dd = 1
End If

If Mm > 12 Then
Incr Yy
Mm = 1
End If

If H_key = 1 Then
If Shift_ = 0 Then
Incr H
Bitwait H_key , Reset

Else
Decr H
Bitwait H_key , Reset
End If
End If

If M_key = 1 Then
If Shift_ = 0 Then
Incr M
Bitwait M_key , Reset
Else
Decr M
Bitwait M_key , Reset
End If
End If

If Yy_key = 1 Then
If Shift_ = 0 Then
Incr Yy
Bitwait Yy_key , Reset
Else
Decr Yy
Bitwait Yy_key , Reset
End If
End If

If Mm_key = 1 Then
If Shift_ = 0 Then
Incr Mm
Bitwait Mm_key , Reset
Else
Decr Mm
Bitwait Mm_key , Reset
End If
End If

If Dd_key = 1 Then
If Shift_ = 0 Then
Incr Dd
Bitwait Dd_key , Reset
Else
Decr Dd
Bitwait Dd_key , Reset
End If
End If

If H = 10 And Unusual_use = 1 Then
Set Rel
Else
Reset Rel
End If

If Water_used_day > 590 Then 'warning led

Toggle Led

Else

Led = 0
End If

If _info = 1 Then

Waitms 20

If _info = 1 Then

Cls

Lcd "ayob"

Wait 2

Cls

Lcd "taimori"

Wait 2

Cls

Lcd "bairanvand"

Wait 2

Cls

End If
End If

If Sw = 1 Then
Rel = 1
Else
Rel = 0
End If

Loop

End 'end program

'*******************************************************************************
S1:

Z = Z + 1

If Z > 4 Then
Z = 0
Incr S

End If
Return

Rolling Eyes

sahar_mz

سلام میشه لطف کنید فارسی نوشتن روی ال سی دی گرافیکی رو یاد بدید ممنون میشم

	HLachini.elewiz.com صفحه اول انجمن -> AVR	زمان پيشفرض سايت: ساعت گرينويچ + 3.5 ساعت رفتن به صفحه 1, 2 بعدي
صفحه 1 از 2