Spia di Decina alle Frequenze della Decina della Spia

[Paki144]

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

 

[Mike58]

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

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

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

 

[claudio8]

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.



Buona ricerca

 

[Paki144]

Grazie Mike58 per il Tuo Script
superstupendo
Saluti

 

[Paki144]

Grazie Mike58 per il Tuo Script
superstupendo
Saluti

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.

Vedi l'allegato 2270799

Buona ricerca

Ciao claudio8
Grazie per il Tuo
superconsiglio
Saluti

 

[Missione Impossibile.]

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

A volte basta uno script facile per tutti.

Prendiamo ad esempio, dal 2015 al 2023 un numero uscito 4/5 volte su ruota in 18 estrazioni. che ci dia due ambate al 100% con 3/4 abbinamenti piu' frequenti con le ambate,e il gioco e' fatto. Trovate le condizioni, se le ambate non sono uscite per 7/8 colpi si mettono in gioco per 10 colpi.A...

forum.lottoced.com

 

[Mike58]

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

 

[Missione Impossibile.]

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.