Novità

assestamento

giorgioantonio

Super Member >PLATINUM<
Salve,

ho un problema a far girare questo script, siccome non me ne intendo
e lo riterrei utilissimo e consiglio anche potreste dare una occhiata e vedere
dove sistemarlo? segnala che a rigo 8 eccetera.
Mi dispiace interpellare l'autore sempre che non si offende.

Grazie dell'aiuto.

Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale,colpi etc..)"

Sub main()
Dim ambi(4500,6),nn(10),ruota(10)
nru1=InputBox("ruota : ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,1)
ne=InputBox("Numero estrazioni:",,200)
perc=InputBox("Percentuale minima (60-99%):",,95)
ncg=InputBox("Numero colpi di gioco",,8)
ruota(1)=eval(nru1)
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
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 "RUOTE DI GIOCO : "& NomeRuota(nru1)& " - "& NomeRuota(nru2),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))&" su "& NomeRuota(nru1)&"-"& NomeRuota(nru2)&_
" è uscito "& FormatSpace(ambi(ca,5),3)&" su "&FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(ambi(ca,6),3)
End If
Next
End Sub


Blackmore
 
Ciao giorgioantonio,
prova così:

Codice:
Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale,colpi etc..)" 

Sub Main()
Dim ambi(4500,6),nn(10),ruota(10)
nru1=InputBox("ruota : ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,1)
ne=InputBox("Numero estrazioni:",,200)
perc=InputBox("Percentuale minima (60-99%):",,95)
ncg=InputBox("Numero colpi di gioco",,8)
ruota(1)=eval(nru1)
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 
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 "RUOTE DI GIOCO : "& NomeRuota(nru1)& " - "& NomeRuota(nru2),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))&" su "& NomeRuota(nru1)&"-"& NomeRuota(nru2)&_
" è uscito "& FormatSpace(ambi(ca,5),3)&" su "&FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(ambi(ca,6),3)
End If 
Next
End Sub

Ciao
 
Salve MORO_80,

grazie dell'intervento, disturbare Blackmore non mi sembrava il caso.
Ancora cortesemente, quel problema lo trovo spesso, non intendo rubarti il mestiere
mi puoi scrivere cosa hai corretto/aggiunto e dove?
Se hai tempo mi rispondi diversamente, grazie e +++
Ciao
 
Salve MORO_80,

grazie dell'intervento, disturbare Blackmore non mi sembrava il caso.
Ancora cortesemente, quel problema lo trovo spesso, non intendo rubarti il mestiere
mi puoi scrivere cosa hai corretto/aggiunto e dove?
Se hai tempo mi rispondi diversamente, grazie e +++
Ciao

Salve giorgioantonio,
nessun mestiere da rubare...qui nel forum ci sono e spesso intervengono i veri scriptisti...non io di sicuro!
Comunque c'erano alcuni simboli tipo > o < o = che erano indicati in modo non corretto e quindi non venivano interpretati correttamente dal programma, tutto qui!


Saluti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
Indietro
Alto