Script statistico

[joi_lotto]

Ciao, visto che sono completamente negato nonostante gli innumerevoli tentativi di crearne uno (1) Vi chiedo:
E’ possibile avere uno script che mi dica quali sono stati i 6,7 ambi più frequenti in un determinato mese, dal 7 Gennaio 1939 ad oggi?
Avendo la possibilità di chiedere solo la scelta del mese.
Esempio: ambi frequenti mese di Gennaio: BA sono 3, 21-23,30-31,32-33. CA sono 2, 1-2,5-6 ecc.ecc.

Grazie
joi_lotto

[lottopassion]

Ciao Joi_lotto questo è lo script che dovrebbe fare quello che dici Saluti.

Codice: Seleziona tutto

Sub main()
Dim ambi(89,90)
rt=CLng(InputBox("Quale ruota vuoi analizzare (1 Bari 2 Cagliari ...)?"))
ms =CLng(InputBox("Quale mese vuoi esaminare ( 1 gen 2 feb ...)?"))
ini=CLng(InputBox("Numero estrazione iniziale "))
abf=CLng(InputBox("Quanti ambi più frequenti vuoi visualizzare ?"))
fremax=0
For es=ini To EstrazioneFin
If Mese(es)=ms Then
For e1=1 To 4
For e2=e1+1 To 5
n1=Estratto(es,rt,e1)
n2=Estratto(es,rt,e2)
If n1>n2 Then
a1=n2
a2=n1
Else
a1=n1
a2=n2
End if
ambi(a1,a2)=ambi(a1,a2)+1
If ambi(a1,a2)>fremax Then fremax=ambi(a1,a2)
Next
next
End if
Next
Scrivi CStr(abf)+" ambi più frequenti sulla ruota di "+NomeRuota (rt)+" nel mese di "+ MeseNome(ms),true
scrivi""
fremax2=fremax+1
Do
cc=0
fremax2=fremax2-1
If fremax2=0 Then Exit do
For n1=1 To 89
For n2=n1+1 To 90
If ambi(n1,n2)=fremax2 Then
cc=cc+1
Scrivi CStr(n1)+" - "+CStr(n2) +" fre "+CStr(fremax2)
If cc=abf Then Exit do
End if
Next
next
loop


End Sub


[joi_lotto]

Grazie Lottopassion, lo provo subito.

[joi_lotto]

Ciao Lottopassion, provato e funziona bene. Ti chiedo se è possibile vedere la statistica di tutte le ruote, anziché una alla volta.
Grazie
joi_lotto