listato per ricavare previsioni cadenza su ruota

[alexvisco]

Salve
Chi mi consiglia un buon listato per ricavare previsioni per giocare cadenze su ruota?
Grazie

 

[Reacher]

Ciao prova questo

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 = cc Then
nf = nf + 1
cicad(nf,0) = n
cicad(nf,1) = numeri
If numeri > nmax Then nmax = numeri
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))
ColoreTesto 1

Scrivi "Abbinamenti x ambo: " + CStr(cidec(2,0)) + " - " + CStr(cidec(3,0)) + " - " + CStr(cidec(4,0))
ColoreTesto 2

Scrivi "Sestina x ambo e terno: " + CStr(cidec(1,0)) + " - " + CStr(cidec(2,0)) + " - " + CStr(cidec(3,0)) + " - " + CStr(cidec(4,0)) + " - " + CStr(cidec(5,0)) + " - " + CStr(cidec(6,0))

ColoreTesto 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 = cc Then
nf = nf + 1
cidec(nf,0) = n
cidec(nf,1) = numeri
If numeri > nmax Then nmax = numeri
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))
ColoreTesto 1
Scrivi "Abbinamenti x ambo: " + CStr(cicad(2,0)) + " - " + CStr(cicad(3,0)) + " - " + CStr(cicad(4,0))
ColoreTesto 2
Scrivi "Sestine x ambo e terno: " + CStr(cicad(1,0)) + " - " + CStr(cicad(2,0)) + " - " + CStr(cicad(3,0)) + " - " + CStr(cicad(4,0)) + " - " + CStr(cicad(5,0)) + " - " + CStr(cicad(6,0))

Exit Do
End If
Next
Loop
End Sub