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
    giovedì 21 maggio 2026
    Bari
    88
    65
    11
    87
    59
    Cagliari
    05
    64
    45
    80
    74
    Firenze
    37
    56
    25
    19
    36
    Genova
    29
    31
    90
    15
    17
    Milano
    73
    61
    45
    85
    48
    Napoli
    21
    85
    29
    48
    77
    Palermo
    40
    02
    66
    87
    51
    Roma
    23
    68
    57
    60
    26
    Torino
    44
    04
    76
    05
    57
    Venezia
    79
    86
    19
    29
    40
    Nazionale
    33
    54
    75
    39
    63
    Estrazione Simbolotto
    Milano
    27
    16
    30
    21
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto