B4R Question Write relay status to Eeprom

Cesar_Morisco said:

Here is the code I'm using

Click to expand...

RJB said:

Hi, [CODE lang="b4x" title="B4R"]Out of bounds error. Array length = 0, Index = 1[/CODE]RJB
Not really sure what you are doing there but:
you are writing 1 and 0 to the same location (2, lines 4 and 7)
you are reading from a location that you have not set (0, line 10)
then overwriting that in line 11
you are putting an array into an int (line 12)

Click to expand...

RJB said:

Hi,
Not really sure what you are doing there but:
you are writing 1 and 0 to the same location (2, lines 4 and 7)
you are reading from a location that you have not set (0, line 10)
then overwriting that in line 11
you are putting an array into an int (line 12)

Click to expand...

XorAndOr said:

I don't know if the project is the same as the other posts previously,
where from the code we see, you make use of the eeprom to store the ssid and password.
Be careful to store on eeprom the relays state values on eeprom addresses you are already using

Click to expand...

RJB said:

Você pode nos mostrar seu código atualizado?

Click to expand...

RJB said:

Hi,
I'm afraid I had a lot of problems using B4X MQTT so no longer use it.
What I really meant was could you post here the code from post #1, modified a you said in post #4 that is still giving errors.
Alternatively if you could described what you are trying to achieve with it then we might be able to help.
What I have guessed at is something like the following. Obviously not tested as I don't have the relay setup.
Call TestRelay. The relay should operate then release.

B4X:

Sub Process_Globals
   private const RelayInfoStart as int = 10    'i.e first location for relay info storage
End Sub

'OnOff = 0 for off, 1 for on
Sub SaveRelay(RelayNo As Int, OnOff As Byte)
    EEProm.WriteBytes(Array As Byte(OnOff), RelayInfoStart + RelayNo)
End Sub

Sub SetRelay(RelayNo As Int)
    Dim State() As Byte = EEProm.ReadBytes(RelayInfoStart + RelayNo, 1)
    Select RelayNo
        Case 0
            If State(0) = 1 Then PinGPIO05.DigitalWrite(True) Else PinGPIO05.DigitalWrite(False)'Relay 1
        Case 1
            'If State(0) = 1 Then PinGPIO0X.DigitalWrite(True) Else PinGPIO0X.DigitalWrite(False)'Relay 1
        'case etc.
    End Select

End Sub

Sub TestRelay
  
    SaveRelay(0, 0)

    SetRelay(0)    'relay 0, released. NO contacts open. Off
    Delay(1000)

    SaveRelay(0, 1)

    SetRelay(0)    'relay 0, operated. NO contacts closed. On
    Delay(1000)

    SaveRelay(0, 0)

    SetRelay(0)    'off again

End Sub

[/code]

Click to expand...

RJB said:

That's possible as I don't know what you are already using the EEPROM for.
I put the line 'private const RelayInfoStart as int = 10 ' in Process Global so that you can move the location of the relay information in the EEPROM. The = 10 is the start position in the EPPROM, change it to something after the locations you are using for the password etc.
If you don't know what's already in use then try 20, 40, 60 etc. in place of the 10 and see what happens!

Click to expand...

Public Sub SaveNetworkDetails(Data() As Byte)'Gravar Eeprom
    Log("Salvando dados de Rede")
    Log("Comprimento de Dados : ", Data.Length)
    Log("Memoria=", AvailableRAM)
    Log("Tamanho :",StackBufferUsage)
    eeprom.WriteBytes(Array As Byte(MAGIC_EEPROM,Data.Length), 0)
    eeprom.WriteBytes(Data, 2)
    ConnectToNetwork
End Sub

Public Sub ConnectToNetwork
    Wifi.Disconnect
 If GetStoredData = 1 Then
    'read settings from EEPROM
          Dim SSID As String = bc.StringFromBytes(GStore1.slot0) 'ignore
        Dim Password As String = bc.StringFromBytes(GStore1.slot1) 'ignore" '
        Log("Tentando se Conectar a: ", SSID, " Senha: ", Password)
        If Wifi.Connect2(SSID,Password) Then
            Log("Conectado com Sucesso : ", GStore1.slot0)
            Log("IP Local: ", Wifi.LocalIp)
            StopAP
            ConnectToMqtt
       Else
            Log("WIFI Falha ao Se Conectar - Iniciar WifiServer ")
            WiFiServer.Start
      End If
    Else
        Log("Dados de Rede não Encontrados .")
        WiFiServer.Start
    End If
End Sub


Private Sub ConnectToMqtt
    mqtt.Initialize2(mqttSocket.Stream, bc.StringFromBytes(GStore1.slot2),bc.StringFromBytes(GStore1.slot3), bc.StringFromBytes(GStore1.slot4), "mqtt_MessageArrived", "mqtt_Disconnected") 'ignore
    MQTTOpt.Initialize(bc.StringFromBytes(GStore1.Slot5),bc.StringFromBytes(GStore1.slot6))
    
    If mqtt.Connect2(MQTTOpt) = False Then