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

[t3r!p3000]

مهندس یه ایراد خیلی کوچولو داشتین !

درستش کردم :

کد php:

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

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

Ddrd = 0 : Portd = 255
Ddrb = 0 : Portb = 255

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 = "happy birthday to you i wish you will be happy - www.forum.iranled.com - A.N.T"
Home : Lcd 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 4000
      Debounce Pind.0 , 0 , Cold_f , Gosub
      Debounce Pind.1 , 0 , Heat_f , Gosub
      Debounce Pind.7 , 0 , Rain_f , Gosub
      Debounce Pinb.0 , 0 , Wind_f , Gosub
   Next

Return

Cold_f:
   Incr F : Home : Lcd "cold = " ; F ; "      "
Return

Heat_f:
   Decr F : Home : Lcd "heat = " ; F ; "      "
Return
Rain_f:
   Decr F : Home : Lcd "rain = " ; F ; "      "
Return
Wind_f:
   Decr F : Home : Lcd "wind = " ; F ; "      "
Return 


ایرادشو هم بهت نمی گم تا خودت پیداش کنی و بهم بگی !!

الان از پول آپ داخلی میکرو استفاده شده و هیچی لازم نیست بذاری !
فقط کلید ها رو وصل کن بین پایه میکرو و زمین !!!