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:

lotto_tom75

Advanced Premium Member
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto