Форум РадиоКот

edm2007 писал(а): Я смог, а Вы?

IDok писал(а):кстати, а разве не надо писать Start Timer0 ?

IDok писал(а):яркость диода управляется.

Изменяйте значение яркости, посмотрите как реагирует светодиод, разберитесь с работой кода, там ничего сложного нет. И после этого Вы без проблем допишите именно плавное зажигание / гашение светодиода.

Do
if Bright<250 then incr Bright
Waitms 10
Loop

End

'--------------------------------------------------------------

Pwm_prog: ' ïðåðûâàíèå ïðîãðàììíîé ØÈÌ íà Ò0

Incr Count

If Count = 255 Then ' ìîäóëü ñ÷åòà ØÈÌ
Count = 0
End If

If Count < Bright Then ' óïðàâëåíèå ñâåòîäèîäîì

Set Led

Else

Reset Led

End If

Return

IDok писал(а): спасибо

ARV писал(а):

LazarevSergey писал(а):вот в этом куске кода у меня остался "косяк" и как его устранить я
            'так и не додумался. Дело в том, что КОРОТКОЕ нажатие происходит ВСЕГДА раньше длинного
            'на то оно и короткое! Чётко разделить разные нажатия получается только "закрыв МК глаза" циклом
            'в течении которого ему всё равно что там ЕЩЁ помимо должно происходить! Ввиду этого, во время
            'цикла, гаснет индикация. А без цикла, в момент переключения разрядов при их настройке, фиксируется
            'ложное короткое нажатие и тем самым к настроеному как бы уже значению, прибавляется единица.
            'То есть, если надо установить значение 5, то настраивать надо 4.

Вообще говоря, все абсолютно логично, даже в Windows при двойном клике мышкой сначала посылается сообщение "Нажата_левая_кнопка_мыши", а потом "Двойной_клик_левой_кнопкой_мыши".
И разбираться с этим можно только в обработчике "короткого" нажатия: если вы получили сигнал о коротком нажатии прежде чем его обработать, надо убедиться, что это на самом деле короткое нажатие, т.е. надо немножко подождать (примерно столько, сколько это короткое нажатие может длиться) и проверить, нажата ли все еще эта кнопка. только если кнопка уже не нажата, следует обработать короткое нажатие. ну а если еще нажата - обработка не требуется, надо дождаться сигнала о длинном нажатии.

сложно давать рекомендации, когда не очень понятно, как реализована у вас обработка кнопок... лично я в подобных случаях частенько запихивал логику "длинный-короткий" прямо в функцию опроса кнопок: если она возвращает результат с установленным старшим битом, то это долгое нажатие, в младших битах код кнопки.

как-то так...

regfile = "attiny2313.dat"
$crystal = 8000000

Config Portd.2 = Output
config portd.1 = output

Config Timer0 = Timer , Prescale = 1 : On Timer0 Pwm_prog : Enable Timer0 : Enable Interrupts

Dim S As Byte , L1 As Byte , M As Byte , L2 as byte , N as Byte , O as Byte , V as Byte

'--------------------------------------------------------------
M=0 : N=0

Do
if M=0 then incr L1
if L1=255 then
portd.2 = 1
M=1
End If

if M=1 then incr L2
if L2=255 then
Portd.1 = 1
M=2
End If

waitms 10
Loop

End

'--------------------------------------------------------------

Pwm_prog:

Incr S
Incr V

If M=0 Then
If S<L1 Then
Set Portd.2
Else
Reset Portd.2
End If
End If

If M=1 Then
If V<L2 then
Set Portd.1
Else
Reset Portd.1
End If
End If

Return

M=0

Do
if M=0 then incr L1
if L1=255 then M=1

if M=1 then incr L2
if L2=255 then M=2

if M=2 then incr L3
if L3=255 then M=0

waitms 10
Loop

End

'--------------------------------------------------------------

Pwm_prog:

Incr S

if S=255 then S=0

If S<L1 Then
Set Portb.1
Else
Reset Portb.1
End If

If S<L2 then
Set Portb.2
Else
Reset Portb.2
End If

If S<L3 then
Set Portb.3
Else
Reset Portb.3
End If

Return

IDok писал(а):у Вас программа для диодов, включенных катодом в МК?

IDok писал(а):первый диод загорался как положено, второй загорался но снова гас и снова загорался, до третьего дело вообще не доходило.

IDok писал(а):по поводу языка - я б с радостью, но не нашел толкового описания в сети.

а вообще почему в моей исходной проге все-таки цикл крутился по второму каналу?

пройдите хотя бы пальцем по своему коду. Выполните его в голове, и все поймете.