coppia consecutivi

[genios]

Avrei bisogno del seguente script .

Considerando le 45 coppie di numeri consecutivi su una data ruota .

Analizzando 9 estrazioni consecutive

Conteggiare per ciascun numero le uscite nelle 9 estrazioni consecutive

In Out dovremmo avere numero uscite numero 1 numero uscite numero 2 somma uscite dei 2 numeri

Se la somma uscite dei 2 numeri è superiore a 3 mettere in gioco per 9 estrazioni la coppia per ambata .

Se vi è più di una coppia di numeri unire tutti i numeri e giocare per la sorte di ambo.

Ciao Eugenio

 

[genios]

Mi sa che avrei dovuto intitolare il post Aiutino .

 

[genios]

HELP

 

[joe]

Ciao Eugenio.

Non fa quello che hai chiesto ... ma ci assomiglia e va molto meglio.

Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,G,N,Nu(2),Ru(1),Po(2)
   Ini = EstrazioneFin - 155 : Fin = EstrazioneFin : Po(2) = 1
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      G = 0
      For R = 1 To 10 :Ru(1) = R
         For N = 1 To 89 : Nu(1) = N : Nu(2) = N + 1
            If SerieFreq(Es - 8,Es,Nu,Ru,1) > 3 Then
               G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,5,1
            End If
         Next
      Next
      If G > 0 Then Gioca Es,True
   Next
   ScriviResoconto
End Sub

 

[genios]

Come hai scritto non fa quello che ho chiesto comunque grazie Joe.