Novità

UN VECCHIO METODO DA FARE SCRIPT

Alien.

Advanced Premium Member
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.
 

Noah

Advanced Member
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<
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
è 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:

salvo50

Advanced Member >PLATINUM PLUS<
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<
Ciao a Tutti.

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

boris

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
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

Premium Member
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<
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<
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ì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto