2 AMBATE E 1 AMBO SECCO CON L'USCITA DI DUE NUMERI GEMELLI

[donatella]

Con la sortita di una coppia di numeri gemelli su qualsiasi ruota ( meglio se consecutivi) andremo a calcolare due ambate e 1 ambo secco da giocare a ruota e tutte
Ambata principale a : fare la differenza matematica tra i due numeri gemelli
Ambata secondaria b : il complemento a 90 dell'ambata a
Giocare per estratto sulla ruota di calcolo
Giocare per ambo secco a Tutte
Giocare per 06 - 07 estrazioni
nota :
non giocare se nel quadro estrazionale sono presenti due o più condizioni
non giocare se i numeri gemelli sulla stessa ruota son più di due
Esempio ( reale ) del 03.01.25
Bari : ambo non unito > 44.33
Ambata a : 11 ( 44 - 33 )
Ambata b : 79 ( 90 - 11 )
04° colpo ambata 11 a Bari
----------------------------------------------------------
2024
13.12 > Bari : 33.66
03° colpo ambata 33
-------------------------------------------------------------------------------------
17.12 > Milano : 11.79
02° colpo ambata 79
---------------------------------------------------------------------------------------
24.12 > Napoli : 66.24
-------------------------------------------------------------------------------------
30.12 > Torino : 66.24 ( ambo non unito ) : si ripropone ancora il pronostico di Napoli
03° colpo doppia ambata e ambo secco 66.24 a Torino
----------------------------------------------------------------------------------------
31.12 > Venezia : non giocabile > terno gemelli
----------------------------------------------------------------------------------
2025
10.01 > Firenze : 22.68*
04° colpo ambata 68 e ambetto 23.68
------------------------------------------------------------------
11.01 > Palermo : 33.57
01° colpo ambata 33
-----------------------------------------------------------
14.01 > Palermo : 22.68 ( ambo non unito )
02° colpo ambata 68 ( e 33 : vedi estrazione precedente)
---------------------------------------------------------------------------------
28.01 >
Milano -Roma e Napoli > tripla condizione : non giocabile ( a Napoli presente pure un terno di gemelli)
-----------------------------------------------------------------------------------------------------------------------------------------
31.01 > Torino : 33.57 ( ambo non unito )
06° colpo ambo secco 33.57 a Roma
----------------------------------------------------------------------------
01.02 > Napoli : 33.57 ( ambo non unito )
05° colpo ambo secco 33.57 a Roma
-----------------------------------------------------------------------------
07.02 > Nazion : 44.56 ( ambo non unito )
01° colpo ambata 44 alla Nz
03° colpo ambo secco 44.56 a Firenze
--------------------------------------------------------------------------
14.02 > Bari : 11.79
IN CORSO DAL 15.02 .................................

 

[Antondavide]

Grazie mille. Donatella ma la previsione del 7 febbraio non è 44-46 ?

 

[antonioquagliozzi]

e' 44-46

 

[antonioquagliozzi]

Serve stript

 

[donatella]

Grazie mille. Donatella ma la previsione del 7 febbraio non è 44-46 ?

Scusate : confermo 44.46

 

[Sheena1]

Grazie mille. Donatella ma la previsione del 7 febbraio non è 44-46 ?

Su che ruota ..grazie

 

[GioRyuKen72]

Scusate : confermo 44.46

Ciao Donatella, @antonioquagliozzi
ecco lo script.. attenzione però che non sono capace ad automatizzare il controllo dei casi NON giocabili, vedi terno gemelli o doppio ambo gemelli nella stessa estrazione..

vedete se può esservi utile.
Saluti, Gio.

Anticipazione (Spoiler): SCRIPT

Sub Main()
   ' https://forum.lottoced.com/threads/2-ambate-e-1-ambo-secco-con-luscita-di-due-numeri-gemelli.2221763/
   Scrivi " DAI GEMELLI, 2 AMBATE ED UN AMBO SECCO A TUTTE di DONATELLA" ,1,,2,6,5,,1
   Dim rt(1),Nn(2),E1,E2,P5,RuoteAmbata(2)
   Dim Ambata1(2),PostaABT(1),PostaA(2),Ambo1(2)
   Dim Ambata,AmbataSecondaria
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",25))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For p2 = p1 + 1 To 5
               Nn(1) = Estratto(es,R1,P1) : Nn(2) = Estratto(es,R1,P2)
               If(Nn(1) = 11 Or Nn(1) = 22 Or Nn(1) = 33 Or Nn(1) = 44 Or Nn(1) = 55 Or Nn(1) = 66 Or Nn(1) = 77 Or Nn(1) = 88)_
                  And(Nn(2) = 11 Or Nn(2) = 22 Or Nn(2) = 33 Or Nn(2) = 44 Or Nn(2) = 55 Or Nn(2) = 66 Or Nn(2) = 77 Or Nn(2) = 88) Then
                  Ambata = Differenza(Nn(1),Nn(2))
                  AmbataSecondaria = ComplAdX(Ambata)
                  RuoteAmbata(1) = r1
                  rt(1) = TT_
                  PostaABT(1) = 2
                  PostaA(2) = 1
                  k = 8
                  ng = 0
                  Ambata1(1) = Ambata
                  Ambata1(2) = AmbataSecondaria
                  ImpostaGiocata 1,Ambata1,RuoteAmbata,PostaABT,k,1
                  Ambo1(1) = Ambata
                  Ambo1(2) = AmbataSecondaria
                  ImpostaGiocata 2,Ambo1,rt,PostaA,k,2
                  casi = casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  ColoreTesto 0
                  Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P5 = 1 To 5
                     E1 = Estratto(Es,R1,P5)
                     If E1 = Nn(1) Or E1 = Nn(2) Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Gioca es,True,,1
                  If ScriptInterrotto Then Exit For
               End If
            Next
            'End If
         Next
      Next
   Next
   ' Next
   'Next
   'Next
   'Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

 

[aldinobis]

Complimenti a Donatella per la soluzione previsionale
e complimenti a GioRyuKen72 per l'ottimo script...........a colori
Grazie per averlo condiviso...
Saluti