B4J Question Connection between subs

[Arturs]

Hi

Is it possbile to know from which subs another sub was called ?

For example

Sub Test

If the sub was called from Sub1 then

do it the code

else

do it the code

endif

End Sub

Regards
Artur

 

[Cableguy]

not directly, but you can set a flag ( variable ) and set at each sub call (if it a control triggered on you can use sender, or if it is a custom sub, you can pass the calling sub as a string parameter)

examples:

sub globals
....
dim CallingSub as string
....
end sub

sub test
CallingSub = "test"
callsub("test2")
end sub

sub test2
log(CallingSub)
endsub

sub Button_Clicked
CallingSub=sender
log(CallingSub)
end sub

sub test
test2("test") ' this will call test2 sub passing "test" as parameter
end sub

sub test2(CallerSub)
log(CallerSub)
end sub

 

[Arturs]

Sub Button1_MouseClicked (EventData As MouseEvent)   
    btn = Sender
   Log(btn)
     
End Sub

and another Event I want to check value of sender

If btn = here should be name of button to check which buttons were used ?

 

[Arturs]

Actually If I press Button1 I would like to forward all traffic from Bluetooth to Edit1
If I press Button2 I would like to forward all traffic from BT to Edit2

 

[KMatle]

I assume you're a beginner.

If you have 2 different Buttons (B1, B2) then you have 2 corresponding click-event-subs. So it's easy to know which one it was.

The "sender-thing" is not needed for 2 just buttons (I assume you create them in the designer?)

Hint: Take a look to the beginners guide. Of course we will guide you...

 

[Arturs]

Yes. You are right but I did not mean it.
I will try to explain it more precisely.

I have event which is called automaticaly when new information were received from another device.
The event must know which button was last pressed and forward the information to proper EditText.
In my case Button is something like flag.
I can set a flag in variables According to Cableguy advice and It works
but I think the solution with Sender is better.

Sub Button1_MouseClicked (EventData As MouseEvent)  
    btn = Sender
   Log(btn)
    
End Sub

In above code I take Sender into btn variable.
I would like to check the variable in Bluetooth event but I do not know how to use btn in IF function.
Should I compare btn with name of Button ?

If btn = here should be name of button to check which buttons were used ?

Regards
Artur

 

[Cableguy]

in the btn control, define the tag property with a meaningful string, like "buton1" or "stream1", then using the sender, like you did, just check the tag, like:
btn=sender
if btn.tag = "stream1" then....

or use a select case, like

select btn.tag

case "stream1"
your code goes here
case "stream2"
your code goes here
end select

 

[Arturs]

Thank you for your support. Everything works

 

[Arturs]

Is it possbile to wait in a sub as long as new information will be received from BT. I tried to use "Do While" but it does not work because event BT is called after the loop.

Summary:
I need to
- send first information
- wait for answer
- after receiving answer send second information
- wait for answer
....

 

[Erel]

No. You shouldn't try to hold the main thread. It will not work. You should instead use AsyncStreams.

 

[Arturs]

OK.

For example I want to send 5 commands to my device

send_command(1)
send_command(2)
send_command(3)
send_command(4)
send_command(5)


If I sent one by one it does not work because the command are sent faster then new_inforormation are received so my application skips some commands.

My solution is create a buffer with commands and then send one by one but In the way I need thread where the aplication will wait for answer and sends next command from buffer.

What do you think about my solution ? Is it better way to do it in B4J or B4A ?

 

[Erel]

You need to provide more information. Are you communicating with another Android device?

Are you using AsyncStreams?

 

[Arturs]

I use AsyncStreams for BT and udppacketarrived for WIFI. I am more intrested in how to do it with udppacketarrived events

 

[Erel]

Are you expecting a response after each command? If not then you should use a timer to send each message.

You can add the messages to a List and then send the first command and remove it from the list in Timer_Tick event.

 

[Arturs]

I am expecting response after each command

 

[Erel]

You should add the messages to the List. Send the first message and remove it from the List (List.RemoveAt(0)).

Now wait for the UDPSocket_PacketArrived. When it is called send the next message and remote it from the list.