NUOVO AMBIENTE SCRIPT AREA TECNICA

LuigiB · 8 Febbraio 2023

i legend ha scritto:
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 · 8 Febbraio 2023

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

Codice:

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 · 8 Febbraio 2023

l ultimo aggiornamento lo scarico domani

ora spero di riuscire a riposare

buona notte

LuigiB · 8 Febbraio 2023

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 · 8 Febbraio 2023

fai buon risposo e spero che i dolor si calmino !

i legend · 8 Febbraio 2023

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 · 9 Febbraio 2023

semplici esempi

Codice:

    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 · 9 Febbraio 2023

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

Codice:

   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 · 9 Febbraio 2023

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 · 9 Febbraio 2023

impossibile da realizzare...

s riempirebeb di roba come questo ,

cutoff · 9 Febbraio 2023

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 · 9 Febbraio 2023

lotto_tom75 ha scritto:
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 · 9 Febbraio 2023

Rookie ha scritto:
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...

Codice:

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 · 9 Febbraio 2023

lotto_tom75 ha scritto:
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...

Codice:

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 · 9 Febbraio 2023

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 · 9 Febbraio 2023

Rookie ha scritto:
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 · 9 Febbraio 2023

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 · 9 Febbraio 2023

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 · 9 Febbraio 2023

LuigiB ha scritto:
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 · 9 Febbraio 2023

lotto_tom75 ha scritto:
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...

Codice:

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?

NUOVO AMBIENTE SCRIPT AREA TECNICA

LuigiB

Guest

Premium Member

Premium Member

LuigiB

Guest

LuigiB

Guest

Premium Member

LuigiB

Guest

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<