Sub Button_Click
Dim nomesub,nomemodulo as String
nomesub = "MiaRoutine"
nomemodulo = "Main"
CallSub (nomemodulo,nomesub)
End Sub
Sub MiaRoutine
End Sub
Se la routine che vuoi chiamare si trova nello stesso modulo in cui avviene la chiamata, basta semplicemente scrivere il nome della routine, così:
B4X:
Sub Button_Click
MiaRoutine
End Sub
Sub MiaRoutine
End Sub
CallSub serve più che altro quando vuoi richiamare una routine che si trova in un altro modulo, ecco perché i parametri richiesti sono il nome del modulo e il nome della routine.
Se la routine che vuoi chiamare si trova nello stesso modulo in cui avviene la chiamata, basta semplicemente scrivere il nome della routine, così:
B4X:
Sub Button_Click
MiaRoutine
End Sub
Sub MiaRoutine
End Sub
CallSub serve più che altro quando vuoi richiamare una routine che si trova in un altro modulo, ecco perché i parametri richiesti sono il nome del modulo e il nome della routine.
Sub btnSubByte_Click
Dim nomesub,nomemodulo As String
nomesub = "Code"
nomemodulo = "Main"
CallSub (nomemodulo,nomesub)
End Sub
Sub Code(Bytes() As Byte) As String
scusa, potresti per favore spiegarmi dove sto sbagliando?
senza variabile la carica, con variabili non riesco.
Grazie mille
Dim NomeSub As String = "mySub"
CallSub (Main,NomeSub)
il nome modulo è stringa ma il Modulo è Object, quindi va richiamato non con il nome del modulo dentro una string ma facendo riferimento al modulo stesso
Sub btnSubByte_Click
Dim NomeSub As String = "Code"
Dim nomeMain As Object = "Main"
CallSub (nomeMain,NomeSub)
End Sub
Sub Code(Bytes() As Byte) As String
nel Log ce un warning #12 Sub Code non è in uso.
e sul cellulare mi dice (l'applicazione si è bloccata in modo anomalo)
sapete se si trovano manuali in Italiano di B4a, avevo letto da qualche parte che prima di Natale erel avrebbe pubblicato un libro.
Grazie mille
Mi correggo.. dovrebbe funzionare così per restituire una stringa
B4X:
Sub btnSubByte_Click
Dim NomeSub As String = "Code"
Dim StringaRestituita as String = CallSub2(Main,NomeSub, Byte())
End Sub
Sub Code(Bytes() As Byte) AsString
Grazie mille DU
faccio delle prove sulla base dei tuoi esempi come criptare dati, non devo criptare dati tipo carte di credito, devo criptare dati relativi alla privacy della attività, sono riuscito ma rallenta molto il cellulare, e volevo usare codice tuo esempio
Sub Decode(bytes() As Byte) AsStringReturnBytesToString(bytes, 0, bytes.Length, "UTF8")End Sub
LA codifica é un argomento vasto e complesso.
Ci sono algoritmi per codificare e soluzioni per velocizzare.
Dipende cosa devi fare. Ogni App richiede una soluzione specifica, che dipende dal tipo dei dati che devi trattare.