Часы Из Lcd 2*16 И Attiny2313

[Andrey1234]

Здравствуйте. Я начал осваивать Мк, моргание диодиками и 7-сегментниками я уже прошел, теперь начал разбираться с LCD. Вывод текста на него уже освоил. Хочется сделать часы на LCD 2*16 WINSTAR и Attiny2313. хочется чтобы в первой строке было время ЧЧ*ММ*СС, а во второй дата ДД*ММ*ГГ.

В интернете нашел подобные проекты, но реализованные на Atmega*** и с кодом на С. Еслибы код был на ассамблере, я-бы без проблем переделал-бы его под Attiny2313. Очень прошу, кинте проэктик таких часов, или подскажите как написать прошивку.

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[mazzi]

Если есть исходник, переделай его под свой кристалл, да и всё. Заодно Си подучишь, после чего на ассемблере писать не захочется.

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[Andrey1234]

На примете есть такие часы:

http://www.pro-qwerty.com/lcd_clock.php

Просто придел мечтаний: тинька 2313, ничего переделывать не надо, но в протеусе не работают. Вот выкладываю их исходник, написанный на чемто вобще не понятном - не ассамблер и вроде не си. Может гдето в коде ошибка, и поэтому они в протеусе не работают?

' * - - * - * * - - - - - - - - - - - - - - - - - - - - - - - - - - - 
'Made by Szymon Dyja
'from www.******.com
'' * - - * - * * - - - - - - - - - - - - - - - - - - - - - - - - - - 

$crystal = 8000000
$baud = 19200

Declare Sub Lover_text()

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.6 = 0

Dim A As Integer
Dim Secounds As Byte
Dim Minutes As Byte
Dim Hours As Byte
Let Secounds = 0
Let Minutes = 0
Let Hours = 0
Let A = 0

Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 21 , 14 , 4 , 4 , 10 , 17 , 17          ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 4 , 14 , 14 , 14 , 4 , 4 , 4            ' replace ? with number (0-7)

Config Timer1 = Timer , Prescale = 1024
On Ovf1 Tim1_isr
Load Timer1 , 7812

Setclock:
Disable Interrupts
Let Secounds = 0
Cls

Cursor On Blink

Lcd "Time: "
Lowerline
Lcd "Set Clock!"
Locate 1 , 9
Lcd ":"
Locate 1 , 12
Lcd "."


Do
 If Pind.3 = 0 Then
     Minutes = Minutes + 1
     If Minutes = 60 Then Minutes = 0
     Waitms 200
  End If
  If Pind.2 = 0 Then
     Hours = Hours + 1
     If Hours = 24 Then Hours = 0
     Waitms 200
  End If
  If Pind.4 = 0 Then Exit Do
  Locate 1 , 7
  Lcd "  "
  Locate 1 , 7
  Lcd Hours
  Locate 1 , 10
  Lcd "  "
  Locate 1 , 10
  Lcd Minutes
  Locate 1 , 13
  Lcd "  "
  Locate 1 , 13
  Lcd Secounds
  Waitms 50
Loop


Enable Timer1
Enable Interrupts

Cursor Off Noblink

Call Lover_text()

Do
 Toggle Portd.6
 Waitms 100
 If Pind.4 = 0 Then
     Waitms 10
     While Pind.4 = 0
        Nop
     Wend
     Goto Setclock
 End If
Loop

Tim1_isr:
  Load Timer1 , 7812

  If Secounds = 60 Then
     Secounds = 0
     Minutes = Minutes + 1
     If Minutes = 60 Then
        Minutes = 0
        Locate 1 , 10
        Lcd "  "
        Hours = Hours + 1
        If Hours = 24 Then
           Hours = 0
           Locate 1 , 7
           Lcd "  "
           Call Lover_text()
           nop
           nop
        End If
     End If
  End If

  Locate 1 , 7
  Lcd Hours
  Locate 1 , 10
  Lcd Minutes
  Locate 1 , 13
  Lcd "  "
  Locate 1 , 13
  Lcd Secounds

  Locate 1 , 16
  If A = 0 Then
     Lcd Chr(0)
     A = 1
  Elseif A = 1 Then
     Lcd Chr(1)
     A = 0
  End If
  Secounds = Secounds + 1
Return

End


Sub Lover_text()
  Locate 2 , 0
  Lcd "   Hello! "
End Sub

[Реклама]

Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[forbidden11]

По ссылке написано что это бейсик.

[Реклама]

Сравнительное тестирование аккумуляторов EVE Energy и Samsung типоразмера 18650

Инженеры КОМПЭЛ провели сравнительное тестирование аккумуляторов EVE и Samsung популярного для бытовых и индустриальных применений типоразмера 18650. 

Для теста были выбраны аккумуляторы литий-никельмарганцевой системы: по два образца одного наименования каждого производителя – и протестированы на двух значениях тока разряда: 0,5 А и 2,5 А. Испытания проводились в нормальных условиях на электронной нагрузке EBD-USB от ZKEtech, а зарядка осуществлялась от лабораторного источника питания в режиме CC+CV в соответствии с рекомендациями в даташите на определенную модель. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[Andrey1234]

бейсик

Вот ведь изврашенцы - писать на МК на бейсике. И все таки, почему оно не работает? Посмотрел код, как считают тут часы-минуты понял, а вот как их выводят на LCD тут - нет.

[Реклама]

Литиевые аккумуляторы EVE Energy и решения для управления перезаряжаемыми источниками тока (материалы вебинара)

Опубликованы материалы вебинара Компэл, посвященного литиевым аккумуляторам EVE Energy и решениям для управления перезаряжаемыми источниками тока.

На вебинаре мы представили информацию не только по линейкам аккумуляторной продукции EVE, но и по решениям для управления ею, что поможет рассмотреть эти ХИТ в качестве дополнительной альтернативы для уже выпускающихся изделий. Также рассмотрели нюансы работы с производителем и сервисы, предоставляемые Компэл по данной продукции. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[Andrey1234]

Собрал их в железе. монтах проверил, не работают. Подозреваю что ошибка в коде.

[Реклама]

Литиевые батарейки и аккумуляторы от мирового лидера  EVE в Компэл

Компания Компэл, официальный дистрибьютор EVE Energy, бренда №1 по производству химических источников тока (ХИТ) в мире, предлагает продукцию EVE как со склада, так и под заказ. Компания EVE широко известна в странах Европы, Америки и Юго-Восточной Азии уже более 20 лет. Недавно EVE была объявлена поставщиком новых аккумуляторных элементов круглого формата для электрических моделей «нового класса» компании BMW.

Продукция EVE предназначена для самого широкого спектра применений – от бытового до промышленного. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[mazzi]

Не работающий код написанный на бейсике? Выложи схему, погляжу.

[Andrey1234]

http://www.pro-qwerty.com/lcd_clock.php

Вот, там описание и внизу схема.

[I2C]

Попробуй вывод R/W индикатора посадить на "землю".

[Andrey1234]

Спасибо! Все работает!

[I2C]

Да на здоровье!