کمک برای ساخت ماژول سریال LCD های کاراکتری

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

مرسی دوست خوبم.تست میکنم خبرشو میدم

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

آقا عباس میشه یه لطفی کنی کد hex رو برام بزاری؟؟من هر کاری کردم نتونستم کد هگز رو بگیرم با کدویژن کار نکردم.ممنون
بعد این فیوز بیت ها رو چطوری تنظیم کنم؟؟
از کریستال 11.059200 MHz استفاده کنم؟؟

[Abbas Sarami]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

http://uplod.ir/tsi0y7m37ket/LCD.hex.htm

CKSEL 0~3 =1111
SUT = 11

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

آقا عباس متاسفانه جواب نداد
حالا کد بیسیکی رو که تغییر دادم یه نگاه بنداز ببین مشکلی نداره
ممنون

Include "modedefs.bas"                   ' Include serial modes

Trisa = %00000000                      ' set porta to outputs
Trisb = %00001000                      ' set portb pin 3 to input

Lcd Var Porta.3                       ' define variables and constants
Piezo Var Portb.4
Trigger Var Portb.2
Echo Var Portb.3
Left_led Var Portb.0
Right_led Var Portb.1
Baud Con T9600
Dist_raw Var Word
Dist_inch Var Word
Dist_cm Var Word
Conv_inch Con 15
Conv_cm Con 6

Low Trigger                         ' set trigger pin to logic 0
Low Left_led                        ' turn off left LED
Low Right_led                        ' turn off right LED

Serout Lcd , Baud , [254 , 1]                ' clear lcd screen

Pause 100                          ' give time to initialize lcd

Serout Lcd , Baud , [254 , 128 , "- Sonar Ranger -"]    ' display program title on the LCD

Sound Piezo , [100 , 10 , 50 , 5 , 70 , 10 , 50 , 2]    ' Make startup sound

Pause 100                          ' wait for 1 second

Serout Lcd , Baud , [254 , 128 , "inches:     "]    ' set up the LCD display

Serout Lcd , Baud , [254 , 192 , "centimeters:  "]

Main:

   Gosub Sr_sonar                     ' get sonar reading

   Serout Lcd , Baud , [241 , 0 , #dist_inch , 242]    ' display the distance in inches

   Serout Lcd , Baud , [241 , 1 , #dist_cm , 242]     ' display the distance in centimeters

Goto Main

End

Sr_sonar:

     Pulsout Trigger , 1                ' send a 10us trigger pulse to the SRF04
     Pulsin Echo , 1 , Dist_raw             ' start timing the pulse width on echo pin
     Dist_inch =(dist_raw / Conv_inch)         ' Convert raw data into inches
     Dist_cm =(dist_raw / Conv_cm)           ' Convert raw data into centimeters
     Pause 1                      ' wait for 10us before returning to main

Return

[Abbas Sarami]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

توی پروتئوس تست کردی؟
فایل هگز همین برنامه را بذار
با کدوم کامپایلر کامپایل کردی؟ PIC Basic Pro
چیپت چیه؟

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

اره توی پروتئوس تست کردم
با pic basic
میگم این برنامه ای که الان تغییر دادم کامل درسته؟؟؟
اگر برنامه ای که تغییر دادم مشکل نداره تا مدارو ببندم شاید تو پروتئوس جواب نده.
نظرت چیه؟؟

[Abbas Sarami]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

فایل هگز را پلود کن ، من کامپایلرش را ندارم
چیپ PIC چیه؟ 16F84؟

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

اره داداش pic16f84a هستش
بزار یه نسخه دیگه از pic basic رو دانلود کنم ازش خروجی بگیرم تست کنم.
هگزش هم برات پلود میکنم.

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکت&#15

اقا عباس برنامه بیسیک رو که تغییر دادی توی پروتئوس جواب داد.
فقط خروجی سریال رو میدم به میکرو اتمگا 8 خروجی نداریم.
توی پروتئوس ال سی دی سریال که میزنم با این کد هگز درسته
http://uplod.ir/xj2jtwb95guk/sonar-ranger.HEX.htm

اینم عکسش تو پروتئوس



(میکرو pic16f84a با فرکانس خارجی 4مگ)

[Abbas Sarami]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکت

این فایل هگز را برای مگا8 استفاده کن ، قبلی یک مشکل کوچیک داشت :mrgreen:
p.hex - 2 KB
--------------------------------------
و برای PIC از برنامه زیر:

Include "modedefs.bas"                   ' Include serial modes

Trisa = %00000000                      ' set porta to outputs
Trisb = %00001000                      ' set portb pin 3 to input

Lcd Var Porta.3                       ' define variables and constants
Piezo Var Portb.4
Trigger Var Portb.2
Echo Var Portb.3
Left_led Var Portb.0
Right_led Var Portb.1
Baud Con T9600
Dist_raw Var Word
Dist_inch Var Word
Dist_cm Var Word
Conv_inch Con 15
Conv_cm Con 6

Low Trigger                         ' set trigger pin to logic 0
Low Left_led                        ' turn off left LED
Low Right_led                        ' turn off right LED

Serout Lcd , Baud , [241 , 12 , 242]                ' clear lcd screen

Pause 100                          ' give time to initialize lcd

Serout Lcd , Baud , [241 , 0, "- Sonar Ranger -",242]    ' display program title on the LCD

Sound Piezo , [100 , 10 , 50 , 5 , 70 , 10 , 50 , 2]    ' Make startup sound

Pause 100                          ' wait for 1 second

Serout Lcd , Baud , [241 , 0, "inches:     " ,242]    ' set up the LCD display
Pause 50
Serout Lcd , Baud , [241 , 1, "centimeters:  " ,242]
Pause 1000
Main:

   Gosub Sr_sonar                     ' get sonar reading
Pause 20
   Serout Lcd , Baud , [241 ,128 , #dist_inch , 242]    ' display the distance in inches
Pause 20
   Serout Lcd , Baud , [241 , 209 , #dist_cm , 242]     ' display the distance in centimeters

Goto Main

End

Sr_sonar:

     Pulsout Trigger , 1                ' send a 10us trigger pulse to the SRF04
     Pulsin Echo , 1 , Dist_raw             ' start timing the pulse width on echo pin
     Dist_inch =(dist_raw / Conv_inch)         ' Convert raw data into inches
     Dist_cm =(dist_raw / Conv_cm)           ' Convert raw data into centimeters
     Pause 1                      ' wait for 10us before returning to main

Return

برای اتصال LCD :

RS - PORTB Bit 0
RD - PORTB Bit 1
EN - PORTB Bit 2
D4 - PORTC Bit 0
D5 - PORTC Bit 1
D6 - PORTC Bit 2
D7 - PORTC Bit 3

تست کن، حتماً جواب میده :agree:

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

مرسی داداش.خدایی خیلی زحمت کشیدی.تو پروتئوس جواب میده؟؟؟
حتما باید کریستالش 11.059200 باشه؟؟

[Abbas Sarami]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکت&#15

من با همون فایل هگز PIC که خودت گذاشتی و همین فایل هگز AVR که در پست قبلی گذاشتم تستش کردم جواب داد (توی پروتئوس)

حتما باید کریستالش 11.059200 باشه؟؟

بله
برای پروگرام فیوز بیت هم قبلاً گفتم:

CKSEL 0~3 =1111
SUT = 11

موفق باشید

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

مرسی داداشم.میگم فیوز بیت مگا 8 رو چطوری میزاری تو پروتئوس؟؟؟
من میزارم جواب نمیده
تو قسمت advance properties روبروش فرکانسو میزاری.بعد کریستالم باید بزاری یا همین کافیه؟؟؟
میزارم جواب میده مدار ولی کاراکتراش قاطیه.حالا فردا مدارو میبندم عملی تست میکنم.
مرسی داداش

[Abbas Sarami]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

میگم فیوز بیت مگا 8 رو چطوری میزاری تو پروتئوس؟؟؟

... کریستالم باید بزاری یا همین کافیه؟؟؟

خیر ؛ در شماتیک نیازی به رسم و قرار دادن کریستال نیست.

موفق باشید

[hamed.asadi]

پاسخ : کمک برای ساخت ماژول سریال LCD های کاراکتری

:applause: :applause:
مرسی.کارت درسته.ممنون
توی پروتئوس عالی کار کرد.
فقط توی کدویژن کدوم گزینه ها رو تیک بزنم؟؟؟

باید CKSEL 0~3 رو تیک بزنم و SUT0=0 و SUT0=1 رو هم تیک بزنم؟؟
به این صورت؟؟

و اگه خوده برنامه رو داری برام بزاری ممنون میشم
داداش خیلی ممنون کارمو راه انداختی خدا خیرت بده.
ایشالا تو عروسیت با Avr آب بیارم :applause: :applause: :biggrin: