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 FRE e RIT su combinazione a scelta

Andare in basso

Ambi FRE e RIT su combinazione a scelta

Messaggio Da Blackmore il Mar Set 23, 2014 2:19 pm

Ciao, inserendo una formazione a scelta
tramite la funzione sceglinumeri
lo script elabora tutte le combinazioni per ambo
e le ordina per Frequenza e Ritardo
Inizio e fine ricerca e ruote si cambiano tramite inputbox

Codice:
Formazione inserita:    11.22.33.44.55
Totale Numeri inseriti: 05
Ruote di ricerca:       Bari-Cagliari

Ambi + FRE dal 05.01.1946 al 20.09.2014
=======================================
AMBO     FRE   [Ambi Generati: 10]

11.55     30
33.44     30
22.55     29
11.33     29
44.55     27
22.33     26
11.22     25
11.44     23
33.55     17
22.44     17
=======================================
Ambi + RIT dal 05.01.1946 al 20.09.2014

AMBO     RIT   [Ambi Generati: 10]

11.44    688
22.33    456
22.55    367
22.44    262
44.55    149
33.55    105
11.33    105
33.44    53
11.22    16
11.55    06

Script

Codice:
Sub Main()
'Script che permette di inserire una formazione numerica a piacimento
'generando tutte le combinazioni di ambi ordinati per frequenza e ritardo

   Dim k(4500,3),k2(4500,3),n(90),num(90),ruote(10)
   r1 = CInt(InputBox("Ruota n° 1","By Blackmore",1))
   r2 = CInt(InputBox("Ruota n° 2","By Blackmore",2))
   inizio = CInt(InputBox("Inizio ricerca FRE e RIT degli Ambi ?","By Blackmore",3914))
   fine = CInt(InputBox("Fine ricerca","By Blackmore",8902))
   a = ScegliNumeri(n)
   conta = 0
   Scrivi "Formazione inserita:    " & StringaNumeri(n),1
   Scrivi "Totale Numeri inseriti: " & Format2(a),1
   Scrivi "Ruote di ricerca:      " & NomeRuota(r1)&"-"& NomeRuota(r2),1:Scrivi
   For x1 = 1 To a - 1
      For x2 = x1 + 1 To a
         num(1) = n(x1)
         num(2) = n(x2)
         ruote(1) = r1
         ruote(2) = r2
         fre = SerieFreq(inizio,fine,num,ruote,2)
         rit = SerieRitardo(inizio,fine,num,ruote,2)
         conta = conta + 1
         k(conta,1) = num(1)
         k(conta,2) = num(2)
         k(conta,3) = fre
         k2(conta,1) = num(1)
         k2(conta,2) = num(2)
         k2(conta,3) = rit
      Next
   Next
   Scrivi "Ambi + FRE dal " & DataEstrazione(inizio) & " al " & DataEstrazione(fine),1
   Scrivi String(39,"="),1
   ColoreTesto 1:Scrivi "AMBO    FRE  [Ambi Generati: " & Format2(conta) & "]":Scrivi: ColoreTesto 0
   OrdinaMatrice k,- 1,3
   OrdinaMatrice k2,- 1,3
   For x = 1 To conta
      Scrivi Format2(k(x,1)) & "." & Format2(k(x,2)) & "    " & Format2(k(x,3))
   Next
   Scrivi String(39,"="),1
   Scrivi "Ambi + RIT dal " & DataEstrazione(inizio) & " al " & DataEstrazione(fine),1
   ColoreTesto 1:Scrivi:Scrivi "AMBO    RIT  [Ambi Generati: " & Format2(conta) & "]":Scrivi: ColoreTesto 0
   For x = 1 To conta
      Scrivi Format2(k2(x,1)) & "." & Format2(k2(x,2)) & "    " & Format2(k2(x,3))
   Next
End Sub

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Ambi FRE e RIT su combinazione a scelta

Messaggio Da *Olga* il Sab Set 27, 2014 5:29 pm

grazie BLACK....
avatar
*Olga*

Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 57
Località : Lazio VT

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Ambi FRE e RIT su combinazione a scelta

Messaggio Da domenico1 il Gio Ott 09, 2014 4:24 pm

Grazie Black !
avatar
domenico1

Messaggi : 393
Data d'iscrizione : 26.12.13
Età : 58

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Ambi FRE e RIT su combinazione a scelta

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