Часы Из 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

[Реклама]

Особенности хранения литиевых аккумуляторов и батареек

Потеря емкости аккумулятора напрямую зависит от условий хранения и эксплуатации. При неправильном хранении даже самый лучший литиевый источник тока с превосходными характеристиками может не оправдать ожиданий. Технология, основанная на рекомендациях таких известных производителей литиевых источников тока, как компании FANSO и EVE Energy, поможет организовать правильный процесс хранения батареек и аккумуляторов. Подробнее>>

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

[forbidden11]

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

[Реклама]

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

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

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

[Andrey1234]

бейсик

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

[Andrey1234]

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

[mazzi]

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

[Andrey1234]

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

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

[I2C]

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

[Andrey1234]

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

[I2C]

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