scusa ancora ho visto che col copia incolla c'è stato un errore la riga col comando rt1 dopo gli apici per evidenziarti l'errore era corretta è solo finita li per errore.
Sub Main()
'spia 90 a MILANO
Dim ru(1),ps(5)
Dim num(10) ' numeri max in gioco
ps(2) = 10 ' posta ambo
ps(3) = 2 ' posta terno
ps(4) = .70
ps(5) = .30
nn = InputBox("quale numero SPIA vuoi analizzare ? ",,90)
r = 5 ' ruota di milano
ru(1) = r
k = 14
' numeri in gioco fissi
num(1) = 77
num(2) = 75
num(3) = 80
num(4) = 82
num(5) = 85
num(6) = 09
num(7) = 24
num(8) = 79
num(9) = 18
num(10) = 02
For es = EstrazioneFin - 150 To EstrazioneFin ' range estrazioni
If Posizione(es,r,nn) > 0 Then ' cerca il numero spia sulle estrazioni
ImpostaGiocata 1,num,ru,ps,k ' impostazione giocata senza blocco esito
co = co + 1
ca = EstrazioneFin - es
rit1 = SerieRitardo(EstrazioneIni,EstrazioneFin,num,ru,2)' cerca il ritardo per ambo
ritt1 = SerieRitardo(EstrazioneIni,EstrazioneFin,num,ru,3)' cerca il ritardo per terno
Scrivi " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ",1
Scrivi : ColoreTesto 0 : Scrivi " Metodo Quando esce il 90 a Milano(by Mike58) ",1
ColoreTesto 2 : Scrivi "_________________________________________________________________________________________________________________",1
Scrivi ""
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] sortito numero spia !!! = " & "" & Format2(nn) & " " & " estraz.trascorse - - - > " & ca,1
ColoreTesto 2 : Scrivi "_______________________________________________________________________________________________________ caso n° " & co,1
ColoreTesto 0 : Scrivi "Lunghetta in novina in gioco su Ruota spia = ",1
ColoreTesto 1 : Scrivi "Puntata ambo euro : " & ps(2) & " - - - Puntata terno euro : " & ps(3),1
ColoreTesto 0 : Scrivi "_________________________________________________________________________________________________________________",1
Gioca es
End If
Next
ScriviResoconto
ColoreTesto 1
Scrivi ""
Scrivi "ritardo combinazione per ambo " & " rit. - - - > " & rit1,1
Scrivi "ritardo combinazione per terno" & " rit. - - - > " & ritt1,1
Scrivi"_______________________________________________________________________________________________________"
Scrivi""
fr1 = EstrattoFrequenza(r,num(1),EstrazioneFin - 150,EstrazioneFin,1) ' qui cominciano gli errori con la versione precedente 1_1_63 era ok
rt1 = EstrattoRitardo(r,num(1),EstrazioneFin - 150,EstrazioneFin,1)
fr2 = EstrattoFrequenza(r,num(2),EstrazioneFin - 150,EstrazioneFin,1)
rt2 = EstrattoRitardo(r,num(2),EstrazioneFin - 150,EstrazioneFin,1)
fr3 = EstrattoFrequenza(r,num(3),EstrazioneFin - 150,EstrazioneFin,1)
rt3 = EstrattoRitardo(r,num(3),EstrazioneFin - 150,EstrazioneFin,1)
fr4 = EstrattoFrequenza(r,num(4),EstrazioneFin - 150,EstrazioneFin,1)
rt4 = EstrattoRitardo(r,num(4),EstrazioneFin - 150,EstrazioneFin,1)
fr5 = EstrattoFrequenza(r,num(5),EstrazioneFin - 150,EstrazioneFin,1)
rt5 = EstrattoRitardo(r,num(5),EstrazioneFin - 150,EstrazioneFin,1)
fr6 = EstrattoFrequenza(r,num(6),EstrazioneFin - 150,EstrazioneFin,1)
rt6 = EstrattoRitardo(r,num(6),EstrazioneFin - 150,EstrazioneFin,1)
fr7 = EstrattoFrequenza(r,num(7),EstrazioneFin - 150,EstrazioneFin,1)
rt7 = EstrattoRitardo(r,num(7),EstrazioneFin - 150,EstrazioneFin,1)
fr8 = EstrattoFrequenza(r,num(8),EstrazioneFin - 150,EstrazioneFin,1)
rt8 = EstrattoRitardo(r,num(8),EstrazioneFin - 150,EstrazioneFin,1)
fr9 = EstrattoFrequenza(r,num(9),EstrazioneFin - 150,EstrazioneFin,1)
rt9 = EstrattoRitardo(r,num(9),EstrazioneFin - 150,EstrazioneFin,1)
fr10 = EstrattoFrequenza(r,num(10),EstrazioneFin - 150,EstrazioneFin,1)
rt10 = EstrattoRitardo(r,num(10),EstrazioneFin - 150,EstrazioneFin,1)
Scrivi " numero n° " & Format2(num(1)) & " -- frequenza 130 estraz. -> " & Format2(fr1) & " -- ritardo -> " & Format2(rt1)
Scrivi " numero n° "