Script non funziona ...

Bubblegum · 29 Agosto 2023

Perchè non funziona , dove è l' errore ?

Sub Main()
Dim ambi(225000,8),nn(10),ruota(10)
ne = InputBox("Numero estrazioni:",,700)
perc = InputBox("Percentuale minima (60-90%):",,85)
ncg = InputBox("Numero colpi di gioco",,8)
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For x = 1 To 225000
ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0 : ambi(x,7) = 0: ambi(x,8) = 0
Next
For es = ini To fin
For r3 = 1 To 1 :'ruota(1) = r3
For pp1 = 3 To 3
n1 = Estratto(es,r3,pp1)
' For r4 = r3 + 1 To 10:ruota(2) = 11
For pp2 = 2 To 2
n2 = Estratto(es,r3,pp2)
If Fuori90(n1+n2)=23 Then
Scrivi "ANALISI Dal " & DataEstrazione(es) & " " & n1 & " " & n2 & "°" &(NomeRuota(r3)) & "°" &(NomeRuota(r4)),1

casi = casi + 1
co = 0
For r = 1 To 10
For p = 1 To 5
For rr = r To 10
For pp = 1 To 5
For nu = 1 To 90
co = co + 1
d = 0

a = Estratto(es,r,p)
b = Estratto(es,rr,pp)
c = Fuori90((a + b) + nu)
nn(1) = c : ' nn(2) =Fuori90( Estratto(es,2,5)+ Estratto(es,4,5))

esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
ruota(1) = 1

ruota(2) = 2
d = SerieFreqTurbo(es + 1,esncg,nn,ruota,1)
If d > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = rr
ambi(co,5) = pp
ambi(co,6) = nu
ambi(co,7) = ambi(co,7) + 1
ambi(co,8) = ambi(co,8) + d
End If
Next
Next
Next
Next
Next
End If
Next
Next
Next
Next
' Next
ca = 0
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
Scrivi : ColoreTesto 0
per = Int((casi/100)*perc)
For ca = 1 To 225000
If eval(ambi(ca,7)) >= perc Then
Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " + " & eval(ambi(ca,5)) & "°" & _
Left(NomeRuota(eval(ambi(ca,4))),2) & " + " & Format2(ambi(ca,6)) & _
" su " & FormatSpace(NomeRuota(nru),9) & " è uscito " & FormatSpace(ambi(ca,7),3) & " su " & _
FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & FormatSpace(ambi(ca,8),3)
End If
Next
End Sub

SECONDA PARTE

d = SerieFreqTurbo(es + 1,esncg,nn,ruota,1)
trovare prima ambata
inserisci
nn(2) =Fuori90( Estratto(es,2,5)+ Estratto(es,4,5))
togliendo apice e rifare
ricerca per ambo
d = SerieFreqTurbo(es + 1,esncg,nn,ruota,2)

claudio8 · 30 Agosto 2023

Ricopia quanto inserito in " Codice",
prima elimina i testi
Sub Main e
End sub che sono gia presenti nel codice
nella pagina degli script.
Per testare il funzionamento ho ridotto le estrazioni da 700 a 70 ( è un po lento ) non ho testato nessun correttezza dell'output ed
ho remmeto da "Seconda parte" in giu, non può esserci x farlo girare
Saluti

Codice:

Sub Main
    Dim ambi(225000,8),nn(10),ruota(10)
    ne = InputBox("Numero estrazioni:",,70) ' 700
    perc = InputBox("Percentuale minima (60-90%):",,85)
    ncg = InputBox("Numero colpi di gioco",,8)
    casi = 0
    ini = EstrazioneFin - ne
    fin = EstrazioneFin
    For x = 1 To 225000
        ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0 : ambi(x,7) = 0: ambi(x,8) = 0
    Next
    For es = ini To fin
        For r3 = 1 To 1 :'ruota(1) = r3
            For pp1 = 3 To 3
                n1 = Estratto(es,r3,pp1)
                ' For r4 = r3 + 1 To 10:ruota(2) = 11
                For pp2 = 2 To 2
                    n2 = Estratto(es,r3,pp2)
                    If Fuori90(n1 + n2) = 23 Then
                        Scrivi "ANALISI Dal " & DataEstrazione(es) & " " & n1 & " " & n2 & "°" &(NomeRuota(r3)) & "°" &(NomeRuota(r4)),1
                        casi = casi + 1
                        co = 0
                        For r = 1 To 10
                            For p = 1 To 5
                                For rr = r To 10
                                    For pp = 1 To 5
                                        For nu = 1 To 90
                                            co = co + 1
                                            d = 0
                                            a = Estratto(es,r,p)
                                            b = Estratto(es,rr,pp)
                                            c = Fuori90((a + b) + nu)
                                            nn(1) = c : ' nn(2) =Fuori90( Estratto(es,2,5)+ Estratto(es,4,5))
                                            esncg = es + eval(ncg)
                                            If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
                                            ruota(1) = 1
                                            ruota(2) = 2
                                            d = SerieFreqTurbo(es + 1,esncg,nn,ruota,1)
                                            If d > 0 Then
                                                ambi(co,1) = co
                                                ambi(co,2) = r
                                                ambi(co,3) = p
                                                ambi(co,4) = rr
                                                ambi(co,5) = pp
                                                ambi(co,6) = nu
                                                ambi(co,7) = ambi(co,7) + 1
                                                ambi(co,8) = ambi(co,8) + d
                                            End If
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    End If
                Next
            Next
        Next
    Next
    ' Next
    ca = 0
    ColoreTesto 1
    Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
    Scrivi
    Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
    Scrivi "COLPI DI GIOCO : " & ncg,1
    Scrivi "CASI ANALIZZATI : " & casi,1
    Scrivi : ColoreTesto 0
    per = Int((casi/100)*perc)
    For ca = 1 To 225000
        If eval(ambi(ca,7)) >= perc Then
            Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " + " & eval(ambi(ca,5)) & "°" & _
            Left(NomeRuota(eval(ambi(ca,4))),2) & " + " & Format2(ambi(ca,6)) & _
            " su " & FormatSpace(NomeRuota(nru),9) & " è uscito " & FormatSpace(ambi(ca,7),3) & " su " & _
            FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & FormatSpace(ambi(ca,8),3)
        End If
    Next
End Sub
'SECONDA PARTE
'd = SerieFreqTurbo(es + 1,esncg,nn,ruota,1)
'trovare prima ambata
'inserisci
'nn(2) = Fuori90(Estratto(es,2,5) + Estratto(es,4,5))
'togliendo apice e rifare
'ricerca per ambo
'd = SerieFreqTurbo(es + 1,esncg,nn,ruota,2)End Sub

Bubblegum · 31 Agosto 2023

Ciao e grazie , una volta lanciato con 70 estrazioni mi trova due ambi poi non c'è altro

Cerca

Cerca

Script non funziona ...

Bubblegum

Senior Member

claudio8

Premium Member

Bubblegum

Senior Member

Ultima estrazione Lotto

Ultimi Messaggi