LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
Ambi FRE e RIT su combinazione a scelta EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Ambi FRE e RIT su combinazione a scelta EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Ambi FRE e RIT su combinazione a scelta EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Ambi FRE e RIT su combinazione a scelta EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Ambi FRE e RIT su combinazione a scelta EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Ambi FRE e RIT su combinazione a scelta EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Ambi FRE e RIT su combinazione a scelta EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Ambi FRE e RIT su combinazione a scelta EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Ambi FRE e RIT su combinazione a scelta EmptyMar 2 Apr - 20:57:27 Da DjNomade


Ambi FRE e RIT su combinazione a scelta

3 partecipanti

Andare in basso

Ambi FRE e RIT su combinazione a scelta Empty Ambi FRE e RIT su combinazione a scelta

Messaggio Da Blackmore Mar 23 Set - 16:19:25

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

Torna in alto Andare in basso

Ambi FRE e RIT su combinazione a scelta Empty Re: Ambi FRE e RIT su combinazione a scelta

Messaggio Da *Olga* Sab 27 Set - 19:29:28

grazie BLACK....
*Olga*
*Olga*

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

Torna in alto Andare in basso

Ambi FRE e RIT su combinazione a scelta Empty Re: Ambi FRE e RIT su combinazione a scelta

Messaggio Da domenico1 Gio 9 Ott - 18:24:42

Grazie Black !
domenico1
domenico1

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

Torna in alto Andare in basso

Ambi FRE e RIT su combinazione a scelta Empty Re: Ambi FRE e RIT su combinazione a scelta

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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