questo è lo script incriminato
Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin
'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
c = 0
clp = 0
es = 54 + clp 'EstrazioneFin - 54
Ini = EstrazioneFin -(54 + clp)
fin = EstrazioneFin - clp
For r = 1 To 10 ' ruota 4
Scrivi NomeRuota(r) & " " & EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90
c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo
If c = 0 Then fleg = 1 ' per non incorrere nell'errore divisione per 0
If c = 0 Then c = 1
e = Int(es / c) 'MEDIA ' media dl numero estratto
kc = d / e 'probabilita ' quantità estrazione / la media
cl = Int(d / e) 'probabilita ' cl = intero ck
pr = Int(e * 25 /100) '% ' inizio gioco del numero
pr1 = Int(e * 51 /100) '% ' fine gioco del numero
g = Int(d -(cl * e)) 'RIT-ATT ' g definizione del ritardo attuale
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'Dal confronto tra le variabili g con pr pr1 e co definisco i colori
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & Format2(pr1 - g) & " ."
If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 2 Then Call Scrivi(ts & co,True,,co,co2) ' Cambiando il valore di confronto con cl avremo i vari kc se cerco i kc = 5 cambio 2 con 5
ColoreTesto 0
Next
Scrivi
Next
End Sub
Grazie Atlantis hai ragione non mi ero accorto del 54 ma deve essee 53, Allego il listato corretto e funzionante:
Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin
'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 53 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 1 To 10
Scrivi NomeRuota(r) & " " & EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90
c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo
If c = 0 Then fleg = 1
If c = 0 Then c = 1
e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & Format2(pr1 - g) & " ."
If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)
ColoreTesto 0
Next
Scrivi
Next
End Sub
