Aiuto script per Salvo.LA GIUSTA DISTANZA SI TROVA CON DIAMETRALE RIPETUTO.

[Juri]

Ciao a tutti.

In allegato le spiegazioni.

Va bene nello script l'ambata e la cinquina per ambo.Mi sono spiegato bene?



Il 13 nov su ca 56 e su pa 11-16 uniti e ruote diam.Ambata 67 con 51.Per ambo 67-51-56-11-16.Al 7° c 16-56 ca.

Il 22 nov su naz uniti 48-43 e su ca 88.Ambata 41 con 83.(Pres 88 ca base).Per ambo 41-88-83-43-48.Al 4° c ambetto 42-83 ba.


Grazie mille.

Buone vincite.

 

[salvo50]

Ciao a Tutti.

'PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina con distanza 45
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,D,Clp3
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim Dac,Dbc,Sac,Sbc,AA,BB,Clp2,S1,S2
   Dim Ambata(1),Ambo(2),Num(5)
   Dim Ruote(2),Posta(1),Poste(5),Post(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9419)'9419 primo esempio nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,8)
   Clp3 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,8)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Posta(1) = 1
   Post(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   ' Poste(4) = 1
   ' Poste(5) = 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 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If A = DiametraleD(B) Then
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R2 <> R1 Then
                        For P3 = 1 To 5
                           If P1 = P3 Or P2 = P3 Then
                              C = Estratto(Es,R2,P3)
                              Dac = Distanza(A,C) : Dbc = Distanza(B,C)
                              If Dac = 45 Or Dbc = 45 Then
                                 Sac = Fuori90(A + C) : Sbc = Fuori90(B + C)
                                 If Dac = 45 Then
                                    AA = Sac
                                    BB = Fuori90(90 +(AA - B))
                                    S1 = Format2(A) & " + " & Format2(C) & " = " & Format2(AA) & "  Ambata      Principale"
                                    S2 = Format2(AA) & " - " & Format2(B) & " = " & Format2(BB) & "  Abbinamento Principale"
                                 Else
                                    AA = Sbc
                                    BB = Fuori90(90 +(AA - A))
                                    S1 = Format2(B) & " + " & Format2(C) & " = " & Format2(AA) & "  Ambata      Principale"
                                    S2 = Format2(AA) & " - " & Format2(A) & " = " & Format2(BB) & "  Abbinamento Principale"
                                 End If
                                 '
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P = 1 To 5
                                    E1 = Estratto(Es,R1,P)
                                    If E1 = A Or E1 = B 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 PP = 1 To 5
                                    E2 = Estratto(Es,R2,PP)
                                    If E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(15) &(S1),1
                                 Scrivi Space(15) &(S2),1
                                 Scrivi
                                 Ambata(1) = AA
                                 Ruote(1) = R1 : Ruote(2) = R2
                                 ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                                 Ambo(1) = AA : Ambo(2) = BB
                                 ImpostaGiocata 2,Ambo,Ruote,Post,Clp2
                                 Num(1) = AA : Num(2) = BB : Num(3) = A
                                 Num(4) = B : Num(5) = C
                                 EliminaRipetuti Num
                                 ImpostaGiocata 3,Num,Ruote,Poste,Clp3
                                 Gioca Es
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Juri]

Grazie mille.

Si puo' fare anche ad 1 ruota?Va bene lo stesso script o 2.Fa te.

 

[salvo50]

Una ruota

'PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina con distanza 45 - versione 2 una ruota
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,D,Clp3
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim Dac,Dbc,Dab,Sac,Sbc,Sab,AA,BB,Clp2,S1,S2
   Dim Ambata(1),Ambo(2),Num(5)
   Dim Ruote(1),Posta(1),Poste(5),Post(2)
   FIn = EstrazioneFin
  TestoInBandaPassante "***** Progetto,Ambo Diametrale in Decina con distanza 45 - versione 2 una ruota  script by Salvo50 ****** ",1,3,2

   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,8)
   Clp3 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,8)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Scrivi
   Posta(1) = 1
   Post(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   ' Poste(4) = 1
   ' Poste(5) = 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 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If A = DiametraleD(B) Or A = DiametraleD(C)Or B = DiametraleD(C) Then
                     Dac = Distanza(A,C) : Dbc = Distanza(B,C) : Dab = Distanza(A,B)
                     If Dac = 45 Or Dbc = 45 Or Dab = 45 Then
                        Sac = Fuori90(A + C) : Sbc = Fuori90(B + C) : Sab = Fuori90(A + B)
                        If Dac = 45 Then
                           AA = Sac
                           BB = Fuori90(90 +(AA - B))
                           S1 = Format2(A) & " + " & Format2(C) & " = " & Format2(AA) & "  Ambata      Principale"
                           S2 = Format2(AA) & " - " & Format2(B) & " = " & Format2(BB) & "  Abbinamento Principale"
                        End If
                        If Dbc = 45 Then
                           AA = Sbc
                           BB = Fuori90(90 +(AA - A))
                           S1 = Format2(B) & " + " & Format2(C) & " = " & Format2(AA) & "  Ambata      Principale"
                           S2 = Format2(AA) & " - " & Format2(A) & " = " & Format2(BB) & "  Abbinamento Principale"
                        End If
                        If Dab = 45 Then
                           AA = Sab
                           BB = Fuori90(90 +(AA - C))
                           S1 = Format2(A) & " + " & Format2(B) & " = " & Format2(AA) & "  Ambata      Principale"
                           S2 = Format2(AA) & " - " & Format2(C) & " = " & Format2(BB) & "  Abbinamento Principale"
                        End If
                        '
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 2
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 1
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E1 = Estratto(Es,R1,P)
                           If E1 = A Or E1 = B Or E1 = C Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi Space(15) &(S1),1
                        Scrivi Space(15) &(S2),1
                        Scrivi
                        Ambata(1) = AA
                        Ruote(1) = R1
                        ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                        Ambo(1) = AA : Ambo(2) = BB
                        ImpostaGiocata 2,Ambo,Ruote,Post,Clp2
                        Num(1) = AA : Num(2) = BB : Num(3) = A
                        Num(4) = B : Num(5) = C
                        EliminaRipetuti Num
                        ImpostaGiocata 3,Num,Ruote,Poste,Clp3
                        Gioca Es
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Juri]

Con una ruota va fatto in 2 estrazioni consecutive non solo una.Almeno 1 numero isotopo ci vuole.Poi vediamo anche se non è isotopo.

Grazie.

 

[salvo50]

Una ruota su 2 estrazioni consecutive

'PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina con distanza 45  - una ruota - 3 estrazioni consecutive
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,Clp3
   Dim R1,Caso,Casi,P1,P2,P3,P,PP,E1,E2
   Dim Dac,Dbc,Sac,Sbc,AA,BB,Clp2,S1,S2
   Dim Ambata(1),Ambo(2),Num(5)
   Dim Ruote(2),Posta(1),Poste(5),Post(2)
   TestoInBandaPassante "Progetto,Ambo Diametrale in Decina con distanza 45 - una ruota - 2 estrazioni consecutive script by Salvo50 ",1,3,2
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,8)
   Clp3 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,8)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Posta(1) = 1
   Post(2) = 1
   Poste(2) = 1
   'Poste(3) = 1
   ' Poste(4) = 1
   ' Poste(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If A = DiametraleD(B) Then
                  For P3 = 1 To 5
                     If P1 = P3 Or P2 = P3 Then
                        C = Estratto(Es + 1,R1,P3)
                        Dac = Distanza(A,C) : Dbc = Distanza(B,C)
                        If Dac = 45 Or Dbc = 45 Then
                           Sac = Fuori90(A + C) : Sbc = Fuori90(B + C)
                           If Dac = 45 Then
                              AA = Sac
                              BB = Fuori90(90 +(AA - B))
                              S1 = Format2(A) & " + " & Format2(C) & " = " & Format2(AA) & "  Ambata      Principale"
                              S2 = Format2(AA) & " - " & Format2(B) & " = " & Format2(BB) & "  Abbinamento Principale"
                           Else
                              AA = Sbc
                              BB = Fuori90(90 +(AA - A))
                              S1 = Format2(B) & " + " & Format2(C) & " = " & Format2(AA) & "  Ambata      Principale"
                              S2 = Format2(AA) & " - " & Format2(A) & " = " & Format2(BB) & "  Abbinamento Principale"
                           End If
                           '
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 2
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P = 1 To 5
                              E1 = Estratto(Es,R1,P)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For PP = 1 To 5
                              E2 = Estratto(Es + 1,R1,PP)
                              If E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(15) &(S1),1
                           Scrivi Space(15) &(S2),1
                           Scrivi
                           Ambata(1) = AA
                           Ruote(1) = R1  
                           ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                           Ambo(1) = AA : Ambo(2) = BB
                           ImpostaGiocata 2,Ambo,Ruote,Post,Clp2
                           Num(1) = AA : Num(2) = BB : Num(3) = A
                           Num(4) = B : Num(5) = C
                           EliminaRipetuti Num
                           ImpostaGiocata 3,Num,Ruote,Poste,Clp3
                           Gioca Es
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub