Ambi più Frequenti con il Ritardatario di ogni Ruota

Da Blackmore Dom 22 Mar - 20:36:18

Questo script cerca il numero piu' in ritardo su ogni ruota e trova
gli ambi piu' frequenti con il ritardatario come capogioco

Codice:: 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