Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Gio Mag 24, 2018 6:58 pm Da DjNomade

» Ultima del Mese BARI
Gio Mag 17, 2018 8:44 pm Da Mara*

» Da Ambo spia 09-90 a tutte
Mar Apr 03, 2018 6:22 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


Ambi più Frequenti con il Ritardatario di ogni Ruota

Andare in basso

Ambi più Frequenti con il Ritardatario di ogni Ruota

Messaggio Da Blackmore il Dom Mar 22, 2015 7:36 pm

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Ambi più Frequenti con il Ritardatario di ogni Ruota

Messaggio Da Marco il Dom Mar 22, 2015 7:42 pm

Shocked Shocked Shocked Cool Cool Cool
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo dell'utente http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Re: Ambi più Frequenti con il Ritardatario di ogni Ruota

Messaggio Da scardec il Dom Apr 05, 2015 5:33 pm

questa ricerca ha dato l'ambo 26-68 su firenze alla seconda sortita consecutiva del 26.ottimo. buona pasqua a tutti

scardec

Messaggi : 5
Data d'iscrizione : 25.04.14

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Ambi più Frequenti con il Ritardatario di ogni Ruota

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto


 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum