Numeri più Frequenti Su Cicli

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

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

Da roy62 Ven 10 Apr - 23:08:47

grazie blak,ciaooo

Da Contenuto sponsorizzato

Numeri più Frequenti Su Cicli

Numeri più Frequenti Su Cicli

Re: Numeri più Frequenti Su Cicli

Re: Numeri più Frequenti Su Cicli

Re: Numeri più Frequenti Su Cicli