Novità

UN VECCHIO METODO DA FARE SCRIPT

Alien.

Advanced Premium Member
Messaggi
20.637
Punti reazione
114
Punti
63
vi svelo il metodo che ci ha fatto vincere ambi e terni.
in una qualsiasi estrazione rintracciare due numeri su due ruote unite e nella stessa posizione, due numeri che danno somma 90.
la distanza 45 dei numeri rintraciati saranno le nostre ambate o capogiochi, i vertibili dei capogiochi saranno i primi 2 abb. il piu 10 dei prim abb saranno gli altri 2 abb. es:
nell'estrazione del 21 aprile(previsione poi postata da me) su genova e napoli escono in uguale posizione i numeri 8 82.
distena 45 = 53 37(capogiochi),abb., i vertibili = 35 73. il + 10 dei vertibili 45 83 quindi la preisione era la seguente:
capogiochi o ambate(2 ambate su due ruote non l'ho mai consideate)
53 37 abbinamenti 35 73 45 83 piu le due cinquine:
53 35 73 45 83
37 35 73 45 83

al III° colpo di gioco uscirono doppio ambo secco su ruota (napoli) piu terno in cinquina 37 73 / 37 83 +
terno in cinquina 37 73 83..

ultimo caso rilevato postato e vinto il 19 giugno e' stato
nell'estrazione del 4 giugno torino venezia con 63 27 somma 90
elabondo come sopra ci davano i seguenti risultati:
18 72 capogiochi
81 27 1 37 piu le due cinquine
18 81 27 1 37
72 81 27 1 37
al settimo colpo ambo secco 18 37 , piu ambo in cinquina.piu' doppio ambo sulla nazionale,
essendoci stato anche il 37 come abb.lo stesso lo davo molto forte come ambata infatti l'ho giocato anche come estratto.
vi ricordo inoltre che questo metodo sforna molti ambi anche a tutte.




GRAZIE.
 

Jethro

Super Member >GOLD<
Messaggi
222
Punti reazione
17
Punti
18
Salve Alien,
molto bene:Dnell'ultima estrazione c'è la condizione su Fi-Ge per contenere i costi io l'ho ridotta a soli 2 numeri 87 - 30;)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.053
Punti reazione
54
Punti
48
Ciao a Tutti.

Codice:
 Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp
   Dim R1,R2,Caso,Casi,P1,P2,P3,E1,E2,SAB
   Dim CapGi1,CapGi2,Abb1,Abb2,Abb3,Abb4,A,B
   Dim Ruote(2),Posta(5),Penta1(5),Penta2(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)'ESTRAZIONE 7741 = PRIMO ESEMPIO IN SPIEGAZIONI
   Clp = InputBox("Per quanti colpi vuoi giocare le Cinquine?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " CHIESTO DA ALIEN - SCRIPT SALVO50",1,,4,,3,,1
   Posta(2) = 1
   Posta(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               SAB = A + B
               If SAB = 90 Then
                  CapGi1 = Diametrale(A)'Capogioco 1
                  CapGi2 = Diametrale(B)'Capogioco 2
                  Abb1 = Vert(CapGi1)'Abbinamento 1
                  Abb2 = Vert(CapGi2)'Abbinamento 2
                  Abb3 = Fuori90(Abb1 + 10)'Abbinamento 3
                  Abb4 = Fuori90(Abb2 + 10)'Abbinamento 4
                  Penta1(1) = CapGi1 : Penta1(2) = Abb1 : Penta1(3) = Abb2 : Penta1(4) = Abb3 : Penta1(5) = Abb4
                  Penta2(1) = CapGi2 : Penta2(2) = Abb1 : Penta2(3) = Abb2 : Penta2(4) = Abb3 : Penta2(5) = Abb4
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 2
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(5) & " Diametrale Estratto " & Format2(A) & " Uguale " & Format2(CapGi1) & " Capogioco 1 ",1
                  Scrivi Space(5) & " Diametrale Estratto " & Format2(B) & " Uguale " & Format2(CapGi2) & " Capogioco 2 ",1
                  Scrivi Space(5) & " Vertibile           " & Format2(CapGi1) & " Uguale " & Format2(Abb1) & " Abbinamento 1 ",1
                  Scrivi Space(5) & " Vertibile           " & Format2(CapGi2) & " Uguale " & Format2(Abb2) & " Abbinamento 2 ",1
                  Scrivi Space(5) & " Abbinamento 1       " & Format2(Abb1) & " + 10 = " & Format2(Abb3) & " Abbinamento 3 ",1
                  Scrivi Space(5) & " Abbinamento 2       " & Format2(Abb2) & " + 10 = " & Format2(Abb4) & " Abbinamento 4 ",1
                  Scrivi
                  Scrivi Space(10) & "  Prima Cinquina " & StringaNumeri(Penta1," ",True),1
                  Scrivi Space(10) & "Seconda Cinquina " & StringaNumeri(Penta2," ",True),1
                  Scrivi
                  Ruote(1) = R1
                  Ruote(2) = R2
                  ImpostaGiocata 1,Penta1,Ruote,Posta,Clp
                  ImpostaGiocata 2,Penta2,Ruote,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Alien.

Advanced Premium Member
Messaggi
20.637
Punti reazione
114
Punti
63
è se non ci diamo una mano lottomatica ci manda nel lastrico hhahhaahah.


l'ho fatto girare ma...........credevo meglio.......ci sono anche 5 previsioni a zero poi è in rimessa il metodo

-6.683,00 € ho provato a fare della statistica ma è troppo laboriosa,vedro se trovo di meglio.... grazie salvo50
 
Ultima modifica:

Aline

Advanced Member >PLATINUM<
Messaggi
1.978
Punti reazione
60
Punti
48
Ciao ci sono attualmente numeri da giocare ❓Grazie
 

Aline

Advanced Member >PLATINUM<
Messaggi
1.978
Punti reazione
60
Punti
48
Ciao si ho letto ma non capisco i numeri scusa non sono pratica di script
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.053
Punti reazione
54
Punti
48
Aline;n2189603 ha scritto:
Ciao si ho letto ma non capisco i numeri scusa non sono pratica di script
Ciao a Tutti.

Le previsioni per i prossimi otto colpi sono:
RUOTE............NUMERI
RO - VE.....67-76-32-86-42-23
TO - NZ......16-47-57-61-71-74


IMMAGINE

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/VsgXyq3L\/PREV.png"}[/IMG2]
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.053
Punti reazione
54
Punti
48
Ciao a Tutti.

Ho inserito nello script la visualizzazione dei passaggi di come si arriva alle 2 cinquine
 

Alien.

Advanced Premium Member
Messaggi
20.637
Punti reazione
114
Punti
63
Ottimo salvo,se puoi ci sarebbe da fare un 'altro script messo sempre in quest'area download,grazie.
 

boris

Advanced Member
Messaggi
555
Punti reazione
5
Punti
18
buongiorno Salvo,
fatto copio e incolla, a qusto punto si bloacca
Call ScegliRange(Ini,FIn,Ini,FIn) dice errore script
variabile non definita 500 "ScegliRange"
Linea 10 colonna 3
chiedo gentilmente aiuto
 

Alien.

Advanced Premium Member
Messaggi
20.637
Punti reazione
114
Punti
63
Ciao boris ma lo hai copiato bene ? A me funziona perfettamente.
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.053
Punti reazione
54
Punti
48
buongiorno Salvo,
fatto copio e incolla, a qusto punto si bloacca
Call ScegliRange(Ini,FIn,Ini,FIn) dice errore script
variabile non definita 500 "ScegliRange"
Linea 10 colonna 3
chiedo gentilmente aiuto
Ciao a Tutti.

Cancella la riga oppure oppure metti ( ' ) a inizio riga senza le parentesi è come se l'avessi tolta, succede perchè non stai usando spaziometria oppure non hai una delle ultime versioni
 

boris

Advanced Member
Messaggi
555
Punti reazione
5
Punti
18
Grazie, non funzia, lo incollo sulla spaziometria vecchia, ........... Call ScegliRange(Ini,FIn,Ini,FIn)
su tutti script di Salvo mi da al stesso punto l'errore descritto

ho provato con (') niente, ............... ringazio per Vs. aiuto ..... lascio perdere
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.203
Punti reazione
87
Punti
48
Ciao a tutti:)
X salvo
Nello script c è una ridondanza .
Se vuoi utilizzare sceglirange non serve dare un valore a ini e fin e valorizzarli prima.
Es numero 1 :

Dim Ini,fin ,qEstr
Fin = estrazionefin
Qestr= cInt(inputBox("quante estrazioni vuoi Analizzare?", "numero concorsi",100))-1
Ini= fin-qestr
Scrivi ini&" "&fin
----------------
Es numero 2
Dim ini,fin
Call scegliRange(ini,fin,estrazioneIni,estrazioneFin)
Scrivi ini&" "&fin
Ho scritto da cellulare verificate per favore.

La soluzione 1 va bene a chi ha una versione vecchia.
È importante scrivere la versione che si utilizza e riportare il messaggio di errore altrimenti non ci aiutate ad aiutare .
Ciao a tutti :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.053
Punti reazione
54
Punti
48
Ciao ILegend, che c'è una ridondanza lo sapevo, però l'inizio lo valorizzo prima per dare la possibilità a chi usa versioni non compatibili con la funzione ScegliRange, la possibilità di poter cancellare la riga dove c'è ScegliRange, se non la metto e poi dovessi suggerire di cancellare la riga, lo script partirebbe dall'estrazione n1 e siccome per esperienza nessuno mi ha mai chiesto perchè uno script non parte dall'estrazione n1, ma invece quando non mettevo estrazione finale l'ultima estrazione in archivio, parecchi mi chiedevano come mai non arriva all'ultima estrazione.

Ho iniziato ad usare ScegliRange quando l'ho visto in un tuo script, e non l'ho mollato più, lo metto in tutti i miei script, dove ci sono le estrazioni, però dato che non sono un esperto, sono andato negli aiuti per capirci qualcosa, ma non ci ho capito molto, ecco perche vedi

scegliRange(Ini,Fin,Ini,Fin)

Comunque da adesso metterò

scegliRange(ini,fin,estrazioneIni,estrazioneFin)

Grazie dell'aiuto
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.053
Punti reazione
54
Punti
48
Ciao a Tutti.

Ho provato a mettere

scegliRange(ini,fin,estrazioneIni,estrazioneFin)

invece di

scegliRange(ini,fin,Ini,Fin)

e nonostante avessi valorizzato l'estrazione iniziale, non la vista, quando si apre la finestra di scegliRange il cursore è posizionato nell'estrazione n1, naturalmente lo so che posso spostare il cursore dove voglio oppure per essere più precisi, scrivere direttamente l'estrazione iniziale e finale dentro le finestrelle che ci sono a destra.
Dato che l'estrazione iniziale l'ho valorizzato prima, quando si apre la finestra di scegliRange voglio vedere il cursore nell'estrazione che ho valorizzato, probabilmente come dici tu è sbagliato fare in questo modo, però come ho già esposto lo faccio per dare agli altri che non vogliono usare SpazioMetria (e non capisco perchè dato che è gratis) la possibilità di eliminare la funzione ScegliRange e nello stesso tempo avere la possibilità di poter decidere l'estrazione iniziale.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 dicembre 2019
    Bari
    68
    27
    78
    11
    72
    Cagliari
    69
    18
    78
    08
    48
    Firenze
    41
    52
    46
    63
    77
    Genova
    74
    64
    90
    32
    43
    Milano
    14
    36
    06
    73
    57
    Napoli
    21
    83
    20
    86
    90
    Palermo
    12
    07
    50
    39
    60
    Roma
    04
    20
    80
    62
    09
    Torino
    29
    21
    12
    08
    55
    Venezia
    48
    72
    83
    18
    14
    Nazionale
    31
    07
    56
    06
    22
Alto