Большие цифры
|
|
sany2 | Дата: Понедельник, 02.06.2014, 15:59 | Сообщение # 1 |
Группа: Проверенные
Сообщений: 107
Статус: Offline
| Тут как-то упоминался стиль больших цифр с дружественного форума.Но цифры там не очень понятные были.Предлагаю свой вариант написания больших цифр.Вернее сами цифры подсмотрел на каком-то китайском приборе и нарисoвал их в Bascome.Может кому ещё пригодятся.
$regfile = "m16def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Portc.1 , E = Portc.2 , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portc.6 Cursor Off Cls Deflcdchar 0 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 15 Deflcdchar 1 , 30 , 31 , 31 , 31 , 31 , 31 , 31 , 30 Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32 Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31 Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 24 , 28 Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 24 , 28 Deflcdchar 6 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31 Deflcdchar 7 , 28 , 28 , 32 , 32 , 32 , 32 , 24 , 28
Dim Pos As Byte Dim Incoming As String * 8 Dim I As Byte Dim Stroka As String * 8 Dim Fm1 As Word Dim Fm2 As String * 6
Declare Sub Style Declare Sub Digit
Fm1 = 0
Do Cls
Call Style Incr Fm1 Waitms 500 Loop
Sub Style Fm2 = Str(fm1) Incoming = Fm2 Pos = 1 For I = 1 To 8 Stroka = Mid(incoming , I , 1) Call Digit Next I
End Sub
Sub Digit: Select Case Stroka Case "0": Locate 1 , Pos Lcd Chr(0) ; Chr(2) ; Chr(1) Locate 2 , Pos Lcd Chr(0) ; Chr(3) ; Chr(1) '-------------------------------------- Case "1": Locate 1 , Pos Lcd Chr(2) ; Chr(1) ; " " Locate 2 , Pos Lcd Chr(3) ; Chr(0) ; Chr(3) '-------------------------------------- Case "2": Locate 1 , Pos Lcd Chr(2) ; Chr(6) ; Chr(1) Locate 2 , Pos Lcd Chr(0) ; Chr(3) ; Chr(3) '-------------------------------------- Case "3": Locate 1 , Pos Lcd Chr(6) ; Chr(6) ; Chr(1) Locate 2 , Pos Lcd Chr(3) ; Chr(3) ; Chr(1) '-------------------------------------- Case "4": Locate 1 , Pos Lcd Chr(1) ; " " ; Chr(3) Locate 2 , Pos Lcd Chr(2) ; Chr(2) ; Chr(0) '-------------------------------------- Case "5": Locate 1 , Pos Lcd Chr(0) ; Chr(6) ; Chr(4) Locate 2 , Pos Lcd Chr(3) ; Chr(3) ; Chr(1) '-------------------------------------- Case "6": Locate 1 , Pos Lcd Chr(0) ; Chr(6) ; Chr(7) Locate 2 , Pos Lcd Chr(0) ; Chr(3) ; Chr(1) '-------------------------------------- Case "7": Locate 1 , Pos Lcd Chr(2) ; Chr(2) ; Chr(1) Locate 2 , Pos Lcd " " ; " " ; Chr(1) '-------------------------------------- Case "8": Locate 1 , Pos Lcd Chr(0) ; Chr(6) ; Chr(1) Locate 2 , Pos Lcd Chr(0) ; Chr(3) ; Chr(1) '-------------------------------------- Case "9": Locate 1 , Pos Lcd Chr(0) ; Chr(6) ; Chr(1) Locate 2 , Pos Lcd " " ; Chr(3) ; Chr(1) '-------------------------------------- Case ":": Locate 1 , Pos Lcd " o " Locate 2 , Pos Lcd " o " Pos = Pos
End Select Pos = Pos + 3 End Sub
|
|
| |
Scorpushka | Дата: Воскресенье, 31.08.2014, 23:04 | Сообщение # 2 |
Группа: Свой человек
Сообщений: 33
Статус: Offline
| повторил, спасибо, симпатично!
|
|
| |
RD3AVJ | Дата: Понедельник, 01.09.2014, 19:16 | Сообщение # 3 |
Группа: Свой человек
Сообщений: 175
Статус: Offline
| Scorpushka, выложи плиз фотку получившихся шрифтов от sany2 (спасибо за труд!), не могу пока повторить, индикатор мой на работу ушел, но если цифры адекватные - повторю в своем устройстве в будущем! И да, спасибо за статейку о сименсе с35
|
|
| |
Scorpushka | Дата: Вторник, 02.09.2014, 06:26 | Сообщение # 4 |
Группа: Свой человек
Сообщений: 33
Статус: Offline
| RD3AVJ, вот в облаке. качество уменьшил https://drive.google.com/folderv....sharing при некоторых комбинациях цифр конечно неудобно читать
|
|
| |
AlekS | Дата: Вторник, 02.09.2014, 20:08 | Сообщение # 5 |
Группа: Проверенные
Сообщений: 247
Статус: Offline
| Scorpushka, ((((( Облако - 500. That’s an error. There was an error. Please try again later. That’s all we know.
|
|
| |
Scorpushka | Дата: Четверг, 04.09.2014, 07:39 | Сообщение # 6 |
Группа: Свой человек
Сообщений: 33
Статус: Offline
| AlekS, попробовал с ноутбука перейти по своей ссылке- работает (не вводя пароли на свой гугл) так что пробуй или пришли почту в личку, вышлю на почту
|
|
| |
RD3AVJ | Дата: Четверг, 04.09.2014, 08:28 | Сообщение # 7 |
Группа: Свой человек
Сообщений: 175
Статус: Offline
| Рабочая ссылка... Спасибо! Бум пользоваться
|
|
| |
AlekS | Дата: Четверг, 04.09.2014, 21:52 | Сообщение # 8 |
Группа: Проверенные
Сообщений: 247
Статус: Offline
| Усе пошло . Нарядненько
|
|
| |
kip96 | Дата: Понедельник, 20.10.2014, 20:37 | Сообщение # 9 |
Группа: Свой человек
Сообщений: 170
Статус: Offline
| Вот, под себя циферки переделал. Сегменты-
циферки-
|
|
| |
boring | Дата: Пятница, 25.03.2016, 09:15 | Сообщение # 10 |
Группа: Пользователи
Сообщений: 8
Статус: Offline
| Интересно как вычисляются элементы цифр
Deflcdchar 0 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 15 Deflcdchar 1 , 30 , 31 , 31 , 31 , 31 , 31 , 31 , 30 Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32 Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31 Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 24 , 28 Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 24 , 28 Deflcdchar 6 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31 Deflcdchar 7 , 28 , 28 , 32 , 32 , 32 , 32 , 24 , 28
Или где можно почитать.
Вопрос к kip96, что за проект на Ваших фотографиях, где можно ознакомится ?
Сообщение отредактировал boring - Пятница, 25.03.2016, 09:26 |
|
| |
kip96 | Дата: Пятница, 25.03.2016, 22:08 | Сообщение # 11 |
Группа: Свой человек
Сообщений: 170
Статус: Offline
| Часики, как видно, с термометром. Ни где не выкладывал. Сейчас программа обросла, добавилось функций, версия уже 13-я . Про цифры, в баскоме есть генератор LCD (одноимённая кнопочка). А как вычисляется и в хелпе есть, и в описании на индикатор.
|
|
| |
boring | Дата: Вторник, 29.03.2016, 12:40 | Сообщение # 12 |
Группа: Пользователи
Сообщений: 8
Статус: Offline
| Кому интересно про большие цифры можно почитать по адресу:
http://mirley.firlej.org/node/1043
Успехов.
|
|
| |