Novità

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

Juri

Super Member >GOLD<
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.
 

Allegati

  • LA GIUSTA DISTANZA SI TROVA CON DIAMETRALE RIPETUTO.jpg
    LA GIUSTA DISTANZA SI TROVA CON DIAMETRALE RIPETUTO.jpg
    69,3 KB · Visite: 1
  • LA GIUSTA DISTANZA SI TROVA CON DIAMETRALE RIPETUTO 2.jpg
    LA GIUSTA DISTANZA SI TROVA CON DIAMETRALE RIPETUTO 2.jpg
    70,6 KB · Visite: 1

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Codice:
'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
 

salvo50

Advanced Member >PLATINUM PLUS<
Una ruota

Codice:
'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

Super Member >GOLD<
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

Advanced Member >PLATINUM PLUS<
Una ruota su 2 estrazioni consecutive


Codice:
'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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto