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ì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto