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
    martedì 31 marzo 2026
    Bari
    64
    09
    80
    53
    34
    Cagliari
    65
    25
    53
    11
    04
    Firenze
    52
    61
    16
    58
    66
    Genova
    28
    61
    02
    72
    60
    Milano
    40
    87
    27
    22
    05
    Napoli
    28
    17
    30
    29
    37
    Palermo
    65
    15
    79
    20
    52
    Roma
    84
    58
    35
    80
    60
    Torino
    34
    07
    48
    35
    55
    Venezia
    18
    24
    23
    26
    87
    Nazionale
    77
    81
    40
    26
    73
    Estrazione Simbolotto
    Firenze
    06
    16
    22
    20
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto