Novità

Per salvo50 o altro esperto .Una cortesia per uno script che ricerchi determinate condizioni.

Matematico

Matematico

Advanced Member >PLATINUM<
Buona domenica a tutti ! Chiedo una cortesia per uno script che ricerchi determinate condizioni...faccio un esempio pratico :

20/9/2024

VENEZIA: 72-41-08-59-10 * 72+08+10 = 90 ( 1° condiz. da ricercare , una terna di somma 90)

72+59 = 41 e 41+59 = 10 ( 2° condiz. 1 o 2 terne di somma )

Se non se ne trovano ne basta anche solo una di terna di somma , l'importante è che ci sia quella di somma 90

Cosa si gioca : da 41 a 90 = 49 prima ambata e da 10 a 90 = 80 seconda ambata
Anche il 90 è importante come abbinamento in terzina x a/t

49-80 estratto, ambo + ambetto VE + tutte
49-80-90 x a/t
In attesa!
 
Ultima modifica:
Ciao a Tutti
Ciao Matematico
Prima di iniziare devo avere dei chiarimenti, della terna di somma 90 da te usata come esempio
per fare i secondi calcoli 72+59 perché dei 3 numeri della terna hai scelto il 72, e non 8 oppure
il 10, cioè con quale criterio hai scelto il 72?

Poi della sudetta somma viene il 41 che è l'altro numero della cinquina usata da esempio
domanda, deve essere sempre così oppure è un caso?

La terna può essere in qualsiasi posizione oppure deve rispettare le posizioni 1-3-5?
 
Ultima modifica:
Ciao salvo50,
Perchè 72+59 = 41 presente nella cinquina che io chiamo terno di somma , basta anche un solo terno di somma di qualsiasi tipo ...ad esempio 10+11 = 21 , l'importante è che sia presente il numero della somma. Mentre invece x la terna di somma 90 và bene in qualsiasi posizione .
 
Ciao Matematico

I calcoli non li ho visualizzati perché in questi giorni ho altro da fare, però sono giusti perché
nell'esempio fatto da te corrispondono, adesso lo posto così, poi se mi libero cercherò di visualizzare pure i calcoli
Codice: 
Option Explicit
Dim SomEs,SomTern,SomAB,SomAC,SomAD,SomAE
Dim SomBC,SomBD,SomBE,SomCD,SomCE,SomDE
Dim A,B,C,D,E,Co,Amb1,Amb2
Sub Main
   Dim FIn,Es,Ini,K,K2,Salvo50,Clp1,Clp2
   Dim R1,Caso,Casi,P1,P2,P,E1
   Dim Nu(5),Amba(1),Ambo(2)
   Dim Ruote(2),Ruota(1),Posta(1),Poste(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10350)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Posta(1) = 1
   Poste(2) = 1
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Terna Somma 90 di Matematico - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         SomEs = SommaEstratti(Es,R1)
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               SomAB = A + B
               SomTern = SomEs - SomAB
               SomTern = Fuori90(SomTern)
               If SomTern = 90 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                  Co = 0
                  Call OrdinaMatrice(Nu,- 1)
                  C = Nu(1) : D = Nu(2) : E = Nu(3)
                  SomAB = Fuori90(SomAB)
                  SomAC = Fuori90(A + C) : SomAD = Fuori90(A + D) : SomAE = Fuori90(A + E)
                  SomBC = Fuori90(B + C) : SomBD = Fuori90(B + D) : SomBE = Fuori90(B + E)
                  SomCD = Fuori90(C + D) : SomCE = Fuori90(C + E) : SomDE = Fuori90(D + E)
                  If SomAB = C Or SomAB = D Or SomAB = E Or SomAC = B Or SomAC = D Or SomAC = E _
                     Or SomAD = B Or SomAD = C Or SomAD = E Or SomAE = B Or SomAE = C Or SomAE = D _
                     Or SomBC = A Or SomBC = D Or SomBC = E Or SomBD = A Or SomBD = C Or SomBD = E _
                     Or SomBE = A Or SomBE = C Or SomBE = D Or SomCD = A Or SomCD = B Or SomCD = E _
                     Or SomDE = A Or SomDE = B Or SomDE = C Then
                     '
                     Call Calcoli
                     If Amb1 > 0 And Amb2 > 0 Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 2
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 1
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E1 = Estratto(Es,R1,P)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 1
                           Else
                              ColoreTesto 2
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Evidenziata In Rosso Terna Somma 90",1
                        Scrivi
                        Ruota(1) = R1            
                        Ruote(1) = R1 : Ruote(2) = TU_
                        Ambo(1) = Amb1 : Ambo(2) = Amb2
                        ImpostaGiocata 1,Ambo,Ruota,Posta,Clp1
                        ImpostaGiocata 2,Ambo,Ruote,Poste,Clp2
                        Gioca Es,1
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcoli
   If SomAB = C Or SomAB = D Or SomAB = E Then Amb1 = 90 - SomAB
   If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
   If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
   If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
   If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
   If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
   If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
   If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
   If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
   If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
   If Amb1 = 0 And Amb2 = 0 Then
      '
      If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
      If SomAC = B Or SomAC = D Or SomAC = E Then Amb1 = 90 - SomAC
      If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
      If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
      If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
      If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
      If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
      If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
      If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
      If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
      If Amb1 = 0 And Amb2 = 0 Then
         '
         If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
         If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
         If SomAD = B Or SomAD = C Or SomAD = E Then Amb1 = 90 - SomAD
         If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
         If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
         If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
         If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
         If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
         If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
         If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
         If Amb1 = 0 And Amb2 = 0 Then
            '
            If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
            If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
            If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
            If SomAE = B Or SomAE = C Or SomAE = D Then Amb1 = 90 - SomAE
            If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
            If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
            If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
            If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
            If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
            If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
            If Amb1 = 0 And Amb2 = 0 Then
               '
               If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
               If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
               If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
               If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
               If SomBC = A Or SomBC = D Or SomBC = E Then Amb1 = 90 - SomBC
               If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
               If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
               If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
               If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
               If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
               If Amb1 = 0 And Amb2 = 0 Then
                  '
                  If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                  If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                  If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                  If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                  If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                  If SomBD = A Or SomBD = C Or SomBD = E Then Amb1 = 90 - SomBD
                  If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                  If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                  If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                  If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                  If Amb1 = 0 And Amb2 = 0 Then
                     '
                     If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                     If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                     If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                     If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                     If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                     If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                     If SomBE = A Or SomBE = C Or SomBE = D Then Amb1 = 90 - SomBE
                     If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                     If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                     If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                     If Amb1 = 0 And Amb2 = 0 Then
                        '
                        If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                        If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                        If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                        If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                        If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                        If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                        If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                        If SomCD = A Or SomCD = B Or SomCD = E Then Amb1 = 90 - SomCD
                        If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                        If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                        If Amb1 = 0 And Amb2 = 0 Then
                           '
                           If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                           If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                           If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                           If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                           If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                           If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                           If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                           If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                           If SomCE = A Or SomCE = B Or SomCE = D Then Amb1 = 90 - SomCE
                           If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                           If Amb1 = 0 And Amb2 = 0 Then
                              '
                              If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                              If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                              If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                              If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                              If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                              If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                              If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                              If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                              If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                              If SomDE = A Or SomDE = B Or SomDE = C Then Amb1 = 90 - SomDE
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
   End If
End Function
 
Ciao salvo50, ottimo lavoro come sempre i tuoi script sono Top! Vedo che i risultati ci sono :).
Ultima cosa se possibile evidenziare l'altra terna di somma.... grazie infinite !
 
Ciao a Tutti.

Matematico, Pandit
Grazie

Per come ho impostato lo script, per ognuna delle 10 coppie (ambi) che si formano con 5 numeri (estratti) ho messo
10 IFF-THEN, poi per trovare a qualè numero corrisponde la somma di ognuna delle 10 coppie ho messo altri 10 IFF-THEN per ogni coppia, quindi 10 per 10 uguale 100 IFF-THEN.

Visualizzare l'altra terna di somma è possibile, ma per come ho impostato lo script per ognuno di questi 100 IFF-THEN devo aggiungere altri 3 IFF-THEN, quindi in tutto sarebbero 400 IFF-THEN.

Non ho voglia e ne il tempo per farli, ma chiedo a chi è più esperto di me, se c'è un sistema migliore per impostare lo script senza tutti questi IFF-THEN, oppure se esiste qualche funzione che trova per ognuna delle 10 somme il numero corrispondente nei 3 numeri rimasti.

Appena posso aggiungo l'ambetto
 
Con Ambetto

Codice: 
Option Explicit
Dim SomEs,SomTern,SomAB,SomAC,SomAD,SomAE
Dim SomBC,SomBD,SomBE,SomCD,SomCE,SomDE
Dim A,B,C,D,E,Amb1,Amb2
Sub Main
   Dim FIn,Es,Ini,K,Salvo50,Clp1,Clp2
   Dim R1,Caso,Casi,P1,P2,P,E1,Ambetto
   Dim retnum,retvinc
   Dim Nu(5),Amba(1),Ambo(2)
   Dim Ruote(2),Ruota(1),Posta(1),Poste(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10350)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Posta(1) = 1
   Poste(2) = 1
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Terna Somma 90 di Matematico - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         SomEs = SommaEstratti(Es,R1)
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               SomAB = A + B
               SomTern = SomEs - SomAB
               SomTern = Fuori90(SomTern)
               If SomTern = 90 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                
                  Call OrdinaMatrice(Nu,- 1)
                  C = Nu(1) : D = Nu(2) : E = Nu(3)
                  SomAB = Fuori90(SomAB)
                  SomAC = Fuori90(A + C) : SomAD = Fuori90(A + D) : SomAE = Fuori90(A + E)
                  SomBC = Fuori90(B + C) : SomBD = Fuori90(B + D) : SomBE = Fuori90(B + E)
                  SomCD = Fuori90(C + D) : SomCE = Fuori90(C + E) : SomDE = Fuori90(D + E)
                  If SomAB = C Or SomAB = D Or SomAB = E Or SomAC = B Or SomAC = D Or SomAC = E _
                     Or SomAD = B Or SomAD = C Or SomAD = E Or SomAE = B Or SomAE = C Or SomAE = D _
                     Or SomBC = A Or SomBC = D Or SomBC = E Or SomBD = A Or SomBD = C Or SomBD = E _
                     Or SomBE = A Or SomBE = C Or SomBE = D Or SomCD = A Or SomCD = B Or SomCD = E _
                     Or SomDE = A Or SomDE = B Or SomDE = C Then
                     '
                     Call Calcoli
                     If Amb1 > 0 And Amb2 > 0 Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 2
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 1
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E1 = Estratto(Es,R1,P)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 1
                           Else
                              ColoreTesto 2
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Evidenziata In Rosso Terna Somma 90",1
                        Scrivi
                        Ruota(1) = R1
                        Ruote(1) = R1 : Ruote(2) = TU_
                        Ambo(1) = Amb1 : Ambo(2) = Amb2
                        ImpostaGiocata 1,Ambo,Ruota,Posta,Clp1
                        ImpostaGiocata 2,Ambo,Ruote,Poste,Clp2
                        Gioca Es,1,,1
                        Ambetto = VerificaAmbetto(Ambo,R1,Es,retnum,retvinc)
                        If Ambetto > 0 Then
                        Scrivi Space(7) & " Ambetto " & Space(7),1,,4,,3

                           Scrivi " Ambetto su " & retnum,1
                           Scrivi " Vincita di " & retvinc & " La Posta",1
                        End If
                        Scrivi
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcoli
   If SomAB = C Or SomAB = D Or SomAB = E Then Amb1 = 90 - SomAB
   If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
   If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
   If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
   If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
   If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
   If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
   If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
   If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
   If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
   If Amb1 = 0 And Amb2 = 0 Then
      '
      If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
      If SomAC = B Or SomAC = D Or SomAC = E Then Amb1 = 90 - SomAC
      If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
      If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
      If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
      If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
      If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
      If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
      If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
      If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
      If Amb1 = 0 And Amb2 = 0 Then
         '
         If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
         If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
         If SomAD = B Or SomAD = C Or SomAD = E Then Amb1 = 90 - SomAD
         If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
         If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
         If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
         If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
         If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
         If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
         If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
         If Amb1 = 0 And Amb2 = 0 Then
            '
            If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
            If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
            If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
            If SomAE = B Or SomAE = C Or SomAE = D Then Amb1 = 90 - SomAE
            If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
            If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
            If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
            If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
            If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
            If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
            If Amb1 = 0 And Amb2 = 0 Then
               '
               If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
               If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
               If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
               If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
               If SomBC = A Or SomBC = D Or SomBC = E Then Amb1 = 90 - SomBC
               If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
               If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
               If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
               If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
               If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
               If Amb1 = 0 And Amb2 = 0 Then
                  '
                  If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                  If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                  If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                  If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                  If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                  If SomBD = A Or SomBD = C Or SomBD = E Then Amb1 = 90 - SomBD
                  If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                  If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                  If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                  If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                  If Amb1 = 0 And Amb2 = 0 Then
                     '
                     If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                     If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                     If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                     If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                     If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                     If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                     If SomBE = A Or SomBE = C Or SomBE = D Then Amb1 = 90 - SomBE
                     If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                     If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                     If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                     If Amb1 = 0 And Amb2 = 0 Then
                        '
                        If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                        If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                        If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                        If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                        If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                        If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                        If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                        If SomCD = A Or SomCD = B Or SomCD = E Then Amb1 = 90 - SomCD
                        If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                        If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                        If Amb1 = 0 And Amb2 = 0 Then
                           '
                           If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                           If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                           If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                           If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                           If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                           If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                           If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                           If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                           If SomCE = A Or SomCE = B Or SomCE = D Then Amb1 = 90 - SomCE
                           If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                           If Amb1 = 0 And Amb2 = 0 Then
                              '
                              If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                              If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                              If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                              If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                              If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                              If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                              If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                              If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                              If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                              If SomDE = A Or SomDE = B Or SomDE = C Then Amb1 = 90 - SomDE
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
   End If
End Function
 
Ciao a Tutti

Avevo deciso di fare quei 300 IFF-THEN ma la cosa è più incasinata di quello che pensavo
allora ho inserito le 10 somme per vedere se negli estratti c'era corrispondenza e mi sono
accorto c'era qualcosa di sbagliato perché non sempre c'erano le 2 somme e quindi l'ho
corretto, adesso nelle 10 somme almeno 2 corrispondono agli estratti, a volte qualche
somma è doppia e può esserci una sola somma uguale, quella doppia.
Nello script del post #9 ci sono molti esiti solo con un riscontro, cioè delle 10 somme c'e ne solo una negli estratti quindi un numero corrisponde ai calcoli esposti da Matematico, per l'altro numero lo script prende un altro numero della sonma ma non so con che criterio.

Quindi ne metto un altro

Codice: 
Option Explicit
Dim SomEs,SomTern,SomAB,SomAC,SomAD,SomAE
Dim SomBC,SomBD,SomBE,SomCD,SomCE,SomDE
Dim A,B,C,D,E,Amb1,Amb2,X1,X2
Sub Main
   Dim FIn,Es,Ini,K,Salvo50,Clp1,Clp2
   Dim R1,Caso,Casi,P1,P2,P,E1,Ambetto
   Dim retnum,retvinc
   Dim Nu(5),Ambo(2),A1(10)
   Dim Ruote(2),Ruota(1),Posta(1),Poste(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10350)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Posta(1) = 1
   Poste(2) = 1
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Terna Somma 90 di Matematico - Con Ambetto - Script Salvo50" & Space(12),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         SomEs = SommaEstratti(Es,R1)
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               SomAB = A + B
               SomTern = SomEs - SomAB
               SomTern = Fuori90(SomTern)
               If SomTern = 90 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                  Call OrdinaMatrice(Nu,- 1)
                  C = Nu(1) : D = Nu(2) : E = Nu(3)
                  SomAB = Fuori90(SomAB)
                  SomAC = Fuori90(A + C) : SomAD = Fuori90(A + D) : SomAE = Fuori90(A + E)
                  SomBC = Fuori90(B + C) : SomBD = Fuori90(B + D) : SomBE = Fuori90(B + E)
                  SomCD = Fuori90(C + D) : SomCE = Fuori90(C + E) : SomDE = Fuori90(D + E)
                  If SomAB = C Or SomAB = D Or SomAB = E Or SomAC = B Or SomAC = D Or SomAC = E _
                     Or SomAD = B Or SomAD = C Or SomAD = E Or SomAE = B Or SomAE = C Or SomAE = D _
                     Or SomBC = A Or SomBC = D Or SomBC = E Or SomBD = A Or SomBD = C Or SomBD = E _
                     Or SomBE = A Or SomBE = C Or SomBE = D Or SomCD = A Or SomCD = B Or SomCD = E _
                     Or SomDE = A Or SomDE = B Or SomDE = C Then
                   
                     Call Calcoli
                     If Amb1 > 0 And Amb2 > 0 Then
                   
                      If Amb1 <> Amb2 Then

                     X1 = 90 - Amb1 : X2 = 90 - Amb2
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 2
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 1
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E1 = Estratto(Es,R1,P)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 1
                           Else
                              ColoreTesto 2
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Evidenziata In Rosso Terna Somma 90",1
                        Scrivi
                        Scrivi " Le 10 Somme Delle 10 Coppie (ambi)",1,,,1
                        Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(SomAB),1
                        Scrivi Space(10) & Format2(A) & " + " & Format2(C) & " = " & Format2(SomAC),1
                        Scrivi Space(10) & Format2(A) & " + " & Format2(D) & " = " & Format2(SomAD),1
                        Scrivi Space(10) & Format2(A) & " + " & Format2(E) & " = " & Format2(SomAE),1
                        Scrivi Space(10) & Format2(B) & " + " & Format2(C) & " = " & Format2(SomBC),1,0
                        Scrivi Space(5) & " I 2 Estratti Che Sono Uguali Alle 2 Somme",1,0,,2
                        Scrivi Space(5) & Format2(X1) & "  " & Format2(X2),1,,,1
                        Scrivi Space(10) & Format2(B) & " + " & Format2(D) & " = " & Format2(SomBD),1
                        Scrivi Space(10) & Format2(B) & " + " & Format2(E) & " = " & Format2(SomBE),1
                        Scrivi Space(10) & Format2(C) & " + " & Format2(D) & " = " & Format2(SomCD),1
                        Scrivi Space(10) & Format2(C) & " + " & Format2(E) & " = " & Format2(SomCE),1
                        Scrivi Space(10) & Format2(D) & " + " & Format2(E) & " = " & Format2(SomDE),1
                        Scrivi
                     
                        Scrivi
                        Ruota(1) = R1
                        Ruote(1) = R1 : Ruote(2) = TU_
                        Ambo(1) = Amb1 : Ambo(2) = Amb2
                        ImpostaGiocata 1,Ambo,Ruota,Posta,Clp1
                        ImpostaGiocata 2,Ambo,Ruote,Poste,Clp2
                        Gioca Es,1,,1
                        Ambetto = VerificaAmbetto(Ambo,R1,Es,retnum,retvinc)
                        If Ambetto > 0 Then
                           Scrivi Space(7) & " Ambetto " & Space(7),1,,4,,3
                           Scrivi " Ambetto su " & retnum,1
                           Scrivi " Vincita di " & retvinc & " La Posta",1
                        End If
                        Scrivi
                      End If
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Function Calcoli
   Amb1 = 0 : Amb2 = 0
   If SomAB = C Or SomAB = D Or SomAB = E Then Amb1 = 90 - SomAB
   If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
   If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
   If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
   If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
   If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
   If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
   If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
   If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
   If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
   If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
      Amb1 = 0 : Amb2 = 0
      If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
      If SomAC = B Or SomAC = D Or SomAC = E Then Amb1 = 90 - SomAC
      If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
      If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
      If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
      If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
      If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
      If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
      If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
      If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
      If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
         Amb1 = 0 : Amb2 = 0
         If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
         If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
         If SomAD = B Or SomAD = C Or SomAD = E Then Amb1 = 90 - SomAD
         If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
         If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
         If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
         If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
         If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
         If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
         If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
         If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
            Amb1 = 0 : Amb2 = 0
            If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
            If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
            If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
            If SomAE = B Or SomAE = C Or SomAE = D Then Amb1 = 90 - SomAE
            If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
            If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
            If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
            If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
            If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
            If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
            If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
               Amb1 = 0 : Amb2 = 0
               If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
               If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
               If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
               If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
               If SomBC = A Or SomBC = D Or SomBC = E Then Amb1 = 90 - SomBC
               If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
               If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
               If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
               If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
               If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
               If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
                  Amb1 = 0 : Amb2 = 0
                  If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                  If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                  If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                  If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                  If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                  If SomBD = A Or SomBD = C Or SomBD = E Then Amb1 = 90 - SomBD
                  If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                  If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                  If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                  If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                  If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
                     Amb1 = 0 : Amb2 = 0
                     If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                     If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                     If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                     If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                     If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                     If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                     If SomBE = A Or SomBE = C Or SomBE = D Then Amb1 = 90 - SomBE
                     If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                     If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                     If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                     If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
                        Amb1 = 0 : Amb2 = 0
                        If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                        If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                        If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                        If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                        If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                        If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                        If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                        If SomCD = A Or SomCD = B Or SomCD = E Then Amb1 = 90 - SomCD
                        If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                        If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                        If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
                           Amb1 = 0 : Amb2 = 0
                           If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                           If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                           If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                           If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                           If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                           If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                           If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                           If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                           If SomCE = A Or SomCE = B Or SomCE = D Then Amb1 = 90 - SomCE
                           If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
                           If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
                              Amb1 = 0 : Amb2 = 0
                              If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
                              If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
                              If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
                              If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
                              If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
                              If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
                              If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
                              If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
                              If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
                              If SomDE = A Or SomDE = B Or SomDE = C Then Amb1 = 90 - SomDE
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
   End If
End Function
 
Ultima modifica:
Ciao a Tutti

Lo script è da riprendere, ho visualizzato i 2 estratti che sono uguali alle 2 somme

Ho eliminato l'estrazione che aveva solo 2 somme uguali
Se ci sono 3 somme uguali agli estratti, prende i primi 2 e scarta l'altra
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto