script

[lottofortune]

Buongiorno a tutti.. esiste uno script che mi faccia la ricerca di un ambo più uscito in un determinato mese a tutte? Vi ringrazio. Auguri di buone feste a tutti..

 

[lottofortune]

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

 

[lottofortune]

io ho questo ma è solo su ruota..

 

[joe]

Ciao ...

... siccome mi sembra apposto, l'ho modificato.

Però non ho controllato nè prima nè dopo le modifiche se funziona correttamente.

Quindi consiglio di verificare per bene, prima di affidarsi ai risultati.

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 rt= 1 To 10 
 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
Next

 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

 

[lottofortune]

Grazie joe.. Non appena torno a casa lo controllo..

 

[lottofortune]

ciao joe lo script va bene...grazie mille...buon natale

 

[joe]

Ciao grazie.

Buon Natale.

Volevo chiederti se sai chi ha scritto quel programma.

 

[lottofortune]

Buongiorno joe, non ricordo ce l'ho da tanto tempo, non ricordo neanche se l'ho preso qua o su un altro sito.

 

[rossonero8]

auguri a tutti.in riferimento al listato quando di domanda :
ini = CLng(InputBox("Numero estrazione iniziale ")) che n° estraz si riferisce? grazie

 

[joe]

auguri a tutti.in riferimento al listato quando di domanda :
ini = CLng(InputBox("Numero estrazione iniziale ")) che n° estraz si riferisce? grazie

Ciao, gli inputbox, non so se facevano parte del programma

nella sua versione originale o sono stati aggiunti successivamente.

Comunque sia essi servono per inserire dei parametri all'interno dello script,

durante il suo svolgimento.

In estrema sintesi "si riferisce" esattamente a quello che tu ci scrivi.

 

[lottofortune]

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 rt= 1 To 10
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
Next

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

buongiorno a tutti, qualcuno può modificare questo script, anziché fare la ricerca di un ambo a tutte, mi ricerchi anche terno e quaterna? Grazie e buona Pasquetta a tutti.