'-------------------------------------------------------------------------------
'As a Dinosaur I need this reminder as to how to do it.
'1: On Rpi-Zero (the Broker), with Debian Bookworm
'   sudo apt-get install mosquitto mosquitto-clients
'   Create Hotspot (Rpi-Hotspot) with following settings:
'   Tick Connect Automatically,SSID = Rpi-Hotspot,Mode = Hotspot, Band = 2.4Ghz
'   Security = WPA3 Personal,Enter Password,IPv4 = Shared to other computers
'   Enter desired IP for Broker,Mask = 24,Gateway = same IP (it works)
'2: On Rpi-Pico
'   At Command line : OPTION WIFI SSID$,PASSWD$  will connect to Broker.
'                     OPTION WIFI Rpi-Hotspot,"*******"
'3: Run the Rpi-Pico program below,
'     A DO/LOOP continously calls TimeGet and TaskScan
'     As StepNbr is 0 at boot, that is the first Case taken.
'     Step -1 Connects & subscribes to topics
'     Step  1 Publishes TxValue every Minute.
'     Step 2 - 65535 can do what you like, but remember to reset to Step 1.
'     Don't do any loops in these steps, just check and set the next StepNbr, as that
'     means the others will get timely attention.
'4: On Linux PC (a Client)  , sudo apt-get install mosquitto-clients
'   Connect to Rpi-Hotspot, Edit connection as per Rpi-Zero with new IP
'   and route with Broker IP, then use the following but use your Broker IP:
'   mosquitto_pub -h 192.168.0.101 -m "Test Message " -t YourTopic -d
'5: When ever settings are changed, the Pico has to be reset.
'-------------------------------------------------------------------------------
OPTION EXPLICIT
OPTION DEFAULT NONE
Dim Integer CalTime,mSec,StepNbr,CommFlag,TxValue
Dim Integer StartTime0,Delay0,StartTime1,Delay1 'variables for  each Task
DIM AS STRING IP$

SUB MM.STARTUP                              'Initialise PicoMite
 RTC GETTIME                               'DS3231 on I2C GP8,GP9
END SUB
Sub MM.PROMPT                               'declare Time as Prompt
 Print Time$ ">";
End Sub
SUB Initialize
 Caltime = Timer                           'use this as mSec at program start
 mSec  = (Timer - CalTime)                 'mSec = elapsed since started
 Print "Step 0 "; CalTime                  'starting point at Boot
 iF StartTime0 = 0 THEN StartTime0 = mSec  'So that next delay is correct
 iF StartTime1 = 0 THEN StartTime1 = mSec  'So that next delay is correct
End Sub
Sub TimeGet()                               'get latest mSec & check Task Flags
 mSec  = (Timer - CalTime)                 'mSec elapsed since program started
 If mSec - StartTime0 >= 1000 Then         'If delay elapsed, allow action on it.
   StartTime0 = mSec :Delay0 = 1           'reset flags
 EndIf
 If mSec - StartTime1 >= 60000 Then        'If delay elapsed, allow action on it.
   StartTime1 = mSec :Delay1 = 1           'reset flags
 EndIf
 'Repeat here for StartTime2 to whatever
End Sub
Sub TaskScan                                'Step through each Task
 Select case StepNbr
   Case -1
     Print StepNbr
     WEB MQTT Connect "192.168.0.101", 1883,"Rpi-Hotspot","********",WebInt
     WEB MQTT subscribe "AmpHr"            'get what was sent
     WEB MQTT subscribe "Control"          'get Control Cmnd's from Rpi-Zero
     Print "Comm's Initiated"
     WEB MQTT PUBLISH "AmpHr",IP$, 0 ,1    'no reply but retain for Broker's use.
     Print mSec
     Print StartTime1
     StepNbr = 1
   Case 0                                  'At startup it comes here first
     If MM.INFO(WIFI STATUS) = 1 Then      'If we are connected
       IP$ = MM.INFO(IP ADDRESS)           'Get my IP address
       StepNbr = -1                        'Go Initialize
       CommFlag = 1                        'Flag to use later
     EndIf
   Case 1
     If Delay1 = 1 Then                    ' 1 Sec time is up.
       StepNbr = 2
       WEB MQTT PUBLISH "AmpHr",Str$(TxValue), 0 ,0    'no reply no retain
       StartTime1 = mSec :Delay1 = 0       ' reset for next 1 Min
     EndIf
   Case 2
     StepNbr = 3
   Case 3
     'StepNbr = 5                          'un-comment to quit after Step 3
 End Select                                'otherwise will run forever
End Sub
Sub WebInt
 Print "From Int. Routine"
 Print mm.topic$
 Print mm.message$
 If (mm.topic$ = "Control") AND (mm.Message$ = "Reset") then
   CPU-Restart
 EndIf
 StepNbr = 1
End Sub

'Program jumps here at start

Do
 TimeGet                                   'get the latest time in mSec.
 TaskScan                                  'se which tasks need attention.
 If StepNbr = 5 Then exit do               'a way to exit program
Loop
WEB MQTT CLOSE                              '
Print "Run Time = ";mSec                    'time program has run for.
Print "Tot ziens"
End

  Case 1
    If Delay1 = 1 Then                    ' 1 Sec time is up.
      StepNbr = 2
      WEB MQTT PUBLISH "AmpHr",Str$(TxValue), 0 ,0    'no reply no retain
      StartTime1 = mSec :Delay1 = 0       ' reset for next 1 Min
    EndIf

  Case 1
    If Delay1 = 1 Then                    ' 1 Sec time is up.
      WEB MQTT PUBLISH "AmpHr",Str$(TxValue), 0 ,0    'no reply no retain
      StartTime1 = mSec :Delay1 = 0       ' reset for next 1 Min
    EndIf
    StepNbr = 2

'---AmpHour.bas-----------------------------------------------------------------
'As a Dinosaur I need this reminder as to how to do it.
'On Debian Bookworm
'1: On Rpi-Zero (the Broker), with Debian Bookworm
'   sudo apt-get install mosquitto mosquitto-clients
'   edit /etc/mosquitto/mosquitto.conf and add the following lines:
'   allow_anonymous true
'   listener 1883
'   Create Hotspot (Rpi-Hotspot) with following settings:
'   Tick Connect Automatically,SSID = Rpi-Hotspot,Mode = Hotspot, Band = 2.4Ghz
'   Security = WPA/WPA2/WPA3 Personal,Enter Password,
'   IPv4 = Shared to other computers
'   Enter desired IP for Broker,Mask = 24,Gateway = same IP (it works)
'
'2: On Rpi-Pico
'   At Command line : OPTION WIFI SSID$,PASSWD$  will connect to Broker.
'                     OPTION WIFI Rpi-Hotspot,"*******"
'3: Run the Rpi-Pico program below,
'     A DO/LOOP continously calls TimeGet and TaskScan
'     As StepNbr is 0 at boot, that is the first Case taken.
'     Step  0 Confirms (once) we can reach the Hotspot and then disconnects.
'     Step  1 Publishes (once) Time to Rpi-Zero (Pico has TC).
'     Step  2 Publishes (once) Pico's IP address (you can Ping from Zero)
'     Step  3 Publishes (reteadly) an incrementing TxValue.
'     Step  4 Start of your other code.
'4: On Linux PC (a Client)  , sudo apt-get install mosquitto-clients
'   Connect to Rpi-Hotspot, Edit connection as per Rpi-Zero with new IP
'   and route with Broker IP, then use the following but use your Broker IP:
'   mosquitto_pub -h 192.168.0.101 -m "Test Message " -t YourTopic -d
'5: When ever settings are changed, the Pico has to be reset.
'   Purging mosquitto in Linux to re-install involves manually removing
'   the /etc/mosquitto folder.
'
'   Note: Haven't tested yet for how long the broker will hold onto message.
'         Because Clients are sending every 30 sec's, I check every 20 sec'c.
'-------------------------------------------------------------------------------
OPTION EXPLICIT
OPTION DEFAULT NONE
DIM AS STRING IP$,Tyd$
Dim as Float TxValue
Dim Integer CalTime,LoopTime,StartTime,BootTime,mSec,StepNbr,CommFlag
Dim Integer StartTime0,Delay0                 'variables for  each Task
Dim Integer StartTime1,Delay1              
Dim Integer StartTime2,Delay2              
Dim Integer StartTime3,Delay3              
Dim Integer StartTime4,Delay4              

SUB MM.STARTUP                               'Initialise PicoMite
 RTC GETTIME                               'DS3231 on I2C GP8,GP9
 Print "Got Time"
END SUB
Sub MM.PROMPT                               'declare Time as Prompt
 Print Time$ ">";
End Sub
SUB Initialize
mSec  = (Timer - CalTime)                 'mSec = elapsed since started
StartTime0 = mSec  'So that next delay is correct
StartTime1 = mSec  'So that next delay is correct
StartTime2 = mSec  'So that next delay is correct
StartTime3 = mSec  'So that next delay is correct
StartTime4 = mSec  'So that next delay is correct
TxValue = 50.0
End Sub
Sub TimeGet()                               'get latest mSec & check Task Flags
mSec  = (Timer - CalTime)                 'mSec elapsed since program started
If mSec - StartTime0 >= 5000 Then         'Boot Pause.
StartTime0 = mSec :Delay0 = 1             'reset flags
EndIf
If mSec - StartTime1 >= 10000 Then         'allow Time Send.
StartTime1 = mSec :Delay1 = 1             'reset flags
EndIf
If mSec - StartTime2 >= 10000 Then          'allow IP send.
StartTime2 = mSec :Delay2 = 1          
EndIf
If mSec - StartTime3 >= 30000 Then          'allow A/H send.
StartTime3 = mSec :Delay3 = 1          
EndIf
If mSec - StartTime4 >= 60000 Then          'allow ?
StartTime4 = mSec :Delay4 = 1          
EndIf
End Sub
Sub WifiConnect
 Print "Attempting Connection"  
 WEB MQTT Connect "192.168.0.101", 1883,"Rpi-Hotspot","76216770",WebInt
 WEB MQTT subscribe "AmpHr"                  'get what was sent
 StartTime = mSec
Do
 If MM.INFO(WIFI STATUS) > 0 Then Exit Do
 mSec =  (Timer - CalTime)
 If mSec - StartTime > 30000 Then
     Print "CPU-RESTART ;";MM.INFO(WIFI STATUS)
     CPU RESTART
 EndIf
Loop
CommFlag = 1
End Sub
Sub TaskScan                                 'Step through each Task
Select case StepNbr
Case 0                                    'At startup it comes here first
If Delay0 = 1 Then
WifiConnect
If CommFlag = 1 Then              'If we are connected
       WEB MQTT CLOSE
       Print "Step 0 Success,wait for 10 Sec's"
StartTime0 = mSec :Delay0 = 0         'Cancel this step
       StartTime1 = mSec :Delay1 = 0         'refresh delay for next step.
StepNbr    = 1                        'Go Initialize MQTT
EndIf
If mSec - BootTime > 30000 Then        'If it's taking to long
CPU RESTART                'Reboot & try again
EndIf
EndIf
 Case 1                                  ' Time send; only once
If Delay1 = 1 Then
WifiConnect
Tyd$ = Time$
WEB MQTT PUBLISH "AmpHr",Tyd$ , 0 ,1
WEB MQTT CLOSE  
     Print "Step 1 Time sent, wait for 10 sec's;";Tyd$
StartTime1 = mSec :Delay1 = 0
     StartTime2 = mSec :Delay2 = 0           'refresh delay for next step.
StepNbr    = 2
EndIf
Case 2                  'IP Addr send; only once
If Delay2 = 1 Then
WifiConnect
IP$ = MM.INFO(IP ADDRESS)            'Get my IP address
WEB MQTT PUBLISH "AmpHr",IP$,0,1    
WEB MQTT CLOSE
     Print "IP Address sent, wait for 30 Sec's ;"IP$
StartTime2 = mSec :Delay2 = 0      
     StartTime3 = mSec :Delay3 = 0           'setup delay for next step.
StepNbr = 3                        
EndIf
Case 3                                      'Repeat send incrementing value.
If Delay3 = 1 Then                        '30 Sec time is up.
WifiConnect
TxValue = TxValue + 0.1
WEB MQTT PUBLISH "AmpHr",Str$(TxValue) , 0 ,1
WEB MQTT CLOSE  
     Print "A/H Updated ;";Str$(TxValue)
StartTime3 = mSec :Delay3 = 0      
StepNbr = 4
EndIf
 Case 4
     StepNbr = 3
 End Select                                    
End Sub
Sub WebInt
 If (mm.topic$ = "Control") AND (mm.Message$ = "Reset") then
   CPU-Restart
 EndIf
End Sub

'Program jumps here at start of Boot.
CalTime   = Timer
 StartTime = Timer - CalTime
 BootTime  = StartTime
StepNbr   = 0
Print "Entering Wifi-Status Check"
Initialize
 Print "Wait for 5 Sec's for Step 0"
Do
 TimeGet                                   'get the latest time in mSec.
 TaskScan                                  'se which tasks need attention.
 If StepNbr = 5 Then exit do               'a way to exit program
Loop
WEB MQTT CLOSE                              '
Print "Tot ziens"
End

           If CommFlag = 1 Then                  'If WiFiConnect succeeded
             TxStr = "C= " + Str$(TxValue) + ", mA = " + Str$(mAmps)
             On Error skip 1
             WEB MQTT PUBLISH "AmpHr", TxStr , 0 ,1
             If CommFlag = 1 Then If PFlag > 0 Then Print TxStr, Len(TxStr)

Open Pipe "mosquitto_sub --quiet -N --retained-only -t AmpHr -w 4" for input as #pf
   Input #pf, RxStr
Close #pf
Print RxStr + ";" + Str(Len(RxStr));

Performing WiFi Scan

If LInStr(NetScan%(),"Rpi-Hotspot") Then

Not Found

  Print "Var Restored    = ";BattCapacity
   Print "Got RTC         = ";Time$
   Print "Got Version     = ";MM.Ver
   Print "On platform     = ";MM.Device$
   Print "CPU Speed       = ";MM.Info(CPUSPEED)
   Print "Drive Capacity  = ";MM.Info(DISK SIZE)
   Print "Drive SpaceLeft = ";MM.Info(Free Space)
   Print "Nbr of Variables= ";MM.Info(VARCNT)
   If BattCapacity = 0 Then BattCapacity = 12000 'Coulomb = 200A  x 60 = 12,000
   SetPin GP18,CIN                               'we are counting Amp Hour pulses
   SetPin GP22,CIN                               'no option means Risng edge PULLDOWN
   Print "Finished setting Pins"