Chi riesce a modificarmi questo script?
- Creatore Discussione Juri
- Data di inizio
- Ad una ruota non mi va non capisco a cosa ti riferisci e lascio a Salvo la eventuale risposta.Juri;n2144239 ha scritto:
- 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
| Primo numero | |
| b | Secondo numero |
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Juri;n2144239 ha scritto:
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
Codice:
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 Subsalvo50
Advanced Member >PLATINUM PLUS<
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.
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 10 maggio 2024Bari6966182088Cagliari6852492248Firenze1233806275Genova7510536571Milano8074520812Napoli6710238840Palermo3089689002Roma0641805078Torino7124891806Venezia4145904828Nazionale8915642031Estrazione Simbolotto
Milano
1907091039
