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


Numeri più Frequenti Su Cicli

Andare in basso

Numeri più Frequenti Su Cicli

Messaggio Da Blackmore il Mer Apr 08, 2015 9:53 pm

I 5 Numeri più Frequenti su Ruota a scelta su ToT Cicli e ToT Estrazioni Impostabili tramite Inputbox

Codice:
Sub Main()
'I 5 Numeri più Frequenti su ToT cicli composti da ToT Estrazioni su Ruota a scelta
'Listed By Blackmore
Dim num(90,2)
Dim n(1),ruota(1)
r = InputBox("Analizza la Ruota N°","By Blackmore",1)
Cicli = InputBox("Cicli da analizzare ?","By Blackmore",25)
EstrazioniCiclo = InputBox("Estrazioni per ciclo ?","By Blackmore",9)
ini = EstrazioneFin + 1 - (Cicli*EstrazioniCiclo)
fin = ini + EstrazioniCiclo - 1
ColoreTesto 1:Scrivi String(116,"="),1
Scrivi "RUOTA | N1(FR) | N2(FR) | N3(FR) | N4(FR) | N5(FR) | INIZIO CICLO | FINE CICLO | ESTRAZIONI | CICLO |",0,1
Scrivi String(116,"="),1 :ColoreTesto 0
For c = 1 To cicli
AvanzamentoElab 1,cicli,c
For x = 1 To 90
n(1)=x
ruota(1)= r
fr = SerieFreq(ini,fin,n,ruota,1)
num(x,1)=x
num(x,2)=fr
Next
OrdinaMatrice num,-1,2
Scrivi " "& SiglaRuota(r)&" | ",0,0
For k= 1 To 5
Scrivi Format2(num(k,1)) & "("& Format2(num(k,2)) &") | ",0,0
Next
Scrivi " "& DataEstrazione(ini)&" | "& DataEstrazione(fin)&" | "& Format2(EstrazioniCiclo) &" Estrazioni | "& Format2(c)&" |"
fin = fin + EstrazioniCiclo
ini = ini + EstrazioniCiclo
Next
ColoreTesto 1:Scrivi String(116,"="),1
End Sub

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Numeri più Frequenti Su Cicli

Messaggio Da Blackmore il Gio Apr 09, 2015 3:00 pm

Con Variante... mostra tutti i numeri con frequenza = o Maggiore a quella scelta
e i numeri con Frequenza inferiore o a Zero (tramite inputbox)


Codice:

Sub Main()
'Frequenze numeri su cicli
'Listed By Blackmore
Dim num(90,2)
Dim nn(90,2)
Dim n(1),ruota(1)
'Impostare nelle Inputbox i valori che si desiderano
r = InputBox("Analizza la Ruota N°","By Blackmore",1)
Cicli = InputBox("Cicli da analizzare ?","By Blackmore",5)             
EstrazioniCiclo  = InputBox("Estrazioni per ciclo ?","By Blackmore",9) 
fre = CInt(InputBox("Cerca i piu' frequenti con uscita minima di",,2))
' Leggere l'inputbox
FreM = CInt(InputBox("Vuoi vedere anche i numeri "& Vbcrlf &"con frequenza Inferiore o NON usciti ?"& Vbcrlf &"1 = SI"& Vbcrlf &"2 = NO" ,,2))
ini  = EstrazioneFin + 1 - (Cicli*EstrazioniCiclo)
fin  = ini + EstrazioniCiclo - 1
Scrivi "RUOTA DI "& Ucase(NomeRuota(r))&" ... Frequenza Minima Richiesta: "& fre
For c = 1 To cicli
AvanzamentoElab 1,cicli,c
Scrivi String(68,"="),1:coloretesto 1
Scrivi "Ciclo N° "& c &"  Dal "& DataEstrazione(ini)&"  al  "& DataEstrazione(fin)&"  Periodo di "& EstrazioniCiclo &" Estrazioni",1
ColoreTesto 0:Scrivi String(68,"="),1
cc=0
ck=0
For x = 1 To 90
n(1)=x
ruota(1)= r
sf = SerieFreq(ini,fin,n,ruota,1)
If sf >= fre Then
cc=cc+1
num(cc,1)=x
num(cc,2)=Sf
End If 
If sf < fre Then
ck=ck+1
nn(ck,1)=x
nn(ck,2)=Sf
End If
Next
OrdinaMatrice num,-1,2
OrdinaMatrice nn,-1,2
For k =  1 To cc
Scrivi Format2(num(k,1)) & "  (Fre: "& Format2(num(k,2)) &")"
Next
If FreM = 1 Then
Scrivi String(89,"="),1
coloretesto 2
Scrivi "Numeri NON usciti o con Frequenza Inferiore a quella stabilita nel ciclo di "& EstrazioniCiclo &" Estrazioni"
ColoreTesto 0
Scrivi String(89,"="),1
End If
For y =  1 To ck
If FreM = 1 Then
Scrivi Format2(nn(y,1)) & "  (Fre: "& Format2(nn(y,2)) &")"
End If
Next
fin = fin + EstrazioniCiclo
ini = ini + EstrazioniCiclo
Next
End Sub

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Numeri più Frequenti Su Cicli

Messaggio Da roy62 il Ven Apr 10, 2015 9:08 pm

grazie blak,ciaooo
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Numeri più Frequenti Su Cicli

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