B4R Question Can pins be stored in global array ?

peacemaker

Expert
Licensed User
Longtime User
Hi, All

If to make some separate code module for working with pins:

B4X: 
Sub Process_Globals
Type ButtonState (pin As Pin, lastState As Boolean, currentState As Boolean, lastDebounceTime As ULong, pressStartTime As ULong, pressDuration As ULong, eventGenerated As Boolean, periodicCounter As UInt, pressEventTime As ULong, lastPeriodicTime As ULong)
Private buttons(5) As ButtonState

when i try to add the pin and next get it back:

B4X: 
Public Sub AddButton(gpio_num As Byte, pin_mode As Byte)
    Dim p As Pin
    p.Initialize(gpio_num, pin_mode)
    buttons(ButtonsIndex).pin = p
End sub


Private Sub ProcessButton(btn As ButtonState)
    Dim reading As Boolean = btn.pin.DigitalRead

pin is always empty, with zero GPIO, not saved.

Impossible to have pins in array ?
 
Sort by date Sort by votes

Cableguy

Expert
Licensed User
Longtime User
Is ButtonState your class module?
Can you share your current project?
 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
I am getting this when uploading to my NodeMCU Board

B4X: 
[IDE message - 11:51:20]
An error occurred.
Le fichier spécifié est introuvable
 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
I tried with a ESP2866 and it had similar error, but refered to a py (python) missing file....
 
Upvote 0

peacemaker

Expert
Licensed User
Longtime User
Cableguy said:
ESP2866
Click to expand...
Also OK to run v0.13.


 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
today I won't have the time, but I will give it a try tomorrow..;

BTW, why don't you pass the number of buttons in the initalize method, instead of having to go to the class and explicitly set them in the array?
 
Upvote 0

peacemaker

Expert
Licensed User
Longtime User
Cableguy said:
don't you pass the number of buttons in the initalize method
Click to expand...
Not clear. GPIO number is passed.
But the length of the array is anyway must be set by digit in B4R, no idea how dynamically declare and re-declare the arrays.
 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
you can declare the array as having only 1 element and then redeclare it in the iniatilize method with a variable int
Something like

B4X: 
Private buttons(1) As ButtonState

Public Sub Initialize(BtnQty as int)
    Dim buttons(BtnQty) As ButtonState
    ButtonsIndex = 0
    timer1.Initialize("CheckButtons_Tick", POLL_INTERVAL)
    timer1.Enabled = True
    Log("Buttons initialized")
End Sub
 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
I see.... moreover types can only be declared inside process Globals.... too bad!
 
Upvote 0

peacemaker

Expert
Licensed User
Longtime User
But question is about the pin objects.
 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
Maybe a new whish for @Erel to think about... a B4R update would be nice!
 
Upvote 0

Cableguy

Expert
Licensed User
Longtime User
peacemaker said:
But question is about the pin objects.
Click to expand...
I don't think the issue is the pin object, but the type not keeping the same reference throughout the code
maybe replace the type declaration with an array of Map... that should work!
 
Upvote 0

peacemaker

Expert
Licensed User
Longtime User
It can be solved so:

B4X: 
Sub Process_Globals
.....
  
    Type ButtonState (index As Byte, lastState As Boolean, currentState As Boolean, lastDebounceTime As ULong, pressStartTime As ULong, pressDuration As ULong, eventGenerated As Boolean, periodicCounter As UInt, pressEventTime As ULong, lastPeriodicTime As ULong)
  
    Private buttons(2) As ButtonState   'setup exactly needed qty to avoid crash!
    Private pins(2) As Pin    'setup exactly needed qty to avoid crash!
End Sub

' Add new button
Public Sub AddButton(gpio_num As Byte, pin_mode As Byte)
    pins(ButtonsIndex).Initialize(gpio_num, pin_mode)
    buttons(ButtonsIndex).index = ButtonsIndex
    buttons(ButtonsIndex).lastState = True
....

' Process single button state
Private Sub ProcessButton(btn As ButtonState)
    Dim gpio_num As Byte = pins(btn.index).PinNumber
    Dim reading As Boolean = pins(btn.index).DigitalRead

Two separate arrays are ... OK. Works.
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Article
B4R Code Snippet ds18b20: 1Wire temperature sensor, B4R pin variable
Replies
0
Views
199
peacemaker
  • Article
B4R Code Snippet esp32 RS485 bus: ModBus RTU module via Serial2: Slave + Master, pins settings
Replies
0
Views
257
peacemaker
  • Locked
  • Article
B4R Library [module] GlobalStore - Global objects storage
Replies
11
Views
11K
Erel
  • Locked
  • Article
B4R Tutorial HC 05 Classic Bluetooth
2
Replies
36
Views
47K
Erel
  • Article
B4R Tutorial Memory, Variables and Objects
Replies
8
Views
19K
Erel
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…