Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ultima del Mese BARI
Gio Ott 18, 2018 7:34 pm Da DjNomade

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Mer Ott 10, 2018 7:29 am Da DjNomade

» Previsione per Ottobre 2018
Lun Ott 01, 2018 1:10 pm Da Lory

» Da Ambo Distanza 27 a Bari
Gio Set 13, 2018 6:57 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Dom Ago 26, 2018 7:15 am 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


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

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

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

- Argomenti simili

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