Android Question how to put a sub in a object

[electro179]

I would put a sub in a tag
like that


tag is a object
NbrTotalPIDToSynchro is a sub

pb.Tag = code_rdm.NbrTotalPIDToSynchro

thank you

 

[Erel]

Please use [code]code here...[/code] tags when posting code.
code_rdm needs to be a class.

pb.Tag = "NbrTotalPIDToSynchro")
CallSub(code_rdm, pb.Tag)

 

[LucaMs]

It is not possible. You could create a custom Type containing ...

(Erel was faster )

... containting the target (code_rdm) and the routine name.

 

[electro179]

ok thank you

 

[LucaMs]

It is not possible. You could create a custom Type containing ...

(Erel was faster )

... containting the target (code_rdm) and the routine name.

Example:

Type tToCall(Target As Object, SubName As String)



Dim ToCall As tToCall
ToCall.Initialize
ToCall.Target = "modXYZ"
ToCall.SubName = "Routine"
AnObject.Tag = ToCall



ToCall = AnObject.Tag
CallSub(ToCall.Target, ToCall.SubName)

 

[electro179]

when I use this function in activity : activity_firstsynchro

the

function1 = "code_rdm.NbrTotalPIDToSynchro"

CallSub(Me,function1)

But I have an error
For input string : "null"

 

[LucaMs]

Use my code, replacing:

ToCall.Target = "modXYZ"
ToCall.SubName = "Routine"

with:

ToCall.Target = "code_rdm"
ToCall.SubName = "NbrTotalPIDToSynchro"

 

[electro179]

I'm trying

 

[electro179]

how do I have to declare ?
AnObject

 

[LucaMs]

how do I have to declare ?
AnObject

pb.Tag = code_rdm.NbrTotalPIDToSynchro

I wrote AnObject as example... any object that has a property like Tag, which is of type object.

Type tToCall(Target As Object, SubName As String)


Dim ToCall As tToCall
ToCall.Initialize
ToCall.Target = "code_rdm"
ToCall.SubName = "NbrTotalPIDToSynchro"
pb.Tag = ToCall


ToCall = pb.Tag
CallSub(ToCall.Target, ToCall.SubName)

 

[electro179]

I do that to test in the Sub Activity_Create(FirstTime As Boolean)

    Dim obj As Object
    Dim pb As Panel
    pb.Initialize("")
    Dim ToCall As tToCall
    ToCall.Initialize
    ToCall.Target = "main"
    ToCall.SubName = "test"
    pb.Tag = ToCall
    ToCall = pb.Tag
    result = CallSub(ToCall.Target, ToCall.SubName)

Sub test As Int
    
    Return 5
End Sub

and I have an enrror on the last line

the error is
java.lang.NumberFormatException: For input string: "null"

 

[electro179]

and I declare the result as a object then the object remains Null after the callsub

 

[LucaMs]

It can be used to call routines of "classes" (other objects) and services.

 

[LucaMs]

Maybe you could "transform" your code module "code_rdm" to class.