SUPERBIG V3 - Capogioco 07

Lottopython · Domenica alle 16:35

rubino2 · Domenica alle 17:19

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 · Domenica alle 17:26

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

Lottopython · Domenica alle 17:28

non è scontato che tu abbia riconosciuto SUPERBIG V3 evoluto

rubino2 · Domenica alle 17:37

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 · Domenica alle 17:43

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 · Domenica alle 18:07

in elaborazione..

rubino2 ha scritto:
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 · Domenica alle 18:15

Lottopython ha scritto:
in elaborazione..

56 CAGLIARI ABBINAMENTI

rubino2 · Domenica alle 18:51

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' !!!

Lottopython · Domenica alle 19:45

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' !!!

grazie a te

Pluta · Ieri alle 08:40

Durata 3 mesi ?grazie

Lottopython · 50 minuti fa

89 miglior capogioco

PAGINA SVILUPPO IN FONDO IL TENTATIVO DI GIOCO

Cerca

Cerca

SUPERBIG V3 - Capogioco 07

Lottopython

Advanced Member >PLATINUM<

rubino2

Advanced Member

Lottopython

Advanced Member >PLATINUM<

Lottopython

Advanced Member >PLATINUM<

rubino2

Advanced Member

Allegati

rubino2

Advanced Member

Allegati

Lottopython

Advanced Member >PLATINUM<

Lottopython

Advanced Member >PLATINUM<

rubino2

Advanced Member

Lottopython

Advanced Member >PLATINUM<

Pluta

Advanced Member >PLATINUM PLUS<

Lottopython

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi