come sostituire ImpostaGiocata con VerificaEsito

[genios]

Chiedo aiuto per sostituire la funzione ImpostaGiocata e ImpostaInterruzioni con la funzione VerificaEsito nel seguente Script

Sub Main()

Dim n1(5), n2(5), ru1(1), ru2(1), posta(2) 
posta(2)=1 



Dim matrice(8,5)
matrice(1,1)=1: matrice (1,2)=10: matrice(1,3)=11: matrice(1,4)=19: matrice(1,5)=2
matrice(2,1)=2: matrice (2,2)=20: matrice(2,3)=22: matrice(2,4)=29: matrice(2,5)=4
matrice(3,1)=3: matrice (3,2)=30: matrice(3,3)=33: matrice(3,4)=39: matrice(3,5)=6
matrice(4,1)=4: matrice (4,2)=40: matrice(4,3)=44: matrice(4,4)=49: matrice(4,5)=8
matrice(5,1)=5: matrice (5,2)=50: matrice(5,3)=55: matrice(5,4)=59: matrice(5,5)=1
matrice(6,1)=6: matrice (6,2)=60: matrice(6,3)=66: matrice(6,4)=69: matrice(6,5)=3
matrice(7,1)=7: matrice (7,2)=70: matrice(7,3)=77: matrice(7,4)=79: matrice(7,5)=5
matrice(8,1)=8: matrice (8,2)=80: matrice(8,3)=88: matrice(8,4)=89: matrice(8,5)=7

fin=EstrazioneFin 
ini=3575
For es=ini To fin 
AvanzamentoElab ini,fin,es 

For s1= 1 To 7
For i= 1 To 5
n1(i)=matrice(s1,i)
Next 
For s2= s1+1 To 8
For i= 1 To 5
n2(i)=matrice(s2,i)
Next 

For r1=1 To 9 
For r2=r1+1 To 10 
ru1(1)=r1 : ru2(1)=r2 
If SerieFreq(es,es, n1,ru1,2)>0 And SerieFreq(es,es,n2,ru2,2)>0 Then 

ImpostaGiocata 1,n1,ru1,posta,200,2 
ImpostaGiocata 2,n2,ru2,posta,200,2 
Gioca es 
ImpostaInterruzioni 1,2,2 
ImpostaInterruzioni 2,1,2 

End If

Next 
Next 
Next 
Next 
Next 

ScriviResoconto 
End Sub

 

[claudio8]

Fai prima un controllo e poi remma o cancella ciò che non serve

Sub Main()
    Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
    posta(2) = 1
    Dim r1,r2
    Dim matrice(8,5)
    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
    fin = EstrazioneFin
    ini = 9300' 3575
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        For s1 = 1 To 7
            For i = 1 To 5
                n1(i) = matrice(s1,i)
            Next
            For s2 = s1 + 1 To 8
                For i = 1 To 5
                    n2(i) = matrice(s2,i)
                Next
                For r1 = 1 To 9
                    For r2 = r1 + 1 To 10
                        ru1(1) = r1
                        ru2(1) = r2
                        If SerieFreq (es,es,n1,ru1,2)> 0 And SerieFreq(es,es,n2,ru2,2)> 0 Then
                        Scrivi "In gioco i numeri (n1) "  & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" &n1(5) & " su " & SiglaRuota(r1)
                        If VerificaEsito(n1,ru1,es +1,2,,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                        Scrivi "Esito di " & Esito1 & " al "& FormatSpace (Colpi1,4,1)&"° colpo - Ruota e numeri " & Estratti1 & " estraz. del " & DataEstrazione(IdEstr1)
                        Else
                        Scrivi "Esito degli (n1) ....  non verificato"
                        End If
                            ImpostaGiocata 1,n1,ru1,posta,200,2  ' da remmare
                        Scrivi "In gioco i numeri (n2) "  & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" &n2(5) & " su " &  SiglaRuota (r2)
                        If VerificaEsito(n2,ru2,es +1,2,,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                        Scrivi "Esito di " & Esito2 & " al "& FormatSpace (Colpi2,4,1) &"° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                        Else
                        Scrivi "Esito degli (n2)....  non verificato"
                        End If
                            ImpostaGiocata 2,n2,ru2,posta,200,2 ' da remmare
                            Gioca es                             ' da remmare
                            ImpostaInterruzioni 1,2,2  ' da remmare
                            ImpostaInterruzioni 2,1,2   ' da remmare

                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto 'da remmare
End Sub

Avanzo un caffè
Claudio

 

[genios]

Grazie Claudio8 .

 

[claudio8]

Prego, Genios... l'importante è che ti ricordi del caffè .

 

[genios]

Per un secondo caffè anche se non so come offrirtelo io sono di Roma eventualmente faccio una spedizione magari caffè in polvere o cialde . Dopo le opportune remmature da te consigliatimi e una aggiunta di una riga scrivi in OUT ho la seguente uscita :

In gioco i numeri (n1) 1-10-11-19-2 su BA
Esito di Ambo al 9° colpo - Ruota e numeri BA .. .. .. 01 10 estraz. del 09.09.1939
In gioco i numeri (n2) 5-50-55-59-1 su BA
Esito di Ambo al 31° colpo - Ruota e numeri BA .. 50 .. .. 01 estraz. del 10.02.1940

In gioco i numeri (n1) 2-20-22-29-4 su NA
Esito di Terno al 52° colpo - Ruota e numeri NA 20 .. 02 .. 04 estraz. del 13.07.1940
In gioco i numeri (n2) 8-80-88-89-7 su BA
Esito di Ambo al 2° colpo - Ruota e numeri BA .. .. 89 80 .. estraz. del 29.07.1939

Ora vorrei che in OUT mi stampasse solo l’ esito minore tra le due formazioni in gioco esempio :

In gioco i numeri (n1) 1-10-11-19-2 su BA In gioco i numeri (n2) 5-50-55-59-1 su BA
Esito di Ambo al 9° colpo - Ruota e numeri BA .. .. .. 01 10 estraz. del 09.09.1939


In gioco i numeri (n1) 2-20-22-29-4 su NA In gioco i numeri (n2) 8-80-88-89-7 su BA
Esito di Ambo al 2° colpo - Ruota e numeri BA .. .. 89 80 .. estraz. del 29.07.1939

Questo lo script remmato

   Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)    posta(2) = 1    Dim r1,r2    Dim matrice(8,5)    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7    fin = EstrazioneFin    ini = 3575    For es = ini To fin       AvanzamentoElab ini,fin,es       For s1 = 1 To 7          For i = 1 To 5             n1(i) = matrice(s1,i)          Next          For s2 = s1 + 1 To 8             For i = 1 To 5                n2(i) = matrice(s2,i)             Next             For r1 = 1 To 10                For r2 = 1 To 10                   ru1(1) = r1                   ru2(1) = r2                   If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then                      Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1)                      If VerificaEsito(n1,ru1,es + 1,2,,,Esito1,Colpi1,Estratti1,IdEstr1) Then                         Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " estraz. del " & DataEstrazione(IdEstr1)                      Else                         Scrivi "Esito degli (n1) ....  non verificato"                      End If                      'ImpostaGiocata 1,n1,ru1,posta,200,2  ' da remmare                      Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2)                      If VerificaEsito(n2,ru2,es + 1,2,,,Esito2,Colpi2,Estratti2,IdEstr2) Then                         Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)                      Else                         Scrivi "Esito degli (n2)....  non verificato"                      End If                      Scrivi                      'ImpostaGiocata 2,n2,ru2,posta,200,2 ' da remmare                      'Gioca es                             ' da remmare                      'ImpostaInterruzioni 1,2,2  ' da remmare                      'ImpostaInterruzioni 2,1,2   ' da remmare                   End If                Next             Next          Next       Next    Next    'ScriviResoconto 'da remmare End Sub

Ciao Eugenio

 

[genios]

ripubblico lo script modificato . non so perche' non ha rispettato la formattazione .

   Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
   posta(2) = 1
   Dim r1,r2
   Dim matrice(8,5)
   matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
   matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
   matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
   matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
   matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
   matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
   matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
   matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
   fin = EstrazioneFin
   ini = 3575
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For s1 = 1 To 7
         For i = 1 To 5
            n1(i) = matrice(s1,i)
         Next
         For s2 = s1 + 1 To 8
            For i = 1 To 5
               n2(i) = matrice(s2,i)
            Next
            For r1 = 1 To 10
               For r2 = 1 To 10
                  ru1(1) = r1
                  ru2(1) = r2
                  If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then
                     Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1)
                     If VerificaEsito(n1,ru1,es + 1,2,,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                        Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " estraz. del " & DataEstrazione(IdEstr1)
                     Else
                        Scrivi "Esito degli (n1) ....  non verificato"
                     End If
                     'ImpostaGiocata 1,n1,ru1,posta,200,2  ' da remmare
                     Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2)
                     If VerificaEsito(n2,ru2,es + 1,2,,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                        Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                     Else
                        Scrivi "Esito degli (n2)....  non verificato"
                     End If
                     Scrivi
                     'ImpostaGiocata 2,n2,ru2,posta,200,2 ' da remmare
                     'Gioca es                             ' da remmare
                     'ImpostaInterruzioni 1,2,2  ' da remmare
                     'ImpostaInterruzioni 2,1,2   ' da remmare
                  End If
               Next
            Next
         Next
      Next
   Next
   'ScriviResoconto 'da remmare
End Sub

 

[claudio8]

Genios, ok adesso lo vedo corretto. Ultimamente sul forum lottoced ci sono delle stranezze, ....post che spariscono,...... aggiornamenti non completi ecc.
Mi scrivi:
> Ora vorrei che in OUT mi stampasse solo l’ esito minore tra le due formazioni in gioco esempio :<
presumo intendi solo l'esito piu immediato, quindi il primo esito... giusto?

 

[claudio8]

Ti anticipo che non è cosa facile con il verificaesito... ti costerà un cappuccino da lasciare pagato per Luigi, che sommato al caffè arrotondiamo a cappuccio e broiche. Sei daccordo?
A presto.....
Ps: se qualcuno vuole anticiparmi, è ben accetto.

 

[claudio8]

Ti allego il vecchio da cui partiamo

Sub Main
    Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
    posta(2) = 1
    Dim r1,r2
    Dim matrice(8,5)
    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
    fin = EstrazioneFin
    ini = 9400 '3575
    caso = 0
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        If ScriptInterrotto Then Exit For
        For s1 = 1 To 7
            For i = 1 To 5
                n1(i) = matrice(s1,i)
            Next
            For s2 = s1 + 1 To 8
                For i = 1 To 5
                    n2(i) = matrice(s2,i)
                Next

                For r1 = 1 To 10
                    For r2 = 1 To 10
                        ru1(1) = r1
                        ru2(1) = r2
                        If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then
                        caso = caso+1
                        Scrivi "----------------------------------------------------------------------------------------------------------- caso n° " & caso
                            Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1) & " da estr del " & DataEstrazione(es),,,,2
                            If VerificaEsito(n1,ru1,es + 1,2,,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                                Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " - estraz. del " & DataEstrazione(IdEstr1)
                            Else
                                Scrivi "Esito degli (n1) ....  non verificato"
                            End If


                            Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2) & " da estr del " & DataEstrazione(es),,,,2
                            If VerificaEsito(n2,ru2,es + 1,2,,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                                Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                            Else
                                Scrivi "Esito degli (n2)....  non verificato"
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next

End Sub

 

[genios]

Ti anticipo che non è cosa facile con il verificaesito... ti costerà un cappuccino da lasciare pagato per Luigi, che sommato al caffè arrotondiamo a cappuccio e broiche. Sei daccordo?

Daccordo vada per cappuccino e brioche. Non sapevo che Luigi fosse di Roma .

Ciao

 

[claudio8]

Vada per cappuccino e brioche.

Sub Main
    Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
    posta(2) = 1
    Dim r1,r2,a,b,Colpi1,Colpi2,Esito1,Esito2
    Dim matrice(8,5)
    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
    fin = EstrazioneFin
    ini = 9400 '3575
    caso = 0
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        If ScriptInterrotto Then Exit For
        For s1 = 1 To 7
            For i = 1 To 5
                n1(i) = matrice(s1,i)
            Next
            For s2 = s1 + 1 To 8
                For i = 1 To 5
                    n2(i) = matrice(s2,i)
                Next
                For r1 = 1 To 10
                    For r2 = 1 To 10
                        ru1(1) = r1
                        ru2(1) = r2
                        If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then
                            caso = caso + 1
                            Scrivi "--------------------------------------------------------------------------------- caso n° " & caso
                            If VerificaEsito(n1,ru1,es + 1,2,fin-es,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                            a = Colpi1
                            Else
                            a = fin
                            End If
                            If VerificaEsito(n2,ru2,es + 1,2,fin-es,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                            b = Colpi2
                            Else    
                            b = fin    
                            End If                    
                            If a < b Then
                                Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " - estraz. del " & DataEstrazione(IdEstr1)
                            ElseIf a > b Then
                                Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                            ElseIf a < Fin - es And b < fin - es And a = b Then
                                Scrivi "Esito allo stesso colpo",,,3
                                Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " - estraz. del " & DataEstrazione(IdEstr1)
                                Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)

                            Else
                                Scrivi "Esito degli (n1) e degli (n2) ....  non ancora verificato"
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
End Sub

Lancia i 2 script e controlla che gli output siano coerenti.
Ciao

 

[genios]

Va bene occorre pero' mettere in out anche la seconda cinquina di cui non si è verificato l' esito .

Esempio :

Uscita tuo ultimo script :

 --------------------------------------------------------------------------------- caso n° 3  
[COLOR=#FF0000]In gioco i numeri (n1) 7-70-77-79-5 su GE da estr del 09.12.2017 [/COLOR]
 Esito di Ambo al   [B][COLOR=#0000FF]32°[/COLOR][/B] colpo - Ruota e numeri GE 79 .. .. 07 .. - estraz. del 22.02.2018

come dovrebbe essere

 --------------------------------------------------------------------------------- caso n° 3  
[COLOR=#FF0000]In gioco i numeri (n1) 7-70-77-79-5 su GE da estr del 09.12.2017  [/COLOR]
 Esito di Ambo al   [COLOR=#0000FF][B]32°[/B] [/COLOR]colpo - Ruota e numeri GE 79 .. .. 07 .. - estraz. del 22.02.2018  
[COLOR=#FF0000]In gioco i numeri (n2) 8-80-88-89-7 su VE da estr del 09.12.2017[/COLOR]  
 Esito non verificato

Si potrebbe evidenziare in blu il numero del colpo ?

Ciao Eugenio

 

[claudio8]

Eugenio, perche chiedi le cose una alla volta?
prima volevi che si leggesse solo la prima uscita, adesso (spero di aver interpretati il tuo desiderio bene) che si legga anche l'altra, se non ha dato l'esito.... e non si legga se ha dato l'esito ( giusto?).
Mi fai fare modifiche che devono essere riviste portando via tempo che vale "oro" .... altro che un caffè ... ( guarda che ti faccio arrivare un pulman da 60 persone a prendere il caffè ) ... vai piano con le richieste.....
Fatti il punto delle richieste elencandole tutte una volta per tutte e poi vediamo se sono fattibili... ti preventivo la quantità di arrivi e definiamo...... sia chiaro che quello per Luigi è già definito.

ciao.

 

[genios]

Ok cappuccino e brioche per tutta la comitiva .

Si si deve leggere anche l' altra che non ha dato l' esito .

Ciao Eugenio