Chi riesce a farmi questo script?

salvo50 · 28 Luglio 2018

Ho modificato ancora lo script, adesso se l'ultimo numero è il numero mancante lo faccio anche col Fuori90, quindi può succedere che il numero mancante sia più piccolo dell'ultimo numero.

Non trova quella del 24 Luglio

Juri · 29 Luglio 2018

Trova quelle oltre il 90?SE c'è 83-85-87-3?Il fuori 90 non si puo' tirare via'?

salvo50 · 29 Luglio 2018

Ciao a Tutti.

Trova quelli oltre il 90 se il numero oltre il 90, è il numero mancante, cioè il numero oltre il 90 è l'ambata da giocare

Juri · 29 Luglio 2018

Grazie.

DjNomade · 29 Luglio 2018

Ciauz
se interessava trovare condizione come quella del 24-07-2018
questo la trova, nella speranza che le altre siano giuste

Codice:

' ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0043
'   oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9503 caso 0006
'   Estrazione n.9503 del 24.07.2018 GE 63 22 75 10 86
'   Estrazione n.9503 del 24.07.2018 PA 44 58 87 08 09 Differenza 14 Mancante 72
'   Sequenza 44 - 58 - 72 - 86 - 10
'   Estrazione generatrice del pronostico 09503 [ 88 - 24/07/2018]
'   G 0001 Numeri In gioco : 72 su GE PA per Estratto
'   N. [72 ] [GE] [.. .. .. .. ..] C. 1 09504 [ 89 - 26/07/2018]
'   N. [72 ] [PA] [.. .. .. .. ..] C. 1 09504 [ 89 - 26/07/2018]
'   N. [72 ] [GE] [.. .. .. .. ..] C. 2 09505 [ 90 - 28/07/2018]
'   V N. [72 ] [PA] [.. .. .. 72 ..] C. 2 Estratto 09505 [ 90 - 28/07/2018]
'   Interrotta per esito verificato

Codice:

 'Chiesto da Juri     https://forum.lottoced.com/forum/lottoced/area-download/2124642-chi-riesce-a-farmi-questo-script/page2
    'Vorrei sapere,per piacere,se si riesce a fare uno script stessa estrazione con es:
    'Il 21 luglio su fi 55-65 e su ro 70-75.Come vedete c'è la distanza 5 tra 55-65-70-75 ma manca il 60.
    'Poi altro esempio: su mi 71-73 e su ro 75-72.Qui 71-72-73-75 ma manca il 74.Si può fare con ogni Distanza?
    'Va bene In ogni Posizione e su 2 ruote.Anche 3 numeri su 1 ruota e 1 sull'altra.Meglio 2 e 2.
    'script by Salvo50
    Option Explicit
    Sub Main()
       Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,D
       Dim DZ12,DZ23,DZ34,DZ14,E1,E2,X,Clp,Salvo50
       Dim Es,Ini,Fin,Nu,D2,Caso,Casi
       Dim Am(1),Z(4)
       Dim Ruote(2),Posta(1)
       Posta(1) = 1
       Fin = EstrazioneFin
       Ini = 9500
       Clp = CInt(InputBox(" Per quanti colpi vuoi giocare le ambate ? ",Salvo50,7))
       Call ScegliRange(Ini,Fin,Ini,Fin)
       For Es = Ini To Fin
          Caso = 0
          Messaggio "Estrazione esaminata: " & CStr(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 R2 = R1 + 1 To 12
                      If R2 = 11 Then R2 = 12
                      For P3 = 1 To 4
                         For P4 = P3 + 1 To 5
                            C = Estratto(Es,R2,P3)
                            D = Estratto(Es,R2,P4)
                            If A <> C And A <> D And B <> C And B <> D Then
                               Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D
                               Call OrdinaMatrice(Z,1)
                               DZ12 = Distanza(Z(1),Z(2))
                               DZ23 = Distanza(Z(2),Z(3))
                               DZ34 = Distanza(Z(3),Z(4))
                               DZ14 = Distanza(Z(1),Z(4))
                               For X = 1 To 45
                                     If(DZ12 = X And DZ23 = X And DZ34 =(X * 2))_
                                    Xor(DZ12 = X And DZ34 = X And DZ23 =(X * 2))_
                                    Xor(DZ12 = X And DZ34 = X And DZ14 =(X * 2))_
                                    Xor(DZ12 = X And DZ14 = X And DZ34 =(X * 2))_
                                    Xor(DZ23 = X And DZ34 = X And DZ12 =(X * 2))_
                                    Xor(DZ23 = X And DZ34 = X And DZ14 =(X * 2))_
                                    Xor(DZ23 = X And DZ14 = X And DZ34 =(X * 2))_
                                    Xor(DZ12 = X And DZ23 = X And DZ34 = X)_   
                                    Xor(DZ23 = X And DZ34 = X And DZ14 = X) Then
                                     If DZ12 =(X * 2) Then Nu = Fuori90(Z(1) + X)
                                     If DZ23 =(X * 2) Then Nu = Fuori90(Z(2) + X)
                                     If DZ34 =(X * 2) Then Nu = Fuori90(Z(3) + X)
                                     If DZ14 =(X * 2) Then Nu = Fuori90(Z(4) + X)
                                     If(DZ12 = X And DZ23 = X And DZ34 = X) Then Nu = Fuori90(Z(4) + X)
                                     If(DZ23 = X And DZ34 = X And DZ14 = X) Then Nu = Fuori90(Z(1) + X)
                                     Caso = Caso + 1
                                     Casi = Casi + 1
                                     ColoreTesto 1
                                     Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                     ColoreTesto 2
                                     Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                     ColoreTesto 0
                                     Scrivi
                                     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
                                           Call ColoreTesto(2)
                                        Else
                                           Call ColoreTesto(0)
                                        End If
                                        Call Scrivi(Format2(E1) & " ",1,0)
                                        Call 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
                                           Call ColoreTesto(2)
                                        Else
                                           Call ColoreTesto(0)
                                        End If
                                        Call Scrivi(Format2(E2) & " ",1,0)
                                        Call ColoreTesto(0)
                                     Next
                                     Scrivi "  Differenza " & Format2(X) & "  Mancante ",1,0
                                     ColoreTesto 2
                                     Scrivi Format2(Nu)
                                     ColoreTesto 0
                                     If(DZ12 = X And DZ23 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Z(3)&"-"&Nu&"-"&Z(4),1
                                     If(DZ12 = X And DZ34 = X And DZ23 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Nu&"-"&Z(3)&"-"&Z(4),1
                                     If(DZ12 = X And DZ34 = X And DZ14 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Nu,1
                                     If(DZ12 = X And DZ14 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " &Z(3)&"-"&Nu&"-"&Z(4)&"-"&Z(1)&"-"&Z(2),1
                                     If(DZ23 = X And DZ34 = X And DZ12 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Nu&"-"&Z(2)&"-"&Z(3)&"-"&Z(4),1
                                     If(DZ23 = X And DZ34 = X And DZ14 =(X * 2)) Then Scrivi" Sequenza " &Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Nu&"-"&Z(1),1
                                     If(DZ23 = X And DZ14 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " &Z(2)&"-"&Z(3)&"-"&Nu&"-"&Z(4)&"-"&Z(1),1
                                     If(DZ12 = X And DZ23 = X And DZ34 = X) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Nu,1   
                                     If(DZ23 = X And DZ34 = X And DZ14 = X)  Then Scrivi" Sequenza " &Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Z(1)&"-"&Nu,1
                                     Ruote(1) = R1
                                     Ruote(2) = R2
                                     Am(1) = Nu
                                     Scrivi
                                     ImpostaGiocata 1,Am,Ruote,Posta,Clp,1
                                     Gioca Es
                                  End If
                                  If ScriptInterrotto Then Exit Sub
                               Next
                            End If
                         Next
                      Next
                   Next
                Next
             Next
          Next
          If ScriptInterrotto Then Exit Sub
       Next
       ScriviResoconto
       Scrivi TempoTrascorso
    End Sub

salvo50 · 29 Luglio 2018

Ciao Djnomade, bravissimo

Juri · 30 Luglio 2018

Grazie mille.

boris · 1 Agosto 2018

buonasera, sono interessato al script, però copiando mi da l'errore
Call ScegliRange(Ini,Fin,Ini,Fin) gentilmente chiedo aiuto

DjNomade · 1 Agosto 2018

Il listato è per Spaziometria non L8+

Ciauz

boris · 2 Agosto 2018

salve, l'ho caricato su spaziometria .... boh

DjNomade · 2 Agosto 2018

Ho appena provato e va perfettamente

Ciauz

claudio8 · 2 Agosto 2018

boris;n2125331 ha scritto:
buonasera, sono interessato al script, però copiando mi da l'errore
Call ScegliRange(Ini,Fin,Ini,Fin) gentilmente chiedo aiuto

forse dovresti impostare correttamente il range inizio e fine quando ti appare la schermata di Archivio lotto-Selezione Range.

Comunque visto che lo script è lungo nell'elaborare la singola estrazione, sarebbe meglio poter inserire poche estrazioni, quindi ti consiglio di sostituire la riga 16 Ini =9500 con
Ini = EstrazioneFin - CInt(InputBox(" Quante estrazioni vuoi analizzare? ",Salvo50,5))
e remmare (anteporre l'apice) alla riga 18 Call ScegliRange(Ini,Fin,Ini,Fin)
in modo che questa venga esclusa dallo script e non ti apparirà più la schermata di Archivio lotto-Selezione Range.

joe · 2 Agosto 2018

Però ...

... è probabile che si stia utilizzando una versione obsoleta di spaziometria.

Perché diversamente l'istruzione dovrebbe funzionare,

come giustamente riferisce DjNomade.

Juri · 23 Agosto 2018

Si riesce Salvo a farlo in una sola ruota?

Grazie mille.

rudivall · 23 Agosto 2018

Ciao Juri, premetto che non sono molto bravo, io ho provato ad adattarlo così, vedi se ti può andare bene. Vedi l'allegato Salvo x Juri.txt

Juri · 23 Agosto 2018

Grazie mille Rudivall.

Cerca

Cerca

Chi riesce a farmi questo script?

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

DjNomade

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

boris

Advanced Member

DjNomade

Advanced Member >PLATINUM PLUS<

boris

Advanced Member

DjNomade

Advanced Member >PLATINUM PLUS<

claudio8

Premium Member

joe

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

rudivall

Advanced Member >PLATINUM<

Juri

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi