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

Код: Выделить всё

'********************************** Управление ШИМ ********************************
Lk03:
Do
' *************************** Управление ШИМ **************************************
If Stp > 1 Then
                Incr Cnt
                If Cnt = 140 Then       ' регулируем скорость ШИМ чем больше тeм медленнее
                                   Cnt = 0
                                   Decr Stp
                                   If Direct > 0 Then
                                                     Ocr1a = &HFE - Stp
Else
         If Stp = 0 Then
                        Ocr1a = 0
                        Else
                        Ocr1a = Stp
                        End If
                                  End If
               End If
End If

'************************ Устанавливаем флаг когда можно работать 1 wire *****
If Ocr1a = &HFD Then       '  Например такое условие
Set A
Goto W01
End If
Loop           'Until A = 1       ' срабатывает один раз потом что тонадо делать

Код: Выделить всё

For D = 1 To 60
For A = 0 To 255
Pwm1a = A
Waitms 12
Next A
Pwm1a = 255
Wait Temp1
For A = 255 To 0 Step -1
Pwm1a = A
Waitms 12
Next A
Pwm1a = 0
Wait Temp2
Next D

Код: Выделить всё

Config Pind.6 = Output
Config Pind.2 = Input
Config Int0 = Falling
Dim Wtime As Byte
On Int0 Stopbutton
Cls
Wtime = 255
Enable Interrupts
Enable Int0
Do
  Сюда Ваш код
Loop
Stopbutton:
  Lcd "stopъ!"
Return

Код: Выделить всё

On Int0 Lk01 Nosave
Enable Interrupts
Enable Int0
 Do
For D = 1 To 60
For A = 0 To 255
Pwm1a = A
Waitms 12
Next A
Pwm1a = 255
Wait 2
For A = 255 To 0 Step -1
Pwm1a = A
Waitms 12
Next A
Pwm1a = 0
Wait 1
Next D

Loop
End
Lk01:
Print "OPPANA!"
Return

Код: Выделить всё

Config Pind.0 = Input
Set Portd0.0

Код: Выделить всё

SET PORTD0.0

Код: Выделить всё

SET PORTD.0