Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » LCD индикаторы Holtek HT1611 и Bascom


LCD индикаторы Holtek HT1611 и Bascom

Сообщений 1 страница 3 из 3

1

Добрый день! Есть у кого-нибудь процедуры для работы с дисплеями Holtek HT1611 от стационарных телефонов?

http://www.gaw.ru/im/publ/holtek-lcd/001.gif http://www.gaw.ru/im/publ/holtek-lcd/002.gif

Информация о них http://www.gaw.ru/html.cgi/txt/publ/_rt … ek_lcd.htm

0

2

там всё банально, не позорьтесь ))

есть для FastAVR, думаю поймёте

Код:
$def Pinlcddat = Portb.0
$def Pinlcdclk = Portb.1
$def Pinled = Portb.2

Declare Sub Sendlcd(lcddatax As Byte)
Declare Sub Scrolllcd(lcddvigatsinvolov As Byte)

Dim Keypressed As Byte , Tempa As Byte


' ---------  Скроллинг экрана на X символов  --------
Sub Scrolllcd(lcddvigatsinvolov As Byte)
Local Temp2 As Byte , Temp As Byte
Pinlcddat = 0                                     ' Data
For Temp = 1 To Lcddvigatsinvolov
        For Temp2 = 0 To 3
                Pinlcdclk = 0 : Waitus 1          ' CLK
                Pinlcdclk = 1 : Waitus 1          ' CLK
        Next Temp2
Next Temp
End Sub


'----------   Один символ на экран  ---------
Sub Sendlcd(lcddatax As Byte)
Local Tiki As Byte , Temp2 As Byte , Temp As Byte
'If LCDdataX =0 Then LCDdataX =10

Pinlcdclk = 1                                     ' CLK
Tiki = 128

Shift(left , 4 , Lcddatax)

For Temp2 = 0 To 3
        Temp = Lcddatax & Tiki

        If Temp = 0 Then
           Pinlcddat = 0                          ' Data
         Else
           Pinlcddat = 1                          ' Data
        End If

        Pinlcdclk = 0 : Waitus 1
        Pinlcdclk = 1 : Waitus 1

        Shift(right , 1 , Tiki) : If Tiki = 0 Then Tiki = 128
Next Temp2
End Sub

схема подключения тут: http://ugolok-mastera.ru/avr/DUUO2PL/DUUO2PL.htm

Отредактировано Александр Д. (2015-08-12 16:01:37)

0

3

Я ламер и мне не стыдно задавать такие вопросы. Этот код я видел, так как тоже умею пользоваться гуглем. Мне бы более конкретный пример вывода числового значения. Наверняка кто-то пробовал в баскоме писать под этот индикатор. Вопрос в первую очередь я адресую к таким людям.

+1


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » LCD индикаторы Holtek HT1611 и Bascom