Chi riesce a modificarmi questo script?

[Juri]

Grazie mille.

Ad una ruota non mi va.Reinstallo tutto?Ho l'ultima versione.Fa come la 26.

Se metto distanza 0 non esce niente.

Buon weekend a tutti.

 

[claudio8]

Grazie mille.

Ad una ruota non mi va.Reinstallo tutto?Ho l'ultima versione.Fa come la 26.

Se metto distanza 0 non esce niente.

Buon weekend a tutti.

- Ad una ruota non mi va non capisco a cosa ti riferisci e lascio a Salvo la eventuale risposta.
- A me, vers.1.6.31 con distanza 30 gira perfettamente trovando 132casi (finarangeSPTM= es 9564
- distanza zero
la funzione distanza dall'help:
Distanza
Function Distanza(a, b) As Integer
Descrizione
Calcola la distanza ciclometrica tra 2 numeri
Note
Valore di ritorno
Torna la distanza ciclometrica tra 2 numeri
Parametri [TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD="align: center"] [/TD]
[TD="align: center"]Primo numero[/TD]
[/TR]
[TR]
[TD="align: center"]b[/TD]
[TD="align: center"]Secondo numero[/TD]
[/TR]
[/TABLE]
bene.... quindi dovresti cambiare la tua specifica da 0 a 90 e vedrai che perlomeno trova i casi ..., per trovare i numeri dovrei studiare lo script ma non lo farò lascio che sia Salvo a modificarlo.

 

[salvo50]

Grazie mille.

Ad una ruota non mi va.Reinstallo tutto?Ho l'ultima versione.Fa come la 26.

Se metto distanza 0 non esce niente.

Buon weekend a tutti.

Ciao a Tutti.

Ma se metti distanza zero è come cercare gli stessi numeri, a meno che ti sei confuso e volevi dire ritardo zero, in questo caso non trova il ritardo Zero perchè non è stato previsto, questo è uno script di Damper, mi correggo era uno script di Damper, chissà quante volte è stato modificato, ormai penso che dello script di Damper sia rimasta solo la firma, quindi vado a intuizione credo che non è stato previsto perchè se non deve cercare nessun ritardo, cioè la seconda ruota la deve cercare nella stessa estrazione della prima ruota, impostare tutte le righe per cercare il ritardo sia inutile anche perchè rende lo script molto lento, comunque l'ho modificato ed ho aggiunto anche la ricerca del ritardo zero

Option Explicit
Sub Main()
   Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2
   Dim P1,P2,A,B,C,D,Sf,Cont,Manca1,Manca2,Clp
   Dim N1(2),N2(2),Ruote(2),Posta(2),Ruota(1)
   Dim Tot(6),Ru(1),Num(2),Poste(2)
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","?damper?",80))
   If Quante = False Then Exit Sub
   Dist = 30 'CInt(InputBox("Quale Distanza",,30))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,1)
   Clp = CInt(InputBox("QUANTI COLPI VUOI GIOCARE?",,10))
   Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale o Verticale od Orizontale = " & Dist,1,,,,3,,1
   Scrivi
   Ini = EstrazioneFin - Quante
   Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio "[" & Es & "]ª"
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For Ex = Es - Rit To Es
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     C = Estratto(Ex,R2,P1)
                     D = Estratto(Ex,R2,P2)
                     If(Distanza(A,D) = Dist And Distanza(B,C) = Dist) Xor(Distanza(A,C) = Dist And Distanza(B,D) = Dist)_
                        Xor(Distanza(A,B) = Dist And Distanza(C,D) = Dist) Then
                        N1(1) = A
                        N1(2) = B
                        N2(1) = C
                        N2(2) = D
                        Ru(1) = R2
                        Sf = SerieRitardo(Ini,Es,N2,Ru,2)
                        If Sf <= Rit Then
                           Cont = Cont + 1 : Scrivi
                           ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & Cont,1 : ColoreTesto 0 : Scrivi
                           Scrivi GetInfoEstrazione(Es) & vbTab & SiglaRuota(R1) & vbTab & StringaEstratti(Es,R1),1,0
                           Scrivi Space(10) & StringaNumeri(N1,,1) & vbTab & "(" & P1 & "-" & P2 & ")",1
                           Scrivi Space(74) & "         Distanza    ",1,0
                           ColoreTesto 2 : Scrivi Dist,1 : ColoreTesto 0
                           Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R2) & vbTab & StringaEstratti(Ex,R2),1,0
                           Scrivi Space(10) & StringaNumeri(N2,,1) & vbTab & "(" & P1 & "-" & P2 & ")" & vbTab & Sf,1
                           If Distanza(A,B) = Dist And Distanza(C,D) = Dist Then
                              If A > B And(A - B) = 60 Then Manca1 = Fuori90(A - Dist)
                              If A > B And(A - B) = 30 Then Manca1 = Fuori90(A + Dist)
                              If B > A And(B - A) = 60 Then Manca1 = Fuori90(B - Dist)
                              If B > A And(B - A) = 30 Then Manca1 = Fuori90(B + Dist)
                              If C > D And(C - D) = 60 Then Manca2 = Fuori90(C - Dist)
                              If C > D And(C - D) = 30 Then Manca2 = Fuori90(C + Dist)
                              If D > C And(D - C) = 60 Then Manca2 = Fuori90(D - Dist)
                              If D > C And(D - C) = 30 Then Manca2 = Fuori90(D + Dist)
                           End If
                           If Distanza(A,C) = Dist And Distanza(B,D) Then
                              If A > C And(A - C) = 60 Then Manca1 = Fuori90(A - Dist)
                              If A > C And(A - C) = 30 Then Manca1 = Fuori90(A + Dist)
                              If C > A And(C - A) = 60 Then Manca1 = Fuori90(C - Dist)
                              If C > A And(C - A) = 30 Then Manca1 = Fuori90(C + Dist)
                              If B > D And(B - D) = 60 Then Manca2 = Fuori90(B - Dist)
                              If B > D And(B - D) = 30 Then Manca2 = Fuori90(B + Dist)
                              If D > B And(D - B) = 60 Then Manca2 = Fuori90(D - Dist)
                              If D > B And(D - B) = 30 Then Manca2 = Fuori90(D + Dist)
                           End If
                           If Distanza(A,D) = Dist And Distanza(B,C) = Dist Then
                              If A > D And(A - D) = 60 Then Manca1 = Fuori90(A - Dist)
                              If A > D And(A - D) = 30 Then Manca1 = Fuori90(A + Dist)
                              If D > A And(D - A) = 60 Then Manca1 = Fuori90(D - Dist)
                              If D > A And(D - A) = 30 Then Manca1 = Fuori90(D + Dist)
                              If C > B And(C - B) = 60 Then Manca2 = Fuori90(C - Dist)
                              If C > B And(C - B) = 30 Then Manca2 = Fuori90(C + Dist)
                              If B > C And(B - C) = 60 Then Manca2 = Fuori90(B - Dist)
                              If B > C And(B - C) = 30 Then Manca2 = Fuori90(B + Dist)
                           End If
                           Scrivi
                           Scrivi Space(20) & " Mancano i numeri ",1,0
                           ColoreTesto 2 : Scrivi Format2(Manca1) & " e " & Format2(Manca2),1,0 : ColoreTesto 0
                           Scrivi " per chiudere le due terzine",1
                           Scrivi
                           Tot(1) = A
                           Tot(2) = B
                           Tot(3) = C
                           Tot(4) = D
                           Tot(5) = Manca1
                           Tot(6) = Manca2
                           DisegnaCerchioCiclometrico Tot,1,,,,1
                           Ruote(1) = R1
                           Ruote(2) = R2
                           Ruota(1) = TU_
                           Num(1) = Manca1 : Num(2) = Manca2
                           ImpostaGiocata 1,Num,Ruote,Posta,Clp
                           ImpostaGiocata 2,Num,Ruota,Poste,Clp
                           Gioca Es
                           Scrivi String(105,"=")
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Juri]

Distanza 1 va Salvo.Si vede che lo script vecchio aveva problemi.Intendo stessa estrazione per 0 infatti vanno tutte.Prima le saltava.

Grazie mille.

 

[salvo50]

Ciao Juri, confondi distanza con ritardo, se prendi lo script del post 40 e metti ritardo 0, nell'output non c'è nessuna estrazione, (io l'ho provato dall'estrazione numero 1), perchè chi aveva fatto lo script o chi l'aveva modificato prima di me non l'aveva previsto, adesso nell'ultimo script del post 43, ho inserito su tua richiesta anche la ricerca con ritardo zero.