Aiuto per script

[rabberto]

Ciao ho uno script che in automatico mi trova combinazioni che sono usciti nei mesi precedenti , e in che percentuale , che io uso spesso come numeri di abbinamento su ruota :


Sub Main()
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
es = InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1)
For r2 = 1 To 10
For r = 1 To 10
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = EstrazioneFin - 180 To EstrazioneFin 'Modificando il 180 si cambia il n° di estrazioni esaminate
If valido = True Then
For i = 1 To 5
For j = 1 To 5
k = Estratto(n,r2,j) - estr(i)
If k <= 0 Then
k = k + 90
End If
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
k = Estratto(n,r2,j) - estr(i)
If k <= 0 Then
k = k + 90
End If
If Val(i,k) = True Then
Val(i,k) = False
End If
Next
Next
End If
If es = 0 Then m = n + 1 Else m = n End If
If IndiceMensile(m) = 1 Then
z = z + 1
valido = True
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*90)
s = CStr(eval(i)) + " estratto di " + NomeRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
s = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
If som(i,j) > zz Then
Scrivi s
End If
Next
Next
Next
Next
End Sub


Quando mi da' l'output mi da ad esempio :
5 estratto di Genova + 37 sulla ruota di Bari è uscito 13 volte su 14
Volevo sapere se era possibile inserire gia' il numero calcolato senza che io devo sempre fare i calcoli a mano , Esempio
5 estratto di Genova + 37 sulla ruota di Bari ( QUI MI DEVE SCRIVERE IL NUMERO ) è uscito 13 volte su 14
Sper sia stato chiaro e che si possa fare qualcosa , grazie , ciao.

 

[Roby]

AZZ.... RABBERTOOOOOOO
SE SI VUOLE VINCERE, UN PO SI DEVE SOFFRIRE, HIHIHIHI
NON E' UN CALCOLO FATICOSO,
COMUNQUE, NEL MIO ARCHIVIO HO TROVATO QUESTO SCRIPT
DOVREBBE FARE AL CASO TUO
CIAOOOOOOO



Sub Main()

Dim som(5,5,90)

Dim estr(2,5)

Dim Val(5,5,90)

Dim amb(90)

n = EstrazioneFin

z = 0

ultest = 8350'qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima

r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)

If r2 = "" Then Exit Sub

r2 = CInt(r2)

es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-8):",,1)

If es = "" Then Exit Sub

es = CInt(es)

nmc = InputBox("Numero di mesi da considerare:",,4)

If nmc = "" Then Exit Sub

nmc = CInt(nmc)

perc = InputBox("Inserisci la percentuale (0-100):",,90)

If perc = "" Then Exit Sub

perc = CInt(perc)

ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,6)

If ncg = "" Then Exit Sub

ncg = CInt(ncg)

While z < nmc

'---------------------------------deve essere una riga unica

If es = 0 And n = ultest Or IndiceMensile = es And es > 0 Or IndiceMensile(n + 1) = 1 And es = 0 Then z = z + 1

'-----------------------------------------------------------

n = n - 1

Wend

nn = n + 1

Erase amb

If es = 0 Then s = "All'ultima" Else s = "Alla " & es

s = s & "° estrazione del mese per "

If ncg = 0 Then

s = s & "un mese:"

Else

If ncg = 1 Then s = s & ncg & " colpo:" Else s = s & ncg & " colpi:"

End If

Scrivi s & Chr(10) & "Statistica dal " & DataEstrazione(nn) & " al " & DataEstrazione(EstrazioneFin)

For ru1 = 1 To 10

For ru2 = ru1 To 10

Messaggio " Elaboro la ruota n° " & ru1 & " con la n° " & ru2

z = 0

Erase som

Erase estr

'-----------------------------------------------

For n = nn To EstrazioneFin

If es = 0 Then m = n + 1 Else m = n End If

'---------------------------------deve essere una riga unica

If es = 0 And n = ultest Or IndiceMensile(m) = es And es > 0 Or IndiceMensile(m) = 1 And es = 0 Then

'-----------------------------------------------------------

z = z + 1

For i = 1 To 5

estr(1,i) = Estratto(n,ru1,i)

estr(2,i) = Estratto(n,ru2,i)

Next

Erase Val

If ncg = 0 Then

k2 = 9

If IndiceMensile(n + 8) = es Then

k2 = 8

End If

Else

k2 = ncg

End If

k3 = n + k2

If k3 > EstrazioneFin Then k3 = EstrazioneFin

For nv = n + 1 To k3

For i = 1 To 5

For j = 1 To 5

For l = 1 To 5

k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)

While k <= 0

k = k + 90

Wend

If Val(j,l,k) = 0 Then

som(j,l,k) = som(j,l,k) + 1

Val(j,l,k) = 1

End If

Next

Next

Next

Next

End If

Next 'fine For n

'--------------------------------------------------

For i = 1 To 5

For l = 1 To 5

For j = 1 To 90

zz = Int((z/100)*perc)

s = i & "° di " & FormatSpace(NomeRuota(ru1),8) & " + " & l & "° di " & FormatSpace(NomeRuota(ru2),8) & " + " & FormatSpace(j,2)

s = s & " su " & NomeRuota(r2) & " " & som(i,l,j) & " su " & z & ": " & FormatSpace(Fuori90(estr(1,i) + estr(2,l) + j),2)


If Val(i,l,j) = 0 Then s = s & " in corso" Else s = s & " già uscito"

If som(i,l,j) >= zz Then

If Not ru1 = ru2 Or ru1 = ru2 And i < l Then

Scrivi s

amb(Fuori90(estr(1,i) + estr(2,l) + j)) = amb(Fuori90(estr(1,i) + estr(2,l) + j)) + 1

End If

End If

Next

Next

Next

'-----------------------------------------------

Next 'fine For ru2

For i = 1 To 90

If amb(i) > 1 Then Scrivi i & ": previsto da " & amb(i) & " sistemi"

Next

Next 'fine For ru1

End Sub



Blackmore

 

[Roby]

Dimenticavo, qui

ultest = 8350'qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima

Metti il numero dell'ultima estrazione, 8442
Ciao

Blackmore

 

[rabberto]

Grazie Blackmore questo e molto meglio di quello che cercavo io sei stato gentilissimo , grazie , ciao.

 

[joi_lotto]

Ciao.
Sinceramente non ho capito cosa vogliono dire:1 previsto da 2 sistemi
2 previsto da 3 sistemi e così via.
Potreste spiegarmelo per favore ! Grazie.

 

[Roby]

quote:Originally posted by joi_lotto

Ciao.
Sinceramente non ho capito cosa vogliono dire:1 previsto da 2 sistemi
2 previsto da 3 sistemi e così via.
Potreste spiegarmelo per favore ! Grazie.

Credo voglia dire che due diversi sistemi (calcoli) hanno dato il numero 1, oppure 3 diversi sistemi (calcoli) hanno dato il numero 2 etc...
Non ho la certezza assoluta però
Ciao

Blackmore

 

[Roby]

E' COME DICI TU BLACK LA COLONNA DI SX E' IL LOTTRONE (DA 1 A 90)
E "PREVISTO DA " X SISTEMI VUOL DIRE CHE IL N°1 E' STATO PREVISTO DA X COMBINAZIONI DI GIOCO (SISTEMI) CHIARO CHE A NUMERO X MAGGIORE CORRISPONDE PERCENTUALE DI SORTITA MAGGIORE.

CIAO-

Artemisio
Memento Audere Semper

 

[rabberto]

Scusa Blackmore ho notato che tra il mio script e il tuo inserendo gli stessi parametri di ricerca mi da degli output diversi , secondo te e normale , sono diversi nei calcoli , oppure sbaglio io qualcosa .
Grazie , ciao .

 

[claudio8]

quote:Originally posted by rabberto

Scusa Blackmore ho notato che tra il mio script e il tuo inserendo gli stessi parametri di ricerca mi da degli output diversi , secondo te e normale , sono diversi nei calcoli , oppure sbaglio io qualcosa .
Grazie , ciao .

Il tuo script somma ai singoli estratti un fisso da 1 a 90 e se la sua perc (%) è del 90% te lo evidenzia nell'output mentre quello di BlaK somma ad 1 estrtto di una ruota tutti gli estratti delle altre ruote + i fissi da 1 a 90 per cui non potrai mai avere gli stessi output.

[8D][8D]Se solo leggessi attentamente gli output, caro Rabberto, lo capiresti, non occorre neanche leggere lo script. [8D][8D]

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[Roby]

quote:Originally posted by rabberto

Scusa Blackmore ho notato che tra il mio script e il tuo inserendo gli stessi parametri di ricerca mi da degli output diversi , secondo te e normale , sono diversi nei calcoli , oppure sbaglio io qualcosa .
Grazie , ciao .

sono completamente diversi, se non sbaglio quello che ti ho postato fa anche un calcolo in più, quindi tutto normale, eseguono solamente calcoli differenti
Ciao

Blackmore

 

[rabberto]

Ok Blackmore claudio8 scusate ora ho capito e tutto piu' chiaro, grazie per le risposte , ciao .