Регистрация | Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 3
  • «
  • 1
  • 2
  • 3
  • »
Модератор форума: demanik  
Форум Picbasic.ru » Программирование МК » Proton PicBasic » Индикатор TM1637 (Управление индикатором без библиотек)
Индикатор TM1637
Aleksey_174 Дата: Сб, 27.01.2018, 16:15  |                                                                                                                Сообщение # 16
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 20
Репутация: 0   ±
Замечания:   ±
На сайте с 22.01.2017

Статус: Offline

Этих файлов хватит?
Прикрепления: TM1637.hex(0.9 Kb) · TM1637.bas(5.0 Kb)
ЯНДЕКС Дата: 27.01.2018
Matrix252005 Дата: Сб, 27.01.2018, 16:18  |                                                                                                                Сообщение # 17
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 713
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

В протеусе все равно нет модели ТМ1637, так что - ДА.

THE TRUTH IS OUT THERE.

С уважением, Николай.
Aleksey_174 Дата: Сб, 27.01.2018, 16:26  |                                                                                                                Сообщение # 18
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 20
Репутация: 0   ±
Замечания:   ±
На сайте с 22.01.2017

Статус: Offline

не забывай что на tm1637 стоят подтягивающие резисторы и кондеры на выводах
Unicorn Дата: Сб, 27.01.2018, 16:40  |                                                                                                                Сообщение # 19
Группа: Проверенные
Ранг:  Новенький
Сообщений: 15
Репутация: 4   ±
Замечания:   ±
На сайте с 27.10.2014

Статус: Offline

Возможно это поможет http://www.picbasic.ru/forum/9-1817-1 Принцип работы с Вашей микросхемой одинаковый.
Matrix252005 Дата: Сб, 27.01.2018, 16:41  |                                                                                                                Сообщение # 20
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 713
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Попробуйте это.
Прикрепления: 2451673.hex(1.0 Kb)


THE TRUTH IS OUT THERE.

С уважением, Николай.
Aleksey_174 Дата: Сб, 27.01.2018, 17:03  |                                                                                                                Сообщение # 21
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 20
Репутация: 0   ±
Замечания:   ±
На сайте с 22.01.2017

Статус: Offline

Что ж ты раньше молчал идеально подходит  smile
Matrix252005 Дата: Сб, 27.01.2018, 17:04  |                                                                                                                Сообщение # 22
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 713
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

И что, заработало?? Что на экране??

THE TRUTH IS OUT THERE.

С уважением, Николай.
Aleksey_174 Дата: Сб, 27.01.2018, 17:17  |                                                                                                                Сообщение # 23
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 20
Репутация: 0   ±
Замечания:   ±
На сайте с 22.01.2017

Статус: Offline

я и не знал что есть еще TM1636  wacko

Добавлено (27.01.2018, 17:17)
---------------------------------------------
файл который дал 2451673.hex показывает 67-9 но мигает а ссылка на 1636 идеально подошла вот код немного переделанный на протон

Device 16F684
Xtal = 4

Config FCMEN_OFF, IESO_OFF, CPD_OFF, CP_OFF, MCLRE_OFF, PWRTE_OFF, WDT_OFF, INTRC_OSC_NOCLKOUT, BOREN_OFF, BOD_OFF

'               + ### -
'A5               ### Data             A0
'A4               ### Clk              A1
'A3        Mclr ###                  À2
'C5               ###                  Ñ0
'C4               ### TM1637/Dio       Ñ1
'C3               ### TM1637/Clk       Ñ2

TRISA = %00000000                            
TRISC = %00000000                            
PORTC = 0
OPTION_REG.7 = 0                        
'OPTION_REG.7 = 1                       
Declare All_Digital = On                   

Symbol din = PORTC.1 
Symbol clk = PORTC.2

Dim RG As Byte
Dim DIG1 As Byte
Dim DIG2 As Byte
Dim DIG3 As Byte
Dim DIG4 As Byte
Dim F As Byte 

main:

F = 1
RG = %01000000 
GoSub serial
RG = %10001111
GoSub serial

F = 0
RG = %11000000
DIG1 = $06
DIG2 = $5B
DIG3 = $4F
DIG4 = $66
GoSub serial
DelayMS 2000 

DIG1 = $6D 
DIG2 = $7D
DIG3 = $07
DIG4 = $7F
GoSub serial
DelayMS 2000

F = 1
RG = %10000000
GoSub serial

End
GoTo main

serial:
din = 1 : clk = 1
din = 0 : clk = 0 
If F = 1 Then
SHIFTOUT din,clk,0,[RG\9]
Else
SHIFTOUT din,clk,0,[RG\9,DIG1\9,DIG2\9,DIG3\9,DIG4\9]
EndIf 
clk = 0 : din = 0
clk = 1 : clk = 1 
Return

Matrix252005 Дата: Сб, 27.01.2018, 17:21  |                                                                                                                Сообщение # 24
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 713
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Там и выводились цифры 6, 7, 8, 9. :))

THE TRUTH IS OUT THERE.

С уважением, Николай.
Aleksey_174 Дата: Сб, 27.01.2018, 17:24  |                                                                                                                Сообщение # 25
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 20
Репутация: 0   ±
Замечания:   ±
На сайте с 22.01.2017

Статус: Offline

ну восьмерку видно не было они моргали как у меня было
Unicorn Дата: Сб, 27.01.2018, 17:38  |                                                                                                                Сообщение # 26
Группа: Проверенные
Ранг:  Новенький
Сообщений: 15
Репутация: 4   ±
Замечания:   ±
На сайте с 27.10.2014

Статус: Offline

Цитата Aleksey_174 ()
я и не знал что есть еще TM1636 

Серия ТM16хх содержит много разных микросхем позволяющих работать с многоразрядными сегментными и матричными LED индикаторами, поддерживает подключение клавиатур. Особенно ценно - реализация динамической индикации без участия микроконтроллера !
Aleksey_174 Дата: Сб, 27.01.2018, 17:54  |                                                                                                                Сообщение # 27
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 20
Репутация: 0   ±
Замечания:   ±
На сайте с 22.01.2017

Статус: Offline

интересно клавиатура у нее как работает, именно в момент опроса или есть память  wink
Unicorn Дата: Сб, 27.01.2018, 18:55  |                                                                                                                Сообщение # 28
Группа: Проверенные
Ранг:  Новенький
Сообщений: 15
Репутация: 4   ±
Замечания:   ±
На сайте с 27.10.2014

Статус: Offline

В приведенной мной выше ссылке есть архив с подробным описанием работы микросхем серии TM16xx и в том числе, как работать с клавиатурой.
lev2606 Дата: Вт, 30.01.2018, 14:08  |                                                                                                                Сообщение # 29
Группа: Проверенные
Ранг:  Новенький
Сообщений: 1
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2013

Статус: Offline

есть проект на Bascom http://kaktusa.pl/tm1637-w-module-z-wyswietlaczem-led-7seg-4-cyfry/
я пользуюсь переработанной в PIBASICPRO библиотекой отсюда http://forum.amperka.ru/threads....ки.9745
пример на PICBASICPRO
Прикрепления: Pic16f819-TM163.rar(7.3 Kb)

Сообщение отредактировал lev2606 - Вт, 30.01.2018, 14:26
PINCOD Дата: Ср, 31.01.2018, 20:10  |                                                                                                                Сообщение # 30
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 37
Репутация: 1   ±
Замечания:   ±
На сайте с 05.10.2011

Статус: Offline

Device 12F675
  Declare Xtal = 4
  Declare Reminders NO
  Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_OFF, BODEN_ON, MCLRE_OFF   
  Set_OSCCAL OSCCAL
  TRISIO = %010000
  ANSEL = 0'0-назначим порты цифровыми,7-аналоговыми)
  CMCON = 7

Symbol clk = GPIO.0 'шина SPI, данные
Symbol din = GPIO.5 'шина SPI, такт

Dim RG   As Byte 'регистр управления
Dim DIG1 As Byte 'переменная для 1-го разряда индикатора
Dim DIG2 As Byte 'переменная для 2-го разряда индикатора
Dim DIG3 As Byte 'переменная для 3-го разряда индикатора
Dim DIG4 As Byte 'переменная для 4-го разряда индикатора
Dim F As Byte    'признак передачи команды "1" или данных "0"
Dim Freq As Byte
Dim N  As Byte
Dim YAR As Byte
Dim Value As Byte
YAR = 7
'-----------------------------------------------------------------------------
 GoSub Bright  

main:  
 Freq = Counter GPIO.4, 100 'замерить частоту на GPIO.4
 GoSub Disp
GoTo main

Disp:

 
  N = Dig Freq ,3 : GoSub Convert
  DIG1 = Value
  N = Dig Freq ,2 : GoSub Convert ;Выделим соответст цифру из перем Freq и сконвертируем её для ССИ
  DIG2 = Value
  N = Dig Freq ,1 : GoSub Convert
  DIG3 = Value
  N = Dig Freq ,0 : GoSub Convert
  DIG4 = Value
  F = 0
GoSub serial
  Return
 
Convert:
  Value = LookUp N, [63,6,91,79,102,109,124,7,127,103]'маска общий катод
  Return                                   
'подпрограмма последовательной передачи данных на ТМ1637
serial:

  din = 1 'подготовка SPI к началу передачи данных
  clk = 1 'подготовка SPI к началу передачи данных
  din = 0 'старт передачи данных
  clk = 0 'старт передачи данных
 If F = 1 Then
   SHOut din,clk,0,[RG\9] 'передача команд
 Else
   SHOut din,clk,0,[RG\9,DIG1\9,DIG2\9,DIG3\9,DIG4\9] 'передача адреса и данных  
 EndIf      
 clk = 0 'стоп передачи данных
 din = 0 'стоп передачи данных
 clk = 1 'стоп передачи данных
 din = 1 'стоп передачи данных
 Return   

Bright:
'-----------------------------------------------------------------------------
F = 1 'передача команды на ТМ1637
RG = %01000000 'КОМАНДА №1(режим записи данных) $40
GoSub serial 'подпрограмма последовательной передачи данных
' YAR                             0   1     2     3     4     5     6    7  
YAR = LookUp YAR, [136,137,138,139,140,141,142,143]
RG = YAR 'КОМАНДА №3(вкл. индикатора, YAR  яркость) 
GoSub serial
'-------------------------------------------------------------------------------
F = 0 'передача данных на ТМ1637
RG = %11000000 'КОМАНДА №2(адрес первого разряда индикатора) $C0
  Return
Форум Picbasic.ru » Программирование МК » Proton PicBasic » Индикатор TM1637 (Управление индикатором без библиотек)
  • Страница 2 из 3
  • «
  • 1
  • 2
  • 3
  • »
Поиск: