Chi può aiutarmi a creare uno script con Numeretti e Figure?

CICALOTTO · 29 Novembre 2025

Buonasera a tutti, a @salvo50 a @joe ed agli altri scripters...
...può aiutarmi qualcuno a sviluppare uno SCRIPT che abbia queste condizioni?

La previsione si ricava su ruota unica e in qualsiasi estrazione
si ricerca l'uscita di un SOLO numeretto tra i cinque estratti di ogni ruota e poi si prende la figura dei suoi due laterali (OPPURE SOLO DI UN LATERALE SE IL NUMERETTO ESTRATTO è IN PRIMA O QUINTA POSIZIONE ovviamente)
per formare la previsione che sarà col suo vertibile:

1) Ambata e Ambo
2) Ambo con Ambetto in lunghetta... col + 1 e -1 delle due ambate

TUTTO SOLO PER COLPI

Alcuni esempi recenti dovrebbero chiarire tutto:

estrazione del 3.11.2025 ruota di VENEZIA 1.75.82.13.11

Previsione: numeretto 1 fuso con la figura del 75, quindi... figura 3

1)Ambata e Ambo con Ambetto 13 ed il vertibile 31
2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 12.14.30.32

esito al terzo colpo estrazione del 7.11 2025 VENEZIA 30.73.32.49.26

----------------------------------------------------------------------------------------------------

estrazione del 27.11.2025 ruota di PALERMO 1.66.76.19.11

perciò un SOLO laterale perchè anche qui è uscito il numeretto come primo estratto e il laterale utile sarà solamente uno..

Previsione: numeretto 1 fuso con la figura del 66, quindi... figura 3

1)Ambata e Ambo con Ambetto 13 ed il vertibile 31
2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 12.14.30.32

esito al primo colpo estrazione del 28.11.2025 PALERMO 31.26 50.51.13

-----------------------------------------------------------------------------------------------------

estrazione del 27.11.2025 ruota di BARI 30.6.24.65.34

Previsione: numeretto 6 fuso con la figura del 30 e del 24, quindi...

1)Ambata e Ambo con Ambetto 36 e il 66 ED I VERTIBILI 63 e 69
2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 35.37.65.67 / 62.64.68.70

esito al primo colpo estrazione del 28.11.2025 BARI 80.75.84.67.37

se possibile inserendo queste opzioni

Con Inputbox per la scelta:

*Quante estrazioni vuoi controllare?
*Interrompi al 1° esito Positivo?
*Tutte le previsioni? oppure solo previsione con figura uguale?

spero di aver incuriosito abbastanza per aiutarmi a costruire lo script, qualcosa sto imparando, ma stavolta ancora non riesco da solo

GRAZIE

joe · 29 Novembre 2025

Ciao, non mi giudicare scortese,

ma "metodo" e "caso" sono agli antipodi.

Dunque se c'è "il caso" non ci può essere "il metodo".

In realtà ho anche poco tempo e pertanto non riuscirei

a terminarlo nel breve periodo.

CICALOTTO · 29 Novembre 2025

joe ha scritto:
Ciao, non mi giudicare scortese,

ma "metodo" e "caso" sono agli antipodi.

Dunque se c'è "il caso" non ci può essere "il metodo".

In realtà ho anche poco tempo e pertanto non riuscirei

a terminarlo nel breve periodo.

@joe non sei scortese, anzi sei sempre molto chiaro e disponibile, davvero

grazie anche solo per la pazienza di aver letto la mia richiesta, con stima e ammirazione per l'impegno profuso tante volte qui per neofiti come me.

joe · 30 Novembre 2025

CICALOTTO ha scritto:
@joe non sei scortese, anzi sei sempre molto chiaro e disponibile, davvero

grazie anche solo per la pazienza di aver letto la mia richiesta, con stima e ammirazione per l'impegno profuso tante volte qui per neofiti come me.

La parte che riguarda la ricerca delle condizio l'ho scritta.

Se qualcuno ha tempo e voglia si tratta di comporre le giocate con i dati a disposizione

Codice:

Option Explicit
Sub Main
   'La previsione si ricava su ruota unica e In qualsiasi estrazione
   'si ricerca l'uscita di un SOLO numeretto tra i cinque estratti di ogni ruota
   'e poi si prende la figura dei suoi due laterali (OPPURE SOLO DI UN LATERALE SE IL NUMERETTO ESTRATTO è IN PRIMA O QUINTA POSIZIONE ovviamente)
   'per formare la previsione che sarà col suo vertibile:
   '1) Ambata e Ambo
   '2) Ambo con Ambetto In lunghetta... col + 1 e -1 delle due ambate
   'TUTTO SOLO PER 3 COLPI
   'Alcuni esempi recenti dovrebbero chiarire tutto:
   'estrazione del 3.11.2025 ruota di VENEZIA 1.75.82.13.11
   'Previsione: numeretto 1 fuso con la Figura del 75, quindi... Figura 3
   '1)Ambata e Ambo con Ambetto 13 ed il vertibile 31
   '2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 12.14.30.32
   'esito al terzo colpo estrazione del 7.11 2025 VENEZIA 30.73.32.49.26
   Dim Es ' Estrazione
   Dim R ' Ruota
   Dim E,M ' Estratto / Memoria
   Dim Q ' Quantità
   Dim P,T ' Posizione / Trovata
   For Es = 10746 To EstrazioneFin
      For R = 1 To 12 : If R = 11 Then R = 12
         Q = 0
         For P = 1 To 5
            E = Estratto(Es,R,P)
            If E < 10 Then M = E : Q = Q + 1 : T = P
         Next
         If Q = 1 Then
            Scrivi DataEstrazione(Es,,,"/") & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " " & M & " (" & T & "°) ",0,0
            ReDim F(2)
            If T > 1 And T < 5 Then F(1) = Figura(Estratto(Es,R,T - 1)) : F(2) = Figura(Estratto(Es,R,T + 1)) : Scrivi "Fig."&StringaNumeri (F)
            If T = 1 Then F(1) = Figura(Estratto(Es,R,T + 1)) : Scrivi "Fig." &(F(1))
            If T = 5 Then F(1) = Figura(Estratto(Es,R,T - 1)) : Scrivi "Fig."&(F(1))
            ''''
            '
            'Composizione E simulazione gioco
            '
            ''''
         End If
      Next
   Next
End Sub

Buona Domenica

CICALOTTO · 30 Novembre 2025

Grande @joe grazie per la velocità e la disponibilità che mi hai dedicato. vediamo ora piano piano la seconda parte come posso procedere

GRAZIE

CICALOTTO · 1 Dicembre 2025

Buonasera, proviamo ad andare avanti dandomi un aiutino a proseguire lo script per completarlo?

@salvo che dici ? @Zetrix potete aiutarmi? Ma ovviamente vale anche per i vari scripters, chi ha tempo e voglia, può provare? non rifiuto aiuto da nessuno

, magari anche solo per capirei i vari passaggi, insieme

GRAZIE

salvo50 · 12 Dicembre 2025

Ciao a Tutti

Non sono sicuro di aver impostato ambate e ambi come da te richiesto, Controlla.
L'ambetto non l'ho fatto,

Codice:

Option Explicit
Sub Main
   'La previsione si ricava su ruota unica e In qualsiasi estrazione
   'si ricerca l'uscita di un SOLO numeretto tra i cinque estratti di ogni ruota
   'e poi si prende la figura dei suoi due laterali (OPPURE SOLO DI UN LATERALE SE IL NUMERETTO ESTRATTO è IN PRIMA O QUINTA POSIZIONE ovviamente)
   'per formare la previsione che sarà col suo vertibile:
   '1) Ambata e Ambo
   '2) Ambo con Ambetto In lunghetta... col + 1 e -1 delle due ambate
   'TUTTO SOLO PER 3 COLPI
   'Alcuni esempi recenti dovrebbero chiarire tutto:
   'estrazione del 3.11.2025 ruota di VENEZIA 1.75.82.13.11
   'Previsione: numeretto 1 fuso con la Figura del 75, quindi... Figura 3
   '1)Ambata e Ambo con Ambetto 13 ed il vertibile 31
   '2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 12.14.30.32
   'esito al terzo colpo estrazione del 7.11 2025 VENEZIA 30.73.32.49.26
   Dim Es ' Estrazione
   Dim R ' Ruota
   Dim E,M ' Estratto / Memoria
   Dim Q ' Quantità
   Dim P,T ' Posizione / Trovata
   Dim Caso ' Casi Trovati
   Dim Nu(2) ' Vettore
   Dim Ruo(1),Ruota(1)' Vettori Ruote
   Dim Posta(1),Poste(2)
   Posta(1) = 1
   Poste(2) = 1
   For Es = 10750 To EstrazioneFin
      For R = 1 To 12 : If R = 11 Then R = 12
         Q = 0
         For P = 1 To 5
            E = Estratto(Es,R,P)
            If E < 10 Then M = E : Q = Q + 1 : T = P
         Next
         If Q = 1 Then
            Ruota(1) = R
            Ruo(1) = TT_
            Caso = Caso + 1
            Scrivi String(96,"*") & " Casi " & FormattaStringa(Caso,"0000"),1,,,1
            Scrivi DataEstrazione(Es,,,"/") & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " " & M & " (" & T & "°) ",0,0
            ReDim F(2)
            ReDim Num(2)' Numeri composti da laterali e numeretto
            ReDim V_Num(2)'Vertibili dei numeri composti da laterali e numeretto
            If T > 1 And T < 5 Then F(1) = Figura(Estratto(Es,R,T - 1)) : F(2) = Figura(Estratto(Es,R,T + 1)) : Scrivi "Fig." & StringaNumeri(F)
            If T = 1 Then F(1) = Figura(Estratto(Es,R,T + 1)) : Scrivi "Fig." &(F(1))
            If T = 5 Then F(1) = Figura(Estratto(Es,R,T - 1)) : Scrivi "Fig." &(F(1))
            '
            If T > 1 And T < 5 Then
               Num(1) = Fuori90(F(1) & M) : Num(2) = Fuori90(M & F(2))
               V_Num(1) = Vert(Num(1)) : V_Num(2) = Vert(Num(2))
               Scrivi Space(3) & "Figure Laterali Uniti Ai Numeretti " & StringaNumeri(Num,,True),1
               Scrivi Space(3) & "Vertibili delle Fig. Lat. e Numer. " & StringaNumeri(V_Num,,True),1
               Scrivi
               ImpostaGiocata 1,Num,Ruota,Posta,3
               ImpostaGiocata 2,Num,Ruo,Poste,3
               ImpostaGiocata 3,V_Num,Ruo,Poste,3
               Gioca Es
            End If
            If T = 1 Then
               Num(1) = Fuori90(M &(F(1))) : V_Num(1) = Vert(Num(1))
               Scrivi " 1° Estratto Unito Alla Figura 2° Estratto = " & Format2(Num(1)),1,0
               Scrivi Space(3) & " Vertibile " & Format2(V_Num(1)),1
               Scrivi
               Nu(1) = Num(1) : Nu(2) = V_Num(1)
               ImpostaGiocata 1,Nu,Ruota,Posta,3
               ImpostaGiocata 2,Nu,Ruo,Poste,3
               Gioca Es
            End If
            If T = 5 Then
               Num(1) = Fuori90((F(1)) & M)
               V_Num(1) = Vert(Num(1))
               Scrivi " 5° Estratto Unito Alla Figura 4° Estratto = " & Format2(Num(1)),1,0
               Scrivi Space(3) & " Vertibile " & Format2(V_Num(1)),1
               Scrivi
               Nu(1) = Num(1) : Nu(2) = V_Num(1)
               ImpostaGiocata 1,Nu,Ruota,Posta,3
               ImpostaGiocata 2,Nu,Ruo,Poste,3
               Gioca Es
            End If
         End If
      Next
   Next
   ScriviResoconto
End Sub

CICALOTTO · 12 Dicembre 2025

Buonasera @salvo50 grazie, tra poco controllo

CICALOTTO · 12 Dicembre 2025

eccomi, un dettaglio con un esempio recente ma la previsione non sarebbe come pensavo e mi spiego meglio:

05/12/2025 CA 18.58.83.08.86 8 (4°) Fig.2.5
Figure Laterali Uniti Ai Numeretti 28.85

ma invece vorrei che fosse come base 28.58

perchè la figura di 83 è 2 unito col 8 darà 28 (l'hai calcolato giusto)
mentre l'altro numero è la figura di 86 cioè 5 quindi 5 unito con 8 = 58

perchè il numeretto deve rimanere il fulcro centrale...

Grazie per l'attenzione fin qui dedicata

CICALOTTO · 12 Dicembre 2025

mentre il tuo abbinamento va bene quando è Una sola Figura Laterale Unita Ai Numeretti:

estrazione del 27.11.2025 ruota di PALERMO 1.66.76.19.11

perciò un SOLO laterale perchè anche qui è uscito il numeretto come primo estratto e il laterale utile sarà solamente uno..

Previsione: numeretto 1 fuso con la figura del 66, quindi... figura 3

1)Ambata e Ambo con Ambetto 13 ed il vertibile 31
2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 12.14.30.32

esito al primo colpo estrazione del 28.11.2025 PALERMO 31.26 50.51.13

salvo50 · 13 Dicembre 2025

CICALOTTO ha scritto:
eccomi, un dettaglio con un esempio recente ma la previsione non sarebbe come pensavo e mi spiego meglio:

05/12/2025 CA 18.58.83.08.86 8 (4°) Fig.2.5
Figure Laterali Uniti Ai Numeretti 28.85

ma invece vorrei che fosse come base 28.58

perchè la figura di 83 è 2 unito col 8 darà 28 (l'hai calcolato giusto)
mentre l'altro numero è la figura di 86 cioè 5 quindi 5 unito con 8 = 58

perchè il numeretto deve rimanere il fulcro centrale...

Grazie per l'attenzione fin qui dedicata

Ciao a Tutti
Ciao Cicalotto

Non riesco a capire
Se da 83-08-86
ottengo
28-85
il numeretto 8 risulta centrale
ma se devo ottenere, secondo la tua correzione
28-58
io il numeretto 8 lo vedo laterale, non lo vedo centrale
spiegami dove sto sbagliando
è solo per capire

perchè il numeretto deve rimanere il fulcro centrale...

CICALOTTO · 13 Dicembre 2025

si scusa, buonasera, sono stato un po' vago
allora intendevo dire che il numeretto formerà l' UNITA' e la Figura formerà la DECINA

83.8.86 diventa
2 . 8 . 5
\/ \/
28 58

CICALOTTO · 13 Dicembre 2025

CICALOTTO ha scritto:
si scusa, buonasera, sono stato un po' vago
allora intendevo dire che il numeretto formerà l' UNITA' e la Figura formerà la DECINA

83.8.86 diventa
2 . 8 . 5
\/ \/
28 58

perciò previsione: 28.58 con i vertibili 82.85 per ambata, ambo e ambetto
poi il +1 e il -1 formeranno le quartine da giocare: 27.29.57.59 e 81.83.84.86 per ambo

salvo50 · Domenica alle 10:03

Ciao a Tutti
Se nei casi dove ci sono 2 figure, le 2 figure sono uguali come in questo caso
08/11/2025 RO 87.86.09.32.17 9 (3°) Fig.5.5

che si fa?

Dato che i 2 numeri risultanti sono 59 - 59

salvo50 · Mercoledì alle 07:51

Ciao a Tutti

Con l'aggiunta delle quaterne per tutte le ruote

Codice:

Option Explicit
Sub Main
   'La previsione si ricava su ruota unica e In qualsiasi estrazione
   'si ricerca l'uscita di un SOLO numeretto tra i cinque estratti di ogni ruota
   'e poi si prende la figura dei suoi due laterali (OPPURE SOLO DI UN LATERALE SE IL NUMERETTO ESTRATTO è IN PRIMA O QUINTA POSIZIONE ovviamente)
   'per formare la previsione che sarà col suo vertibile:
   '1) Ambata e Ambo
   '2) Ambo con Ambetto In lunghetta... col + 1 e -1 delle due ambate
   'TUTTO SOLO PER 3 COLPI
   'Alcuni esempi recenti dovrebbero chiarire tutto:
   'estrazione del 3.11.2025 ruota di VENEZIA 1.75.82.13.11
   'Previsione: numeretto 1 fuso con la Figura del 75, quindi... Figura 3
   '1)Ambata e Ambo con Ambetto 13 ed il vertibile 31
   '2)Ambo ed Ambetto col + 1 e -1 delle due ambate, quindi: 12.14.30.32
   'esito al terzo colpo estrazione del 7.11 2025 VENEZIA 30.73.32.49.26
   Dim Es ' Estrazione
   Dim R ' Ruota
   Dim E,M ' Estratto / Memoria
   Dim Q ' Quantità
   Dim P,T ' Posizione / Trovata
   Dim Caso ' Casi Trovati
   Dim Nu(2) ' Vettore
   Dim Ruo(1),Ruota(1)' Vettori Ruote
   Dim Posta(1),Poste(2) 'Vettori Poste
   Dim Qua1(4),Qua2(4)
   Posta(1) = 1
   Poste(2) = 1
   For Es = 10750 To EstrazioneFin
      For R = 1 To 12 : If R = 11 Then R = 12
         Q = 0
         For P = 1 To 5
            E = Estratto(Es,R,P)
            If E < 10 Then M = E : Q = Q + 1 : T = P
         Next
         If Q = 1 Then
            Ruota(1) = R
            Ruo(1) = TT_
            Caso = Caso + 1
            Scrivi String(96,"*") & " Casi " & FormattaStringa(Caso,"0000"),1,,,1
            Scrivi DataEstrazione(Es,,,"/") & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "    " & M & " (" & T & "°) ",0,0
            ReDim F(2)
            ReDim Num(2)' Numeri composti da laterali e numeretto
            ReDim V_Num(2)'Vertibili dei numeri composti da laterali e numeretto
            If T > 1 And T < 5 Then F(1) = Figura(Estratto(Es,R,T - 1)) : F(2) = Figura(Estratto(Es,R,T + 1)) : Scrivi "Fig." & StringaNumeri(F)
            If T = 1 Then F(1) = Figura(Estratto(Es,R,T + 1)) : Scrivi "Fig." &(F(1))
            If T = 5 Then F(1) = Figura(Estratto(Es,R,T - 1)) : Scrivi "Fig." &(F(1))
            '
            If T > 1 And T < 5 Then
               Num(1) = Fuori90(F(1) & M) : Num(2) = Fuori90(F(2) & M)
               V_Num(1) = Vert(Num(1)) : V_Num(2) = Vert(Num(2))
               If F(1) <> F(2) Then
                  Qua1(1) = Fuori90((Num(1) + 90) - 1) : Qua1(2) = Fuori90(Num(1) + 1)
                  Qua1(3) = Fuori90((Num(2) + 90) - 1) : Qua1(4) = Fuori90(Num(2) + 1)
                  '
                  Qua2(1) = Fuori90((V_Num(1) + 90) - 1) : Qua2(2) = Fuori90(V_Num(1) + 1)
                  Qua2(3) = Fuori90((V_Num(2) + 90) - 1) : Qua2(4) = Fuori90(V_Num(2) + 1)
                  Scrivi Space(3) & "Figure Laterali Uniti Ai Numeretti " & StringaNumeri(Num,,True),1
                  Scrivi Space(3) & "Vertibili delle Fig. Lat. e Numer. " & StringaNumeri(V_Num,,True),1
                  Scrivi
                  ImpostaGiocata 1,Num,Ruota,Posta,3
                  ImpostaGiocata 2,Num,Ruo,Poste,3
                  ImpostaGiocata 3,V_Num,Ruo,Poste,3
                  ImpostaGiocata 4,Qua1,Ruo,Poste,3
                  ImpostaGiocata 5,Qua2,Ruo,Poste,3

                  Gioca Es
               End If
            End If
            If T = 1 Then
               Num(1) = Fuori90(M &(F(1))) : V_Num(1) = Vert(Num(1))
               Scrivi " 1° Estratto Unito Alla Figura Del 2° Estratto = " & Format2(Num(1)),1,0
               Scrivi Space(3) & " Vertibile " & Format2(V_Num(1)),1
               Scrivi
               Nu(1) = Num(1) : Nu(2) = V_Num(1)
               ImpostaGiocata 1,Nu,Ruota,Posta,3
               ImpostaGiocata 2,Nu,Ruo,Poste,3
               Gioca Es
            End If
            If T = 5 Then
               Num(1) = Fuori90((F(1)) & M)
               V_Num(1) = Vert(Num(1))
               Scrivi " 5° Estratto Unito Alla Figura Del 4° Estratto = " & Format2(Num(1)),1,0
               Scrivi Space(3) & " Vertibile " & Format2(V_Num(1)),1
               Scrivi
               Nu(1) = Num(1) : Nu(2) = V_Num(1)
               ImpostaGiocata 1,Nu,Ruota,Posta,3
               ImpostaGiocata 2,Nu,Ruo,Poste,3
               Gioca Es
            End If
         End If
      Next
   Next
   ScriviResoconto
End Sub

CICALOTTO · Mercoledì alle 18:24

salvo50 ha scritto:
Ciao a Tutti
Se nei casi dove ci sono 2 figure, le 2 figure sono uguali come in questo caso
08/11/2025 RO 87.86.09.32.17 9 (3°) Fig.5.5

che si fa?

Dato che i 2 numeri risultanti sono 59 - 59

ciao, proverei a fare "diciamo" il vertibile 55...

sto andando per tentativi altrimenti si rimettono in gioco i due numeri delle , in questo caso 86.32 col 59 per ambo e ambetto ed infatti l'estrazione successiva esce su Roma 60.86

CICALOTTO · Mercoledì alle 18:34

provo lo SCRIPT e ti aggiorno e magari per gli ambi proviamo anche a mettere l'ambetto

GRAZIE

CICALOTTO · Oggi alle 09:25

sembra girare bene lo script, vorrei fare un paio di piccole mod che a breve ti descrivo... se possibile

Grazie

Chi può aiutarmi a creare uno script con Numeretti e Figure?

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Member

Member