script per 3 gruppi di 25 numeri

[genios]

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

 

[joe]

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.

 

[genios]

Hai ragione 41 . Joe non riesco

 

[joe]

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.

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 ?

 

[genios]

Si lo script che hai fatto è chiaro . Ora occorre abbinare alle posizioni il numero corrispondente.

 

[joe]

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.

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

 

[joe]

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.

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.

 

[genios]

Ottimo .Ma cosa ne pensi di questo script ?

 

[joe]

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.

 

[genios]

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

 

[joe]

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.

 

[genios]

No serve solo per considerare i 3 ambi . In ogni gruppo si gioca solo per ambo .

 

[joe]

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 ...

 

[genios]

Buona da giocare. Ma 317 estrazioni per ambo o terno ?

 

[genios]

Facciamo una prova

 

[joe]

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.

 

[genios]

E' un 30,5,2,2 . Teorema dei cassetti .

 

[genios]

prima prova di gioco risultati

 

[genios]

Prova di gioco 2

 

[genios]

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