Novità

Chi riesce a modificarmi questo script?

  • Creatore Discussione Creatore Discussione Juri
  • Data di inizio Data di inizio
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.
 
Juri;n2144239 ha scritto:
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.
 
Ultima modifica:
Juri;n2144239 ha scritto:
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

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 Sub
 
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.
 
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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto