listato migliori cadenze decine con capogioco 1 2 ruote

[lottopassion]

Basta scegliere l'estrazione finale in basso a destra e poi lanciare lo script , impostare il numero di cicli, le estrazioni e la ruota o le ruote da esaminare lo script restituirà la migliore decina e cadenza con un ambata , 3 abbinamenti x ambo e una cinquina per ambo e terno.
ciaooo

Codice: Seleziona tutto

Sub main()
Dim ruote(11)
Dim numeri(90)
Dim ncicli
Dim cicli
Dim stringa
Dim fredec(9),frecad(9),predec(8),precad(9),cicad(10,1),cidec(10,1)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff
cicli=CLng(InputBox ("Quanti cicli vuoi analizzare ?"))
ncicli=CLng(InputBox ("Di quante estrazioni ?"))
r1=CLng(InputBox ("Ruota numero 1: (1=Bari 2=Cagliari ...)"))
r2=CLng(InputBox ("Ruota numero 2: 0=no"))
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
For es=estr1 To estr2
For e1=1 To 5
numeri(Estratto (es,r1,e1))=numeri(Estratto(es,r1,e1))+1
fredec(Decina(Estratto (es,r1,e1))) = fredec(Decina(Estratto (es,r1,e1)))+1
If fredec(Decina(Estratto (es,r1,e1)))>decmax Then decmax=fredec(Decina(Estratto (es,r1,e1)))
frecad(Cadenza(Estratto (es,r1,e1))) = frecad(Cadenza(Estratto (es,r1,e1)))+1
If frecad(Cadenza(Estratto (es,r1,e1)))>cadmax Then cadmax=frecad(Cadenza(Estratto (es,r1,e1)))
If r2>0 Then
numeri(Estratto (es,r2,e1))=numeri(Estratto(es,r2,e1))+1
fredec(Decina(Estratto (es,r2,e1))) = fredec(Decina(Estratto (es,r2,e1)))+1
If fredec(Decina(Estratto (es,r2,e1)))>decmax Then decmax=fredec(Decina(Estratto (es,r2,e1)))
frecad(Cadenza(Estratto (es,r2,e1))) = frecad(Cadenza(Estratto (es,r2,e1)))+1
If frecad(Cadenza(Estratto (es,r2,e1)))>cadmax Then cadmax=frecad(Cadenza(Estratto (es,r2,e1)))
End If
Next
Next
Next
stringa= "Ruote gioco: "+NomeRuota (r1)
If r2>0 Then stringa=stringa+" - "+NomeRuota(r2)
Scrivi stringa,True
ff=cadmax+1
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 9
If frecad(cc)=ff Then
Scrivi "cadenza più frequente :"+ CStr(cc)
Scrivi "Frequenza "+CStr(ff)+" in "+CStr(cicli)+" cicli da "+CStr(ncicli)+" estrazioni"
nf=0
nmax=0
For n=1 To 90
If Cadenza(n)=cc Then
nf=nf+1
cicad(nf,0)=n
cicad(nf,1)=numeri(n)
If numeri(n)>nmax Then nmax=numeri(n)
End If
Next
nf=nmax+1
nmax=0
Do
nf=nf-1
If nf=0 Then Exit do
For n=1 To 9
If cicad(n,1)=nf Then
nmax=nmax+1
cidec(nmax,0)=cicad(n,0)
End if
Next
loop
Scrivi "Capogioco cadenza : "+CStr(cidec(1,0))
Scrivi "Abbinamenti x ambo: "+CStr(cidec(2,0))+" - "+CStr(cidec(3,0))+" - "+CStr(cidec(4,0))
Scrivi "Cinquina x ambo e terno: "+CStr(cidec(1,0))+" - "+CStr(cidec(2,0))+" - "+CStr(cidec(3,0))+" - "+CStr(cidec(4,0))+" - "+CStr(cidec(5,0))
Exit Do
End If
Next
Loop
scrivi""
ff=decmax+1
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 9
If fredec(cc)=ff Then
Scrivi "Decina più frequente :"+ CStr(cc)
Scrivi "Frequenza "+CStr(ff)+" in "+CStr(cicli)+" cicli da "+CStr(ncicli)+" estrazioni"
nf=0
nmax=0
For n=1 To 90
If Decina(n)=cc Then
nf = nf+1
cidec(nf,0)=n
cidec(nf,1)=numeri(n)
If numeri(n)>nmax Then nmax=numeri(n)
End If
Next
nf=nmax+1
nmax=0
Do
nf=nf-1
If nf=0 Then Exit do
For n=1 To 9
If cidec(n,1)=nf Then
nmax=nmax+1
cicad(nmax,0)=cidec(n,0)
End if
Next
Loop

Scrivi "Capogioco decina: "+CStr(cicad(1,0))
Scrivi "Abbinamenti x ambo: "+CStr(cicad(2,0))+" - "+CStr(cicad(3,0))+" - "+CStr(cicad(4,0))
Scrivi "Cinquina x ambo e terno: "+CStr(cicad(1,0))+" - "+CStr(cicad(2,0))+" - "+CStr(cicad(3,0))+" - "+CStr(cicad(4,0))+" - "+CStr(cicad(5,0))
Exit Do
End If
Next
Loop
End Sub

[grazianoventidue]

Ciao lottopassion sei davvero un grande , grazie , ciao.

[PIERGIORGIO]

Salve
molto bello e interessante lo script per le decine e cadenze, sarebbe possibile farlo
anche per le quartine radicali?
GRAZIE

[Blackmore]

Ciao lottopassion sei davvero un grande , grazie , ciao.

Quoto... ma già lo sai

[lottopassion]

Thank you black

[lottopassion]

Variante con possibilità di scelta della decina e della cadenza.

Codice: Seleziona tutto

                                                                                                                                                                                                                              
Sub main()
Dim ruote(11)
Dim numeri(90)
Dim ncicli
Dim cicli
Dim stringa
Dim fredec(9),frecad(9),predec(8),precad(9),cicad(10,1),cidec(10,1)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff,scad,sdec
cicli=CLng(InputBox ("Quanti cicli vuoi analizzare ?"))
ncicli=CLng(InputBox ("Di quante estrazioni ?"))
r1=CLng(InputBox ("Ruota numero 1: (1=Bari 2=Cagliari ...)"))
r2=CLng(InputBox ("Ruota numero 2: 0=no"))
sdec=CLng(InputBox ("Decina da analizzare (0-8)(9-automatico): "))
scad=CLng(InputBox ("Cadenza da analizzare (0-9)(10-automatico): "))

estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
For es=estr1 To estr2
For e1=1 To 5
numeri(Estratto (es,r1,e1))=numeri(Estratto(es,r1,e1))+1
fredec(Decina(Estratto (es,r1,e1))) = fredec(Decina(Estratto (es,r1,e1)))+1
If fredec(Decina(Estratto (es,r1,e1)))>decmax Then decmax=fredec(Decina(Estratto (es,r1,e1)))
frecad(Cadenza(Estratto (es,r1,e1))) = frecad(Cadenza(Estratto (es,r1,e1)))+1
If frecad(Cadenza(Estratto (es,r1,e1)))>cadmax Then cadmax=frecad(Cadenza(Estratto (es,r1,e1)))
If r2>0 Then
numeri(Estratto (es,r2,e1))=numeri(Estratto(es,r2,e1))+1
fredec(Decina(Estratto (es,r2,e1))) = fredec(Decina(Estratto (es,r2,e1)))+1
If fredec(Decina(Estratto (es,r2,e1)))>decmax Then decmax=fredec(Decina(Estratto (es,r2,e1)))
frecad(Cadenza(Estratto (es,r2,e1))) = frecad(Cadenza(Estratto (es,r2,e1)))+1
If frecad(Cadenza(Estratto (es,r2,e1)))>cadmax Then cadmax=frecad(Cadenza(Estratto (es,r2,e1)))
End If
Next
Next
Next
stringa= "Ruote gioco: "+NomeRuota (r1)
If r2>0 Then stringa=stringa+" - "+NomeRuota(r2)
Scrivi stringa,True
ff=cadmax+1
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 9
If (frecad(cc)=ff And scad>9) Or (scad<10 And cc=scad) Then
Scrivi "cadenza più frequente :"+ CStr(cc)
Scrivi "Frequenza "+CStr(ff)+" in "+CStr(cicli)+" cicli da "+CStr(ncicli)+" estrazioni"
nf=0
nmax=0
For n=1 To 90
If Cadenza(n)=cc Then
nf=nf+1
cicad(nf,0)=n
cicad(nf,1)=numeri(n)
If numeri(n)>nmax Then nmax=numeri(n)
End If
Next
nf=nmax+1
nmax=0
Do
nf=nf-1
If nf=0 Then Exit Do
For n=1 To 9
If cicad(n,1)=nf Then
nmax=nmax+1
cidec(nmax,0)=cicad(n,0)
End If
Next
Loop
Scrivi "Capogioco cadenza : "+CStr(cidec(1,0))
Scrivi "Abbinamenti x ambo: "+CStr(cidec(2,0))+" - "+CStr(cidec(3,0))+" - "+CStr(cidec(4,0))
Scrivi "Cinquina x ambo e terno: "+CStr(cidec(1,0))+" - "+CStr(cidec(2,0))+" - "+CStr(cidec(3,0))+" - "+CStr(cidec(4,0))+" - "+CStr(cidec(5,0))
Exit Do
End If
Next
Loop
scrivi""
ff=decmax+1
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 9
If (fredec(cc)=ff And sdec>8) Or (sdec<9 And cc=sdec) Then
Scrivi "Decina più frequente :"+ CStr(cc)
Scrivi "Frequenza "+CStr(ff)+" in "+CStr(cicli)+" cicli da "+CStr(ncicli)+" estrazioni"
nf=0
nmax=0
For n=1 To 90
If Decina(n)=cc Then
nf = nf+1
cidec(nf,0)=n
cidec(nf,1)=numeri(n)
If numeri(n)>nmax Then nmax=numeri(n)
End If
Next
nf=nmax+1
nmax=0
Do
nf=nf-1
If nf=0 Then Exit Do
For n=1 To 9
If cidec(n,1)=nf Then
nmax=nmax+1
cicad(nmax,0)=cidec(n,0)
End If
Next
Loop

Scrivi "Capogioco decina: "+CStr(cicad(1,0))
Scrivi "Abbinamenti x ambo: "+CStr(cicad(2,0))+" - "+CStr(cicad(3,0))+" - "+CStr(cicad(4,0))
Scrivi "Cinquina x ambo e terno: "+CStr(cicad(1,0))+" - "+CStr(cicad(2,0))+" - "+CStr(cicad(3,0))+" - "+CStr(cicad(4,0))+" - "+CStr(cicad(5,0))
Exit Do
End If
Next
Loop
End Sub




[zagort]

veramente ,ottimi listati,grazie e complimenti

[sirius04]

Bravissimo Lottopassion listati perfetti e molto utili
Grazie