E trova gli abbinamenti per Ambo più frequenti
- Codice: Seleziona tutto
Sub main()
'Ambi più Frequenti con il Numero Più Ritardatario di ogni Ruota
'Script By Blackmore
Dim Ambi(90,3)
Dim Nruota(1),Num(2),SRn(1),SRruota(1)
Dim Ruote,Nrit,ER,Abb,AmbFr,ToTAbb,k
Scrivi "Ambi più Frequenti con il Più Ritardatario di ogni Ruota "
Scrivi
Scrivi "Ricerca Abbinamenti Dal "& DataEstrazione(3950)&" {Inizio Archivio Senza Buchi Estrazionali}"
Scrivi "Fine Ricerca "& DataEstrazione(EstrazioneFin)
Scrivi "La Ruota Nazionale Inizia a Cercare Gli Abbinamenti dal 04/05/2005"
Scrivi
For Ruote = 1 To 12
If Ruote = 11 Then Ruote = 12
AvanzamentoElab 1,10,Ruote
Nrit = PiuRitardatario(EstrazioneFin,Ruote)
SRn(1)= Nrit
SRruota(1)= Ruote
ER = SerieRitardo(3950,EstrazioneFin,SRn,SRruota,1)
Scrivi String(106,"="),1
Scrivi FormatSpace(Ucase(SiglaRuota(Ruote))& " (N."& Format2(Nrit) &") (Rc="& ER &")",25),0,False
k = 0
For Abb = 1 To 90
Nruota(1) = Ruote
Num(1)= Nrit
Num(2)= Abb
AmbFr = SerieFreq(3950,EstrazioneFin,Num,Nruota,2)
Ambi(k,1)= Nrit
Ambi(k,2)= Abb
Ambi(k,3)= AmbFr
k = k+1
Next
OrdinaMatrice Ambi,-1,3
For ToTAbb = 1 To 5 ' Abbinamenti cercati: 5, si puo' cambiare a piacimento
ColoreTesto 1:Scrivi Format2(Ambi(ToTAbb,1)) &"."& Format2(Ambi(ToTAbb,2))&"(Fre="& Format2(Ambi(ToTAbb,3))&") ",,False:coloretesto 0
Next
Scrivi
Next
Scrivi String(106,"=")
End Sub