Novità

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

J

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
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
 
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
 
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.
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 aprile 2026
    Bari
    68
    50
    33
    31
    23
    Cagliari
    47
    80
    44
    24
    13
    Firenze
    62
    05
    49
    26
    47
    Genova
    22
    34
    29
    35
    86
    Milano
    33
    45
    55
    78
    27
    Napoli
    58
    36
    88
    47
    46
    Palermo
    21
    59
    73
    72
    46
    Roma
    40
    59
    74
    02
    32
    Torino
    64
    70
    36
    73
    13
    Venezia
    77
    64
    06
    84
    69
    Nazionale
    01
    14
    24
    04
    56
    Estrazione Simbolotto
    Genova
    05
    45
    04
    44
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto