NUOVO AMBIENTE SCRIPT AREA TECNICA

[LuigiB]

Ciao Luigi lo script è di giomi, i complimenti vanno a lui.

avevo capito lo avessi fatto tu .. allora rigiro i omplimenti pure a Giomi.

 

[i legend]

ciao , i complimenti vanno tutti a lui
l ultimo aggiornamento non l ho scaricato perchè ho appena letto
ho rielaborato leggermente lo script di giomi per allineare i titoli

ecco lo script , con scegli ruota si possono selezionare le ruote volute
dato che i dolori non mi mollano , ho provato a fare lo script , ma non so se ho fatto errori ,magari dovuti a una svista , domani controllo bene
ecco lo script
giomi dimmi se la formattazione cosi va bene , i colori sono solo un esempio , volevo vedere come andavano

Public Sub MyScriptRoutine()
Dim aR() As Long
aR = ScegliRuote(False)
GetTabAnalitico(aR)
End Sub
Sub GetTabAnalitico(aR() As Long)
    Dim Totale As Long
    Dim Ini As Long
    Dim Fin As Long
    Dim Es As Long
    Dim Riga As String
    Dim Ruo As Long
    Dim Pos As Long
    Dim Estr As Long
    Dim Tutti As Long
    ReDim Usciti(90,UBound(aR)) As Variant
    Totale = 90 * UBound(aR) ' 10 Ruote + Nazionale
    Ini = EstrazioneIni
    Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
    Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
    DataEstrazione(Fin),True)
    Call Scrivi()
    Call Cornice(aR)
    Call Intestazione(aR)
    Call Cornice(aR)
    Dim aSep As Variant = Array("",".",".",".",".","|")
    For Es = Fin To Ini Step - 01
        Call Messaggio(CStr(Es))
        Riga = FormatSpace(Fin - Es,03) & "|"
        For Ruo = 1 To UBound(aR)
            For Pos = 1 To 5
                Estr = Estratto(Es,aR(Ruo),Pos)
                If Usciti(Estr,Ruo) = "" Then
                    Riga = Riga & FormatSpace(Estr,2) & aSep(Pos)
                    Usciti(Estr,Ruo) = Estr
                    Tutti = Tutti + 01
                Else
                    Riga = Riga & "  " & aSep(Pos)
                End If
            Next
        Next
        Call Scrivi(CStr(Riga),True,,,RGB(90,90,123),95%)
        If Tutti = Totale Then Exit For
    Next
    Call Cornice(aR)
    Call Intestazione(aR)
    Call Cornice(aR)
End Sub
Sub Intestazione(aR() As Long)
    Dim Riga As String
    Dim r As Long
    Riga = "Rit|"
    For r = 01 To UBound(aR)
        Riga = Riga & Space(6) & SiglaRuota(aR(r)) & Space(6) & "|"
    Next
    Call Scrivi(CStr(Riga),True,,RGB(238,237,242),RGB(164,0,0),95%)
End Sub
Sub Cornice(aR() As Long)
    Dim R As Long
    Dim sRiga As String
    sRiga = "---"
    For R = 1 To UBound(aR)
        sRiga = sRiga & "+--------------"
    Next
    Scrivi(CStr(sRiga & "+"),True,,RGB(239,238,241),RGB(164,0,0),95%)
End Sub
Function Format2(N As Variant) As String
    If Len(N) < 02 Then N = "0" & N
    Return N
End Function
Function FormatSpace(n As Variant,nCHar As Long) As String
    Dim C As Integer,temp As String
    temp = n
    C = Len(n)
    If C < nCHar Then temp = Space(nCHar - C) & n
    Return temp
End Function

 

[i legend]

l ultimo aggiornamento lo scarico domani
ora spero di riuscire a riposare
buona notte

 

[LuigiB]

legend è importante sempre avere la versione aggiornata , domani ricordat ...
la fnzione della libreria che calcola il tabellone è piu lenta ma quella nell'array mette anche altrei valori dei ritardi di livello , verticali ,diagonali dil riga ...

 

[LuigiB]

fai buon risposo e spero che i dolor si calmino !

 

[i legend]

un piccolo presente :)

Ilegend si potrebbe avere il tabellone per singola ruota con quantità teorica e quantità reale . ciao Eugenio

forum.lottoced.com

ciao qualche tempo fa avevo fatto questo come tabellone analitico,
proverò a riscriverlo meglio , ma non so se riesco, so che è inutile solo per provare a padroneggiare le nuove funzioni

esteticamente era carino

 

[LuigiB]

semplici esempi

    Dim k As Long
    Dim aRet() As STRUCT_VALORI_MIGLIORI
    
    
    Scrivi ("ClassificaRitardo")
    aRet = ClassificaRitardo(2, EstrazioneFin, 2, BA_)
    
    For k = 1 To UBound(aRet)
        Scrivi (StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)
    Next

 

[LuigiB]

volendo fare una classifica di un gruppo ristretto bsta cambiare la riga

   aRet = ClassificaRitardo(2, EstrazioneFin, 2, BA_, , "1,2,3,4,5,6,7,8,9,10") ' per i numeri si puo usareanche un'array ora era piu comoda la stringa

 

[lotto_tom75]

Buongiorno a tutti, proporrei una cosa per quanto riguarda il salvataggio degli script di tween basic vecchi e nuovi... ovvero che il padrone di casa Luigi apra un thread dove semplicemente ognuno possa mettere semplicemente SOLO il suo relativo script tweenbasic con una brevissima nota su cosa fa. Questo perchè spesso ritrovarli tra questa moltitudine di pagine di questo ormai corposissimo e visitatissimo (30k di views in nemmeno 20 days ) thread "tecnico" diventa quasi impossibile...

 

[LuigiB]

impossibile da realizzare... s riempirebeb di roba come questo ,

 

[cutoff]

Ciao LuigiB ed a tutti i 'suoi' seguaci...
Tutto ok con il nuovo aggiornamento, solo che se provo ad aggiornare le estrazioni, ottengo questo errore.
Se lo lancio con la versione win64, va in crash l'ambiente......
Se metto l'url del file zip da scaricare nel browser (Chrome/Firefox), lo scarico senza problemi.

 

[Rookie]

Buongiorno a tutti, proporrei una cosa per quanto riguarda il salvataggio degli script di tween basic vecchi e nuovi... ovvero che il padrone di casa Luigi apra un thread dove semplicemente ognuno possa mettere semplicemente SOLO il suo relativo script tweenbasic con una brevissima nota su cosa fa. Questo perchè spesso ritrovarli tra questa moltitudine di pagine di questo ormai corposissimo e visitatissimo (30k di views in nemmeno 20 days ) thread "tecnico" diventa quasi impossibile...

Forse potresti fare qualche snellimento e qualche "aggiustamento" al tuo repository tom's bakery al fine di poter aggiungere ad alcuni scripts il tag #compatibile con twinBasic e il Framework by SLDR

 

[lotto_tom75]

Forse potresti fare qualche snellimento e qualche "aggiustamento" al tuo repository tom's bakery al fine di poter aggiungere ad alcuni scripts il tag #compatibile con twinBasic e il Framework by SLDR

Non ho capito in che modo, ma se vuoi prova pure... Rookie . Anche se la vedevo meglio su un altro thread solo a loro dedicato.

Altro benchmark test...

Dim c As Long
Dim ruota As Variant
Dim frz As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
ruota = 1
ReDim numeri(0) As Long
ScegliNumeri(numeri)
Dim finetest As Long
finetest = InputBox("valore di fine test", , 600000000)   '600 mln!
For c = 1 To finetest
'StatisticaSingoloEsito(numeri, EstrazioneIni, EstrazioneFin, 1, frz, ruota)
AvanzamentoElaborazione(c, finetest)
If bScriptInterrotto Then Exit For
Next
MsgBox TempoElaborazioneSecondi

End Sub

esito:

 

[Rookie]

Non ho capito in che modo, ma se vuoi prova pure... Rookie . Anche se la vedevo meglio su un altro thread solo a loro dedicato.

Altro benchmark test...

Dim c As Long
Dim ruota As Variant
Dim frz As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
ruota = 1
ReDim numeri(0) As Long
ScegliNumeri(numeri)
Dim finetest As Long
finetest = InputBox("valore di fine test", , 600000000)   '600 mln!
For c = 1 To finetest
'StatisticaSingoloEsito(numeri, EstrazioneIni, EstrazioneFin, 1, frz, ruota)
AvanzamentoElaborazione(c, finetest)
If bScriptInterrotto Then Exit For
Next
MsgBox TempoElaborazioneSecondi

End Sub

esito:

Vedi l'allegato 2253032

Allora crea il thread Scripts Colletion for TwinBasic dove ognuno ci potra' aggiungere quelli gia' verificati in termini di output corretto. Mentre la tom's bakery rimane per gli scripts in ambiente Spaziometria. Sempre, previa benedizione di SLDR...

 

[LuigiB]

va realizzato un piccolo gestionaledove uno inserisce gl iscript e poi li puo ricercare , una cosa semplice fatta in tb di cui poi darò i sorgenti..

 

[lotto_tom75]

Allora crea il thread Scripts Colletion for TwinBasic dove ognuno ci potra' aggiungere quelli gia' verificati in termini di output corretto. Mentre la tom's bakery rimane per gli scripts in ambiente Spaziometria. Sempre, previa benedizione di SLDR...

Ottimo un thread intitolato "Scripts Collection for TwinBasic " ! Però secondo me lo dovreste aprire o Tu o LuigiB o Ilegend ps: d'accordissimo anche con l'ultima proposta del Super Chief riguardo il piccolo gestionale degli script tb

 

[Rookie]

Se l'obiettivo e' un entusiasmante insuccesso del thread lo apro io, ma credo che e' qualcosa che spetta a chi lo ha reso concretamente possibile. Perche' merita un altro grande successo!

 

[LuigiB]

mi dispiace ma spettaa chi ha piantato il seme... sempresperando che la gente accolga la direttiva di non intasare il suddetto thred con messaggi non inerenti ..ci vorrebbe la possibilita di cancellare in autonomia i post.. chi è che conosce Lottoced ?

 

[Rookie]

mi dispiace ma spettaa chi ha piantato il seme... sempresperando che la gente accolga la direttiva di non intasare il suddetto thred con messaggi non inerenti ..ci vorrebbe la possibilita di cancellare in autonomia i post.. chi è che conosce Lottoced ?

E un onore che spetta a te... e dovrai farti concedere le autorizzazioni per confermare che in quel thread, dovrai tu (o chi per te) approvare la visibilita' del post... (senza cancellarlo) perche' ovviamente lo script non deve fare cose che non sono compatibili con lo scopo delle stesso script.

p.s. sarebbe utile, per riscontrare facilmente, allegare un output grafico o testo ridotto (una sorta di anteprima) per rendersi edotti di cosa si tratta e cosa produce la sua esecuzione.

 

[cutoff]

Non ho capito in che modo, ma se vuoi prova pure... Rookie . Anche se la vedevo meglio su un altro thread solo a loro dedicato.

Altro benchmark test...

Dim c As Long
Dim ruota As Variant
Dim frz As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
ruota = 1
ReDim numeri(0) As Long
ScegliNumeri(numeri)
Dim finetest As Long
finetest = InputBox("valore di fine test", , 600000000)   '600 mln!
For c = 1 To finetest
'StatisticaSingoloEsito(numeri, EstrazioneIni, EstrazioneFin, 1, frz, ruota)
AvanzamentoElaborazione(c, finetest)
If bScriptInterrotto Then Exit For
Next
MsgBox TempoElaborazioneSecondi

End Sub

esito:

Vedi l'allegato 2253032

Quindi a te funziona l'aggiornamento, Tom?