Novità

E' già stato fatto questo tipo di script? Se si me lo indicate?

lotto_tom75

Advanced Premium Member
E' già stato fatto uno script che sommi i vari RA per qualunque sorte e lunghetta di tutte le 10 ruote + nz (separate) dato un gruppo tot voluto di elementi?

es. fittizio

da tabella immetto 1-2-3-4-5-6-7-8-9-10

sorte 2

classe 4

si clicca "esegui elaborazione" :)

e lo script genera tutte le 4ine x A su BA , CA , ecc.. NZ compresa considerandole separate e poi per ogni quartina x A generata fa la somma di tutti i singoli RA per le 10 ruote + nz ottenendo un valore finale chiamato ad esempio "somma RA di ogni singola 4ina x A su tutte le 10 ruote separate + nz" = RA1diBA+RA2diCA ecc... fino a + RA11diNZ = valore RA "globale per quella data 4ina" ecc... per qualunque sorte e lunghetta si voglia... :rolleyes::D

E' già stato fatto questo tipo di script? Se si me lo indicate? Se no qualcuno/a lo potrebbe realizzare?

Grazie anticipate e buona serata a tutti/e scripters e non :)
 
Ultima modifica:
Ho ritrovato questo script che analizza gli RA in modo integrale per la sorte voluta in lunghetta voluta su ruote separate partendo da un gruppo di base numerico desiderato. Lo dovrei modificare in modo che riporti in output (per ciascuna lunghetta analizzata) anche il suo RA totale ovvero (la somma dei suoi RA sulle singole 11 ruote nz compresa) magari in tabella ordinabile in senso crescente o decrescente per questo nuovo valore di RA globale. Non so da che parte cominciare per ottenere ciò. Qualche scripter con la S maiuscola :) mi darebbe una mano o lo modificherebbe in tal senso a beneficio di tutti/e? Grazie


Codice:
[Option Explicit
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot

Dim contatore

contatore = 0


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)


ReDim aRuoteSel(12)

    ReDim aRuoteSel(12)
    RuoteSelezionate = ScegliRuote(aRuoteSel)
    
    Call Scrivi(" ---------------------------------------------------------------- ")
    Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
    Call Scrivi(" ---------------------------------------------------------------- ")


    For k = 1 To RuoteSelezionate
        Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
        
    Next


nSorte = 1

Classe = 1




ColTot = InitSviluppoIntegrale(aNum,Classe)



If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)



For k = 1 To RuoteSelezionate
        

aRuoteTmp(1) = aRuoteSel(k)




Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Dim Diff
Diff = RetRitMax - RetRit1



Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax

If(RetRit1 >= 0) Then

contatore = contatore + 1

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " " & contatore)

End If




Call AvanzamentoElab(1,ColTot,i)



Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do
Next
Loop
End If
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 ottobre 2025
    Bari
    50
    79
    52
    88
    45
    Cagliari
    38
    69
    86
    25
    05
    Firenze
    86
    43
    66
    38
    31
    Genova
    33
    13
    45
    77
    09
    Milano
    01
    22
    59
    31
    54
    Napoli
    65
    70
    14
    53
    71
    Palermo
    51
    67
    82
    74
    84
    Roma
    46
    18
    33
    88
    08
    Torino
    78
    20
    23
    05
    65
    Venezia
    58
    33
    40
    51
    89
    Nazionale
    90
    74
    51
    41
    40
    Estrazione Simbolotto
    36
    37
    35
    21
    31
Indietro
Alto