Макс, ты же вроде из Барнаула? Я тоже. Напиши мне в WhatsApp 8-983-107-4613

Отключите антивирус и будет счастье.

Спасибо, но к сожалению антивирус блокирует доступ к ресурсу. Другой ссылки нет?

Посмотрите тут: http://lightportal.info/publ/chasy/chasy_kalendar_termometr_barometr_gigrometr_na_max7219_v_stile_stimpank/19-1-0-110 и тут: http://lightportal.info/publ/chasy/prostaja_meteostancija_s_chasami/19-1-0-119

Например так:

$regfile = "attiny2313.dat"
$crystal = 8000000
$swstack = 16
$hwstack = 16
$framesize = 40

Ddrb = &B0000_0111
Portb = &B0000_0000
Config Timer0 = Timer , Prescale = 64

Dim Num(8) As Integer
Dim Dot(8) As Byte
Dim Count As Byte
Dim N As Long
Dim Ledout As Integer

Dat Alias Portb.0
Clk Alias Portb.1

On Ovf0 Refresh
Enable Ovf0
Enable Interrupts

N = 12345678

Do
'Можно так, а можно через строковые (STR - VAL)
Num(1) = N / 10000000
N = N Mod 10000000
Num(2) = N / 1000000
N = N Mod 1000000
Num(3) = N / 100000
N = N Mod 100000
Num(4) = N / 10000
N = N Mod 10000
Num(5) = N / 1000
N = N Mod 1000
Num(6) = N / 100
N = N Mod 100
Num(7) = N / 10
Num(8) = N Mod 10
Dot(3) = 1 : Dot(6) = 1
Loop

End

Refresh:
Incr Count : If Count > 8 Then Count = 1
Ledout = Lookup(count , Rank)
Shiftout Dat , Clk , Ledout , 1
Ledout = Lookup(num(count) , Symbol)
'для общего катода надо инвертировать выходные данные
'Ledout = Not Ledout
If Dot(count) = 1 Then Ledout = Ledout Xor &B0000_0001
Shiftout Dat , Clk , Ledout , 1
Pulseout Portb , 2 , 10
Return
'*******************************************************
'Разряд
Rank:
Data &B0000_0000
Data &B1000_0000 , &B0100_0000 , &B0010_0000 , &B0001_0000
Data &B0000_1000 , &B0000_0100 , &B0000_0010 , &B0000_0001
'-------------------------------------------------------
'Код символа - для общего анода
Symbol:
'0 1 2 3
'4 5 6 7
'8 9 10(пробел) 11(минус) и так далее по желанию...
'abcd_efgh
'
Data &B0000_0011 , &B1001_1111 , &B0010_0101 , &B0000_1101
Data &B1001_1001 , &B0100_1001 , &B0100_0001 , &B0001_1111
Data &B0000_0001 , &B0000_1001 , &B1111_1111 , &B1111_1101

Макс, добрый день. А вы не пытались зажечь несколько точек на 8-разрядном дисплее? Например так: 123.456.78? Как это осуществить в программе? Как это сделать для двух 74HC595 с написанием собственной кодировки символов, я знаю. А вот как быть с этой мелкосхемой?

to 6 pchela5 (10.09.2013 16:49) зачем Вам, милостивый государь, чтоб оно само точку ставило? :) Плавучку к энтому подключать? Вполне можно обойтись цельночисельной арихметикой с масштабированием и точку ручками поставить.

Незначащие нули не гасит, правда, и минус выводит в крайнюю левую позицию.
Но оно мне так нужно было.

Declare Sub Led_disp(byval Ud As Integer , Byval Udp As Byte)
Declare Sub Led_init()
Declare Sub Led_out(byval La0 As Byte , Byval Ld0 As Byte)

Const Lnop = &HF0
Const Ldecmode = &HF9
Const Lintens = &HFA
Const Lscanlim = &HFB
Const Lenable = &HFC
Const Ltest = &HFF

'LED driver out
Ledld Alias Portb.4 '/SS
Ledck Alias Portb.7 'SCK
Leddi Alias Portb.5 'MOSI
Led_init

Main:
Do
Loop

End

'*****************************
'LED display
'ud - out value
'udp - decimal point position

Sub Led_disp(ud , Udp)
Local Udi As Integer
Local Udb As Byte
Local I As Byte

If Ud < 0 Then Udb = 10 Else Udb = 15
If Udp = 5 Then Udb = Udb + &H80
Call Led_out(5 , Udb)

Ud = Abs(ud)
For I = 1 To 4
Udi = Ud Mod 10
Udb = Udi
Ud = Ud / 10
If Udp = I Then Udb = Udb Or &H80
Call Led_out(i , Udb)
Next
End Sub

'*****************************
'Init LED display
Sub Led_init()
Local J As Byte

For J = 1 To 8
Call Led_out(j , 0)
Next

Call Led_out(ldecmode , 255)
Call Led_out(lscanlim , 4)
Call Led_out(lintens , 15)
Call Led_out(ltest, 0)
Call Led_out(lenable , 1)
End Sub

'*****************************
'Send data to LED display
Sub Led_out(la0 , Ld0)

Reset Ledld
Shiftout Leddi , Ledck , La0 , 1 ' , 8 , 15
Shiftout Leddi , Ledck , Ld0 , 1 ' , 8 , 15
Set Ledld
'Delay
End Sub

to 3 exersizze (08.09.2013 11:08)
> В этом режиме точка не задействована. Ей придется управлять в обход драйвера.

В этой программе я бы сказал. Ибо точку можно поставить, записав в седьмой бит числа единичку - ниже под табличкой 5 даташита написано: "*The decimal point is set by bit D7 = 1". А вообще, я бы не отказался от куска кода в виде подпрограммы для данной максимки, который:
1. Гасит незначащие нули.
2. Сам ставит точку, куда надо.
3. Если будет выводить минус впереди для отрицательных чисел - будет вообще круто.

Лето - бывает.

Спасибо, Макс. Этот материал должен быть опубликован аж 3 месяца назад, только сейчас стали доходить руки

В этом режиме точка не задействована. Ей придется управлять в обход драйвера.

Доброго времени суток. Подскажите пожалуйста, а как вывести точку на индикатор?

спасибо! я так долго ждал обновления сайта