Cerca
ESTRAZIONI LOTTO
Ultimi argomenti attivi
Ambi FRE e RIT su combinazione a scelta
3 partecipanti
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
Ambi FRE e RIT su combinazione a scelta
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
Script
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
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
domenico1- Messaggi : 393
Data d'iscrizione : 26.12.13
Età : 64
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.
» Ultima del Mese BARI
» N°Spia 50 R.S. Genova R.G. Torino
» il forum si è trasferito
» il forum si è trasferito
» il forum si è trasferito
» N°Spia 50 R.S. Genova R.G. Torino
» Ho aperto un nuovo sito
» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi