𝗖𝗶𝗮𝗼 𝗙𝗼𝗿𝘂𝗺, 𝗽𝗲𝗿 𝗴𝗹𝗶 𝗲𝘀𝗽𝗲𝗿𝘁𝗶 𝘀𝗲 𝗽𝗲𝗿 𝗳𝗮𝘃𝗼𝗿𝗲 𝘂𝗻𝗼 𝘀𝗰𝗿𝗶𝗽𝘁 𝗽𝗲𝗿 𝗳𝗿𝗲𝗾𝘂𝗲𝗻𝘁𝗶 𝗶𝘀𝗼𝘁𝗼𝗽𝗶.

Paki144 · 11 Novembre 2020

Alla ricerca del numero
se fosse possibile realizzare uno script
Cerco di spiegarlo
grazie se mi leggerete:
Dai 5 estratti attuali fare la ricerca oppure poter scegliere un numero estratto anche non ultima estrazione, da poter scegliere con "inputbox" .
che poi si potrà eseguire
dal 1°.2°.3°.4°.5° estratto
ricercare poi indietro
di "x" estrazioni
e trovato il numero
"digitato in inputbox"
raccogliere i numeri estratti
sotto la stessa posizione
del numero estratto
(digitato in inputbox")
dell'estrazione successiva
posizione 1°colpo (1°numero)
posizione 2° colpo (2°numero)
posizione 3° colpo (3°numero)
Raccolti i (1°2°3°numero)
che sono sotto la posizione del numero (1°digitato inputbox)
poi eseguo ancora
"digitando in inputbox"
2°estratto
3°estratto
4° estratto
5° estratto
i numeri della stessa estrazione
per poi avere i risultati dei numeri
più frequenti (possibili)
che sono usciti sotto la stessa posizione del numero digitato in inputbox trovato.
Grazie se sarà possibile

claudio8 · 13 Novembre 2020

in sostanza vuoi conoscere i numeri isotopi + frequenti entro un tot di colpi da scegliere partendo da spie in posizione di una specifica estrazione di una specifica ruota.
Mi paredi aver postato qualcosa del genere qualche post fa realizzato da Ramco, anni orsono.
Saluti

Paki144 · 13 Novembre 2020

Ciao Claudio8, grazie di aver letto.
Si Claudio esatto: "partendo da spie in posizione di una specifica estrazione di una specifica ruota".
Saluti

Paki144 · 14 Novembre 2020

claudio8 ha scritto:
in sostanza vuoi conoscere i numeri isotopi + frequenti entro un tot di colpi da scegliere partendo da spie in posizione di una specifica estrazione di una specifica ruota.
Mi paredi aver postato qualcosa del genere qualche post fa realizzato da

Paki144 · 14 Novembre 2020

Una specifica estrazione
dalla spia in posizione, prendiamo solo il numero(a1) di posizione sotto la posizione della spia (1° colpo),
poi il numero sotto ad (a1) (a2) che è il (2° colpo), poi il numero sotto (a2) (a3) che è il 3° colpo, ecc.. si prendono solo i numeri sotto la posizione della spia del 1°.2°.3°.4°.5°.6.7°.8°. colpo per la ricerca dei probabili frequenti dopo la spia. Grazie se sarà possibile.

claudio8 · 14 Novembre 2020

Hai cercato lo script di Ramco?
Se non lo hai fatto, cercalo.

Paki144 · 15 Novembre 2020

Ciao claudio8, grazie sempre per leggermi e nel rispondermi.
Ho cercato qui
in area download
digitando : "Ramco" ci sono script richiesti a "Ramco" che sono chiaramente molto validi,
non trovo quello per ciò che vorrei poter fare.
Saluti

claudio8 · 15 Novembre 2020

Mi pare di aver inviato a te uno di Ramco con spie in posizione.
Postalo qui in codice.

Paki144 · 15 Novembre 2020

Ciao claudio8, ho postato lo script di "Ramco".
Saluti

Paki144 · 15 Novembre 2020

Codice:

'Ramco-ricerca 5 spie in cinque pos su rt1
'Ramco 29/01/2011 x Lones (Mauro)
'modificato a 5 spie x debora
Sub Main()
Dim num1(90,7),num2(90,7),num3(90,7),numt(90,7),rt(1),nu(1)
Dim num4(90,7),num5(90,7)
r = CInt(InputBox("Quale Ruota di Ricerca?","RUOTA",1))
rt(1) = r
sp1 = CInt(InputBox("1° Numero SPIA?","SPIA 1°",46))
p1 = CInt(InputBox("POSIZIONE 1° Numero Spia?","POSIZIONE SP1",1))

sp2 = CInt(InputBox("2° Numero SPIA?","SPIA 2°",47))
p2 = CInt(InputBox("POSIZIONE 2° Numero Spia?","POSIZIONE SP2",2))

sp3 = CInt(InputBox("3° Numero SPIA?","SPIA 3°",48))
p3 = CInt(InputBox("POSIZIONE 3° Numero Spia?","POSIZIONE SP3",3))

sp4 = CInt(InputBox("4° Numero SPIA?","SPIA 4°",49))
p4 = CInt(InputBox("POSIZIONE 4° Numero Spia?","POSIZIONE SP3",4))

sp5 = CInt(InputBox("5° Numero SPIA?","SPIA 5°",50))
p5 = CInt(InputBox("POSIZIONE 5° Numero Spia?","POSIZIONE SP3",5))

cs1 = CInt(InputBox("Quanti Casi analizziamo per la spia N1?","ANALISI CASI-SPIA",9))
cs2 = CInt(InputBox("Quanti Casi analizziamo per la spia N2?","ANALISI CASI-SPIA",9))
cs3 = CInt(InputBox("Quanti Casi analizziamo per la spia N3?","ANALISI CASI-SPIA",9))
cs4 = CInt(InputBox("Quanti Casi analizziamo per la spia N4?","ANALISI CASI-SPIA",9))
cs5 = CInt(InputBox("Quanti Casi analizziamo per la spia N5?","ANALISI CASI-SPIA",9))

colpi = InputBox("Quanti colpi successivi?","ANALISI COLPI",6)
kl = CInt(InputBox("L'ananlisi dei frequenti, vuoi che comprenda l'estrazione di rilevamento? (0=SI 1=NO)","ANALISI ESTR.",1))
       For i = 1 To 90
               For y = 2 To 7
                       num1(i,1) = i : num1(i,y) = 0
                       num2(i,1) = i : num2(i,y) = 0
                       num3(i,1) = i : num3(i,y) = 0
                       num4(i,1) = i : num4(i,y) = 0
                       num5(i,1) = i : num5(i,y) = 0
                       numt(i,1) = i : numt(i,y) = 0
               Next
       Next
       cc = 0 : tmp1 = 0
       For es = EstrazioneFin To 1 Step - 1
               If Posizione(es,r,sp1) = p1 Then
                       cc = cc + 1
                       If cc = cs1 Then
                               tmp1 =(EstrazioneFin - es) + 1
                       End If
               End If
       Next
       ini1 = EstrazioneFin - tmp1
       fin = EstrazioneFin
       cc = 0 : tmp2 = 0
       For es = EstrazioneFin To 1 Step - 1
               If Posizione(es,r,sp2) = p2 Then
                       cc = cc + 1
                       If cc = cs2 Then
                               tmp2 =(EstrazioneFin - es) + 1
                       End If
               End If
       Next
       ini2 = EstrazioneFin - tmp2
       cc = 0 : tmp3 = 0
       For es = EstrazioneFin To 1 Step - 1
               If Posizione(es,r,sp3) = p3 Then
                       cc = cc + 1
                       If cc = cs3 Then
                               tmp3 =(EstrazioneFin - es) + 1
                       End If
               End If
       Next
       ini3 = EstrazioneFin - tmp3
       cc = 0 : tmp4 = 0
       For es = EstrazioneFin To 1 Step - 1
               If Posizione(es,r,sp4) = p4 Then
                       cc = cc + 1
                       If cc = cs4 Then
                               tmp4 =(EstrazioneFin - es) + 1
                       End If
               End If
       Next
       ini4 = EstrazioneFin - tmp4
       cc = 0 : tmp5 = 0
       For es = EstrazioneFin To 1 Step - 1
               If Posizione(es,r,sp5) = p5 Then
                       cc = cc + 1
                       If cc = cs5 Then
                               tmp5 =(EstrazioneFin - es) + 1
                       End If
               End If
       Next
       ini5 = EstrazioneFin - tmp5

Scrivi " Analisi dal " & DataEstrazione(ini1) & " ad oggi"
Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO  IN  POSIZIONE  ",1
Scrivi
co = 0
For es = ini1 To fin
       ae = Estratto(es,r,p1)
       If ae = sp1 Then
               co = co + 1
               Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp1
               ess = es + colpi + 1
               If ess > fin Then ess = fin End If
               If es + kl > fin Then Exit For
               For i = 1 To 90
                       nu(1) = i
                       xf1 = SerieFreq(es + kl,ess,nu,rt,6)
                       num1(i,2) = num1(i,2) + xf1
                       xf2 = SerieFreq(es + kl,ess,nu,rt,7)
                       num1(i,3) = num1(i,3) + xf2
                       xf3 = SerieFreq(es + kl,ess,nu,rt,8)
                       num1(i,4) = num1(i,4) + xf3
                       xf4 = SerieFreq(es + kl,ess,nu,rt,9)
                       num1(i,5) = num1(i,5) + xf4
                       xf5 = SerieFreq(es + kl,ess,nu,rt,10)
                       num1(i,6) = num1(i,6) + xf5
                       xft = SerieFreq(es + kl,ess,nu,rt,1)
                       num1(i,7) = num1(i,7) + xft
               Next
       End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp1 & " su ruota in " & p1 & "°pos. n°casi = " & co & "  x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num1
Scrivi String(50,"-")

Scrivi " Analisi dal " & DataEstrazione(ini2) & " ad oggi"
Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO  IN  POSIZIONE  ",1
Scrivi
co = 0
For es = ini2 To fin
       ae = Estratto(es,r,p2)
       If ae = sp2 Then
               co = co + 1
               Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp2
               ess = es + colpi + 1
               If ess > fin Then ess = fin End If
               If es + kl > fin Then Exit For
               For i = 1 To 90
                       nu(1) = i
                       xf1 = SerieFreq(es + kl,ess,nu,rt,6)
                       num2(i,2) = num2(i,2) + xf1
                       xf2 = SerieFreq(es + kl,ess,nu,rt,7)
                       num2(i,3) = num2(i,3) + xf2
                       xf3 = SerieFreq(es + kl,ess,nu,rt,8)
                       num2(i,4) = num2(i,4) + xf3
                       xf4 = SerieFreq(es + kl,ess,nu,rt,9)
                       num2(i,5) = num2(i,5) + xf4
                       xf5 = SerieFreq(es + kl,ess,nu,rt,10)
                       num2(i,6) = num2(i,6) + xf5
                       xft = SerieFreq(es + kl,ess,nu,rt,1)
                       num2(i,7) = num2(i,7) + xft
               Next
       End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp2 & " su ruota in " & p2 & "°pos. n°casi = " & co & "  x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num2
Scrivi String(50,"-")

Scrivi " Analisi dal " & DataEstrazione(ini3) & " ad oggi"
Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO  IN  POSIZIONE  ",1
Scrivi
co = 0
For es = ini3 To fin
       ae = Estratto(es,r,p3)
       If ae = sp3 Then
               co = co + 1
               Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp3
               ess = es + colpi + 1
               If ess > fin Then ess = fin End If
               If es + kl > fin Then Exit For
               For i = 1 To 90
                       nu(1) = i
                       xf1 = SerieFreq(es + kl,ess,nu,rt,6)
                       num3(i,2) = num3(i,2) + xf1
                       xf2 = SerieFreq(es + kl,ess,nu,rt,7)
                       num3(i,3) = num3(i,3) + xf2
                       xf3 = SerieFreq(es + kl,ess,nu,rt,8)
                       num3(i,4) = num3(i,4) + xf3
                       xf4 = SerieFreq(es + kl,ess,nu,rt,9)
                       num3(i,5) = num3(i,5) + xf4
                       xf5 = SerieFreq(es + kl,ess,nu,rt,10)
                       num3(i,6) = num3(i,6) + xf5
                       xft = SerieFreq(es + kl,ess,nu,rt,1)
                       num3(i,7) = num3(i,7) + xft
               Next
       End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp3 & " su ruota in " & p3 & "°pos. n°casi = " & co & "  x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num3
Scrivi String(50,"-")

Scrivi " Analisi dal " & DataEstrazione(ini4) & " ad oggi"
Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO  IN  POSIZIONE  ",1
Scrivi
co = 0
For es = ini4 To fin
       ae = Estratto(es,r,p4)
       If ae = sp4 Then
               co = co + 1
               Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp4
               ess = es + colpi + 1
               If ess > fin Then ess = fin End If
               If es + kl > fin Then Exit For
               For i = 1 To 90
                       nu(1) = i
                       xf1 = SerieFreq(es + kl,ess,nu,rt,6)
                       num4(i,2) = num4(i,2) + xf1
                       xf2 = SerieFreq(es + kl,ess,nu,rt,7)
                       num4(i,3) = num4(i,3) + xf2
                       xf3 = SerieFreq(es + kl,ess,nu,rt,8)
                       num4(i,4) = num4(i,4) + xf3
                       xf4 = SerieFreq(es + kl,ess,nu,rt,9)
                       num4(i,5) = num4(i,5) + xf4
                       xf5 = SerieFreq(es + kl,ess,nu,rt,10)
                       num4(i,6) = num4(i,6) + xf5
                       xft = SerieFreq(es + kl,ess,nu,rt,1)
                       num4(i,7) = num4(i,7) + xft
               Next
       End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp4 & " su ruota in " & p4 & "°pos. n°casi = " & co & "  x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num4
Scrivi String(50,"-")

Scrivi " Analisi dal " & DataEstrazione(ini5) & " ad oggi"
Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO  IN  POSIZIONE  ",1
Scrivi
co = 0
For es = ini5 To fin
       ae = Estratto(es,r,p5)
       If ae = sp5 Then
               co = co + 1
               Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp5
               ess = es + colpi + 1
               If ess > fin Then ess = fin End If
               If es + kl > fin Then Exit For
               For i = 1 To 90
                       nu(1) = i
                       xf1 = SerieFreq(es + kl,ess,nu,rt,6)
                       num5(i,2) = num5(i,2) + xf1
                       xf2 = SerieFreq(es + kl,ess,nu,rt,7)
                       num5(i,3) = num5(i,3) + xf2
                       xf3 = SerieFreq(es + kl,ess,nu,rt,8)
                       num5(i,4) = num5(i,4) + xf3
                       xf4 = SerieFreq(es + kl,ess,nu,rt,9)
                       num5(i,5) = num5(i,5) + xf4
                       xf5 = SerieFreq(es + kl,ess,nu,rt,10)
                       num5(i,6) = num5(i,6) + xf5
                       xft = SerieFreq(es + kl,ess,nu,rt,1)
                       num5(i,7) = num5(i,7) + xft
               Next
       End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp5 & " su ruota in " & p5 & "°pos. n°casi = " & co & "  x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num5
Scrivi String(50,"-")

Scrivi
For i = 1 To 90
       For y = 2 To 7
               numt(i,y) = num1(i,y) + num2(i,y) + num3(i,y) + num4(i,y) + num5(i,y)
       Next
Next
ColoreTesto 2
Scrivi "TABELLA RIEPILOGATIVA TOTALE",1
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ColoreTesto 0
ScriviMatrice numt
ColoreTesto 2
Scrivi "TABELLA RIEPILOGATIVA TOTALE per DECINA",1
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ColoreTesto 0
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
For i = 1 To 10
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 11 To 20
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 21 To 30
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 31 To 40
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 41 To 50
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 51 To 60
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 61 To 70
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 71 To 80
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 81 To 90
       Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
       numt(i,6) & Space(6) & numt(i,7)
       tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1

End Sub

claudio8 · 15 Novembre 2020

Lo script che hai fa già in partequanto ti serve, comunque ho fatto alcune eliminazioni e modifiche x darti gli output come vuoi.
La ricerca a ritroso viene fatta sui casi, non sulle estrazioni per dare ugual peso ad ogni spia nello storico.
Ti ho eliminato le decine

Codice:

'Ramco-ricerca 5 spie in cinque pos su rt1
'Claudio8
'modificato isotopi delle 5 spie x Paki144
Sub Main()
    Dim num1(90,7),num2(90,7),num3(90,7),numt(90,7),rt(1),nu(1)
    Dim num4(90,7),num5(90,7)
    r = CInt(InputBox("Quale Ruota di Ricerca?","RUOTA",8))
    rt(1) = r
    sp1 = Estratto(EstrazioneFin,r,1)'CInt(InputBox("1° Numero SPIA?","SPIA 1°",Estratto(EstrazioneFin,r,1)))
    p1 = 1 'CInt(InputBox("POSIZIONE 1° Numero Spia?","POSIZIONE SP5",1))
    sp2 = Estratto(EstrazioneFin,r,2)
    p2 = 2
    sp3 = Estratto(EstrazioneFin,r,3)
    p3 = 3
    sp4 = Estratto(EstrazioneFin,r,4)
    p4 = 4
    sp5 = Estratto(EstrazioneFin,r,5)
    p5 = 5
    cs1 = CInt(InputBox("Quanti Casi analizzo per tutte le spie ?","ANALISI CASI-SPIA",2))
    cs2 = cs1
    cs3 = cs1
    cs4 = cs1
    cs5 = cs1
    ''''
    colpi = InputBox("Quanti colpi successivi?","ANALISI COLPI",3)
    scrOutput = InputBox("Vuoi la scrittura delle matrici per ogni spia in output? Si=1 No=0","Scrittura Matrici Output",0)
    kl = 1'CInt(InputBox("L'ananlisi dei frequenti, vuoi che comprenda l'estrazione di rilevamento? (0=SI 1=NO)","ANALISI ESTR.",1))
    For i = 1 To 90
        For y = 2 To 7
            num1(i,1) = i : num1(i,y) = 0
            num2(i,1) = i : num2(i,y) = 0
            num3(i,1) = i : num3(i,y) = 0
            num4(i,1) = i : num4(i,y) = 0
            num5(i,1) = i : num5(i,y) = 0
            numt(i,1) = i : numt(i,y) = 0
        Next
    Next
    cc = 0 : tmp1 = 0
    For es = EstrazioneFin - 1 To 1 Step - 1
        If Posizione(es,r,sp1) = p1 Then
            cc = cc + 1
            If cc = cs1 Then
                tmp1 =(EstrazioneFin - es)
                Exit For
            End If
        End If
    Next
    ini1 = EstrazioneFin - tmp1
    fin = EstrazioneFin - 1
    cc = 0 : tmp2 = 0
    For es = EstrazioneFin - 1 To 1 Step - 1
        If Posizione(es,r,sp2) = p2 Then
            cc = cc + 1
            If cc = cs2 Then
                tmp2 =(EstrazioneFin - es)
                Exit For
            End If
        End If
    Next
    ini2 = EstrazioneFin - tmp2
    cc = 0 : tmp3 = 0
    For es = EstrazioneFin - 1 To 1 Step - 1
        If Posizione(es,r,sp3) = p3 Then
            cc = cc + 1
            If cc = cs3 Then
                tmp3 =(EstrazioneFin - es)
                Exit For
            End If
        End If
    Next
    ini3 = EstrazioneFin - tmp3
    cc = 0 : tmp4 = 0
    For es = EstrazioneFin - 1 To 1 Step - 1
        If Posizione(es,r,sp4) = p4 Then
            cc = cc + 1
            If cc = cs4 Then
                tmp4 =(EstrazioneFin - es)
                Exit For
            End If
        End If
    Next
    ini4 = EstrazioneFin - tmp4
    cc = 0 : tmp5 = 0
    For es = EstrazioneFin - 1 To 1 Step - 1
        If Posizione(es,r,sp5) = p5 Then
            cc = cc + 1
            If cc = cs5 Then
                tmp5 =(EstrazioneFin - es)
                Exit For
            End If
        End If
    Next
    ini5 = EstrazioneFin - tmp5
    '''''''''''''''''''''''''''''''''''''
    Scrivi " Analisi dal " & DataEstrazione(ini1) & " ad oggi"
    Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
    Scrivi "USCITO  IN  POSIZIONE  ",1
    Scrivi
    co = 0
    For es = ini1 To fin
        ae = Estratto(es,r,p1)
        If ae = sp1 Then
            co = co + 1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp1
            ess = es + colpi
            If ess > fin Then ess = fin End If
            If es + kl > fin Then Exit For
            For i = 1 To 90
                nu(1) = i
                xf1 = SerieFreq(es + kl,ess,nu,rt,6)
                num1(i,2) = num1(i,2) + xf1
                num1(i,7) = num1(i,2)
            Next
        End If
    Next
    Scrivi DataEstrazione(EstrazioneFin) & " " & SiglaRuota(r) & " " & StringaEstratti(EstrazioneFin,r) & " Estrazione Spie",1
    ColoreTesto 1
    Scrivi "Numero spia: " & sp1 & " su ruota in " & p1 & "°pos. n°casi = " & co & "  x colpi " & colpi
    ColoreTesto 0
    Scrivi Space(11) & "NU" & Space(5) & "P1" & Space(5) & "P2" & Space(5) & "P3" & Space(5) & "P4" & Space(5) & "P5" & Space(4) & "Tot",1
    OrdinaMatrice num1,- 1,7
    If scrOutput = 1 Then ScriviMatrice num1
    Scrivi String(50,"-")
    OrdinaMatrice num1,1,1
    Scrivi " Analisi dal " & DataEstrazione(ini2) & " ad oggi"
    Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
    Scrivi "USCITO  IN  POSIZIONE  ",1
    Scrivi
    co = 0
    For es = ini2 To fin
        ae = Estratto(es,r,p2)
        If ae = sp2 Then
            co = co + 1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp2
            ess = es + colpi
            If ess > fin Then ess = fin End If
            If es + kl > fin Then Exit For
            For i = 1 To 90
                nu(1) = i
                xf2 = SerieFreq(es + kl,ess,nu,rt,7)
                num2(i,3) = num2(i,3) + xf2
                num2(i,7) = num2(i,3)
            Next
        End If
    Next
    Scrivi DataEstrazione(EstrazioneFin) & " " & SiglaRuota(r) & " " & StringaEstratti(EstrazioneFin,r) & " Estrazione Spie",1
    ColoreTesto 1
    Scrivi "Numero spia: " & sp2 & " su ruota in " & p2 & "°pos. n°casi = " & co & "  x colpi " & colpi
    ColoreTesto 0
    Scrivi Space(11) & "NU" & Space(5) & "P1" & Space(5) & "P2" & Space(5) & "P3" & Space(5) & "P4" & Space(5) & "P5" & Space(4) & "Tot",1
    OrdinaMatrice num2,- 1,7
    If scrOutput = 1 Then ScriviMatrice num2
    Scrivi String(50,"-")
    OrdinaMatrice num2,1,1
    Scrivi " Analisi dal " & DataEstrazione(ini3) & " ad oggi"
    Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
    Scrivi "USCITO  IN  POSIZIONE  ",1
    Scrivi
    co = 0
    For es = ini3 To fin
        ae = Estratto(es,r,p3)
        If ae = sp3 Then
            co = co + 1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp3
            ess = es + colpi
            If ess > fin Then ess = fin End If
            If es + kl > fin Then Exit For
            For i = 1 To 90
                nu(1) = i
                xf3 = SerieFreq(es + kl,ess,nu,rt,8)
                num3(i,4) = num3(i,4) + xf3
                num3(i,7) = num3(i,4)
            Next
        End If
    Next
    Scrivi DataEstrazione(EstrazioneFin) & " " & SiglaRuota(r) & " " & StringaEstratti(EstrazioneFin,r) & " Estrazione Spie",1
    ColoreTesto 1
    Scrivi "Numero spia: " & sp3 & " su ruota in " & p3 & "°pos. n°casi = " & co & "  x colpi " & colpi
    ColoreTesto 0
    Scrivi Space(11) & "NU" & Space(5) & "P1" & Space(5) & "P2" & Space(5) & "P3" & Space(5) & "P4" & Space(5) & "P5" & Space(4) & "Tot",1
    OrdinaMatrice num3,- 1,7
    If scrOutput = 1 Then ScriviMatrice num3
    Scrivi String(50,"-")
    OrdinaMatrice num3,1,1
    Scrivi " Analisi dal " & DataEstrazione(ini4) & " ad oggi"
    Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
    Scrivi "USCITO  IN  POSIZIONE  ",1
    Scrivi
    co = 0
    For es = ini4 To fin
        ae = Estratto(es,r,p4)
        If ae = sp4 Then
            co = co + 1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp4
            ess = es + colpi
            If ess > fin Then ess = fin End If
            If es + kl > fin Then Exit For
            For i = 1 To 90
                nu(1) = i
                xf4 = SerieFreq(es + kl,ess,nu,rt,9)
                num4(i,5) = num4(i,5) + xf4
                num4(i,7) = num4(i,5)
            Next
        End If
    Next
    Scrivi DataEstrazione(EstrazioneFin) & " " & SiglaRuota(r) & " " & StringaEstratti(EstrazioneFin,r) & " Estrazione Spie",1
    ColoreTesto 1
    Scrivi "Numero spia: " & sp4 & " su ruota in " & p4 & "°pos. n°casi = " & co & "  x colpi " & colpi
    ColoreTesto 0
    Scrivi Space(11) & "NU" & Space(5) & "P1" & Space(5) & "P2" & Space(5) & "P3" & Space(5) & "P4" & Space(5) & "P5" & Space(4) & "Tot",1
    OrdinaMatrice num4,- 1,7
    If scrOutput = 1 Then ScriviMatrice num4
    Scrivi String(50,"-")
    OrdinaMatrice num4,1,1
    Scrivi " Analisi dal " & DataEstrazione(ini5) & " ad oggi"
    Scrivi "Più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
    Scrivi "USCITO  IN  POSIZIONE  ",1
    Scrivi
    co = 0
    For es = ini5 To fin
        ae = Estratto(es,r,p5)
        If ae = sp5 Then
            co = co + 1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp5
            ess = es + colpi
            If ess > fin Then ess = fin End If
            If es + kl > fin Then Exit For
            For i = 1 To 90
                nu(1) = i
                xf5 = SerieFreq(es + kl,ess,nu,rt,10)
                num5(i,6) = num5(i,6) + xf5
                num5(i,7) = num5(i,6)
            Next
        End If
    Next
    Scrivi DataEstrazione(EstrazioneFin) & " " & SiglaRuota(r) & " " & StringaEstratti(EstrazioneFin,r) & " Estrazione Spie",1
    ColoreTesto 1
    Scrivi "Numero spia: " & sp5 & " su ruota in " & p5 & "°pos. n°casi = " & co & "  x colpi " & colpi
    ColoreTesto 0
    Scrivi Space(11) & "NU" & Space(5) & "P1" & Space(5) & "P2" & Space(5) & "P3" & Space(5) & "P4" & Space(5) & "P5" & Space(4) & "Tot",1
    OrdinaMatrice num5,- 1,7
    If scrOutput = 1 Then ScriviMatrice num5
    Scrivi String(50,"-")
    OrdinaMatrice num5,1,1
    Scrivi
    For i = 1 To 90
        For y = 2 To 7
            numt(i,y) = num1(i,y) + num2(i,y) + num3(i,y) + num4(i,y) + num5(i,y)
        Next
    Next
    If EstrazioneFin < EstrazioniArchivio Then
        Scrivi "Estrazioni per controllo esiti post spie ",1
        For x = 1 To 6
            Scrivi DataEstrazione(EstrazioneFin + x) & " - " & NomeRuota(r) & " " & StringaEstratti(EstrazioneFin + x,r)
        Next
    End If
    ColoreTesto 2
    Scrivi "TABELLA RIEPILOGATIVA TOTALE su " & NomeRuota(r) & " spie " & StringaEstratti(EstrazioneFin,r) & " del " & DataEstrazione(EstrazioneFin),1
    Scrivi Space(11) & "NU" & Space(5) & "P1" & Space(5) & "P2" & Space(5) & "P3" & Space(5) & "P4" & Space(5) & "P5" & Space(4) & "Tot",1
    ColoreTesto 0
    OrdinaMatrice numt,- 1,7
    ScriviMatrice numt
    ColoreTesto 2
    '''''Scrivi "TABELLA RIEPILOGATIVA TOTALE per DECINA",1
    '''''Scrivi "Tot.Dec.  " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
End Sub

Paki144 · 15 Novembre 2020

Ciao claudio8, Eccellente lavoro è perfetto.
Ti Ringrazio tantissimo per aver letto la mia richiesta e
aver dedicato il tuo tempo GRAZIE...!!!!
Saluti

claudio8 · 17 Novembre 2020

Ciao Paki, hai trovato qualche numero interessante ?

rudivall · 17 Novembre 2020

Ciao Claudio scusa se mi intrometto in questo post di Paki144, ho copiato lo script, e l'ho provato sulla ruota di Roma, non sò se ho capito bene il funzionamento ti metto 2 immagini, non dovrebbe riportare lo stesso numero? Se sbaglio scusami...

claudio8 · 17 Novembre 2020

Rudivall non ti seguo.
hai testato solo il 6 a roma? O tutta la estrazione di Roma?
stavo giusto controllandolo con un mio tabellato

ps: mi piace che vuoi vincere veloce (3colpi) aahahahahaha

rudivall · 17 Novembre 2020

tutta l'estrazione di Rpma Claudio...

claudio8 · 17 Novembre 2020

considera che l'ultima estrazione (quella di rilevamento spie non deve essere calcolata)
se consideri 1 caso, con 3 colpi deve darti in totale 15 isotopi.
tu quanti ne conti nella tabella rielopilogativa totale? Somma tutti i valori nella colonna tot.

Ps:
sotto è presente la tabella per RO del 14/11/2020 can 2 casi e 3 colpi ( paragonabile al tuo prospetto 3 casi e 3 colpi)
V\Po indica la posizione in elenco frequenti ( ce ne sono 4 a pari frequenza che io chiamo Cop.ra per altrimotivi)
Prev indica la previsione sono i numeri più freq (previsti pereventuale giocata)

Lo script va rivisto.

rudivall · 17 Novembre 2020

Claudio nella colonna dei totali 40...

claudio8 · 17 Novembre 2020

rudivall ha scritto:
Claudio nella colonna dei totali 40...

ogni caso ha 5 spie x 3 colpi = 15 numeri
quindi tot per ogni caso = 15 numeri
nella tua ricerca i casi di analisi sono 2+ quello spia da non considerare quindi devi avere 30 numeri, diversamente c'è un errore

claudio8 · 17 Novembre 2020

X Rudivall, Paki e M.R.K. e chiunque legga.

Ho modificato e spero corretto definitivamente lo script al post #11
controllate sempre gli outpt.... stasera 1° colpo ha fatto cilecca

saluti

𝗖𝗶𝗮𝗼 𝗙𝗼𝗿𝘂𝗺, 𝗽𝗲𝗿 𝗴𝗹𝗶 𝗲𝘀𝗽𝗲𝗿𝘁𝗶 𝘀𝗲 𝗽𝗲𝗿 𝗳𝗮𝘃𝗼𝗿𝗲 𝘂𝗻𝗼 𝘀𝗰𝗿𝗶𝗽𝘁 𝗽𝗲𝗿 𝗳𝗿𝗲𝗾𝘂𝗲𝗻𝘁𝗶 𝗶𝘀𝗼𝘁𝗼𝗽𝗶.

Super member

Premium Member

Super member

Super member

Super member

Premium Member

Super member

Premium Member

Super member

Super member

Premium Member

Super member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Premium Member