Код: Выделить всё
Config Single = Scientific , Digits = 2
vanyap1 писал(а):Опрашивать клавиатуру я умею. Кажись уже писал это.
Меня интересует конкретно - сложение нескольких последовательных результатов опроса нажатых кнопок в число.
edm2007 писал(а):Digits - количество цифр после запятой. Может иметь значение от 1 до 7.
edm2007 писал(а):Ну вроде как форум для вопросов & ответов и нужен.
Код: Выделить всё
'*******************************************************************************
' [Основной цикл]
'*******************************************************************************
Do
Call Adc_opros
'Call Displ
LoopКод: Выделить всё
Dim Value As Word ' переменная для разноса
Dim I(4) As Word ' разряды
Dim Temp As Byte ' вспомогательная переменная
Value = 1234
..........................................
For Temp = 4 To 1 Step -1 ' в цикле разбиваем переменную по разрядам
I(temp) = Value Mod 10
Value = Value / 10
Next
edm2007 писал(а):Ну и не компилируется. Ругается, что имена переменных совпадают с метками из библиотеки. А так оно и есть...
Т.е вся это абракадабра таится где то в закоулках моего (извините за выражение КОДА) edm2007 писал(а):Из одной индикации столько лишних прыжков...
Код: Выделить всё
'************************ [прерывание таймера Т0] ******************************
Refresh:
'=============== Разряды ===================
Incr Count : If Count > 4 Then Count = 1 ' увеличиваем значение счетчика на 4 разряда
Ledout = Lookup(count , Razr) ' забираем номер разряда
'Gosub Mig_razr ' подпрограмма мигания разряда
Gosub Registr
'========== Второй индикатор ===============
Ledout = Lookup(number(count + 4) , Digits) ' забираем код цифры для ВТОРОГО индикатора
Gosub Tochka2 : Gosub Registr 'зажигаем точку, закидываем в регистр
'========== Первый индикатор ===============
Ledout = Lookup(number(count) , Digits) ' забираем код цифры для ПЕРВОГО индикатора
Gosub Tochka1 : Gosub Registr 'зажигаем точку, закидываем в регистр
Pulseout Portc , 2 , 20 ' защелкиваем данные (для 4МГц импульс 5мкс)
Return
'<---------- подпрограмма отправки данных в регистр
Registr:
Shiftout 595data , 595clock , Ledout , 1 'задвигаем данные
Return
'<---------- управление точками ПЕРВОГО индикатора
Tochka1:
If H_flag1(count) = 1 Then ' если установлен флаг
Ledout = Ledout Xor &B10000000 ' зажигаем точку
End If
Return
'<---------- управление точками ВТОРОГО индикатора
Tochka2:
If H_flag2(count) = 1 Then ' если установлен флаг
Ledout = Ledout Xor &B10000000 ' зажигаем точку
End If
Return
'<---------- Мигаем разрядами
Mig_razr:
Incr Blink_count : If Blink_count > 400 Then Blink_count = 1 ' длительность мигания
If Blink_flag(count) = 1 And Blink_count > 200 Then ' если флаг мигания выставлен и счетчик > 200
Ledout = Lookup(0 , Razr) ' выключаем разряд
Else ' иначе (флаг не выставлен, либо счетчик < 200)
Ledout = Lookup(count , Razr) ' забираем в переменную номер разряда
End If
Return- похожие программы оформлять в подпрограммы. Различия формировать ветвлением и дроблением участков;
edm2007 писал(а):Дело тут даже не в торможении, просто Bascom по своей милой привычке и так все регистры сохраняет в стек без разбора
Код: Выделить всё
On Ovf0 Refresh NOSAVEКод: Выделить всё
$regfile = "ATtiny13A.DAT"
Dim U As Integer
Do
Loop
EndКод: Выделить всё
$regfile = "ATtiny13A.DAT"
$hwstack = 32
$swstack = 8
$framesize = 16
Dim U As Integer
Do
Loop
End
Код: Выделить всё
'************************ [прерывание таймера Т0] ******************************
Refresh:
'=============== Разряды ===================
Incr Count : If Count > 4 Then Count = 1 ' увеличиваем значение счетчика на 4 разряда
Ledout = Lookup(count , Razr) ' забираем номер разряда
'Gosub Mig_razr ' подпрограмма мигания разряда
Gosub Registr
'========== Второй индикатор ===============
Call Uimetr
Value = I * 3 ' переменная для разноса
For Temp = 8 To 4 Step -1 ' в цикле разбиваем переменную по разрядам
Number(temp) = Value Mod 10
Value = Value / 10
Next
Ledout = Lookup(number(count + 4) , Digits) ' забираем код цифры для ВТОРОГО индикатора
Gosub Tochka2 : Gosub Registr 'зажигаем точку, закидываем в регистр
'========== Первый индикатор ===============
Call Uimetr
Value = V * 3 ' переменная для разноса
For Temp = 4 To 1 Step -1 ' в цикле разбиваем переменную по разрядам
Number(temp) = Value Mod 10
Value = Value / 10
Next
Ledout = Lookup(number(count) , Digits) ' забираем код цифры для ПЕРВОГО индикатора
Gosub Tochka1 : Gosub Registr 'зажигаем точку, закидываем в регистр
Pulseout Portc , 2 , 20 ' защелкиваем данные (для 4МГц импульс 5мкс)
Return
'<---------- подпрограмма отправки данных в регистр
Registr:
Shiftout 595data , 595clock , Ledout , 1 'задвигаем данные
Return
'<---------- управление точками ПЕРВОГО индикатора
Tochka1:
If H_flag1(count) = 1 Then ' если установлен флаг
Ledout = Ledout Xor &B10000000 ' зажигаем точку
End If
Return
'<---------- управление точками ВТОРОГО индикатора
Tochka2:
If H_flag2(count) = 1 Then ' если установлен флаг
Ledout = Ledout Xor &B10000000 ' зажигаем точку
End If
Returnamv2000 писал(а):Вроде советуют в обработке прерываний ставить только флаги и не каких вычислений.
