SUPERBIG V3 - Capogioco 07

[Lottopython]

Capogioco 7 *3 AMBI TUTTE

 

[rubino2]

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.

 

[Lottopython]

non ho microfono ne cam sul fisso sorry ,certo mi farebbe piacere, i tuoi script rimangono sempre il top

Anticipazione (Spoiler): SELETTORE CAPOGIOCO

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

 

[Lottopython]

non è scontato che tu abbia riconosciuto SUPERBIG V3 evoluto

 

[rubino2]

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

 

[rubino2]

mi dici quelli con il 56 su cagliari cosa ci sarebbe?, perchè è probabile l'uscita come ambata, anche a roma, ma un po meno

 

[Lottopython]

in elaborazione..

mi dici quelli con il 56 su cagliari cosa ci sarebbe?, perchè è probabile l'uscita come ambata, anche a roma, ma un po meno

 

[Lottopython]

in elaborazione..

56 CAGLIARI ABBINAMENTI