Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

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

Paki144

Senior 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

Advanced Member >PLATINUM PLUS<
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

Senior 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

Senior 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

Senior 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

Senior 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

Advanced Member >PLATINUM PLUS<
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

Senior 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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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
    sabato 17 aprile 2021
    Bari
    59
    61
    41
    04
    32
    Cagliari
    10
    68
    19
    11
    85
    Firenze
    41
    01
    13
    73
    47
    Genova
    44
    30
    39
    88
    90
    Milano
    67
    88
    33
    13
    32
    Napoli
    44
    41
    79
    80
    66
    Palermo
    15
    59
    04
    31
    21
    Roma
    46
    68
    56
    78
    58
    Torino
    09
    15
    84
    17
    32
    Venezia
    81
    04
    84
    42
    35
    Nazionale
    52
    16
    63
    62
    46
    Estrazione Simbolotto
    Genova
    38
    36
    41
    17
    13

Ultimi Messaggi

Alto