L'evoluzione degli Script Statistici e Ciclometrici
Entra nel gruppo ufficiale per scambiare e scaricare i listati script personalizzati per Lotto Per Vincere Pro.
Acquista la copia originale del software completo con licenza garantita direttamente dallo store ufficiale.
Scarica o consulta online la guida tecnica completa in formato PDF per imparare a sfruttare al 100% ogni singola funzione.
Di seguito trovi il listato pronto per essere inserito nell'editor del tuo software, pienamente conforme alle direttive d'ambiente strutturali.
' ============================================================================
' METODO: TOP 5 RUOTE - CAPOGIOCO + COPPIA VERTIBILI (PROTOCOLLO V12)
' ============================================================================
Sub Main()
' --- DICHIARAZIONE VARIABILI (REGOLA 3: TUTTE IN CIMA) ---
Dim numX, numEstrazioni, inputX, inputEstr
Dim fine, inizio, es, r, p, esRit, i, v, c
Dim numCoppie, coppieV1(45), coppieV2(45)
Dim hasX, hasV, estrVal
Dim bestIC, bestV1, bestV2, bestRit, bestFreq
Dim rit, freq, ciclo, icVal
Dim topIC(12), topV1(12), topV2(12), topRit(12), topFreq(12)
Dim RuoteOrdinate(11), ICOrdinato(11)
Dim idx, tmpIC, tmpR, topIndex
Dim htmlContent, jsLabels, jsIC, jsColors
Dim comma, rowColor, jsScript
' --- PULIZIA OUTPUT (REGOLA 2) ---
Scrivi "PULISCI"
' --- FASE INTERATTIVA ---
inputX = InputBox("Inserisci il Numero Capogioco X (1-90):", "Capogioco", "9")
If Trim(inputX) = "" Then Exit Sub
numX = CInt(inputX)
inputEstr = InputBox("Su quante ultime estrazioni vuoi calcolare il trend (Frequenza)?", "Range Estrazioni", "500")
If Trim(inputEstr) = "" Then Exit Sub
numEstrazioni = CInt(inputEstr)
' --- IMPOSTAZIONI SCRIPT E RANGE ---
ColoreSfondo 35280
fine = EstrazioneFin()
inizio = fine - numEstrazioni + 1
If inizio < 1 Then inizio = 1
Scrivi "================================================="
Scrivi " RICERCA TOP 5: CAPOGIOCO + COPPIA VERTIBILI"
Scrivi "================================================="
Scrivi "Capogioco Analizzato : " & Format2(numX)
Scrivi "Range Trend (IC) : Ultime " & numEstrazioni & " estrazioni"
Scrivi "Elaborazione di tutte le combinazioni in corso..."
Scrivi "-------------------------------------------------"
' --- 1. GENERAZIONE COPPIE VERTIBILI PURE ---
numCoppie = 0
For i = 1 To 89
v = Vertibile(i)
' Escludo capogioco e mantengo solo coppie uniche (i < v)
If i < v And i <> numX And v <> numX Then
numCoppie = numCoppie + 1
coppieV1(numCoppie) = i
coppieV2(numCoppie) = v
End If
Next
' --- 2. SCANSIONE PROFONDA PER OGNI RUOTA ---
For r = 1 To 12
If r <> 11 Then
bestIC = -1 : bestV1 = 0 : bestV2 = 0 : bestRit = 0 : bestFreq = 0
For c = 1 To numCoppie
v1 = coppieV1(c)
v2 = coppieV2(c)
' Calcolo Ritardo Attuale
rit = 0
For esRit = fine To 1 Step -1
hasX = False : hasV = False
For p = 1 To 5
estrVal = CInt(Estratto(esRit, r, p))
If estrVal = numX Then hasX = True
If estrVal = v1 Or estrVal = v2 Then hasV = True
Next
If hasX And hasV Then Exit For
rit = rit + 1
Next
' Calcolo Frequenza nel Range
freq = 0
For es = inizio To fine
hasX = False : hasV = False
For p = 1 To 5
estrVal = CInt(Estratto(es, r, p))
If estrVal = numX Then hasX = True
If estrVal = v1 Or estrVal = v2 Then hasV = True
Next
If hasX And hasV Then freq = freq + 1
Next
' Calcolo IC (Regola 12: Arrotondamento Int)
If freq > 0 Then
ciclo = numEstrazioni / freq
icVal = Int((rit / ciclo) * 100)
Else
icVal = 0
End If
' Memorizzo la migliore combinazione per questa ruota
If icVal > bestIC Then
bestIC = icVal
bestV1 = v1
bestV2 = v2
bestRit = rit
bestFreq = freq
End If
Call PerdiTempo(0.1) ' Respiro del loop (Regola 4)
Next
topIC(r) = bestIC
topV1(r) = bestV1
topV2(r) = bestV2
topRit(r) = bestRit
topFreq(r) = bestFreq
Call AvanzaProgressione("Scansione Ruote: " & NomeRuota(r), 12, r)
End If
Next
' --- 3. ORDINAMENTO PER CLASSIFICA TOP 5 ---
idx = 1
For r = 1 To 12
If r <> 11 Then
RuoteOrdinate(idx) = r
ICOrdinato(idx) = topIC(r)
idx = idx + 1
End If
Next
For i = 1 To 10
For j = i + 1 To 11
If ICOrdinato(i) < ICOrdinato(j) Then
tmpIC = ICOrdinato(i): ICOrdinato(i) = ICOrdinato(j): ICOrdinato(j) = tmpIC
tmpR = RuoteOrdinate(i): RuoteOrdinate(i) = RuoteOrdinate(j): RuoteOrdinate(j) = tmpR
End If
Next
Next
' --- 4. COSTRUZIONE CSS HTML (DARK MODE #000000) ---
htmlContent = "<!DOCTYPE html><html><head><meta charset='ISO-8859-1'><title>Top 5 Vertibili</title>"
htmlContent = htmlContent & "<style>"
htmlContent = htmlContent & "body \{ background-color: #000000; color: #FFFFFF; font-family: 'Segoe UI', Arial; padding: 30px; line-height: 1.6; text-align: center; \}"
htmlContent = htmlContent & "h1 \{ color: #00FFCC; border-bottom: 2px solid #00FFCC; padding-bottom: 10px; text-transform: uppercase; margin-bottom: 5px; \}"
htmlContent = htmlContent & ".subtitle \{ color: #DDDDDD; font-size: 1.1em; margin-bottom: 30px; \}"
htmlContent = htmlContent & ".card \{ background: #1A1A1A; border-left: 6px solid #00FFCC; padding: 20px; border-radius: 8px; box-shadow: 5px 5px 15px rgba(0,0,0,0.5); margin-bottom: 30px; \}"
htmlContent = htmlContent & "table \{ width: 100%; border-collapse: collapse; background: #1A1A1A; margin-top: 20px; font-size: 1.1em; \}"
htmlContent = htmlContent & "th \{ background-color: #2a1f60; color: #FFFFFF; padding: 15px; font-weight: bold; border: 1px solid #444; \}"
htmlContent = htmlContent & "td \{ padding: 12px; border: 1px solid #444; text-align: center; \}"
htmlContent = htmlContent & "tr:nth-child(even) \{ background-color: #242424; \}"
htmlContent = htmlContent & ".badge-combo \{ background-color: #FF4C4C; color: white; padding: 5px 12px; border-radius: 6px; font-weight: bold; letter-spacing: 2px; font-size: 1.2em; \}"
htmlContent = htmlContent & "</style></head><body>"
htmlContent = htmlContent & "<h1>CLASSIFICA TOP 5 RUOTE</h1>"
htmlContent = htmlContent & "<div class='subtitle'>Migliori formazioni: Capogioco <b>" & Format2(numX) & "</b> abbinato a Coppie Vertibili (Analisi su " & numEstrazioni & " estr.)</div>"
' TABELLA TOP 5
htmlContent = htmlContent & "<table><tr><th>#</th><th>Ruota</th><th>Miglior Terzina (X-V1-V2)</th><th>Ritardo</th><th>Frequenza</th><th>IC %</th></tr>"
jsLabels = "[" : jsIC = "[" : jsColors = "[" : comma = ""
Dim colorArray
colorArray = Array("", "'#FFD700'", "'#C0C0C0'", "'#CD7F32'", "'#00BFFF'", "'#FF69B4'")
For i = 1 To 5
topIndex = RuoteOrdinate(i)
If topIndex > 0 Then
If i = 1 Then rowColor = "#FFD700" Else rowColor = "#FFFFFF"
htmlContent = htmlContent & "<tr>"
htmlContent = htmlContent & "<td style='font-weight:bold; color:" & rowColor & "; font-size: 1.3em;'>" & i & "°</td>"
htmlContent = htmlContent & "<td><strong>" & UCase(NomeRuota(topIndex)) & "</strong></td>"
htmlContent = htmlContent & "<td><span class='badge-combo'>" & Format2(numX) & " - " & Format2(topV1(topIndex)) & " - " & Format2(topV2(topIndex)) & "</span></td>"
htmlContent = htmlContent & "<td>" & topRit(topIndex) & "</td>"
htmlContent = htmlContent & "<td>" & topFreq(topIndex) & "</td>"
htmlContent = htmlContent & "<td style='color:" & rowColor & "; font-weight:bold; font-size: 1.3em;'>" & topIC(topIndex) & "%</td>"
htmlContent = htmlContent & "</tr>"
jsLabels = jsLabels & comma & "'" & UCase(NomeRuota(topIndex)) & "'"
jsIC = jsIC & comma & topIC(topIndex)
jsColors = jsColors & comma & colorArray(i)
comma = ", "
End If
Call AvanzaProgressione("Creazione classifica Top 5", 5, i)
Next
htmlContent = htmlContent & "</table>"
jsLabels = jsLabels & "]" : jsIC = jsIC & "]" : jsColors = jsColors & "]"
' CONTENITORE GRAFICO BARRE ORIZZONTALI
htmlContent = htmlContent & "<div class='card' style='margin-top:40px; height: 400px; border-left-color: #00BFFF;'><canvas id='chartTop5'></canvas></div>"
' MOTORE JS CHART.JS (BARRE ORIZZONTALI)
jsScript = "<script src='https://cdn.jsdelivr.net/npm/chart.js'></script>" & vbCrLf
jsScript = jsScript & "<script>" & vbCrLf
jsScript = jsScript & "var ctx = document.getElementById('chartTop5').getContext('2d');" & vbCrLf
jsScript = jsScript & "new Chart(ctx, \{" & vbCrLf
jsScript = jsScript & " type: 'bar'," & vbCrLf
jsScript = jsScript & " data: \{" & vbCrLf
jsScript = jsScript & " labels: " & jsLabels & "," & vbCrLf
jsScript = jsScript & " datasets: [\{" & vbCrLf
jsScript = jsScript & " label: 'Indice di Convenienza (IC) %'," & vbCrLf
jsScript = jsScript & " data: " & jsIC & "," & vbCrLf
jsScript = jsScript & " backgroundColor: " & jsColors & "," & vbCrLf
jsScript = jsScript & " borderWidth: 1," & vbCrLf
jsScript = jsScript & " borderRadius: 5" & vbCrLf
jsScript = jsScript & " \}]" & vbCrLf
jsScript = jsScript & " \}," & vbCrLf
jsScript = jsScript & " options: \{" & vbCrLf
jsScript = jsScript & " indexAxis: 'y'," & vbCrLf
jsScript = jsScript & " responsive: true," & vbCrLf
jsScript = jsScript & " maintainAspectRatio: false," & vbCrLf
jsScript = jsScript & " plugins: \{ legend: \{ display: false \} \}," & vbCrLf
jsScript = jsScript & " scales: \{" & vbCrLf
jsScript = jsScript & " x: \{ beginAtZero: true, ticks: \{ color: '#FFF' \}, grid: \{ color: '#444' \} \}," & vbCrLf
jsScript = jsScript & " y: \{ ticks: \{ color: '#FFF', font: \{ size: 14, weight: 'bold' \} \}, grid: \{ display: false \} \}" & vbCrLf
jsScript = jsScript & " \}" & vbCrLf
jsScript = jsScript & " \}" & vbCrLf
jsScript = jsScript & "\});" & vbCrLf
jsScript = jsScript & "</script></body></html>"
' --- 5. SALVATAGGIO E APERTURA NATIVA (REGOLA 7) ---
Call SalvaFileDiTesto(Percorso & "top5_capogioco_vertibili.html", htmlContent & jsScript)
Call ApriContenutoInterno(Percorso & "top5_capogioco_vertibili.html")
' --- 6. OUTPUT SINTETICO A VIDEO (REGOLA 8) ---
Scrivi "================================================="
Scrivi " ELABORAZIONE COMPLETATA - REPORT TOP 5 GENERATO!"
Scrivi "================================================="
Scrivi " LA MIGLIORE COMBINAZIONE ASSOLUTA E': "
If RuoteOrdinate(1) > 0 Then
topIndex = RuoteOrdinate(1)
Scrivi " > RUOTA : " & UCase(NomeRuota(topIndex))
Scrivi " > TERZINA : " & Format2(numX) & " - " & Format2(topV1(topIndex)) & " - " & Format2(topV2(topIndex))
Scrivi " > IC % : " & topIC(topIndex) & "%"
End If
Scrivi "================================================="
End Sub
' --- INNESCO AUTOMATICO (REGOLA 11) ---
Call Main()
Clicca in un punto qualsiasi su uno dei box sottostanti per aprire istantaneamente il post originale direttamente su Facebook e interagire con i commenti:
Tutti gli script condivisi nella nostra community devono seguire rigorosamente le specifiche tecniche per garantire stabilità.
Scrivi "PULISCI" all'avvio dello script.Call PerdiTempo(0.1) dopo ogni incremento importante o all'interno dei cicli pesanti.Segui questi semplici passaggi per integrare i listati nel tuo software: