X SALVO50

[chicco3]

Ciao Salvo è possibile fare uno script trovare 3 numeri in isotopia la cui somma totale fa 90 come da allegato. Solo a scopo di ricerca grazie un saluto Raf

 

[salvo50]

Ciao Chicco3

Option Explicit
Sub Main
   Dim Fin,Ini,P1,P2,P3,PP1,PP2,E1,E2
   Dim R1,R2,Es,A,B,C,Caso,Casi
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10000)
   Scrivi " Due ruote, Tre estratti con somma 90 con uno isotopo (Chicco3) - 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
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 12
               If R2 = 11 Then R2 = 12
               For P2 = 1 To 4
                  For P3 = P2 + 1 To 5
                     If P1 = P2 Or P1 = P3 Then
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If(A <> B And A <> C) And(A + B + C = 90) Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           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 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           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 = B Or E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
    
End Sub

 

[chicco3]

Grazie salvo è perfetto sei sempre un grande un abbraccio chicco.

 

[salvo50]

Ciao a Tutti

Cinzia27, ILegend, Rudivall, Toon, Chicco3
GRAZIE