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
Numeri più Frequenti Su Cicli EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Numeri più Frequenti Su Cicli EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Numeri più Frequenti Su Cicli EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Numeri più Frequenti Su Cicli EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Numeri più Frequenti Su Cicli EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Numeri più Frequenti Su Cicli EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Numeri più Frequenti Su Cicli EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Numeri più Frequenti Su Cicli EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Numeri più Frequenti Su Cicli EmptyMar 2 Apr - 20:57:27 Da DjNomade


Numeri più Frequenti Su Cicli

2 partecipanti

Andare in basso

Numeri più Frequenti Su Cicli Empty Numeri più Frequenti Su Cicli

Messaggio Da Blackmore Mer 8 Apr - 23:53:51

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

Numeri più Frequenti Su Cicli Empty Re: Numeri più Frequenti Su Cicli

Messaggio Da Blackmore Gio 9 Apr - 17:00:26

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

Numeri più Frequenti Su Cicli Empty Re: Numeri più Frequenti Su Cicli

Messaggio Da roy62 Ven 10 Apr - 23:08:47

grazie blak,ciaooo
roy62
roy62

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

Torna in alto Andare in basso

Numeri più Frequenti Su Cicli Empty Re: Numeri più Frequenti Su Cicli

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.