Всем привет!Помогите с такой штукой: вывожу на однострочник текст , мега подключена 4 битной шиной - пишет текст только на 8 знакоместах , с аналогичным дисплеем 16*2 нет проблем ....
кто знает как это победить ... подскажите!!!
однострочный дисплей 16*1 + atmega8
Страница: 1
Сообщений 1 страница 13 из 13
Поделиться12011-05-19 22:21:59
Поделиться22011-05-19 23:28:15
в справке почитайте
всё есть
этот ЖК - как два по 8
это надо указать компилятору через Config lcd
Поделиться32011-05-20 08:35:39
Вариант config lcd 8*2 пробовал , ругается компилятор , а вот 16*1а надо попробовать...
напишу что получится...
Спасибо!
Поделиться42011-05-20 08:37:28
читайте справку! и проблемы уйдут сами 
удачи
Поделиться52011-05-20 16:52:25
Да! Да! ДА!.. Config Lcd = 16 * 1a - это была выигрышная комбинация! работает.... но есть другая засада: делаю Shiftlcd Left и буковки в тексте при движении оного пропадают аккурат с 8 позиции... это как-то можно победить?
Всем спасибо за подсказки!
Поделиться62011-05-21 10:30:32
Это понятно , текст у меня двигается и влево и вправо , но он как бы стирается, если взять восьмое знакоместо за середину и если сдвигаем текст вправо то левая часть слова поедается на 8 позиции а правая часть слова уезжает с пробелом от середины .... вот в чем проблемм-то.... 
Поделиться72011-05-23 08:48:14
Ok! вот текст проги :
ТЕКСТЫ ПРОГРАММ ОФОРМЛЯТЬ КАК "КОД" (см. значок вверху справа) . Модератор
Код:
$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Dim A As Byte Config Lcd = 16 * 1a Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 Do Cls Cursor Off Rem Locate 1 , 2 Lcd "текст....." Wait 5 Cls Lcd "*текст.....*" Wait 5 For A = 1 To 16 Shiftlcd Left Waitms 250 Next Wait 2 Cls Rem Locate 1 , 2 Lcd "текст....." Wait 5 Cls Lcd "*текст.....*" Wait 5 For A = 1 To 16 Shiftlcd Right Waitms 250 Next Loop End
грубо говоря , когда текст начинает смещаться в право он начинает затираться на 8 позиции а от восьмой пошел пробел...
а надо чтобы текст перемещался целиком ..
Отредактировано omike (2011-05-23 08:49:42)
Поделиться82011-05-24 08:40:02
... попробовал , работает но корявенько... теряются части слова 
Поделиться92011-05-24 10:59:09
- Активный участник
- Откуда: Sochi
- Зарегистрирован: 2010-01-27
- Приглашений: 0
- Сообщений: 318
- Уважение: [+6/-0]
- Позитив: [+4/-0]
- Пол: Мужской
- Провел на форуме:
4 дня 16 часов - Последний визит:
2026-08-08 16:14:24
Может, так?
Код:
... locate 1,1: Lcd Text wait 5 For A = 15 To 1 step -1 Text = Right(text , A) + " " locate 1,1: Lcd Text Waitms 250 Next ...
Отредактировано demonizer (2011-05-24 11:01:18)
Поделиться102011-05-24 21:54:44
Попробуй соответствующую библиотеку подгружать. LCD.LIB или LCD.LBX...
Поделиться112011-05-25 22:36:24
что-то мой компилятор библиотеки в упор не хочет видеть, добавил в программу строку $lib Lcd4.lbx пишет что нет такой библиотеки в соответствующем каталоге ,а она там есть или еще какие манипуляции надо сделать?
Поделиться122011-05-25 23:57:26
- Активный участник
- Откуда: Тихорецк
- Зарегистрирован: 2010-02-18
- Приглашений: 0
- Сообщений: 484
- Уважение: [+94/-0]
- Позитив: [+63/-3]
- Пол: Мужской
- Возраст: 52 [1974-08-09]
- Провел на форуме:
10 дней 16 часов - Последний визит:
2026-09-16 21:08:29
для начала попробуйте так: $lib "lcd4.lbx"
Но эту библиотеку можете даже не пробывать! она для 16х2
Поделиться132011-06-07 08:55:50
в общем оставил я этот сдвиг на однострочнике ... сделал попроще написал-стер , а на двустрочниках все получалось... 
Страница: 1