Novità

SUPERBIG V3 - Capogioco 07

ciao , se ti fa piacere ti posso allegare un paio di altri script, quello degli n.ambi capigioco su ruota e il caricamento dell'archivio da microfono, cioè gli detti tu a voce l'estrazione sortita che leggerai da un qualsiasi sito di fiducia. naturalmente deve avere il microfono e/o videocamera sul pc o da tablet o da qualche supporto, io l'ho sul pc, quindi a volte la uso, anche se per abitudine ormai uso quella dell'inserimento manuale. come test, così me li provi su altri pc o supporti. sono sempre html. dimmi se ti va bene, poi te li allego.
 
non ho microfono ne cam sul fisso sorry ,certo mi farebbe piacere, i tuoi script rimangono sempre il top
Codice: 
Option Explicit

'==============================================================================
' SELETTORE CAPOGIOCO - Scansione 90 numeri (FIX Err.1020 + loop + velocità)
'==============================================================================
Sub Main
   Dim fine, iniStart, idE, riga, cg, rt, e, ee, j, k, x, ct, ctz, q, da, a, durata
   Dim numeri(), duratamax(), risultati(), mat()
   Dim n, cm, freqAtt, pr, str36, punteggio, nRighe
   Dim bestCG, bestScore, sogliaRecord, isNearRecord
   Dim atitoli(), avalori(), s

   ' === INPUT PROTETTO ===
   s = InputBox("Estrazione Finale", "Selettore Capogioco", EstrazioneFin)
   If Len(Trim(s)) = 0 Or Not IsNumeric(s) Then Exit Sub
   fine = CLng(s)
   iniStart = EstrazioneIni

   Scrivi "<h2>SELETTORE CAPOGIOCO - Scansione 90 numeri</h2>", 1
   Scrivi "<b>Periodo:</b> " & iniStart & " al " & fine, 1

   ' === PRECARICO ESTRAZIONI (una sola passata) ===
   nRighe = fine - iniStart
   ReDim mat(nRighe, 10, 5)
   For idE = iniStart + 1 To fine
      Messaggio("Caricamento " & idE)
      riga = idE - iniStart
      For rt = 1 To 10
         For e = 1 To 5
            mat(riga, rt, e) = Estratto(idE, rt, e)
         Next
      Next
   Next

   ReDim risultati(90, 8)

   ' === SCAN DEI 90 CAPOGIOCCHI ===
   For cg = 1 To 90
      Messaggio("Analisi capogioco " & cg & "/90")

      ReDim numeri(90, 2)
      ReDim duratamax(100)
      da = iniStart : ct = 0 : q = 0 : cm = 0

      For idE = iniStart + 1 To fine
         riga = idE - iniStart
         x = 0
         For rt = 1 To 10
            For e = 1 To 5
               If mat(riga, rt, e) = cg Then
                  x = 1 : ct = ct + 1
                  ' Marco i 5 abbinamenti della cinquina (veloce)
                  For ee = 1 To 5
                     j = Int(mat(riga, rt, ee))
                     numeri(j, 1) = numeri(j, 1) + 1
                     numeri(j, 2) = j
                  Next
               End If
            Next
         Next

         ctz = 0
         For k = 1 To 90
            If numeri(k, 2) > 0 Then ctz = ctz + 1
         Next

         If ctz = 90 Then
            a = idE : q = q + 1 : durata = a - da
            If q <= 100 Then duratamax(q) = durata
            da = a + 1
            ReDim numeri(90, 2)
         End If
      Next

      ' Ambi vergini attuali
      For k = 1 To 90
         If numeri(k, 2) = 0 And k <> cg Then cm = cm + 1
      Next

      Call OrdinaMatrice(duratamax, -1)

      ' Pres1x36
      str36 = ""
      For rt = 1 To 10
         pr = EstrattoFrequenzaTurbo(rt, cg, fine - 36, fine)
         If pr = 1 Then str36 = str36 & SiglaRuota(rt) & "-"
      Next

      ' Ritardo estratto su Tutte
      freqAtt = EstrattoRitardoTurbo(11, cg, EstrazioneIni, fine)

      ' Zona record
      sogliaRecord = 0 : isNearRecord = "NO"
      If duratamax(1) > 0 Then
         sogliaRecord = Int(duratamax(1) * 0.9)
         If (fine - da) >= sogliaRecord Then isNearRecord = "SI"
      End If

      ' === PUNTEGGIO (If/ElseIf in FORMA A BLOCCO: fix Err.1020) ===
      punteggio = 0

      ' Criterio 1: pochi ambi vergini
      If cm <= 5 Then
         punteggio = punteggio + 10
      ElseIf cm <= 10 Then
         punteggio = punteggio + 8
      ElseIf cm <= 20 Then
         punteggio = punteggio + 6
      ElseIf cm <= 30 Then
         punteggio = punteggio + 4
      ElseIf cm <= 40 Then
         punteggio = punteggio + 2
      End If

      ' Criterio 2: ciclo in zona record
      If isNearRecord = "SI" Then punteggio = punteggio + 15

      ' Criterio 3: Pres1x36 su più ruote
      If Len(str36) >= 6 Then
         punteggio = punteggio + 10
      ElseIf Len(str36) >= 4 Then
         punteggio = punteggio + 7
      ElseIf Len(str36) >= 2 Then
         punteggio = punteggio + 4
      End If

      ' Criterio 4: ritardo estratto
      If freqAtt >= 20 Then
         punteggio = punteggio + 5
      ElseIf freqAtt >= 15 Then
         punteggio = punteggio + 3
      ElseIf freqAtt >= 10 Then
         punteggio = punteggio + 1
      End If

      risultati(cg, 1) = cg
      risultati(cg, 2) = cm
      risultati(cg, 3) = fine - da
      risultati(cg, 4) = duratamax(1)
      risultati(cg, 5) = isNearRecord
      risultati(cg, 6) = str36
      risultati(cg, 7) = freqAtt
      risultati(cg, 8) = punteggio
   Next

   ' === ORDINA E STAMPA TOP 15 ===
   Call OrdinaMatrice(risultati, -1, 8)

   Scrivi "<h3>TOP 15 CAPOGIOCCHI CONSIGLIATI</h3>", 1
   ReDim atitoli(8), avalori(8)
   atitoli(1) = " Rank " : atitoli(2) = " CG " : atitoli(3) = " Score " : atitoli(4) = " AmbiVerg "
   atitoli(5) = " DurataCiclo " : atitoli(6) = " MaxStor " : atitoli(7) = " ZonaRec " : atitoli(8) = " Pres1x36 "

   SetTableWidth("98%")
   Call InitTabella(atitoli, 2, "center", 1.1, 5, "Arial")

   For n = 1 To 15
      avalori(1) = n
      avalori(2) = Format2(risultati(n, 1))
      avalori(3) = risultati(n, 8)
      avalori(4) = risultati(n, 2)
      avalori(5) = risultati(n, 3)
      avalori(6) = risultati(n, 4)
      avalori(7) = risultati(n, 5)
      avalori(8) = Left(risultati(n, 6), 20)
      Call AddRigaTabella(avalori, Bianco_, "center", 1)
      If n <= 3 Then Call SetColoreCella(2, RGB(123, 253, 85), vbBlack)
      If risultati(n, 5) = "SI" Then Call SetColoreCella(7, RGB(255, 165, 0), vbBlack)
   Next
   Call CreaTabella(3, -1)

   ' === RACCOMANDAZIONE ===
   bestCG = risultati(1, 1)
   bestScore = risultati(1, 8)
   Scrivi "<h3>RACCOMANDAZIONE</h3>", 1
   Scrivi "<b>CAPOGIOCO CONSIGLIATO:</b> <font color='red' size='+2'><b>" & Format2(bestCG) & "</b></font> (punteggio " & bestScore & ")", 1
   Scrivi "<br>Usa questo numero come Capogioco nel SUPERBIG V3.", 1
   If risultati(1, 5) = "SI" Then
      Scrivi "<br><font color='red'><b>ATTENZIONE:</b> Ciclo in ZONA RECORD! Chiusura imminente.</font>", 1
   End If
   Scrivi "<br><b>Tempo elaborazione:</b> " & TempoTrascorso, 1
End Sub
 
prova allegati, togliere .txt e scompattarlo, dentro ci sono 5 script, 2 per inserimento manuale e vocale delle estrazioni, e 3 programmini per ambi capogioco e/o terzine sempre su ruota fissa. i programmini per farli partire bastera fare doppio clic su quelli che hanno estensione html, o icona chrome per chi ce l'ha installato. basta fargli leggere l'archivio o dal 1946 o quello dal 2009. e mi sembra intuitivo il resto o c'è il bottone per far partire l'elaborazione statistica o la fa di default, da solo. AMBI CAP90 CAPIGIOCO aggArchiviDigitale e aggArchiviVocali
 

Allegati

Un piccolo dettaglio descrittivo, le ,% di incremento sono quelle di Fibonacci e non di Gann, il procedimento secondo quelle di Gann si calcolano in modo diverso, e in modo più complicato perche' tiene conto del tempo passato tra il minimo del periodo(media) ed il valore della media nel periodo futuro.

Ciao e grazie, gli ambi sono uguali ai miei, con la tua indicazione di attesa migliore per il 56 72. Chissa' !!!
 
rubino2 ha scritto:
Un piccolo dettaglio descrittivo, le ,% di incremento sono quelle di Fibonacci e non di Gann, il procedimento secondo quelle di Gann si calcolano in modo diverso, e in modo più complicato perche' tiene conto del tempo passato tra il minimo del periodo(media) ed il valore della media nel periodo futuro.

Ciao e grazie, gli ambi sono uguali ai miei, con la tua indicazione di attesa migliore per il 56 72. Chissa' !!!
Clicca per espandere...
grazie a te
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 settembre 2026
    Bari
    31
    54
    14
    69
    11
    Cagliari
    52
    41
    56
    44
    34
    Firenze
    22
    13
    70
    03
    26
    Genova
    58
    84
    23
    66
    26
    Milano
    36
    61
    25
    16
    54
    Napoli
    06
    67
    19
    18
    10
    Palermo
    86
    87
    64
    11
    02
    Roma
    20
    32
    81
    01
    72
    Torino
    27
    61
    30
    88
    68
    Venezia
    24
    61
    29
    34
    07
    Nazionale
    71
    87
    37
    41
    75
    Estrazione Simbolotto
    Palermo
    22
    40
    21
    28
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto