Novitร 

๐—–๐—ถ๐—ฎ๐—ผ ๐—™๐—ผ๐—ฟ๐˜‚๐—บ, ๐—ฝ๐—ฒ๐—ฟ ๐—ด๐—น๐—ถ ๐—ฒ๐˜€๐—ฝ๐—ฒ๐—ฟ๐˜๐—ถ ๐˜€๐—ฒ ๐—ฝ๐—ฒ๐—ฟ ๐—ณ๐—ฎ๐˜ƒ๐—ผ๐—ฟ๐—ฒ ๐˜‚๐—ป๐—ผ ๐˜€๐—ฐ๐—ฟ๐—ถ๐—ฝ๐˜ ๐—ฝ๐—ฒ๐—ฟ ๐—ณ๐—ฟ๐—ฒ๐—พ๐˜‚๐—ฒ๐—ป๐˜๐—ถ ๐—ถ๐˜€๐—ผ๐˜๐—ผ๐—ฝ๐—ถ.

Paki144

Super member
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

Premium Member
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

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

Paki144

Super member
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.
 

Paki144

Super member
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
 

Paki144

Super member
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
 
Ultima modifica:

claudio8

Premium Member
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
 
Ultima modifica:

Paki144

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

rudivall

Advanced Member >PLATINUM<
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...Cattura1.PNGCattura2.PNG
 

claudio8

Premium Member
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
 

claudio8

Premium Member
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)

Rudivall.JPG
Lo script va rivisto.
 
Ultima modifica:

claudio8

Premium Member
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto