amv2000 писал(а):Gordon Shumway писал(а):Для чего введена переменная "Z_cross_f" ?
3. Для чего сконфигурирован timer0 ? Не нашел, где он используется...
Здесь очевидно прерывание занимается тем, чем и должно. В частности устанавливает флаг Z_cross_f (это же кусок из программы вероятно далее, где то используется)
zero648 писал(а):Частота МК должна быть 8Мгц при таких параметрах таймера 1
Код: Выделить всё
$regfile = "attiny2313.dat"
$crystal = 8000000
Config Portb.1 = Output
Config Pinb.0 = Input
Dim Level_dimmer As Byte
Dim Dimmer_on As Bit
Dim Dimmer_delay_w As Word
Dimmer_out Alias Portb.1 ' нога - выход, к оптосимистору на симистор
Key Alias Pinb.0
Config Int0 = Change ' Установка прерывания INT0 на изменение сигнала
On Int0 Z_cross_int
' Прерывание на вход датчика перехода синусоиды через ноль
Config Timer1 = Timer , Prescale = 8 ' конфигурируем таймер 1
On Ovf1 Ovf1_my Nosave : Enable Ovf1
Enable Interrupts
Enable Int0
Enable Timer1
Start Timer1
Do
While Key = 1
Wend
'WAITMS 250 <----тут пробовал
Incr Level_dimmer
If Level_dimmer = 0 Then Level_dimmer = 1
If Level_dimmer = 8 Then Level_dimmer = 1
'----------
Dimmer_modul: ' ---------- УПРАВЛЕНИЕ ДИММЕРОМ ----------
If Level_dimmer = 0 Then
Dimmer_on = 0
Disable Ovf1
Else
Dimmer_on = 1
If Level_dimmer < 8 Then Enable Ovf1
End If
If Level_dimmer > 7 Then
' Dimmer_delay_w = &HFFFC ' Ярко горит - 230v
Disable Ovf1
Dimmer_out = 1
Level_dimmer = 8 ' <<<<<<<<<<<<<<<<<<<<<<<< ограничитель
End If
If Level_dimmer = 1 Then Dimmer_delay_w = 57900 ' Тускло горит - 25v
If Level_dimmer = 2 Then Dimmer_delay_w = 58300 ' 51v
If Level_dimmer = 3 Then Dimmer_delay_w = 58700 ' 78v
If Level_dimmer = 4 Then Dimmer_delay_w = 59000 ' 85v
If Level_dimmer = 5 Then Dimmer_delay_w = 59400 ' 149v
If Level_dimmer = 6 Then Dimmer_delay_w = 59900 ' 175v
If Level_dimmer = 7 Then Dimmer_delay_w = 61100 ' 189v
Waitus 950
'WAITMS 250 <---- и тут пробовал
Loop
''===============
Ovf1_my:
If Dimmer_on = 1 Then
Dimmer_out = 1
Waitus 90
Dimmer_out = 0
Else
Dimmer_out = 0
End If
Return
' =============== Обработка прерывания по изменению на INT 0 ==================
Z_cross_int:
Timer1 = Dimmer_delay_w
Return 
Код: Выделить всё
While Key = 1
Wend
Код: Выделить всё
Do
While Key = 1
Wend
'WAITMS 250 <----тут пробовал
Incr Level_dimmer
If Level_dimmer = 0 Then Level_dimmer = 1
If Level_dimmer = 8 Then Level_dimmer = 1zero648 писал(а):По-моему где-то в этом месте косяк:Код: Выделить всё
Do
While Key = 1
Wend
'WAITMS 250 <----тут пробовал
Incr Level_dimmer
If Level_dimmer = 0 Then Level_dimmer = 1
If Level_dimmer = 8 Then Level_dimmer = 1
PINB.0 куда подтянут к плюсу или минусу? Может надо проверять на ноль когда кнопка нажата? Может в этом месте прога и зацикливается, считая не нажатую кнопку нажатой.
Да и Level_dimmer вроде как постоянно циклично инкременируется?
Код: Выделить всё
Do
Nachalo:
If Key = 1
Incr Level_dimmer
If Level_dimmer = 0 Then Level_dimmer = 1
If Level_dimmer = 8 Then Level_dimmer = 1
Else
If Key = 0 Then Nachaloamv2000 писал(а):А не лучше вместо цикла использовать If, циклы отнимают больше драгоценной памяти...Код: Выделить всё
Do
Nachalo:
If Key = 1
Incr Level_dimmer
If Level_dimmer = 0 Then Level_dimmer = 1
If Level_dimmer = 8 Then Level_dimmer = 1
Else
If Key = 0 Then Nachalo
SAU писал(а):А кто-нибудь работал с дисплеем Nokia 3310 в Баскоме?
SAU писал(а):Привет всем!)
А кто-нибудь работал с дисплеем Nokia 3310 в Баскоме?
Gordon Shumway писал(а):Я про антидребезг спрашивал...
Код: Выделить всё
Config Pinb.0 = Input
Set Portb.0amv2000 писал(а):Gordon Shumway писал(а):Я про антидребезг спрашивал...
Попробуйте сначала подтяните вход:Код: Выделить всё
Config Pinb.0 = Input
Set Portb.0
Gordon Shumway писал(а):Так у меня ж сопртивление на плюс стоит.
amv2000 писал(а):Gordon Shumway писал(а):Так у меня ж сопртивление на плюс стоит.
Ясно, а в каком месте у Вас кнопка обрабатывается?
Код: Выделить всё
Config Pinb.0 = Input
key alias pinb.0
Do
While Key = 1
Wend
'WAITMS 250 <----тут пробовал
Incr Level_dimmer
If Level_dimmer = 0 Then Level_dimmer = 1
If Level_dimmer = 8 Then Level_dimmer = 1
'----------
Dimmer_modul: ' ---------- УПРАВЛЕНИЕ ДИММЕРОМ ----------
If Level_dimmer = 0 Then
Dimmer_on = 0
Disable Ovf1
Else
Dimmer_on = 1
If Level_dimmer < 8 Then Enable Ovf1
End If
If Level_dimmer > 7 Then
' Dimmer_delay_w = &HFFFC ' Ярко горит - 230v
Disable Ovf1
Dimmer_out = 1
Level_dimmer = 8 ' <<<<<<<<<<<<<<<<<<<<<<<< ограничитель
End If
If Level_dimmer = 1 Then Dimmer_delay_w = 57900 ' Тускло горит - 25v
If Level_dimmer = 2 Then Dimmer_delay_w = 58300 ' 51v
If Level_dimmer = 3 Then Dimmer_delay_w = 58700 ' 78v
If Level_dimmer = 4 Then Dimmer_delay_w = 59000 ' 85v
If Level_dimmer = 5 Then Dimmer_delay_w = 59400 ' 149v
If Level_dimmer = 6 Then Dimmer_delay_w = 59900 ' 175v
If Level_dimmer = 7 Then Dimmer_delay_w = 61100 ' 189v
Waitus 950
'WAITMS 250 <---- и тут пробовал
Loop
Gordon Shumway писал(а):А как в Баскоме можно менять задержку в waitus ? В хелпе написано, что это константа...
Код: Выделить всё
x=100
waitus xКод: Выделить всё
x=100
for i=1 to x
waitus 1
next iСекретный кот писал(а):Gordon Shumway писал(а):А как в Баскоме можно менять задержку в waitus ? В хелпе написано, что это константа...
Действительно, константа. Хотя компилятор и не ругается на код видаКод: Выделить всё
x=100
waitus x
на практике оно не работает! Нужно делать например так:Код: Выделить всё
x=100
for i=1 to x
waitus 1
next i
Секретный кот писал(а):Gordon Shumway писал(а):А как в Баскоме можно менять задержку в waitus ? В хелпе написано, что это константа...
Действительно, константа. Хотя компилятор и не ругается на код видаКод: Выделить всё
x=100
waitus x
на практике оно не работает! Нужно делать например так:Код: Выделить всё
x=100
for i=1 to x
waitus 1
next i
Action
Suspends program execution for a given time in uS.
Syntax
WAITUS uS
Remarks
US
The number of microseconds to wait. (1-65535)
This must be a constant. Not a variable!
In version 1.12.x.x and higher you can use a variable as well.
Igor_67 писал(а):Ну вот, неправда Ваша! Вот неправда! Как-то очень давно писал прогу для бегущих огней. Так там для автоматического изменения скорости бегущего огня, как раз и использовал переменную для Waitms. А для генератора - переменную для Waitus. И все работает по сей день.
Igor_67 писал(а):Кстати, вот выдержка из "Хэлпа":
This must be a constant. Not a variable!
Igor_67 писал(а):In version 1.12.x.x and higher you can use a variable as well.
Я таки был прав, т.к я использую версию 2.0.7.1! 