Novità

Spia di Decina alle Frequenze della Decina della Spia

Paki144

Super member
Buonasera a tutti
Forum LottoCed
Vorrei poter fare una richiesta
agli esperti programmatori
Ho SpazioMetria 1.6.34
installato sul Computer.
Avrei bisogno di uno Script
che da un numero Spia di Decina
ricerca le Frequenze della Decina della Spia, e che intercetta a ritroso la spia 27 volte, contando la frequenza della decina della spia soltanto solo al 1° colpo
Esempio:
Con inputBox
digitando il numero spia (x)
della decina mi possa ricavare
le frequenze dei dieci numeri della decina della spia.
Esempio: inputBox digito spia n.7
= frequenze
01=Freq.4
02=Freq.1
03=Freq.6
04=Freq.3
05=Freq.2
06=Freq.0
07=Freq.5
08=Freq.4
09=Freq.6
10=Freq.4
sempre se fosse possibile
poter esportare i risultati
dell'Output dello script
in Excel.
Spero si possa realizzare
Spero di aver potuto esprimere
scrivendo spiegando riguardo
allo script che vorrei.
Grazie ai programmatori
a chi potrà aiutarmi in questo.
Saluti
Buona serata
 
Buona Domenica con fuso orario New a Tutti.
Paki giusto per non lasciarti senza risposte , purtroppo il piatto scripter si sta svuotando.
Ti metto 2 script uno in output Html e l'altro in formato tabellare per esportare i dati in excel.
nel 2° script mancano i conteggi numeri che puoi facilmente conteggiare con la formattazione condizionale.

1 = script Output Html
Codice:
Sub Main
   Dim E,aCol(1),aN(10),kk(90),Ru(1),kkk(90)
   Ini = EstrazioneFin - 600
   fin = EstrazioneFin
   r = InputBox("Ruota",,1)
   Ru(1) = r
   Scrivi Space(17) & "Ruota in analisi : " & NomeRuota(r)
   spia = CInt(InputBox("Spia",,48))
   For es = fin To Ini Step - 1
      If Posizione(es,r,spia) > 0 Then
         k = k + 1
         If k > 27 Then Exit For
         Scrivi FormatSpace(k,3,1) & vbTab & es & vbTab,0,0
         '............................................................................
         For p = 1 To 5
            E = Estratto(Es,r,p)
            Ee = Estratto(Es + 1,r,p)
            If spia = E Then
               aCol(1) = vbGreen
            ElseIf DecinaCabalistica(E) = DecinaCabalistica(spia) Then
               aCol(1) = vbRed
            Else
               aCol(1) = RGB(239,240,242)
            End If
            Scrivi " " & Format2(E) & " ",,0,aCol(1)
            '
            If DecinaCabalistica(Ee) = DecinaCabalistica(spia) Then
               riga = riga & GetTestoHtml(Format2(Ee) & " ",,0,4,2)
            Else
               riga = riga & GetTestoHtml(Format2(Ee) & " ",,0,RGB(239,240,242),2)
            End If
            '--------------------------------------------------------------------------
            For cc = 0 To 9
               aN(cc) = CInt(Decina(spia) & cc)
               If aN(cc) = CInt(E) Then kk(cc) = kk(cc) + 1
            Next
            For ccc = 0 To 9
               aN(ccc) = CInt(Decina(spia) & ccc)
               If aN(ccc) = CInt(Ee) Then kkk(ccc) = kkk(ccc) + 1
            Next
            '-------------------------------------------------------------------------
         Next '......................................................................... posizioni
         Call VerificaEsito(aN,Ru,Es + 1,1,1,,,,Esa)
         Scrivi " | " & FormatSpace(Es + 1,5,1) & " " & riga & " | " & Esa
      End If
      riga = ""
   Next
   Scrivi
   Scrivi "Spia = " & spia
   Scrivi "Decina spia... " & StringaNumeri(aN)
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti in Es & Es+1",1
   For c1 = 0 To UBound(aN)
      Scrivi aN(c1) & " = " & FormatSpace(kk(c1),3,1) & "  - " & FormatSpace(kkk(c1),3,1)
   Next
End Sub

2 ° script formato Tabellare

Codice:
Sub Main
   Dim Nu(5),Ru(1),aN(5),T,aNum(10)
   Ini = EstrazioneFin - 600
   fin = EstrazioneFin
   r = 1
   spia = 48
   T = Array(T,"Casi","Es","1","2","3","4","5","ES+1","1","2","3","4","5")
   Call InitTabella(T)
   For es = fin To Ini Step - 1
      If Posizione(es,r,spia) > 0 Then
         k = k + 1
         If k > 27 Then Exit For
         '
         For p = 1 To 5
            Nu(p) = Estratto(es,r,p)
            aN(p) = Estratto(es + 1,r,p)
         Next
         For n = 0 To 9
            aNum(n) = Decina(spia) & n
         Next
         '
         T = Array(T,k,es,Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),es + 1,aN(1),aN(2),aN(3),aN(4),aN(5))
         Call AddRigaTabella(T)
         For x = 3 To 7
            For nn = 1 To 10
               If T(x) = CInt(aNum(nn)) Then Call SetColoreCella((x),4,0)
               If T(x) = spia Then Call SetColoreCella((x),3,0)
            Next
         Next
         For xx = 9 To 13
            For nn = 1 To 10
               If T(xx) = CInt(aNum(nn)) Then Call SetColoreCella((xx),4,0)
            Next
         Next
      End If
   Next
   CreaTabellaOrdinabile
End Sub

 
Ciao Mike, un saluto
Paki, nel lotto ci sono le decine Naturali e le decine Cabalistiche.
Prova anche con Spaziometria sez Numeri Spia da Statistiche,
ti ricerca per tutte le spie in contemporanea, i freq. conteggiati ed esportabili in excel.

1698577588716.png

Buona ricerca
 
Ultima modifica:
Complimenti Paki144 ottimo Lavoro anche Mike.
Volevo sapere da Mike se si puo' modificare anche in decine Naturale. Grazie

X Mike puoi dare un occhiata qui, quando hai tempo
 
Ciao a Tutti.
Per batter nello script è stato utilizzato il codice DecineCabalistiche da 0 a 9 unità , si può mettere DecineNaturali e dovrebbe dare 1 a 00 unità.
In uno script quando è terminato se non ci sono errori diventa inutile fare modifiche ed diversificazioni , la voglia è poca (almeno per oggi-sera)

Per il tuo post, per ora non trovo escamotage e sembra anche non facile da elaborare, e devo dire che non mi ha attirato più di quel tanto.
proverò a rileggerlo meglio e vedere se mi viene una qualche idea.

Ciao
 
Ti capisco Mike ,infatti essendo un programma vecchio,ho dovuto aggiornare l archivio di 500 estrazioni,un po'alla volta.
Grazie per la dritta,sulle decine riposati che e' piu'importante dei numeri.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto