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 25 gennaio 2025
    Bari
    13
    87
    02
    10
    73
    Cagliari
    55
    40
    76
    82
    50
    Firenze
    23
    51
    44
    84
    72
    Genova
    49
    56
    19
    48
    64
    Milano
    40
    27
    80
    13
    47
    Napoli
    67
    37
    02
    75
    81
    Palermo
    25
    28
    11
    31
    40
    Roma
    20
    25
    59
    10
    22
    Torino
    82
    02
    19
    89
    84
    Venezia
    06
    59
    65
    53
    61
    Nazionale
    45
    72
    80
    76
    32
    Estrazione Simbolotto
    Bari
    16
    41
    08
    11
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto