Novità

errore script

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)

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.

:)

Grazie per la correzione
Chiedo scusa per l'inserimento non proprio perfetto del listato, ma non mi ricordavo più come si faceva
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03

Ultimi Messaggi

Indietro
Alto