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

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

CODE:
{
 if (Step) { 
  cnt++; 
  if (cnt==119){ 
    cnt=0; 
    Step--; 
      if (Direct){ 
        OCR0A=0xFE-Step;
                 } 
else { 
  if (!Step)OCR0A=0;
   else OCR0A=Step;
     }

              } 
       }

}

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

If Stp > 1 Then Incr Cnt
Elseif Cnt = 119 Then
Cnt = 0
Decr Stp
Elseif Direct > 0 Then
Ocr0a = &HFE - Stp
Else
If Stp > 0 Then
Ocr0a = 0
Else
Ocr0a = Stp
End If

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

Config Int0 = Falling
On Int0 _int0

_int0:
Waitms Debouncetime
If Portd.3 = 0 Then
   If Zad_temp <> 500 Then Incr Zad_temp
Else
   If Zad_temp <> 0 Then Decr Zad_temp
End If
Return

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

 

$regfile = "m128def.dat"                                   ' specify the used micro

$crystal = 4000000                                         ' used crystal frequency

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space

 

Print "Encoder test"

Dim B As Byte

'we have dimmed a byte because we need to maintain the state of the encoder

 

Portb = &B11                                               ' activate pull up registers

 

Do

  B = Encoder(pinb.0 , Pinb.1 , Links , Rechts , 1)

  '                                               ^--- 1 means wait for change which blocks programflow

  '                               ^--------^---------- labels which are called

  '              ^-------^---------------------------- port PINs

  Print B

Waitms 10

Loop

End

 

'so while you can choose PINB0 and PINB7,they must be both member of PINB

'this works on all PIN registers

 

Links:

Print "left rotation"

Return

 

Rechts:

Print "right rotation"

Return

End