Novità

script per 3 gruppi di 25 numeri

genios

Advanced Member >PLATINUM<
Avrei bisogno del seguente Script:

considerare i 75 numeri del tabellone analitico che vanno dalla posizione 90 alla posizione 75. dividere questi 75 numeri in 3 gruppi di 25 numeri.

gruppo 1 numeri che vanno dalla posizione 90 alla posizione 66

gruppo 2 numeri che vanno dalla posizione 65 alla posizione 40

gruppo 3 numeri che vanno dalla posizione 39 alla posizione 16

mettere quindi in gioco i 3 gruppi di 25 numeri per la sorte di ambo nell’ estrazione successiva

In out dovremmo stampare :

ciascun gruppo di 25 numeri

e quanti e quali ambi a realizzato nell’ estrazione successiva .

Grazie Eugenio
 
Ciao Eugenio,

40 o 41 ? ... 16 + 25 = 41.

Poi ... dovresti essere capace di scriverlo da te.

Metti giù almeno una bozza del programma anche se non funzionante lo si può correggere.

Perché se non inizi a scrivere non impari a scrivere.

:)
 
Incomincia a guardare questo:

Ti servono 2 variabili una per elencare i numeri (N) ed una per contarli (K)

Poi hai li hai "descritti" da 90 a 16. Quindi scrivi :

For N = 90 To 16 Step -1 ' -1 perché sono contati all'indietro dal più grande al più piccolo.

K = K+1 'il valore di K viene aumentato di 1 ad ogni ciclo.

Se raggiunge il valore di 25 viene scritta una riga vuota ed AZZERATO il valore di K ...

RIPARTE il conteggio dei numeri.

Codice:
Option Explicit
Sub Main
   Dim N,K
   For N = 90 To 16 Step - 1
      K = K + 1
      Scrivi FormatSpace(K,2) & ") " & N & "° = "
      If K = 25 Then
         Scrivi
         K = 0
      End If
   Next
End Sub

Di questa parte del programma ti è tutto chiaro ?

:)
 
Si lo script che hai fatto è chiaro . Ora occorre abbinare alle posizioni il numero corrispondente.
 
Buona serata a tutte/i.

Ad ogni posizione (N) del Tabellone Analitico corrisponde un Estratto (P)

E' facilmente ricavabile in funzione della Estrazione, della Ruota, e della Posizione (di ritardo).

Occorre controllare se questo Numero P è presente nell'estrazione successiva per poterlo colorare diversamente.

Penso che una disposizione orizzontale sia meglio leggibile e possa contenere più dati.

Codice:
Option Explicit
Sub Main
   Dim Es,R
   Dim N,K,P
   R = BA_
   For Es = EstrazioneFin - 15 To EstrazioneFin
      Scrivi DataEstrazione(Es) & Space(1) & String(63,"-")
      For N = 90 To 16 Step - 1
         K = K + 1
         P = NumeroPosRit(Es,R,N)
         'Scrivi FormatSpace(K,2) & ") " & N & "° = ",0,0 ' ex elenco in verticale
         ColoreTesto 4
         If Posizione(Es + 1,R,P) > 0 Then ColoreTesto 2 'estratti a colpo in rosso.
         Scrivi Format2(P) & Space(1),0,0 'concatena orizzontalmente
         If K = 25 Then
            Scrivi
            K = 0
         End If
      Next
      ColoreTesto 0
   Next
End Sub

:)
 
In quest'ultima versione, per evidenziare gli estratti,

ho utilizzato contemporaneamente la tecnica di livello più basso, già presente nello script precedente,

sia quella di livello più alto e che sfrutta le funzioni presenti solo in SPAZIOMETRIA. (VerificaEsito)

Dunque quest'ultimo è uno script per Spaziometria.

Cioè è per un Basic meno "generico" o universale che dir si voglia.

In sintesi ho utilizzato le istruzioni di spaziometria per raccogliere / organizzare / evidenziare i risultati.

Solo quelli dell' Ambo & oltre.

Codice:
Option Explicit
Sub Main
   Dim Es,N,K,Nu(25),Ru(1),E,I,G
   Ru(1) = BA_
   For Es = EstrazioneFin - 10 To EstrazioneFin
      Scrivi DataEstrazione(Es) & Space(1) & String(81,"="),True
      For N = 90 To 16 Step - 1
         K = K + 1
         Nu(K) = NumeroPosRit(Es,Ru(1),N)
         If K = 25 Then
            For I = 1 To 25
               If Posizione(Es + 1,Ru(1),Nu(I)) > 0 Then ColoreTesto 2 : G = 1
               Scrivi Format2(Nu(I)) & Space(1),G,0
               ColoreTesto 0 : G = 0
            Next
            Call VerificaEsito(Nu,Ru,Es + 1,2,1,,,,E)
            ColoreTesto 2 : Scrivi E,True : ColoreTesto 0
            K = 0
         End If
      Next
   Next
   Scrivi String(74,"="),True,False
   Scrivi Space(3),False,False :
   Scrivi "Script By Joe",1,0,1,4
End Sub

:) Buona giornata a tutte/i.
 
Ciao Eugenio,

3 fasce di 25 numeri per escludere i ritardi, non ricordo di averle viste usate.

25 Numeri per Ambo (quando dovrebbero essere 2) è spropositatamente grande.

Per il resto, sembra funzionare, anche se non ho controllato. (Approfonditamente)

Se le riduci a 10 numeri (che tra l'altro mi sembra sia il massimo inseribile in bolletta)

e poi ne fai uno studio analogo a quelli che si possono fare sulle decine,

forse partendo dalla più scompensata per Estratto ... da questa/e

qualche Ambo in decina potrebbe gratificare della vincita, ricompensando le attese.

Ma secondo me questo script molto orientato all'output visivo,

è "lento" e poco adatto ad un rendiconto più statistico.

:)
 
Joe ogni gruppo va giocato in sistema . Ogni gruppo e indipendente dall' altro e comunque va portato a vincita . Lo script costituisce solo la base . Con un opportuna gestione finanziaria anche se gli esposti sono abbastanza notevoli ( il gioco andrebbe fatto in società ) iniziando dalla puntata minima si riesce ad avere un utile . Comunque non vorrei dire tutto qui in pubblico .

Faresti uno script per vedere quali ritardi abbia raggiunto ogni gruppo per la sorte del terno ( tre ambi ) .

Ciao Eugenio
 
No,

penso non sia né utile né conveniente perché per il Terno mi premi sono ancora più ridotti,

dunque sia l'attesa maggiore che il costo del sistema maggiore per vincere meno non giustifica il lavoro da farsi.

A spanne ... credo si potrebbero trovare ritardi maggiori di 70 concorsi.

:)
 
Ciao Eugenio, le lunghette le hai.

Certo è che con 25 numeri gli Ambi sono ravvicinati ma i ritardi ci sono.

Non sono esperto di sistemi, quindi per questo, devi poter contare su risorse tue o di altri.

Ti posso dire che all'estrazione del 19/07/2022 compresa, ho trovato questa LUNGHETTA DINAMICA

VE_ 02.25.34.43.46.57.58.64.68.78 (di 10 numeri) che tarda da oltre 317 Colpi. (Cioè dal 09/07/2020)

Forse con Luglio ...

:)
 
AMBO ... ma già la sorte di Ambo non paga nulla.

Non giocando ... non so.

Penso che la progressione sarebbe impossibile da sostenere.

------------------

Ho sempre guardato con molto sospetto ai Sistemi / Sistemisti & Co.

Se vincessero ... penso ci sarei dentro ... mentre invece sono loro ad essere ... fuori.

Se ho capito bene è un 25,5,2,2 Ortogonale

Costa 30 paga 23 SE esce l' Ambo per ogni Ambo e poi tutto moltiplicato per 3)

Vedremo ... con la dovuta speranza.

:)
 
Joe qualcosa non mi quadra le posizioni dello script vanno da 1 a 75 o da 90 a 16 ?

Vedi il numero 37 . Uscito che non compare nei 3 gruppi .

Ciao Eugenio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto