B4R Question use inline C

Erel said:

Yes, but:
1. This code is quite bad. You shouldn't use delay to control the program flow. You should instead use a Timer or CallSubPlus.
Timers, Loopers and CallSubPlus

2. It is simple to fix it and convert it to B4R:

B4X:

Sub Process_Globals
    Public Serial1 As Serial
    Private ADC As Pin
    Private ADC_VALUE As Float
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    ADC.Initialize(15, ADC.MODE_INPUT)
    ReadValue(0)
End Sub

Sub ReadValue(Tag As Byte)
    ADC_VALUE = ADC.AnalogRead
    Log("ADC VALUE = ", ADC_VALUE)
    CallSubPlus("PrintValue", 1000, 0)
End Sub

Sub PrintValue(Tag As Byte)
    Dim VoltageValue As Float = ADC_VALUE * 3.3 / 4095
    Log("Voltage = ", VoltageValue, " volts")
    CallSubPlus("ReadValue", 1000, 0)
End Sub

Click to expand...