PER GLI ESPERTI!... AIUTO X MODIFICA SCRIPT

[irepi]

Chiedo gentilmente se e possibile modicare lo script evidenziando anche e ambate ke scaturiscono,
Grazie irepi

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

l

 

[irepi]

? ......nessuno disponile?

 

[Enplein]

Ciao irepi, scrivo dal telefonino perché non riesco ad accedere al Forum, dal PC; comunque ho corretto lo script, ma, come detto sopra, non riesco ad inserirlo.
Ciao, Enplein.

 

[irepi]

Grazieeeeee Enplein!!!!..............aspetto..........avevo perso le speranze!

 

[irepi]

Se non chiedo troppo e' possibile inserire anche la funzione numeri convergenti?
Grazie!

 

[Enplein]

Ciao irepi, risolto il problema....ecco lo script richiesto....

Ciao, Enplein.

Sub main()
Dim ambi(4500,8),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: ambi(x,7)=0 : ambi(x,8)=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)=nn(1)
ambi(co,6)=nn(2)
ambi(co,7)=ambi(co,7)+1
ambi(co,8)=ambi(co,8)+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)=nn(1)
ambi(co,6)=nn(2)
ambi(co,7)=ambi(co,7)+1
ambi(co,8)=ambi(co,8)+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,7))=>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)&_
"  "& FormatSpace(ambi(ca,5),3)&" "& FormatSpace(ambi(ca,6),3)&" è uscito "&_
FormatSpace(ambi(ca,7),3)&" su "&FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(ambi(ca,8),3)
End If
Next
End Sub

 

[irepi]

Grazie!

 

[irepi]

Buonaserata a tutti! posso chiedere un'altra modifica allo script?
La modifica e' questa: eliminare la ricerca del numero vertibile
Ho provato a farlo mettendo ' su vertibile ma non sono riuscita
Grazie!