تابلو روان با LCD 16*2

[رسول]

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

[t3r!p3000]

مهندس سرعت با این کم و زیاد می شه :

کد php:

For Z = 0 To 4000 


خوب به جای 4000 یه عدد بالاتر بذار تا سرعت بیاد پایین تر !
مثلا 10000

[رسول]

سلام
من می خواستم دستورزیر را

کد php:

اگرpinb.0=1 آنگاه portb.1=1 باشد وهمینطورهم باقی بماند
که فکرمی کنم اینطورنوشته شود:
if pinb.0=1 then
portb.1=1
wait 1 


به برنامه زیر اضافه کنم

کد php:

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

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2 : Cursor Off : Cls

Ddrd = 0 : Portd = 3

Dim Ss As String * 255 , S As String * 16
Dim B As Byte , C As Byte , A As Byte
Dim F As Integer , Z As Word

Ss = "www.iranled.com"
Home : Lcd "COUNTER = " ; F ; "      "

'===============================================================================?

Do

   B = Len(ss)

   If B < 17 Then :

      For A = 16 To 1 Step -1
         S = Mid(ss , A , 1 ) : Locate 2 , A : Lcd S
         Gosub Get_sw
      Next

      Gosub Get_sw : Gosub Get_sw

      For A = 1 To 16
         Locate 2 , A : Lcd " "
         Gosub Get_sw
      Next

      Gosub Get_sw : Gosub Get_sw

   Else :

      S = Left(ss , 16)

      For A = 15 To 1 Step -1
         Locate 2 , A : Lcd S
         Gosub Get_sw
      Next

      C = B - 16

      For A = 2 To C
         S = Mid(ss , A , 16 ) : Locate 2 , 1 : Lcd S
         Gosub Get_sw
      Next

      For A = 16 To 1 Step -1
         S = Right(ss , A) : Locate 2 , 1 : Lcd S ; " "
         Gosub Get_sw
      Next

      Locate 2 , 1 : Lcd " " : Gosub Get_sw : Gosub Get_sw

   End If

Loop

'===============================================================================

Get_sw:

   For Z = 0 To 10100
      Debounce Pind.0 , 0 , Incr_f , Gosub
      Debounce Pind.1 , 0 , Decr_f , Gosub
   Next

Return

Incr_f:
   Incr F : Home : Lcd "COUNTER = " ; F ; "      "
Return

Decr_f:
   Decr F : Home : Lcd "COUNTER = " ; F ; "      "
Return 


لطفا راهنمایی کنید که کجابزارم که هم خودش اجرا شود وهم دربرنامه اصلی مشکل ایجاد نکند؟
ممنون

[رسول]

لطفا کمک کنید!

[t3r!p3000]

مهندس تو هر حلقه for باید این دستور رو وارد کنی !

می تونی یه تابع تعریف کنی و هر بار تو هر حلقه اونو فراخوانی کنی !



در ضمن نقل قول دو تا سمت چپ تر رو انتخاب کن تا اینوطری دیده بشه :

   

[sajjad85]

با سلام
تابلو روانی با ال سی دی ساختم ولی هیچ چیزی به غیر از مستطیلهای ال سی دی نشون نمی ده مشکل از کجاست

[رسول]

sajjad85 عزیز به ایرانویج خیلی خوش اومدی

بین پایه های 1 و 3 lcd یدونه پتانسیومتر 5 کیلو اهمی بذار ... همچنین پایه 1 رو به منفی هم وصل کن

[t3r!p3000]

sajjad85 عزیز وقتی اینو نشون می ده یعنی هیچ دیتایی به ال سی دی ارسال نشده !

ایا پایه ها رو درست به میکرو وصل کردی !

اگه به پورت سی وصل کردی آیا جی تگ رو غیر فعال کردی !!!؟


این تایپیک رو هم ببین :

http://www.iranled.com/forum/showthread.php?tid=15727

[حسين سوري]

سلام.برايlcdگرافيكي باmicro conroller atmega32نيازمند پرو‍‍ژه ام با زبانc

[رسول]

سلام.برايlcdگرافيكي باmicro conroller atmega32نيازمند پرو‍‍ژه ام با زبانc

سلام

ممنون از اینکه ایرانویج رو انتخاب کردین ....

دوست عزیز شما باید توضیح کامل درباره سوالتون بدین تا دوستان خبره در این زمینه بتونن کمکتون کنن

----------------------------------------------------
هرچه صبر بیشتر , دقت و موفقیت بیشتر (فارلو)

[محمد _حسن]

سلام من تاره عضو سايت شدم ميخوام بدونم دستوري معادل lenوmid در codevision داريم؟ممنون ميشم جواب بدين