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

[CICALOTTO]

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]

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]

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]

@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

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]

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]

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]

Ciao a Tutti

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

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