annuncio

Comprimi
Ancora nessun annuncio.

Aiuto script per Salvo.Ambo distanza 30 e numero ripetuto stessa posizione.

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Aiuto script per Salvo.Ambo distanza 30 e numero ripetuto stessa posizione.

    Ciao a tutti.

    Vorrei,per piacere,uno script con queste caratteristiche sotto.Ambo 4-64 distanza 30 e 46 numero ripetuto.Ambata 34 n mancante con 16 e 76 distanza 30 del numero ripetuto.

    Le ruote vanno ben anche non unite.Se sono uniti o isotopi va bene.Poi anche solo uniti ma da vedere.

    Grazie mille.

    Buona domenica.
    Cagliari 32 14 4 46 54
    Firenze 84 65 64 46 74

  • #2
    Ciao Salvo,hai visto anche questo per caso?

    Grazie.

    Commenta


    • #3
      Visto
      Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

      (B. Castiglione, - Il cortegiano)

      Commenta


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

        Grazie mille.

        Commenta


        • #5
          Non riesco a farlo col numero ripetuto stessa posizione
          Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

          (B. Castiglione, - Il cortegiano)

          Commenta


          • #6
            C' bisogno di aiuto?Qualcuno del forum?

            Ti viene con il numero ripetuto non nella stessa posizione che vedo se va?

            Grazie mille.

            Commenta


            • #7
              In data 27 11 ha dato su ca due ambetti 34 con 15 77
              C i a o

              Commenta


              • #8
                Originariamente inviato da Juri Visualizza il messaggio
                C' bisogno di aiuto?Qualcuno del forum?

                Ti viene con il numero ripetuto non nella stessa posizione che vedo se va?

                Grazie mille.
                Si, allora lo finisco, perch l'avevo abbandonato

                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • #9
                  Con una sola ruota non si pu fare, perch c' il numero ripetuto, se si vuole che almeno un estratto sia isotopo togliere la spunta a questa riga:

                  'If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then

                  e al relativo END-IF

                  codice:
                  'Chiesto da Juri
                  'Script by Salvo50
                  Option Explicit
                  Sub Main()
                     Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50
                     Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca
                     Dim Dac,Dad,Dbc,Dbd,M1,M2,M3,S1,S2,MM1,MM2
                     Dim Som1,Som2,Caso,Casi,Clp1,Clp2
                     Dim Ruote(2),Posta(2),Num(3)
                     Fin = EstrazioneFin
                     Posta(1) = 1
                     Posta(2) = 1
                     Clp1 = InputBox("Per quanti colpi vuoi giocare la terzina?",Salvo50,8)
                     Ini = InputBox("Da qual' estrazione vuoi iniziare?",,9550)
                     Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
                     For Es = Ini To Fin
                        Caso = 0
                        Messaggio Es
                        AvanzamentoElab Ini,Fin,Es
                        For R1 = 1 To 10
                           For P1 = 1 To 4
                              For P2 = P1 + 1 To 5
                                 For R2 = R1 + 1 To 12
                                    If R2 = 11 Then R2 = 12
                                    For P3 = 1 To 4
                                       For P4 = P3 + 1 To 5
                                          If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then
                                          A = Estratto(Es,R1,P1)
                                          B = Estratto(Es,R1,P2)
                                          C = Estratto(Es,R2,P3)
                                          D = Estratto(Es,R2,P4)
                                          Dac = Differenza(A,C) : Dad = Differenza(A,D) : Dbc = Differenza(B,C) : Dbd = Differenza(B,D)
                                          If((Dac = 30 Or Dac = 60)And B = D)Or((Dad = 30 Or Dad = 60)And B = C) _
                                             Or((Dbc = 30 Or Dbc = 60)And A = D)Or((Dbd = 30 Or Dbd = 60)And A = C) Then
                                             If(Dac = 30 Or Dac = 60) And B = D Then
                                                If A > C And(A - C) = 60 Then Manca = Fuori90(A - 30)
                                                If A > C And(A - C) = 30 Then Manca = Fuori90(A + 30)
                                                If C > A And(C - A) = 60 Then Manca = Fuori90(C - 30)
                                                If C > A And(C - A) = 30 Then Manca = Fuori90(C + 30)
                                                Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                                                S1 = Space(8) & Format2(A) & Space(2) & Format2(C)
                                                S2 = Space(8) & Format2(B) & Space(2) & Format2(D)
                                             End If
                                             '
                                             If(Dad = 30 Or Dad = 60) And B = C Then
                                                If A > D And(A - D) = 60 Then Manca = Fuori90(A - 30)
                                                If A > D And(A - D) = 30 Then Manca = Fuori90(A + 30)
                                                If D > A And(D - A) = 60 Then Manca = Fuori90(D - 30)
                                                If D > A And(D - A) = 30 Then Manca = Fuori90(D + 30)
                                                Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                                                S1 = Space(8) & Format2(A) & Space(2) & Format2(D)
                                                S2 = Space(8) & Format2(B) & Space(2) & Format2(C)
                                             End If
                                             If(Dbc = 30 Or Dbc = 60) And A = D Then
                                                If B > C And(B - C) = 60 Then Manca = Fuori90(B - 30)
                                                If B > C And(B - C) = 30 Then Manca = Fuori90(B + 30)
                                                If C > B And(C - B) = 60 Then Manca = Fuori90(C - 30)
                                                If C > B And(C - B) = 30 Then Manca = Fuori90(C + 30)
                                                Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                                                S1 = Space(8) & Format2(B) & Space(2) & Format2(C)
                                                S2 = Space(8) & Format2(A) & Space(2) & Format2(D)
                                             End If
                                             If(Dbd = 30 Or Dbd = 60)And A = C Then
                                                If B > D And(B - D) = 60 Then Manca = Fuori90(B - 30)
                                                If B > D And(B - D) = 30 Then Manca = Fuori90(B + 30)
                                                If D > B And(D - B) = 60 Then Manca = Fuori90(D - 30)
                                                If D > B And(D - B) = 30 Then Manca = Fuori90(D + 30)
                                                Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                                                S1 = Space(8) & Format2(B) & Space(2) & Format2(D)
                                                S2 = Space(8) & Format2(A) & Space(2) & Format2(C)
                                             End If
                                             Scrivi
                                             Caso = Caso + 1
                                             Casi = Casi + 1
                                             ColoreTesto 1
                                             Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                             ColoreTesto 2
                                             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 P5 = 1 To 5
                                                E1 = Estratto(Es,R1,P5)
                                                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 P6 = 1 To 5
                                                E2 = Estratto(Es,R2,P6)
                                                If E2 = C Or E2 = D Then
                                                   ColoreTesto 2
                                                Else
                                                   ColoreTesto 0
                                                End If
                                                Scrivi Format2(E2) & " ",1,0
                                                ColoreTesto 0
                                             Next
                                             Scrivi
                                             Scrivi
                                             Scrivi "   Estratti con Distanza 30 o 60   " &(S1),1
                                             Scrivi "   Estratti con numeri uguali      " &(S2),1
                                             Scrivi
                                             Scrivi "   Numeri Mancanti per completare le terzine Simmetriche",1,0
                                             Scrivi Space(5) & Format2(Manca) & " " & Format2(MM1) & " " & Format2(MM2)
                                             Num(1) = Manca : Num(2) = MM1 : Num(3) = MM2
                                             Ruote(1) = R1
                                             Ruote(2) = R2
                                             ImpostaGiocata 1,Num,Ruote,Posta,Clp1
                                             Gioca Es
                                             End If
                                          End If
                                       Next
                                    Next
                                 Next
                              Next
                           Next
                        Next
                        If ScriptInterrotto Then Exit Sub
                     Next
                     ScriviResoconto
                  End Sub
                  Function Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                     If B < 31 Then M1 = B : M2 = B + 30 : M3 = B + 60 : MM1 = M2 : MM2 = M3
                     If B > 30 And B < 61 Then M1 = B - 30 : M2 = B : M3 = B + 30 : MM1 = M1 : MM2 = M3
                     If B > 60 Then M1 = B - 60 : M2 = B - 30 : M3 = B : MM1 = M1 : MM2 = M2
                  End Function
                  Function Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                     If A < 31 Then M1 = A : M2 = A + 30 : M3 = A + 60 : MM1 = M2 : MM2 = M3
                     If A > 30 And A < 61 Then M1 = A - 30 : M2 = A : M3 = A + 30 : MM1 = M1 : MM2 = M3
                     If A > 60 Then M1 = A - 60 : M2 = A - 30 : M3 = A : MM1 = M1 : MM2 = M2
                  End Function

                  Ultima modifica di salvo50; 06-12-2018, 20:05.
                  Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                  (B. Castiglione, - Il cortegiano)

                  Commenta


                  • #10
                    Grazie mille.

                    Quando controllo vedo che succede.

                    Commenta


                    • #11
                      Originariamente inviato da salvo50 Visualizza il messaggio
                      Con una sola ruota non si pu fare, perch c' il numero ripetuto, se si vuole che almeno un estratto sia isotopo togliere la spunta a questa riga:

                      'If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then

                      e al relativo END-IF

                      codice:
                      'Chiesto da Juri
                      'Script by Salvo50
                      Option Explicit
                      Sub Main()
                      Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50
                      Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca
                      Dim Dac,Dad,Dbc,Dbd,M1,M2,M3,S1,S2,MM1,MM2
                      Dim Som1,Som2,Caso,Casi,Clp1,Clp2
                      Dim Ruote(2),Posta(2),Num(3)
                      Fin = EstrazioneFin
                      Posta(1) = 1
                      Posta(2) = 1
                      Clp1 = InputBox("Per quanti colpi vuoi giocare la terzina?",Salvo50,8)
                      Ini = InputBox("Da qual' estrazione vuoi iniziare?",,9550)
                      Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
                      For Es = Ini To Fin
                      Caso = 0
                      Messaggio Es
                      AvanzamentoElab Ini,Fin,Es
                      For R1 = 1 To 10
                      For P1 = 1 To 4
                      For P2 = P1 + 1 To 5
                      For R2 = R1 + 1 To 12
                      If R2 = 11 Then R2 = 12
                      For P3 = 1 To 4
                      For P4 = P3 + 1 To 5
                      'If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then
                      A = Estratto(Es,R1,P1)
                      B = Estratto(Es,R1,P2)
                      C = Estratto(Es,R2,P3)
                      D = Estratto(Es,R2,P4)
                      Dac = Differenza(A,C) : Dad = Differenza(A,D) : Dbc = Differenza(B,C) : Dbd = Differenza(B,D)
                      If((Dac = 30 Or Dac = 60)And B = D)Or((Dad = 30 Or Dad = 60)And B = C) _
                      Or((Dbc = 30 Or Dbc = 60)And A = D)Or((Dbd = 30 Or Dbd = 60)And A = C) Then
                      If(Dac = 30 Or Dac = 60) And B = D Then
                      If A > C And(A - C) = 60 Then Manca = Fuori90(A - 30)
                      If A > C And(A - C) = 30 Then Manca = Fuori90(A + 30)
                      If C > A And(C - A) = 60 Then Manca = Fuori90(C - 30)
                      If C > A And(C - A) = 30 Then Manca = Fuori90(C + 30)
                      Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                      S1 = Space(8) & Format2(A) & Space(2) & Format2(C)
                      S2 = Space(8) & Format2(B) & Space(2) & Format2(D)
                      End If
                      '
                      If(Dad = 30 Or Dad = 60) And B = C Then
                      If A > D And(A - D) = 60 Then Manca = Fuori90(A - 30)
                      If A > D And(A - D) = 30 Then Manca = Fuori90(A + 30)
                      If D > A And(D - A) = 60 Then Manca = Fuori90(D - 30)
                      If D > A And(D - A) = 30 Then Manca = Fuori90(D + 30)
                      Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                      S1 = Space(8) & Format2(A) & Space(2) & Format2(D)
                      S2 = Space(8) & Format2(B) & Space(2) & Format2(C)
                      End If
                      If(Dbc = 30 Or Dbc = 60) And A = D Then
                      If B > C And(B - C) = 60 Then Manca = Fuori90(B - 30)
                      If B > C And(B - C) = 30 Then Manca = Fuori90(B + 30)
                      If C > B And(C - B) = 60 Then Manca = Fuori90(C - 30)
                      If C > B And(C - B) = 30 Then Manca = Fuori90(C + 30)
                      Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                      S1 = Space(8) & Format2(B) & Space(2) & Format2(C)
                      S2 = Space(8) & Format2(A) & Space(2) & Format2(D)
                      End If
                      If(Dbd = 30 Or Dbd = 60)And A = C Then
                      If B > D And(B - D) = 60 Then Manca = Fuori90(B - 30)
                      If B > D And(B - D) = 30 Then Manca = Fuori90(B + 30)
                      If D > B And(D - B) = 60 Then Manca = Fuori90(D - 30)
                      If D > B And(D - B) = 30 Then Manca = Fuori90(D + 30)
                      Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                      S1 = Space(8) & Format2(B) & Space(2) & Format2(D)
                      S2 = Space(8) & Format2(A) & Space(2) & Format2(C)
                      End If
                      Scrivi
                      Caso = Caso + 1
                      Casi = Casi + 1
                      ColoreTesto 1
                      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                      ColoreTesto 2
                      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 P5 = 1 To 5
                      E1 = Estratto(Es,R1,P5)
                      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 P6 = 1 To 5
                      E2 = Estratto(Es,R2,P6)
                      If E2 = C Or E2 = D Then
                      ColoreTesto 2
                      Else
                      ColoreTesto 0
                      End If
                      Scrivi Format2(E2) & " ",1,0
                      ColoreTesto 0
                      Next
                      Scrivi
                      Scrivi
                      Scrivi " Estratti con Distanza 30 o 60 " &(S1),1
                      Scrivi " Estratti con numeri uguali " &(S2),1
                      Scrivi
                      Scrivi " Numeri Mancanti per completare le terzine Simmetriche",1,0
                      Scrivi Space(5) & Format2(Manca) & " " & Format2(MM1) & " " & Format2(MM2)
                      Num(1) = Manca : Num(2) = MM1 : Num(3) = MM2
                      Ruote(1) = R1
                      Ruote(2) = R2
                      ImpostaGiocata 1,Num,Ruote,Posta,Clp1
                      Gioca Es
                      'End If
                      End If
                      Next
                      Next
                      Next
                      Next
                      Next
                      Next
                      If ScriptInterrotto Then Exit Sub
                      Next
                      ScriviResoconto
                      End Sub
                      Function Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                      If B < 31 Then M1 = B : M2 = B + 30 : M3 = B + 60 : MM1 = M2 : MM2 = M3
                      If B > 30 And B < 61 Then M1 = B - 30 : M2 = B : M3 = B + 30 : MM1 = M1 : MM2 = M3
                      If B > 60 Then M1 = B - 60 : M2 = B - 30 : M3 = B : MM1 = M1 : MM2 = M2
                      End Function
                      Function Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                      If A < 31 Then M1 = A : M2 = A + 30 : M3 = A + 60 : MM1 = M2 : MM2 = M3
                      If A > 30 And A < 61 Then M1 = A - 30 : M2 = A : M3 = A + 30 : MM1 = M1 : MM2 = M3
                      If A > 60 Then M1 = A - 60 : M2 = A - 30 : M3 = A : MM1 = M1 : MM2 = M2
                      End Function


                      Per togliere la spunta dici all'inizio quando mi chiedo cosa fare o devo tirarlo via nello script?Tiro via la prima riga che dici o 2?

                      grazie.

                      Commenta


                      • #12
                        Dentro lo script, comunque riprendilo di nuovo, la spunta l'ho tolta io
                        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                        (B. Castiglione, - Il cortegiano)

                        Commenta


                        • #13
                          Caro Salvo complimenti, sempre pi bravo nell'eseguire questi ottimi lavori.
                          rodolfo

                          Commenta


                          • #14
                            Grazie Rudivall, Buone Feste
                            Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                            (B. Castiglione, - Il cortegiano)

                            Commenta


                            • #15
                              Carissimo grazie, anche per te e famiglia buone e serene feste.
                              rodolfo

                              Commenta

                              Unconfigured Ad Widget

                              Comprimi

                              Ultima estrazione del lotto

                              Comprimi

                              Estrazione del lotto
                              marted 21 maggio 2019
                              Bari
                              41
                              02
                              80
                              51
                              56
                              Cagliari
                              69
                              23
                              49
                              40
                              33
                              Firenze
                              19
                              12
                              70
                              62
                              33
                              Genova
                              19
                              48
                              28
                              14
                              41
                              Milano
                              43
                              11
                              27
                              63
                              81
                              Napoli
                              68
                              44
                              53
                              72
                              43
                              Palermo
                              55
                              19
                              43
                              67
                              78
                              Roma
                              84
                              57
                              82
                              17
                              68
                              Torino
                              54
                              04
                              50
                              20
                              71
                              Venezia
                              58
                              04
                              54
                              85
                              80
                              Nazionale
                              45
                              69
                              84
                              66
                              49
                              Sto operando...
                              X