ricerca somma ambo

[lottomoney]

Buonasera, cpme state?...tutto bene?
Stavolta ho un quesito un pò più facile rispetto ai precedenti postati e cioè: se possibile avere la ricerca del numero ricavato dalla somma (ovviamente fuori 90) dei due numeri in 1a e 2a posizione di ogni ruota, ricercarlo sulla ruota successiva sempre in 1a e 2a posizione. Mi spiego con un esempio:
Estrazione del 29/08/2020 ruota di BARI:
61 - 19 = 80
ruota di CAGLIARI in 2a posizione c'è il numero 80
Estrazione del 28/01/2021 ruota di BARI:
52 - 41 = 3
ruota di CAGLIARI in 2a posizione c'è il numero 3

Come detto in precedenza dovrebbe essere fatta la ricerca sulle 10 ruote (Venezia su Nazionale).

Un ringraziamento anticipato a chi vorrà cimentarsi

lottomoney

[Master]

Ciao

Doverbbe essere così [x spaziometria]

Codice: Seleziona tutto

 
Sub Main()
   Scrivi " Ricerca somma 1/2 pos su ruota successiva x lottomoney",1,,,1
   'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4294
   Dim a,b,c,r1,r2,e1,e2,es,rs
   Dim Ini,fin,p3,pp1,pp2,fa
   rs = CInt(InputBox("Quante estrazioni vuoi controllare? ","ESTRAZIONI",100))
   fin = EstrazioneFin
   Ini = fin - rs
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      For r1 = 1 To 10
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         fa = Fuori90(a + b)
         r2 = r1 + 1
         If r2 = 11 Then r2 = 12
         For p3 = 1 To 2
            c = Estratto(es,r2,p3)
            If fa = c Then
               Scrivi
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
               Scrivi "  " & SiglaRuota(r1) & " ",1,0
               For pp1 = 1 To 5
                  e1 = Estratto(es,r1,pp1)
                  If e1 = a Or e1 = b Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(e1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " Somma " & Format2(fa),1
               Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
               Scrivi "  " & SiglaRuota(r2) & " ",1,0
               For pp2 = 1 To 5
                  e2 = Estratto(es,r2,pp2)
                  If e2 = c Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(e2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(70,"-")
            End If
         Next
      Next
   Next
End Sub


[lottomoney]

Grazie Master, sempre molto gentile
Visto che non da molti risultati, secondo te è possibile eventualmente fare il calcolo anche al contrario?
cioè adesso, esempio, è tra BARI e CAGLIARI, volendo si potrebbe anche da CAGLIARI e BARI? e naturalmente
anche le altre ruote?....forse chiedo troppo, scusami
Ovviamente a tua discrezione. Grazie mille nuovamente
lottomoney

[Master]

Ciao
Questo controlla precedenti e successive
Dimmi se va bene

Codice: Seleziona tutto

Sub Main()
   Scrivi " Ricerca somma 1/2 pos su ruota prec/succ x lottomoney",1,,,1
   'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4294
   Dim a,b,c,r1,r2,e1,e2,es,rs
   Dim Ini,fin,p3,pp1,pp2,fa
   rs = CInt(InputBox("Quante estrazioni vuoi controllare? ","ESTRAZIONI",100))
   fin = EstrazioneFin
   Ini = fin - rs
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         fa = Fuori90(a + b)
         For r2 = 1 To 12
            If Distanza(r1,r2) = 1 Or(r1 > 9 And r2 > 9 And Distanza(r1,r2) = 2) Then
               For p3 = 1 To 2
                  c = Estratto(es,r2,p3)
                  If fa = c Then
                     Scrivi
                     ColoreTesto 0
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
                     Scrivi "  " & SiglaRuota(r1) & " ",1,0
                     For pp1 = 1 To 5
                        e1 = Estratto(es,r1,pp1)
                        If e1 = a Or e1 = b Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(e1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi " Somma " & Format2(fa),1
                     Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
                     Scrivi "  " & SiglaRuota(r2) & " ",1,0
                     For pp2 = 1 To 5
                        e2 = Estratto(es,r2,pp2)
                        If e2 = c Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(e2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi String(70,"-")
                  End If
               Next
            End If
         Next
      Next
   Next
End Sub


[lottomoney]

FANTASTICO!!!!
Master sei un grande, grazie mille
lottomoney