B4R Code Snippet Set servo angle via a potentiometer, show angle on display

SubName: Set a servo angle and show the angle reading on a OLED display
Description: Their are already a few servo examples on this forum, but here is my take on it. I'm using a quality TURNIGY servo and a standard cheap 10kΩ potentiometer. As you turn the potentiometer the display changes to shows you the angle that the servo is set to, reading ranges from 0° to 179°.

Note: Using a quality servo is a good idea.
I used one of my 450/550 RC Heli TURNIGY metal gear servos because they do actually rotate 180°. My cheaper servos tend to only rotate about 160° which is adequate for RC but not for this particular B4R project.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public Serial1 As Serial

    Private Servo As Servo
    Private Potentiometer As Pin
    Private SSD As AdafruitSSD1306
    Private BC As ByteConverter
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")

    Potentiometer.Initialize(0, Potentiometer.AnalogRead)
    Servo.Attach(2)

    SSD.InitializeI2C(4, 0x3c) 'Initialise the display on address 0x3c
    SSD.GFX.ConfigureText(4, SSD.WHITE, False) 'Set display font size and colour

    AddLooper("Loopey")
End Sub

Sub Loopey
    Servo.write(MapRange(Potentiometer.AnalogRead, 0, 1023, 0, 179)) 'Read potentiometer value (0 to 1023) and set servo position to the mapped value

    SSD.ClearDisplay
    SSD.GFX.SetCursor(20, 3)
    SSD.GFX.DrawText(JoinStrings(Array As String(Servo.Read, BC.StringFromBytes(Array As Byte(247))))) 'Read the servo and display the angle
    SSD.Display
End Sub

Tags: 10kΩ, Potentiometer, Servo, OLED, Display, Arduino

10KΩ potentiometer, Microprocessor is connected to analog pin 0 on the Arduino.

How it's wired up.

What it looks like with the servo set to 90°.

Enjoy...

 

[thetahsk]

...

Referring to this post https://www.b4x.com/android/forum/threads/joystick-ky023-strange-result.110835/#post-691661 ,

please change the pin.Initialize function.