B4R Tutorial Touch switch

Hello all
This is the same as Erel's "Button Example" modified by Klaus. All what I did is replacing the mechanical switch with a touch switch module. So simple that the images speak for themselves.
BTW: for your convenience I am putting the code here.
B4X:
Sub Process_Globals
  Public Serial1 As Serial
  Private pinButton As Pin  'pin for the button
  Private pinLED13 As Pin  'pin for the green Led
  Private LightOn = False As Boolean
End Sub
Private Sub AppStart
  Serial1.Initialize(115200)
  pinButton.Initialize(pinButton.A0, pinButton.MODE_INPUT_PULLUP) 'Using the internal pull up resistor to prevent the pin from floating.
  pinButton.AddListener("pinButton_StateChanged")
  pinLED13.Initialize(13, pinLED13.MODE_OUTPUT)
  pinLED13.DigitalWrite(LightOn)  'sets LED13 according to LightOn
End Sub
Private Sub pinButton_StateChanged (State As Boolean)
  If State = False Then  'remember, False means button pressed.
  LightOn = Not(LightOn)
  pinLED13.DigitalWrite(LightOn)
  End If
End Sub

Arduino_Touch1.png
Arduino_Touch2.png
 
Last edited:
Top