xMIKE58

[Zetrix]

CIAO MIKE,
ho fatto questo script che scrive due numeri a scelta e verifica se questi numeri
sono usciti sulle due ruote descritte..
ma lo script in out scrive due numeri che non corrispondono ai numeri
scritti in input.box..

22.07.2023 TO 11.03.09.78.83 --> 9.83

invece dovrebbe scrivere soltanto il numero 9
ho scelto il 9 e un altro numero ma non l'83..

Sub Main
   Dim r1,r2
   Dim num(2)
   '
   rk = InputBox(" Scrivi 1 numero ")
   rw = InputBox(" Scrivi 2 numero ")
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   Ini = EstrazioneFin - rs
   fin = EstrazioneFin
   '
   For es = Ini To fin
      '
      For r1 = 8 To 9
         '
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               '
               For rx = rk To rk
                  For rt = rw To rw
                     '
                     a = Estratto(es,r1,p1)
                     b = Estratto(es,r1,p2)
                     '
                     '
                     num(1) = a
                     num(2) = b
                     '
                     If rx = a Or rt = b Then
                        '
                        '
                        '
                        If num(1) = a Then
                           Scrivi DataEstrazione(es) & Space(5) & SiglaRuota(r1) & Space(5) & StringaEstratti(es,r1) & Space(5) & "--> " & StringaNumeri(num),0,1,1,5
                           '
                        Else
                           If num(2) = b Then
                              Scrivi DataEstrazione(es) & Space(5) & SiglaRuota(r1) & Space(5) & StringaEstratti(es,r1) & Space(5) & "--> " & StringaNumeri(num),0,1,5
                              '
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub

 

[Mike58]

Zetrix non posso aiutarti sono in vacanze e con pochi mezzi .
Spero che altri possono aiutarti .
.

 

[Zetrix]

va bene MIKE..buone vacanze..