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
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto