Novità

errore script

P

paololotto

Super member
ciao
riuscite a correggere questo script??[QUOTESub Main()

Dim ambi(4500,6),nn(10),ruota(10)

nru = InputBox("Su quale ruota, ",,1)

nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,6)

ne = InputBox("Numero estrazioni:",,200)

perc = InputBox("Percentuale minima (60-90%):",,100)

ncg = InputBox("Numero colpi di gioco",,10)

ruota(1) = eval(nru)

casi = 0

ini = EstrazioneFin - ne

fin = EstrazioneFin

For x = 1 To 4500

ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0

Next

For es = ini To fin

If eval(nes) = 0 Then

If IndiceMensile(es + 1) = 1 Then

casi = casi + 1 : co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1 : c = 0 : a = Estratto(es,r,p) : b = Fuori90(a + nu)

nn(1) = b : nn(2) = Vert(b)

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

Else

If IndiceMensile(es) = eval(nes) Then

casi = casi + 1 : co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1 : c = 0 : a = Estratto(es,r,p) : b = Fuori90(a + nu)

nn(1) = b : nn(2) = Vert(b)

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

End If

Next

ca = 0

ColoreTesto 1

Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1

Scrivi

If eval(nes) = 0 Then

Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1

Else

Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1

End If

Scrivi "RUOTA DI GIOCO : " & NomeRuota(nru),1

Scrivi "COLPI DI GIOCO : " & ncg,1

Scrivi "CASI ANALIZZATI : " & casi,1

Scrivi : ColoreTesto 0

per = Int((casi/100)*perc)

For ca = 1 To 4500

If eval(ambi(ca,5)) = > per Then

Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " + " & _

Format2(ambi(ca,4)) & " e Vert. su " & FormatSpace(NomeRuota(nru),9) & " è uscito " & _

FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & _

FormatSpace(ambi(ca,6),3)

End If

Next

End Sub
][/QUOTE]
 
Ciao Paolo ...

... per non dire altro, devi mettere il segno di uguale dopo quello di maggiore.

:)
 
Alien.;n2002830 ha scritto:
è da pure errore qua :Dimambi(4500,6),nn(10),ruota(10)
Clicca per espandere...

Ciao Alien (e tutti),
da' errore solo perche' le istruzioni di vbscript sono "mal scritte"; nella riga citata l'istruzione e' "Dim"; in altre righe altre istruzioni sono scritte di seguito alle variabili, ecc....
Posto il programma corretto e indentato (e testato).
Ciao

Codice: 
Sub Main()
Dim ambi(4500,6),nn(10),ruota(10)
nru = InputBox("Su quale ruota, ",,1)
nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,6)
ne = InputBox("Numero estrazioni:",,200)
perc = InputBox("Percentuale minima (60-90%):",,100)
ncg = InputBox("Numero colpi di gioco",,10)
ruota(1) = eval(nru)
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For x = 1 To 4500
    ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0
Next
For es = ini To fin
    If eval(nes) = 0 Then
        If IndiceMensile(es + 1) = 1 Then
            casi = casi + 1 : co = 0
            For r = 1 To 10
                For p = 1 To 5
                    For nu = 1 To 90
                        co = co + 1 : c = 0 : a = Estratto(es,r,p) : b = Fuori90(a + nu)
                        nn(1) = b : nn(2) = Vert(b)
                        esncg = es + eval(ncg)
                        If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
                        c = SerieFreq(es + 1,esncg,nn,ruota,1)
                        If c > 0 Then
                            ambi(co,1) = co
                            ambi(co,2) = r
                            ambi(co,3) = p
                            ambi(co,4) = nu
                            ambi(co,5) = ambi(co,5) + 1
                            ambi(co,6) = ambi(co,6) + c
                        End If
                    Next
                Next
            Next
        End If
    Else
        If IndiceMensile(es) = eval(nes) Then
            casi = casi + 1 : co = 0
            For r = 1 To 10
                For p = 1 To 5
                    For nu = 1 To 90
                        co = co + 1 : c = 0 : a = Estratto(es,r,p) : b = Fuori90(a + nu)
                        nn(1) = b : nn(2) = Vert(b)
                        esncg = es + eval(ncg)
                        If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
                        c = SerieFreq(es + 1,esncg,nn,ruota,1)
                        If c > 0 Then
                            ambi(co,1) = co
                            ambi(co,2) = r
                            ambi(co,3) = p
                            ambi(co,4) = nu
                            ambi(co,5) = ambi(co,5) + 1
                            ambi(co,6) = ambi(co,6) + c
                        End If
                    Next
                Next
            Next
        End If
    End If
Next
ca = 0
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
If eval(nes) = 0 Then
    Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
Else
    Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1
End If
Scrivi "RUOTA DI GIOCO : " & NomeRuota(nru),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
Scrivi : ColoreTesto 0
per = Int((casi/100)*perc)
For ca = 1 To 4500
    If eval(ambi(ca,5)) >= per Then
        Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " + " & _
        Format2(ambi(ca,4)) & " e Vert. su " & FormatSpace(NomeRuota(nru),9) & " è uscito " & _
        FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & _
        FormatSpace(ambi(ca,6),3)
    End If
Next
End Sub
 
acc...visto solo adesso da anche 12 soluzioni..........a seconda dell''id...mese......si potrebbe imporre da uno a cinque soluzioni? grazie
 
Joe91;n2002726 ha scritto:
Ciao Paolo ...

... per non dire altro, devi mettere il segno di uguale dopo quello di maggiore.

:)
Clicca per espandere...

Grazie per la correzione
Chiedo scusa per l'inserimento non proprio perfetto del listato, ma non mi ricordavo più come si faceva
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 novembre 2025
    Bari
    82
    08
    24
    45
    37
    Cagliari
    07
    16
    67
    74
    35
    Firenze
    76
    32
    44
    06
    51
    Genova
    22
    77
    19
    27
    89
    Milano
    46
    81
    56
    29
    85
    Napoli
    68
    90
    80
    06
    47
    Palermo
    31
    07
    43
    83
    19
    Roma
    08
    68
    17
    12
    57
    Torino
    87
    17
    61
    60
    58
    Venezia
    27
    05
    17
    72
    50
    Nazionale
    70
    76
    56
    81
    15
    Estrazione Simbolotto
    Torino
    26
    34
    10
    42
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto