Script non funziona ...

[Bubblegum]

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]

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

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]

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