مشکل با LCD 4*20

[آقای دکتر]

سلام
دوستان من ی برنامه برای دماسنج نوشتم . Lcd که دارم استفاده میکنم 4*20 هست .در 4 سطر ؛؛ دما رو نمایش میدم .ولی مشکلی که داره اینکه دمایی رو که مثلا در سطر سوم نمایش میدم در سطر اول هم نشونش میده و باعث اختلال در نمایش دما در سطر اول میشه .یعنی اینکه دمای که در یکی از سطر ها نشونش میدم در یه سطر دیگه هم نشونش میده .ممنون میشم دراین زمینه همکاری بفرماید .ضمن اینکه برنامه در پرتئوس بدون هیچ مشکلی کار میکنه ولی در عمل به مشکل برخوردم .متشکرم ./
قسمتی از برنامه مورد نظر پیوست میشود ./


http://s5.picofile.com/file/8103689084/TE.rar.html

[آقای دکتر]

پاسخ : مشکل با LCD 4*20

سلام
دوستان من ی برنامه برای دماسنج نوشتم . Lcd که دارم استفاده میکنم 4*20 هست .در 4 سطر ؛؛ دما رو نمایش میدم .ولی مشکلی که داره اینکه دمایی رو که مثلا در سطر سوم نمایش میدم در سطر اول هم نشونش میده و باعث اختلال در نمایش دما در سطر اول میشه .یعنی اینکه دمای که در یکی از سطر ها نشونش میدم در یه سطر دیگه هم نشونش میده .ممنون میشم دراین زمینه همکاری بفرماید .ضمن اینکه برنامه در پرتئوس بدون هیچ مشکلی کار میکنه ولی در عمل به مشکل برخوردم .متشکرم ./
قسمتی از برنامه مورد نظر پیوست میشود ./


http://s5.picofile.com/file/8103689084/TE.rar.html

دوستان کسی نظری نداره ؟

[آقای دکتر]

پاسخ : مشکل با LCD 4*20

سلام
دوستان در این فایل که همراه با شبیه سازی در پرتئوس هست مشکل رو می بینید
http://s5.picofile.com/file/8103779176/HEUM.rar.html

[mahdi421]

پاسخ : مشکل با LCD 4*20

سلام

زیر برنامتون مشکل داره این بجاش کپی کنید

'=======================ROTOBAT==============================
Cal:

Waitms 100

Select Case Tl
  'Lcd "CA:"

  Case 10 To 14:

    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "

  Case 15 To 19:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "


  Case 20 To 24:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "

  Case 25 To 30:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "


  Case 31 To 35:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "

  Case 36 To 40:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "



End Select

Return

[آقای دکتر]

پاسخ : مشکل با LCD 4*20

سلام

زیر برنامتون مشکل داره این بجاش کپی کنید

'=======================ROTOBAT==============================
Cal:

Waitms 100

Select Case Tl
  'Lcd "CA:"

  Case 10 To 14:

    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "

  Case 15 To 19:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "


  Case 20 To 24:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "

  Case 25 To 30:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "


  Case 31 To 35:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "

  Case 36 To 40:
    H = Tl - Th
    M = H * 10
    Q = M + 100
    W1 = Fusing(q , "#.#")
    Locate 1 , 1
    Lcd "CA:" ; W1 ; "%     "



End Select

Return

سلام
دوست عزیز واقعا ممنونم .خیلی زحمت کشیدید .مشکل برطرف شد .بازم تشکر :applause: