Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
ottime cifre ? ma se è un contatore delle colonne che sta sviluppando che cazzo ci devi fare ?Ultimo tentativo di spiegare cosa intendo per visualizzazione di qualcosa in RUN TIME nella finestra Messaggi poi ti lascio in pace. Se una "copia" delle, ottime cifre a scorrimento in rosso che si visualizzano durante l'elaborazione della libreria, la volessi rivisualizzare anche nel campo "Messaggi" o in un altro campo testo analogo... (da aggiungere opzionalmente alla stessa interfaccia principale) come potrei fare? Sempre sia possibile...
Sei un genio Tom
Quindi non mi interessa alla fine sapere perchè i nostri due punti di vista non collimano anche perchè come tu non comprendi giustamente il mio io non riesco ugualmente ad entrare nella logica ed elaborazione complessa del tuo 
Lo chiedo perchè ho provato ad utilizzarle ma non mi funzionano... Se si tratta invece, come ne sono quasi sicuro, di errori di utilizzo da parte mia, se fosse possibile avere dei velocissimi esempi di relativo utilizzo credo che sarebbero molto molto utili x tutti... Grazie 
Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
Dim classe As Long
Dim sorte As Long
Dim aruote() As Long
ReDim numeri(0) As Long
Dim stringamessaggio As String
classe = InputBox("classe", , 5)
sorte = InputBox("sorte", , 2)
aruote = ScegliRuote
ScegliNumeri(numeri)
Scrivi
Scrivi "Analisi della ruota o delle ruote (unite) " & NomeRuota(aruote)
Scrivi "Per la sorte di " & NomeSorteLotto(sorte)
Scrivi "Classe di sviluppo " & classe
Scrivi "Ordinamento valori per ritardo decrescente"
Scrivi "Gruppo base analizzato " & StringaNumeri(numeri) & " di classe " & UBound(numeri)
Scrivi
Dim ret As STRUCT_VALORI_MIGLIORI
Dim k As Long
Dim aRet() As STRUCT_VALORI_MIGLIORI
Scrivi ("ClassificaRitardo")
Scrivi
'aRet = ClassificaRitardo(classe, EstrazioneFin, sorte, aruote, , numeri)
Call RitardoPiuAlto(classe, EstrazioneFin, sorte, aruote, , numeri, aRet)
For k = 1 To UBound(aRet)
'Scrivi (StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)
stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore
Messaggio(stringamessaggio, True)
AvanzamentoElaborazione(k, UBound(aRet))
frmScript.lblMessaggio = "prova"
If k Mod 100 = 0 Then DoEvents
If bScriptInterrotto Then Exit For
Next
Scrivi
Scrivi TempoElaborazioneSecondi
Scrivi
End Sub Dim k As Long
Dim Sorte As Long = 2
Dim aN As Variant = Array(1, 2, 3, 4, 5, 6, 7)
Dim aRuote As Variant = Array(1, 2, 3)
Dim Ris As STRUCT_VERIFICAESITO_RISULTATO
Dim aTrovati () As STRUCT_STATISTICHE_TROVATI
If VerificaEsito(aN, Sorte, 9000, Ris, aRuote, , , aTrovati) Then
Scrivi "Esito al colpo " & Ris.ColpiUsati
Scrivi "Sorte uscita " & Ris.EsitoTrovato
Scrivi "Presenze " & Ris.Presenze
Scrivi "PresenzeMult " & Ris.PresenzeMultiple
For k = 1 To UBound(aTrovati)
Scrivi (StringaNumeri(aTrovati(k).aNumeri) & " all'estrazione " & aTrovati(k).idEstrazione & " ruota " & aTrovati(k).idRuota)
Next
Else
Scrivi "Esito non troato"
End Iftrattasi di label e non di text box , non si puo specificare quanto spazio ci deve essere a destra e a sinistra , si puo agire sulla proprietà Align
Grazie per le tue considerazioni intrise di entusiasmante dissensoIo x collimare intendo che partendo da strade concettuali diverse e perchè no anche diametralmente opposte..., senza bisogno di capirsi nei rispettivi sviluppi, gli elementi o almeno parte degli elementi del gruppo finale dei nostri due diversi sviluppi riduzionali convergano...
aridaje...
Ok amico non mi faccio abbacinare dalla vastità della GREEN VISION
Ok...
MIgliora la velocità quanto ritieni di poterla aumentare. Fa sempre bene aumentarla in questi campi...
Io lo sposterei in effetti in un altro tuo thread dedicato dove volentieri almeno io parteciperei con le mie convergenze eventuali... L'unica cosa io come sai preferirei lavorare sempre sulla ruota simbolotto di turno per non avere troppi target di ruota diversi e per avere la remotissima possibilità di vincere anche con il relativo free game incluso
ps: per collaborare con le nostre eventuali convergenze rookie ti ricordo che sarebbe bene avere da parte di entrambi i relativi output numerici in formato TEXT e non grafico. Diversamente non mi risulta possibile operare con i numeri comuni o meno... rispetto i nostri due diversi sviluppi.
tuttavia ho raccolto il messaggio e, nel caso tu volessi dar seguito, nel thread di Elleuca, nel mio ultimo messaggio, c'e' uno spunto per coniugare forse cio' che coniugabile non e'...
Io non riesco a farlo funzionare... in nessuno modo. Il grid non va in run...
