Novità

Per Ilegend o Disaranno Secondo voi è fattibile

solare

Advanced Member >PLATINUM<
Ciao mi è stato regalato questo metodo che al dire di un mio amico funziona. Si può fare un listato per semplificare il tutto ?
 

Allegati

  • Documento0-002.jpg
    Documento0-002.jpg
    70 KB · Visite: 4
  • Documento0-001.jpg
    Documento0-001.jpg
    50,5 KB · Visite: 4
Ultima modifica:
Scusate l'immagine....
 

Allegati

  • Documento0-002.jpg
    Documento0-002.jpg
    49,5 KB · Visite: 2
  • Documento0-001.jpg
    Documento0-001.jpg
    71,7 KB · Visite: 3
Se qualcuno è disposto a fare questo listato proverò a riscrivere tutto a mano in modo che sia legibile.
 
Ultima modifica:
Ecco il foglio che nelle precedenti comunicazioni non si legge. Spero sia sufficentemente visibile.
 

Allegati

  • Foglio Uno-001.jpg
    Foglio Uno-001.jpg
    69,4 KB · Visite: 5
potrebbe essere cosi ?

Codice:
Sub Main

Dim N(1),R(1),T,V,Tt

Ini = EstrazioneIni

fin = EstrazioneFin

Rr = InputBox("Quale Ruota Analizzo",,1)

Scrivi "Ruota analizzata : " & NomeRuota(Rr),1

Scrivi

Scrivi "Per Solare By Mike58",1,,,1,2,,1

Scrivi

T = Array(T,"Num"," Ritardo ","1 Sett 1-18 "," 2 Sett 19-36 "," 3 Sett 37-54 "," 4 Sett 55-72 "," 5 Sett 73-90 "," 6 sett 90 > 200 ")

Call InitTabella(T,1,,3,5)

For x = 1 To 90

N(1) = x

R(1) = Rr

Call StatisticaFormazione(N,R,1,Rit,,,,Ini,fin)

V = Array(V,N(1),Rit,Set1,Set2,Set3,Set4,Set5,Set6)

If Rit <= 18 Then V(3) = 18 - Rit

If V(3) = 0 Then V(3) = " -- "

If V(3) <> " -- " Then s1 = s1 + 1

If Rit > 18 And Rit <= 36 Then V(4) = 36 - Rit

If V(4) = 0 Then V(4) = " -- "

If V(4) <> " -- " Then s2 = s2 + 1

If Rit > 36 And Rit <= 54 Then V(5) = 54 - Rit

If V(5) = 0 Then V(5) = " -- "

If V(5) <> " -- " Then s3 = s3 + 1

If Rit > 54 And Rit <= 72 Then V(6) = 72 - Rit

If V(6) = 0 Then V(6) = " -- "

If V(6) <> " -- " Then s4 = s4 + 1

If Rit > 72 And Rit <= 90 Then V(7) = 90 - Rit

If V(7) = 0 Then V(7) = " -- "

If V(7) <> " -- " Then s5 = s5 + 1

If Rit > 90 And Rit <= 200 Then V(8) = Rit - 90

If V(8) = 0 Then V(8) = " -- "

If V(8) <> " -- " Then s6 = s6 + 1

Call AddRigaTabella(V,,,3,,"cambria")

Call SetColoreCella(2,3,1)

Next

Tt = Array(Tt,"Totali"," x settori ",s1,s2,s3,s4,s5,s6)

Call AddRigaTabella(Tt,7,,3,5)

'CreaTabella

scegliTabella

End Sub

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella()

If scegliTabella = 2 Then Call CreaTabellaOrdinabile

End Function
 
Ciao Mike58, perfetto ma ci sono alcuni valori da sistemare in merito ai settori: il 1 considera i numeri da rit 0 a 18 il secondo settore da rit. 19 a 36 il terzo da rit 54 a 72 il quarto settore da 73 a 91 il 5 settore da 92 a 110 ed infine tutti i numeri che superano rit > di 111
 
Ultima modifica:
Tutto ok Mike58, va benissimo come l'hai impostato.
Se non chiedo troppo è possibile inserire anche le frequenze ultime 18 estrazioni ?
 
Ultima modifica:
si eccola, per i valori se non ti costa molto puoi intervenire nelle condizioni if e settare i parametri come meglio credi.
Ho poco tempo devo scappare....

Codice:
Sub Main

Dim N(1),R(1),T,V,Tt

Ini = EstrazioneIni

fin = EstrazioneFin

Rr = InputBox("Quale Ruota Analizzo",,1)

Scrivi "Ruota analizzata : " & NomeRuota(Rr),1

Scrivi

Scrivi "Per Solare By Mike58",1,,,1,2,,1

Scrivi

T = Array(T,"Num"," Ritardo ","1 Sett 1-18 "," 2 Sett 19-36 "," 3 Sett 37-54 "," 4 Sett 55-72 "," 5 Sett 73-90 "," 6 sett 90 > 200 ","Freq 18")

Call InitTabella(T,1,,3,5)

For x = 1 To 90

N(1) = x

R(1) = Rr

Call StatisticaFormazione(N,R,1,Rit,,,,Ini,fin)

sf = SerieFreq(fin-18,fin,N,R,1)

V = Array(V,N(1),Rit,Set1,Set2,Set3,Set4,Set5,Set6,sf)

If Rit <= 18 Then V(3) = 18 - Rit

If V(3) = 0 Then V(3) = " -- "

If V(3) <> " -- " Then s1 = s1 + 1

If Rit > 18 And Rit <= 36 Then V(4) = 36 - Rit

If V(4) = 0 Then V(4) = " -- "

If V(4) <> " -- " Then s2 = s2 + 1

If Rit > 36 And Rit <= 54 Then V(5) = 54 - Rit

If V(5) = 0 Then V(5) = " -- "

If V(5) <> " -- " Then s3 = s3 + 1

If Rit > 54 And Rit <= 72 Then V(6) = 72 - Rit

If V(6) = 0 Then V(6) = " -- "

If V(6) <> " -- " Then s4 = s4 + 1

If Rit > 72 And Rit <= 90 Then V(7) = 90 - Rit

If V(7) = 0 Then V(7) = " -- "

If V(7) <> " -- " Then s5 = s5 + 1

If Rit > 90 And Rit <= 200 Then V(8) = Rit - 90

If V(8) = 0 Then V(8) = " -- "

If V(8) <> " -- " Then s6 = s6 + 1

Call AddRigaTabella(V,,,3,,"cambria")

Call SetColoreCella(2,3,1)

Next

Tt = Array(Tt,"Totali"," x settori ",s1,s2,s3,s4,s5,s6," ")

Call AddRigaTabella(Tt,7,,3,5)

'CreaTabella

scegliTabella

End Sub

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella()

If scegliTabella = 2 Then Call CreaTabellaOrdinabile

End Function
 
Ultima modifica:
Molto interessante Solare, ma forse sarebbe meglio farlo diventare visibile in termini di andamento nel tempo.
Quella che estrapoliamo con questo script è una fotografia statica, mentre a noi serve la visione dinamica dell'evento per sapere se poter fare affidamento statisticamente su di esso.
Bravo Mike58
 
Ultima modifica:
Si ottimo ma come estrapolate i numeri da mettere in gioco?Ci vorrebbe che lo script vada dal ............al.............. per verificare un eventuale statistica.
 
Ciao Alien, per quel che ne so i numeri più probabili ritengo siano effettivamente quelli del settore 4.
Comunque da non trascurare il fattore frequenza infatti io tendo a selezionare si i numeri del settore 4 però che abbiano una regolare frequenza nelle ultime 180 estrazioni, cioè quelli che nel periodo abbiano una frequenza attorno a 10.
Ogni altro suggerimento è sempre ben gradito.
 
Se vi può servire per dare una vs.valutazione..... ( non considerate i fronzoli dello script che potrebbero essere eliminati)
Codice:
'
' x solare - lottoced
Sub Main
    Dim nu(1),ru(1),pos
    Dim retColpi,clpMax,nrit,ritminimo,cont
    Dim punti,fre10,totcop10,puntimin
    '-------------------
    er = CInt(InputBox("Estrazioni a ritroso",,1000))
    ruota = 1 'CInt(InputBox(" Quale ruota elaboro? 1....11 ",,1))
    nrit = CInt(InputBox(" QUANTI cicli da 18 considero?",,10))
    clpMax = 6' CInt(InputBox(" Entro QUANTI Colpi evidenzio l'Ambata (max) ",,6))
    puntimin = 55
    
    Scrivi "Elaborazione dei numeri per Estratto *** con cicli da 18 estrazioni *** Studi by Solare*** ",1,1,7,5,3
    
    For es =(EstrazioneFin - er) To EstrazioneFin
        Ini = EstrazioneIni
        fin = EstrazioneFin
        Scrivi "Estrazione analizzata: " & es & " del Data " &  DataEstrazione(es),1,1,,1,2
        '
        Messaggio " Estrazione n°: " & es & " Elaborazione ruota: " &(SiglaRuota(r))
        AvanzamentoElab fin - er,fin,1
        punti = 0
        ReDim T(8)
        T(1) = " pos. Num "
        T(2) = " Freq.Media"
        T(3) = " Freq St "
        T(4) = " Rit.Max "
        T(5) = " Rit.Att. "
        T(6) = " Cop" & nrit*18
        T(7) = " Freq " & nrit*18
        T(8) = " Esito "
        Call InitTabella(T,1,,1,5)
        cont = 0
        For x = 1 To 90
            nu(1) = x
            ru(1) = ruota
            Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,Ini,es)
            '
            If rit > 54 And rit < 56 Then '' controlliamo solo i numeri al ritardo 55 (parametro del 1°ritardo del 4° settore)
                pos = Posizione(es - rit,ruota,x) '' cerchiamo la posizione estrazionale
                '' se il numero(x) rientra nei parametri di ritardo lo elabora, diversamente, non lo consideriamo.
                cont = cont + 1
                ReDim rp(nrit)
                Inizio = EstrazioneIni
                fine = es
                somrit10 = 0
                For z = 1 To nrit
                    rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
                    fine = fine -(rp(z) + 1)
                    somrit10 = somrit10 + rp(z) + 1
                Next
                '------
                ' ' calcolo frequenze e copeture.
                fine = es '(estrazione finale)
                Ini10 = es -(nrit*18) + 1
                fre10 = SerieFreq(Ini10,es,nu,ru,1)
                totcop10 = 0
                For est = Ini10 To fine Step(18)
                    cop10 = SerieFreq(est,est + 18,nu,ru,1)
                    If cop10 > 0 Then cop10 = 1
                    totcop10 = totcop10 + cop10
                Next
                '------
                ColoreTesto 2
                ReDim V(8)
                V(1) = pos & "p.- " & Format2(x)
                V(2) = Round((EstrazioneFin/fre),2)
                V(3) = fre
                V(4) = max
                V(5) = rit
                punti = rit
                V(6) = totcop10
                V(7) = fre10
                ''calcolo dell'esito
                nu(1) = x
                If VerificaEsito(nu,ru,es + 1,1,50,,retEsito,retColpi,retestratti,retidestratti) Then
                    V(8) = retColpi
                Else
                    V(8) = ".."
                End If
                Call AddRigaTabella(V,,,1,,"Calibri")
                If V(5) >= max Then 'casella rit.att
                    Call SetColoreCella(4,3,1)
                    Call SetColoreCella(5,3,1)
                End If
                If V(8) <= clpMax Then 'casella esito
                    Call SetColoreCella(8,3,1)
                End If
            End If
        Next
        Call SetTableWidth("50%")
        If punti >= puntimin Then
            ColoreTesto 0
            Scrivi "New entry su: " & FormatSpace(NomeRuota(ruota),8) & " - a liv.ritardo: " & punti & " in Data estrazione: " & DataEstrazione(es),1,,,,2
            Call CreaTabella(5,1)
        End If
    Next
End Sub
 
Ultima modifica:
solare;n1904782 ha scritto:
ciao Claudio8,Interessante........puoi aggiungere la selezione ruota ?
Grazie
c'è già scritta l'opzione,
alla riga: "ruota = 1 '......." cancella il testo " 1 ' " e lascia scritto "ruota = Cint ...." ....
però un tantino di vbscript bisognerebbe impararlo...... :-) buona verifica.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto