Novità

UN VECCHIO METODO DA FARE SCRIPT

Alien.

Advanced Premium Member
Messaggi
24.273
Punti reazione
234
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 >PLATINUM<
Messaggi
295
Punti reazione
27
Punti
28
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.604
Punti reazione
692
Punti
113
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
24.273
Punti reazione
234
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 PLUS<
Messaggi
2.402
Punti reazione
791
Punti
113
Ciao ci sono attualmente numeri da giocare ❓Grazie
 

Aline

Advanced Member >PLATINUM PLUS<
Messaggi
2.402
Punti reazione
791
Punti
113
Ciao si ho letto ma non capisco i numeri scusa non sono pratica di script
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.604
Punti reazione
692
Punti
113
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.604
Punti reazione
692
Punti
113
Ciao a Tutti.

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

Alien.

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

boris

Advanced Member
Messaggi
565
Punti reazione
6
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
24.273
Punti reazione
234
Punti
63
Ciao boris ma lo hai copiato bene ? A me funziona perfettamente.
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.604
Punti reazione
692
Punti
113
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
565
Punti reazione
6
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.598
Punti reazione
278
Punti
83
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.604
Punti reazione
692
Punti
113
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.604
Punti reazione
692
Punti
113
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
    giovedì 02 luglio 2020
    Bari
    73
    64
    20
    32
    57
    Cagliari
    34
    78
    85
    12
    32
    Firenze
    13
    02
    73
    09
    36
    Genova
    10
    33
    67
    28
    56
    Milano
    33
    05
    40
    81
    35
    Napoli
    59
    09
    63
    70
    18
    Palermo
    67
    72
    09
    65
    47
    Roma
    11
    63
    59
    49
    83
    Torino
    64
    67
    63
    02
    84
    Venezia
    64
    19
    08
    65
    12
    Nazionale
    32
    55
    40
    64
    84
Alto