Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Vediamo se mi ripago le ferie
Ven Feb 16, 2018 5:11 pm Da spike5

» Da Ambo spia 09-90 a tutte
Ven Feb 16, 2018 8:40 am Da spike5

» Ultima del Mese BARI
Sab Feb 10, 2018 9:12 pm Da vinci

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

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

» Firenze-Genova (chiusa)
Gio Gen 18, 2018 1:09 pm Da Lory

» ambo a tutte
Lun Gen 08, 2018 9:50 pm Da Mara*

» 2 ambi a Venezia
Lun Gen 08, 2018 1:49 pm 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 : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare 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 : 813
Data d'iscrizione : 26.12.13

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

Tornare 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

Vedi il profilo dell'utente

Tornare in alto Andare in basso

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

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Tornare in alto Andare in basso

Tornare in alto

- Argomenti simili

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