'read the rotary encoder
   b=a                                  'remember last encoder pins
   a=Port(in0,1,in1,1)                  'read encoder pins simultaneously
   If a=3 Then b=3:i=0                  'reset things if in neutral
   If a<>b Then rc(i)=a:Inc i           'if they have changed then store and bump pointer
   If i=3 Then                          'when we have 3 values sort out the store
     'you can do anything here but you must reset i to zero at the end
     If rc(0)=1 Then Inc count Else Inc count,-1
     Print count
     i=0
   EndIf

'rotary_encoder_mixtel.bas
dim integer in0=2,in1=1,rc(3)
setpin in0,din:setpin in1,din
do
'read the rotary encoder
  b=a                                  'remember last encoder pins
  a=Port(in0,1,in1,1)                  'read encoder pins simultaneously
  If a=3 Then b=3:i=0                  'reset things if in neutral
  If a<>b Then rc(i)=a:Inc i           'if they have changed then store and bump pointer
  If i=3 Then                          'when we have 3 values sort out the store
    'you can do anything here but you must reset i to zero at the end
    If rc(0)=1 Then Inc count Else Inc count,-1
    Print count
    i=0
  EndIf
loop

' simple encoder reading TassyJim Nov 2022
 SETPIN GP19, DIN, PULLUP' setup RB as an input
 SETPIN GP20, INTL, RInt, PULLUP' setup an interrupt when RA goes high
 DO
   ' < main body of the program >
 LOOP
 
SUB RInt ' Interrupt to decode the encoder output
 IF PIN(GP19) = 1 THEN
   Value = Value + 1 ' clockwise rotation
 ELSE
   Value = Value - 1 ' anti clockwise rotation
 ENDIF
 PRINT Value
END SUB

SETPIN xxx, INTB, Rint, PULLUP

IF PIN(xxx)=PIN(yyy) THEN
  INC Value,1
ELSE
  INC Value,-1
END IF

'joystick test

SetPin gp26,ain
SetPin gp27,ain
'SetPin gp0,off
SetPin gp6,din,pullup

sens=1.5

GoTo bits



bits:
Do
y=Pin(gp26)
x=Pin(gp27)
b=0
b=b+Not(Pin(gp6)) 'bit 7 - joystick button
b=b<<1
b=b+0 'bit 6 - spare input
b=b<<1
b=b+0 'bit 5 - button B
b=b<<1
b=b+0 'bit 4 - button A
b=b<<1
b=b+(x>3.3-sens) 'bit 3 - joystick right
b=b<<1
b=b+(x<sens) 'bit 2 - joystick left
b=b<<1
b=b+(y<sens) 'bit 1 - joystick down
b=b<<1
b=b+(y>3.3-sens) 'bit 0 - joystick up
Print Bin$(b,8)
Pause 100
Loop



switches:
Do
y=Pin(gp26)
x=Pin(gp27)
up = (y>(3.3-sens))
down=(y<sens)
left=(x<sens)
right=(x>(3.3-sens))
Print @(200,100)"> ";
If up=1 Then Print "UP   "; Else Print "     ";
If down=1 Then Print "DOWN "; Else Print "     ";
If left=1 Then Print "LEFT "; Else Print "     ";
If right=1 Then Print "RIGHT "; Else Print "      ";
If Pin(gp6)=0 Then Print "BUTTON <" Else Print "       <"
'Print up,down,left,right,Pin(gp6)
Pause 100
Loop


values:
Do
Print Pin(gp26),Pin(gp27),Pin(gp6)
Pause 100
Loop


values2:
Do
y=Int(Pin(gp26)*1000/33)
x=Int(Pin(gp27)*1000/33)
Print x,y
Pause 100
Loop


object:
x=400
y=150
Do
 Print @(x,y)" "
 Select Case Pin(gp26)
   Case >(3.3-sens)
     y=y-10*(y>0)
   Case <sens
     y=y+10*(y<460)
 End Select
 Select Case Pin(gp27)
   Case >(3.3-sens)
     x=x+10*(x<730)
   Case <sens
     x=x-10*(x>0)
 End Select
   Print @(x,y)"@"
   Pause 10
Loop


object2:
x=50
y=50
Do
 Print @(x,460-y)" "
 x=Int(Pin(gp27)*730/3.3)
 y=Int(Pin(gp26)*460/3.3)
 Print @(x,460-y)"@"
 Pause 30
Loop

' simple encoder reading TassyJim Nov 2022, updated Volhout
SetPin 2, DIN, PULLUP' setup RB as an input
SetPin 1, INTB, RInt, PULLUP' setup an interrupt when RA goes high
Do
  ' < main body of the program >
Loop

Sub RInt ' Interrupt to decode the encoder output
' If Pin(2) = 1 Then
If Pin(2) = Pin(1) Then
  Value = Value + 1 ' clockwise rotation
Else
  Value = Value - 1 ' anti clockwise rotation
EndIf
Print Value
End Sub

Const jsRx=34,jsRy=32,jsSW=29 ' GP27,GP28,GP22
SetPin jsRy,ain
SetPin jsRx,ain
SetPin jsSW,din,pullup

CLS
Do
' Print @(x,460-y)" "
x=Int(Pin(jsRx)*MM.HRes/3.3)
y=MM.VRes-Int(Pin(jsRy)*MM.VRes/3.3)
' Print @(x,460-y)"@"
 diffx=x-x2: diffy=y-y2
 If (Abs(diffx)>1) Or (Abs(diffy)>1) Then
' If (x<>x2) Or (y<>y2) Then
   Pixel x2,y2,0
   x2=x:y2=y
   Print x,y
   Pixel x,y,1
 EndIf
 Pause 30
Loop