Здесь можно немножко помяукать :)
https://radiokot.ru:443/forum/
не, мне не фонты нужны, а библиотека по их математическому увеличению...ибо большой фонт жрет чрезмерно много памяти, нужно чтоб сам микроконтроллер растягивал шрифт, как для nokia 1100.Sergik07 писал(а):_Vasilij_ писал(а):Вот здесь не смотрели? http://bart-projects.cba.pl/font.html
насчет памяти, допустим символ 48x64 ( в полэкрана) это 3072бит=384 байта на 1 циферь, только от 0 до 9 уже почти 4 килобайтаJack_A писал(а):PS Программа масштабирования тоже занимает место в памяти.
PPS Вы разбирали код МК Нокии 1100 и точно уверенны, что там не набор фонтов, а программное масштабирование ?
, уж пусть лучше некрасиво...или память внешнюю цеплять, или камень пожирней, но это как из пушки по воробьям.Интересную программу на сайте увидел, " nosave" . Но не ссылок на неё, не зарегиться не смог. Кто нибудь знает как её раздобыть?Sergik07 писал(а):Вот здесь не смотрели? http://bart-projects.cba.pl/font.html_Vasilij_ писал(а):Есть ли какие-то готовые библиотеки для масштабирования шрифтов или хотя бы просто цифр ?
Возможно эти команды для софтовых часов.serg_svd писал(а): Config Date = Dmy , Separator = .
Код: Выделить всё
Const Ds1307w = &HD0 ' запись
Const Ds1307r = &HD1 ' чтение
I2cstart ' старт
I2cwbyte Ds1307w
I2cwbyte &H00 ' адрес откуда начинаем читать данные
I2cstart ' старт
I2cwbyte Ds1307r
I2crbyte Seco , Ack ' секунды
I2crbyte Mine , Ack ' минуты
I2crbyte Hour , Ack ' часы
I2crbyte Day , Ack ' день недели
I2crbyte Dat , Ack ' число месяца
I2crbyte Month , Ack ' месяц
I2crbyte Year , Nack ' год
I2cstop
Seco = Makedec(seco)
Mine = Makedec(mine)
Hour = Makedec(hour)
Day = Makedec(day)
Dat = Makedec(dat)
Month = Makedec(month)
Year = Makedec(year)Код: Выделить всё
Declare Sub Month_disp 'подпрограмма перевода цифровых значений месяца в названия месяца
Dim Daysmonth As Byte 'переменная дней в месяце
Dim Month_disp As String * 8 'переменная месяца, выводимая на дисплей
Dim Weekday_disp As String * 7 'переменная дня недели, выводимая на дисплей
Dim Weekday_read As Byte 'переменная номера дня недели, считываемая из DS1307
Dim Weekday As Byte 'переменная номера дня недели
Do 'начало основного цикла
Call Month_disp 'вызываем подпрограмму перевода цифровых значений месяца в названия месяца
Locate 1 , 1 'задаем позицию курсора
Lcd Time$ 'выводим на ЖКИ время, вызывая подпрограмму чтения времени из DS1307
Locate 2 , 1 'задаем позицию курсора
Lcd _day ; " " ; Month_disp 'выводим на ЖКИ значение переменной _day, пробел, значение переменной Month_disp
If _year < 10 Then 'если значение переменной _year < 10 то,
Lcd " 200" ; _year ; " " 'выводим на ЖКИ, пробел, 200, значение переменной _year, 4 пробела
Else 'иначе
Lcd " 20" ; _year ; " " 'выводим на ЖКИ, пробел, 20, значение переменной _year, 4 пробела
End If 'конец если
Weekday_read = Dayofweek() 'считываем номер дня недели из DS1307
Weekday_disp = Lookupstr(weekday_read , Weekdays) 'преобразовываем номер дня недели в название дня недели
Locate 1 , 10 'задаем позицию курсора
Lcd Weekday_disp 'выводим на ЖКИ значение переменной Weekday_disp
Loop 'конец основного цикла
End
Sub Month_disp 'подпрограмма перевода цифровых значений месяца в названия месяца
'*******************************************************************************
Select Case _month
Case 1 : Month_disp = "ЗЅіapЗ" 'января
Daysmonth = 31
Case 2 : Month_disp = "дeіpa»З" 'февраля
Daysmonth = _year And &H03 'проверяем на високосный год
If Daysmonth = 0 Then 'если год високосный (переменная Daysmonth = 0)
Daysmonth = 29 'то переменная Daysmonth = 29
Else 'иначе
Daysmonth = 28 'переменная Daysmonth = 28
End If
Case 3 : Month_disp = "јapїa" 'марта
Daysmonth = 31
Case 4 : Month_disp = "aѕpe»З" 'апреля
Daysmonth = 30
Case 5 : Month_disp = "јaЗ" 'мая
Daysmonth = 31
Case 6 : Month_disp = "ёЖЅЗ" 'июня
Daysmonth = 30
Case 7 : Month_disp = "ёЖ»З" 'июля
Daysmonth = 31
Case 8 : Month_disp = "aіґycїa" 'августа
Daysmonth = 31
Case 9 : Month_disp = "ceЅїЗІpЗ" 'сентября
Daysmonth = 30
Case 10 : Month_disp = "oєїЗІpЗ" 'октября
Daysmonth = 31
Case 11 : Month_disp = "ЅoЗІpЗ" 'ноября
Daysmonth = 30
Case 12 : Month_disp = "гeєaІpЗ" 'декабря
Daysmonth = 31
End Select
End Sub
Getdatetime: 'подпрограмма чтения данных из DS1307
'*******************************************************************************
I2cstart ' I2C START
I2cwbyte Ds1307w ' константа адрес записи DS1307
I2cwbyte 0 ' начальный адрес в DS1307
I2cstart ' I2C START
I2cwbyte Ds1307r ' константа адрес чтения DS1307
I2crbyte _sec , Ack ' чтение значения СЕКУНД
I2crbyte _min , Ack ' чтение значения МИНУТ
I2crbyte _hour , Ack ' чтение значения ЧАСА
I2crbyte Weekday , Ack ' чтение значения НЕДЕЛИ
I2crbyte _day , Ack ' чтение значения ДНЯ
I2crbyte _month , Ack ' чтение значения МЕСЯЦА
I2crbyte _year , Nack ' чтение значения ГОДА
I2cstop 'I2C STOP
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour) 'преобразуем все переменные в десятичный вид
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year) 'преобразуем все переменные в десятичный вид
Return 'возврат из подпрогрммы
Setdate: 'подпрограмма записи даты в DS1307
'*******************************************************************************
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year) 'преобразуем все переменные в двоичный вид
I2cstart ' I2C START
I2cwbyte Ds1307w ' константа адрес записи DS1307
I2cwbyte 4 ' начальный адрес в DS1307
I2cwbyte _day ' запись ДЕНЬ
I2cwbyte _month ' запись МЕСЯЦ
I2cwbyte _year ' запись ГОД
I2cstop 'I2C STOP
Return 'возврат из подпрогрммы
Settime: 'подпрограмма записи времени в DS1307
'*******************************************************************************
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour) 'преобразуем все переменные в двоичный вид
I2cstart ' I2C START
I2cwbyte Ds1307w ' константа адрес записи DS1307
I2cwbyte 0 ' начальный адрес в DS1307
I2cwbyte _sec ' запись СЕКУНД
I2cwbyte _min ' запись МИНУТ
I2cwbyte _hour ' запись ЧАСА
I2cstop 'I2C STOP
Return 'возврат из подпрогрммы
Weekdays:
'*******************************************************************************
Data "ЁoЅeг. " 'Понед.
Data "BїopЅёє" 'Вторник
Data "Cpeгa " 'Среда
Data "«eїіepґ" 'Четверг
Data "ЁЗїЅёеa" 'Пятница
Data "CyІІoїa" 'Суббота
Data "Bocєp. " 'Воскр.А ее и так подключать в коде не нужно, тогда конфигурация строковой переменной $Datemax50 писал(а):То есть не использую ds1307clock.lib.
Код: Выделить всё
Config Date = Dmy , Separator = .
Да вот именно в ней и все дело.max50 писал(а): То есть не использую ds1307clock.lib.
В моем коде так и сделано. Только в начале устанавливаю год, потом месяц и затем день.serg_svd писал(а):Проверку на високосный год тоже сделал при установке даты. Пример определения високосного года нашел там же в справке баскома. Заодно и ограничиваю день по месяцам (30 или 31).
Аналогично сделалmax50 писал(а):Только в начале устанавливаю год, потом месяц и затем день.
.