Modifica script

[mazuma]

Ciao a tutti,

Avrei bisogno del aiuto per modificare questo script:invece di cercare per indice mensile farlo per un numero spia

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:",,470)
perc = InputBox("Percentuale minima (60-90%):",,90)
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

Un saluto

 

[LuigiB]

se ho ben capito tu vorresti sostituire la logica che dice :
Se è la prima del mese allora gioca con
Se è uscito il numero X allora gioca.
Benissimo se il problema p questo si srisolve con una sola riga
usando la funzione IsNumeroPresenteInEstrazione
vedila nell'help vedi se capisci come si usa poi eventualmente mi dici cosa non hai capito
e io ti aiuto.

 

[mazuma]

Ciao Luigi,

In teoria sembra semplice,prattica mi fa morire

Grazie,sono riuscito a capire che era -1

Un saluto

 

[LuigiB]

stavolta non ho capito io ... che cos'è -1 ?
Sei riuscito a modificare lo script ?

 

[mazuma]

Ciao

IsNumeroPresenteInEstrazione = -1 invece io metevo 1 e mi dava tutti valori 0

 

[LuigiB]

ok , si il True per convenzione vale -1
in alternativa dato che il true in una condizione If è considerato implicito potevi pure
omettere l'operatore di confronto scrivendo semplicemte

If IsNumeroPresenteInEstrazione(idEstrazione, Ruota, Numero, RetPos) then

 

[mazuma]

io ho fatto

If IsNumeroPresenteInEstrazione(idEstrazione, Ruota, Numero, RetPos) = -1 then

e da qua tutto il casino

Grazie per la dritta

Un saluto

 

[LuigiB]

perfetto , ciao