E' richiesta un po' folle..si puo' fare questo script?

[sean69]

Buongiorno a tutti..io provo a chiedere gentilmente ,se possibile, uno script molto particolare..
E' possibile,ripeto possibile crearne uno che:

Esempio dal 2018 al 2025 ,solo nei mesi di giugno,mi da' tutte le cinquine frequenti per la sola sorte di Terno ( ambo no) su tutte le coppie di ruote ( Bari-Cagliari, Bari-Cagliari, ecc. fino a Torino-Nazionale e Venezia-Nazionale)?il tutto dovrebbe essere con imputbox (per cambiare gli anni di ricerca ed il mese di ricerca) oppure intercambiabile nel listato manualmente ( forse sarebbe piu' "facile"),poi basta che uno sa' dove cambiare i parametri.

Faccio esempio di cosa dovrebbe visualizzare listato ( messi numeri a caso per farvi capire)
Mese ; Maggio
Anni da Analizzare : 2018-2025
Le 2 ruote analizzate sono : Bari Cagliari
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc

Le 2 ruote analizzate sono : Bari Firenze
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc


fino a


Le 2 ruote analizzate sono : Torino Nazionale
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc

Le 2 ruote analizzate sono : Venezia Nazionale
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc

Non so se e' possibile farlo..spero qualcuno possa aiutarmi..grazie

 

[AlessandroPe74]

Sub Main
Dim IniAnno, FinAnno, nMese, MinFre

' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1=Gen, 6=Giu, 12=Dic):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))

Call Scrivi("Mese : " & MeseName(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")

' 1. Pre-filtro: Troviamo solo le estrazioni valide per non scansionare l'archivio a vuoto
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0

For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)

Dim r1, r2, i, j, k, drawIdx
Dim n1, n2, n3, x, y, max1, max2, num1, num2
Dim numR(5)

' 2. Ciclo sulle coppie di ruote
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r1 = 11 Then Exit For
If r2 = 11 Then r2 = 12

Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")

' Array per conteggio frequenze numeri e terni (sui 90 interi)
Dim freqNum(90)
Dim freqTerno(90, 90, 90)

For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next

' Scansione veloce solo sulle estrazioni filtrate
For drawIdx = 1 To cDraws
id = aDraws(drawIdx)

' Elabora Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If

' Elabora Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next

' 3. Costruzione e Output delle Cinquine dai Terni frequenti
Dim trovate
trovate = 0

For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then

' Trova i 2 numeri più frequenti per completare la cinquina (esclusi n1, n2, n3)
max1 = -1 : max2 = -1
num1 = 0 : num2 = 0

For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next

' Ordina per stampare a video pulito
Dim Cinq(5)
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)

Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)))
trovate = trovate + 1

If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next

Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub

 

[AlessandroPe74]

' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa

Sub Main
Dim IniAnno, FinAnno, nMese, MinFre

' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1-12):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))

Call Scrivi("Mese ; " & MeseName(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")

' 1. Pre-filtro: Estrazioni valide
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0

For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)

' 2. Mappatura esatta delle 11 ruote (da 1 a 10 + 12 Nazionale, escludendo l'11 Tutte)
Dim aRuote(11)
Dim i, j, k
For i = 1 To 10
aRuote(i) = i
Next
aRuote(11) = 12

Dim r1, r2, idx1, idx2, drawIdx
Dim n1, n2, n3, x, max1, max2, num1, num2
Dim numR(5)

' 3. Scansione automatica e garantita delle 55 coppie
For idx1 = 1 To 10
For idx2 = idx1 + 1 To 11
r1 = aRuote(idx1)
r2 = aRuote(idx2)

Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")

Dim freqNum(90)
Dim freqTerno(90, 90, 90)

For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next

For drawIdx = 1 To cDraws
id = aDraws(drawIdx)

' Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If

' Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next

Dim trovate
trovate = 0

For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then

max1 = -1 : max2 = -1
num1 = 0 : num2 = 0

For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next

Dim Cinq(5)
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)

Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)))
trovate = trovate + 1

If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next

Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub