vedi se ti va bene... verifica i risultati in output
'
'BY ESSELOTTO NUMERI FREQUENTI DOPO SPIA X ' + piccole modifiche di testo in output di claudio
Sub Main()
ColoreTesto 2
Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(7),1
Scrivi "modificato da esselotto per mike58 lottoced)" & Chr(7),1
ColoreTesto 0
Dim n(90,6),ru(1),ru1(1),nu(1),nn1(1),fre
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,88))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,2))
If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,1))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90 ?",,90))
If am = "" Then Exit Sub
fre = CInt(InputBox(" Quante estrazioni considero per la frequenza ?",,18))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
Messaggio " Spia: " & nn & " su " & FormatSpace(NomeRuota(r1),4,- 1) & " Estrazione : " & es 'messaggio in esecuzione script
If Posizione(es,r1,nn) > 0 Then ' se il valore posizione di nn > 0 ( presente) nell aestrazione es della ruota r1, allora
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then 'frequenti-SerieFreq(Inizio,fine,vetNumeri,RUOTE,Sorte) 6= determ. 1a posiz
ess = es + cl' 'ess = es+ colpi
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo attuale
rs = SerieStorico(fin - ee,fin,nu,ru,1)'ricerca ritardo storico
fru = SerieFreq(EstrazioneFin - fre,EstrazioneFin,nu,ru,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
ca = EstrazioneFin - es
cnn = EstrattoFrequenza(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
cna = EstrattoRitardo(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
Next
End If
End If
Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10),2
ColoreTesto 0
Scrivi" Dal " & DataEstrazione(ini) & "(" & Ini & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)_
& "estrazioni Totali esaminate : " & ee,2
Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: - - - > " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi DataEstrazione(EstrazioneFin - cna) & " - " & "[" & " " & SiglaRuota(r1) & " - " & StringaEstratti(EstrazioneFin - cna,r1) & "" & "]" & " [" & Format2(nn) & "]" & " ----- n° estraz.trascorse - - - > " & cna,1
ColoreTesto 0
Scrivi "__________________________________________________________________________________"
Scrivi ""
Scrivi " N° | Presenze | Ritardo | Rit. storico | Frequenza nulle | Ruota di --> " & NomeRuota(r1),- 1,,3,0
Scrivi " | | attuale | nel ciclo | ultime " & fre & " estr. | Ruota di --> " & NomeRuota(r1),- 1,,3,0
OrdinaMatrice n,- 1,3
For w = 1 To am
Scrivi " " & Format2(n(w,2)) & " " & FormatSpace(n(w,3),6,1) & String(7," ") & FormatSpace(n(w,4),5,1) & FormatSpace(n(w,5),17,1) & FormatSpace(n(w,6),15,1)
Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________" & Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub
0232401619