Novità

Chi riesce a modificarmi questo script?

  • Creatore Discussione Creatore Discussione Juri
  • Data di inizio Data di inizio
J

Juri

Super Member >GOLD<
Sub Main()
Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
If quante = False Then Exit Sub
dist = CInt(InputBox("Quale Distanza",,30))
rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = " & Dist,1,,,,3,,1
Scrivi
Ini = EstrazioneFin - quante
fin = EstrazioneFin
For es = Ini To fin
Messaggio "[" & 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 - 10 To es - 1
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(ex,r2,p3)
d = Estratto(ex,r2,p4)

If r2 = 11 Then r2 = 12
If Distanza(a,d) = dist And Distanza(b,c) = 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) & Space(10) & StringaNumeri(n1,,1) & vbTab & "(" & p1 & "-" & p2 & ")",1
Scrivi Space(74) & "X" & " Distanza Diagonale " & dist
Scrivi GetInfoEstrazione(ex) & vbTab & SiglaRuota(r2) & vbTab & StringaEstratti(ex,r2) & Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & p3 & "-" & p4 & ")" & vbTab & sf,1
'Gioca es
Scrivi String(90,"=")
End If
End If :
Next :
Next :
Next :
Next :
Next
Next
Next
Next
'ScriviResoconto
ColoreTesto 2
End Sub


Ciao a tutti.


Qui sopra c'è uno script ma salta delle previsioni.
Si può avere solo con previsioni unite o isotope e con max 5 estrazioni di distanza?

Poi mi interessa quelle delle sestine esagonali,della stessa cadenza o delle triple figurali.Es 50-62 e 32-20.Tripla 2-5-8.Il resto come 30-55 e 60-25 niente perchp tripla 3-6 e 1-7.Mi sono spiegato bene?
Le sestine esagonali 15-45 o 30-60 vanno bene.

Se metto 5 estrazioni mi calcola lo stesso 7-8 estrazioni o piu'.

Poi può vedere anche su una ruota visto che molte le salta?

Ecco un link vecchio con piu' info.
https://forum.lottoced.com/forum/lo...gonale-verticale-e-orizzon-anche-su-1-2-ruote


Grazie mille.

Buon weekend.
 
Questo per adesso è al top del top per ambata che conosco.Ho messo quello che funziona meglio.
 
Ciao a Tutti.

Ho modificato qualcosa, vedi se salta ancora delle previsioni e dimmi quali salta, poi il discorso sulle sestine non l'ho capito.

Codice: 
 Option Explicit
Sub Main()
   Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2,P1,P2,A,B,C,D,Sf,Cont
   Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
   posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
   If Quante = False Then Exit Sub
   Dist = CInt(InputBox("Quale Distanza",,30))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
   Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = " & Dist,1,,,,3,,1
   Scrivi
   Ini = EstrazioneFin - Quante
   Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio "[" & 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 - 1
                  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 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) & "X" & "       Distanza Diagonale " & Dist
                           Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R2) & vbTab & StringaEstratti(Ex,R2),1,0
                           Scrivi Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & P1 & "-" & P2 & ")" & vbTab & Sf,1
                           'Gioca es
                           Scrivi String(90,"=")
                        End If
                     End If :
                  Next :
               Next :
            Next
         Next
      Next
   Next
   'ScriviResoconto
   ColoreTesto 2
End Sub
 
Ultima modifica:
Grazie mille Salvo.

Le sestine esagonali sono 15-30-45-60-75-90 ecc.Sono piu' potenti ma il procedimento è lo stesso.Se non salta le mette.Intendevi altro?Solo ora ho visto che mi hai risposto.

Stammi bene.
 
Cosi' va via bene e si riesce a vedere i casi solo che mi interessa.Script perfetto.

Non c'è Il 9 agosto su fi in 3 e 5 posizione su fi 57-61 poi il 14 agosto 87-31 su fi sempre stesse posizioni.

Grazie di tutto Salvo.
 
Juri;n2127335 ha scritto:
Cosi' va via bene e si riesce a vedere i casi solo che mi interessa.Script perfetto.

Non c'è Il 9 agosto su fi in 3 e 5 posizione su fi 57-61 poi il 14 agosto 87-31 su fi sempre stesse posizioni.

Grazie di tutto Salvo.
Clicca per espandere...

Ciao Juri, nell'esempio che riporti la distanza 30 è in verticale, lo script che hai postato vede le distanze solo in diagonale, quindi salta tutte le estrazioni che hanno la distanza 30 in orizontale e verticale, al volo ho inserito anche le distanze orizontali e verticali, non l'ho provato, dimmi come va.

Codice: 
 Option Explicit
Sub Main()
   Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2,P1,P2,A,B,C,D,Sf,Cont
   Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
   posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
   If Quante = False Then Exit Sub
   Dist = CInt(InputBox("Quale Distanza",,30))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
   Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale o Verticale o Orizontale= " & Dist,1,,,,3,,1
   Scrivi
   Ini = EstrazioneFin - Quante
   Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio "[" & 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 - 1
                  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) & " " & "       Distanze   " & Dist
                           Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R2) & vbTab & StringaEstratti(Ex,R2),1,0
                           Scrivi Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & P1 & "-" & P2 & ")" & vbTab & Sf,1
                           'Gioca es
                           Scrivi String(90,"=")
                        End If
                     End If :
                  Next :
               Next :
            Next
         Next
      Next
   Next
   'ScriviResoconto
   ColoreTesto 2
End Sub
 
A parte quella di firenze ho visto da uno script ad una ruota che mi avevi fatto che quelle unite o isotope le trova tutte.
Quelle che ho su una sola ruota che sono:su roma,poi cagliari napoli e torino le ha viste bene anche questo.Parlo delle ultime previsioni.
 
Ciao Salvo e Juri, Salvo sei mitico, potresti essere così gentile da far segnalare i due numeri della terzina simmetrica mancanti? E se possibile aggiungere la funzione disegnacerchiociclometrico con tutti e sei i numeri, grazie mille.
 
Ecco gli esempi.Si gioca il n° piu' piccolo distanza 30 come ambata e l'altro solo per ambo e ambetto sulle 2 ruote. [09507] [ 92] 02.08.2018 RO 31.30.05.24.49 31.49 (1-5)
X Distanza Diagonale 30
[09506] [ 91] 31.07.2018 RO 19.54.22.08.61 19.61 (1-5) 1
1 con 79.Poi 1 con 6 ambo diametrale in decina ambo e ambetto.Poi 1-86 ambo in decina negativo puo' uscire.
(SOMMA 80 UGUALE) Forse è piu' potente ma è da vedere.


[09508] [ 93] 04.08.2018 NA 41.69.24.59.17 69.17 (2-5)
X Distanza Diagonale 30 [09506] [ 91] 31.07.2018 PA 48.77.58.82.39 77.39 (2-5)


9 con 47.Ambata 9.Poi 9-4 ambo e ambetto.Volendo 9-14.

Si gioca per max 6 colpi ma se volete aspettate 4 colpi a vuoto anche se escono spesso nei primi colpi.

Potete vedere se ci sono altri modi per ambo dove si abbina?Cosi' uniamo le forze.
Da quello che ho visto penso che in 24 anni questo sia la cosa piu' potente che abbia mai visto che funziona stabile.

[09511] [ 96] 11.08.2018 CA 79.64.76.84.36 84.36 (4-5)
X Distanza Diagonale 30
[09509] [ 94] 07.08.2018 CA 52.18.45.66.24 66.24 (4-5) 2

Ad 1 ruota si gioca la metà.

Mi auguro di essere stato utile.
 
Si Salvo grazie, ti posto questa immagine dell'ultimo script da te realizzato, le due terzine simmetriche sono la prima 26 - 56 - 86 la seconda 15 45 75, alla prima terzina simmetrica manca il numero 26, mentre alla seconda terzina simmetrica il numero 45. Se puoi evidenziare per esempio con segnalazione(mancano i numeri 26 e 45 per chiudere le due terzine) questo se i numeri sono due oppure uno solo, grazie mille per l'interesse. Cattura.JPG
 
rudivall;n2127382 ha scritto:
Si Salvo grazie, ti posto questa immagine dell'ultimo script da te realizzato, le due terzine simmetriche sono la prima 26 - 56 - 86 la seconda 15 45 75, alla prima terzina simmetrica manca il numero 26, mentre alla seconda terzina simmetrica il numero 45. Se puoi evidenziare per esempio con segnalazione(mancano i numeri 26 e 45 per chiudere le due terzine) questo se i numeri sono due oppure uno solo, grazie mille per l'interesse.
Clicca per espandere...




Hai ragione sono 2, mi sono confuso, appena possibile lo faccio
 
Ciao a Tutti.

Lo script è molto lento, credo sia perchè deve disegnare il cerchio ciclometrico, i 2 numeri mancanti delle terzine simmetriche non li ho evidenziati, devo ancora vedere come fare, però ho inserito la ricerca dei 2 numeri mancanti delle 2 terzine simmetriche.

Lo script è da riprendere perchè ho evidenziato i 2 numeri mancanti ed ho messo la distanza 30 fissa, perchè con altre distanze lo script è imprevedibile

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),Tot(6),Ru(1),Num(2)
   Posta(1) = 1
   Posta(2) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",8))
   If Quante = False Then Exit Sub
   Dist = 30 'CInt(InputBox("Quale Distanza",,30))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
   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 - 1
                  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
                           Num(1) = Manca1 : Num(2) = Manca2
                           ImpostaGiocata 1,Num,Ruote,Posta,Clp
                           Gioca Es
                           Scrivi String(90,"=")
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Hai visto Salvo come mai quella su firenze non la vede?Per me lo script che hai fatto è perfetto.
Grazie.
 
Di nulla, Juri e Rudivall

Per juri, se per quella che non vede di Firenze, ti riferisci a quella del 9 Agosto (dato che non lo specifichi) , la vedono tutti e due gli script, con lo script del post 6, mettendo 30 estrazioni, alla prima domanda (quella che chiede quante estrazioni vuoi controllare) ed avendo nel archivio estrazioni l'ultima del 18 Agosto, quella del 9 Agosto su Firenze, si trova nel caso 367.

Invece se si usa lo script del post 14, mettendo 8 estrazioni alla prima domanda (quella che chiede quante estrazioni vuoi controllare)
ed avendo nel archivio estrazioni l'ultima del 18 Agosto, quella del 9 Agosto su Firenze, si trova nel caso 85.
 
Quella del 9 agosto e 14 agosto solo su firenze non la vedo con lo script del 18 agosto.
Firenze438573061
Firenze790872131

Con lo script qui sopra del 19 agosto con il cerchio ciclometrico lo vedo.

Grazie mille.
 
Ciao a Tutti

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s15.postimg.cc\/nsg0mseez\/ffii_agosto.png"}[/IMG2][IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/image\/gif;base64,R0lGODlhAQABAPABAP\/\/\/wAAACH5BAEKAAAALAAAAAABAAEAAAICRAEAOw=="}[/IMG2]​

se imposti 2 estrazioni indietro, si trova nel caso numero 3, naturalmente l'ultima estrazione in archivio deve essere uguale a quella che ho io 18-8


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s15.postimg.cc\/yzouuyd8r\/ffii2.png"}[/IMG2]
 
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