Posts written by g.silent

Posted: 27/1/2021, 09:18

Ciao Genal,ciao Gam e ciao a tutti,
a proposito di ex, anche se mi considero ormai un ex attivo appassionato di lotto,
seguo saltuariamente e passivamente Lottogam e Lottoced (spesso non capendo quanto viene scritto);
intervengo su questo post perchè questa ricerca l'avevo fatta anni fa e pensavo potessi essere di aiuto,
ma trovato lo script, ho visto che era fatto per funzionare solo sui due archivi misti (bari a.din.- cagliari a. norm.;etc
che avevo creato con L8+.
Quindi considera questo intervento solo come l'occasione per dare un saluto a tutti.

Gaspare

Posted: 3/7/2020, 19:03

Cinquine sincrone passo X - Aiuto per Listati

CODICE

'Script per L8+
' Cinquine per Estratto
Sub Main()
Dim num(5)
Dim ruota(1)
Dim rita(12)
Dim max(12)
Dim estr(5,12)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep
Scrivi "=============================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi
ruota(1) = rr
eini = EstrazioneFin - 50 'scegliere inizio
efin = EstrazioneFin
For i = eini To efin
For p = 1 To 5
num(p) = Estratto(i - ep,rr,p)
estr(p,rr) = Estratto(efin - ep + 1,rr,p)
Next
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(rr) = 0
Else
rita(rr) = rita(rr) + 1
If max(rr) < rita(rr) Then max(rr) = rita(rr)
End If
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Scrivi
ColoreTesto 1
Scrivi " numeri corrispondenti "
ScriviMatrice estr
ColoreTesto 0
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

Saluti

Posted: 3/7/2020, 16:47

Cinquine sincrone passo X - Aiuto per Listati

Su richiesta di Claudio

Quartine per estratto

CODICE

'Script per L8+ (su spaziometria modificare formattazione)
' Quartine per Estratto
Sub Main()
Dim num(4)
Dim ruota(1)
Dim rita(5,16)
Dim max(5,16)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep
H=0
Scrivi "====================================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi "| quartine "
ruota(1) = rr
eini = EstrazioneFin - 100 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 2
For pp = p + 1 To 3
For ppp = pp + 1 To 4
For pppp = ppp + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
num(2) = Estratto(i - ep,rr,pp)
num(3) = Estratto(i - ep,rr,ppp)
num(4) = Estratto(i - ep,rr,pppp)
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
Next
Next
For z = 1 To 2
For k = z + 1 To 3
For w = k + 1 To 4
For q = w + 1 To 5
h = h + 1
rita(h,13) = Z
rita(h,14) = K
rita(h,15) = W
rita(h,16) = q
max(h,13) = Z
max(h,14) = K
max(h,15) = w
max(h,16) = q
Next
Next
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

Terzine per estratto

CODICE

'Script per L8+ (su spaziometria modificare formattazione)
' Terzine per Estratto
Sub Main()
Dim num(3)
Dim ruota(1)
Dim rita(10,15)
Dim max(10,15)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep

h=0
Scrivi "====================================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi " terzine"
ruota(1) = rr
eini = EstrazioneFin - 150 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 3
For pp = p + 1 To 4
For ppp = pp + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
num(2) = Estratto(i - ep,rr,pp)
num(3) = Estratto(i - ep,rr,ppp)
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
Next
For z = 1 To 3
For k = z + 1 To 4
For w = k + 1 To 5
h = h + 1
rita(h,13) = Z
rita(h,14) = K
rita(h,15) = W
max(h,13) = Z
max(h,14) = K
max(h,15) = w
Next
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

Coppie per estratto

CODICE

'Script per L8+ (su spaziometria modificare formattazione)
' Coppie per estratto
Sub Main()
Dim num(2)
Dim ruota(1)
Dim rita(10,14)
Dim max(10,14)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep

h=0
Scrivi "=============================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi " coppie"
ruota(1) = rr
eini = EstrazioneFin - 150 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 4
For pp = p + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
num(2) = Estratto(i - ep,rr,pp)
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
For z = 1 To 4
For k = z + 1 To 5
h = h + 1
rita(h,13) = Z
rita(h,14) = K
max(h,13) = Z
max(h,14) = K
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

A breve cinquine per estratto

Saluti

Edited by g.silent - 3/7/2020, 18:47

Posted: 3/7/2020, 09:09

Passo "X" - Graduatoria Cinquine per Ambo - Area libera

Ciao Claudio,

con la sortita dell'ambo nella cinquina di Bari ( non so le altre, io seguivo virtualmente quella)

questo post inizia bene !

Grazie per le segnalazioni e per il puntuale aggiornamento

Un saluto a tutti ( e buone vacanze a Matteo)

Posted: 12/6/2020, 11:53

Le Colonne della VENUS by Enplein - Area libera

Un accenno di sviluppo " dinamico" di questa ricerca lo potete trovare a Pagina 26 di questa sezione, post dal titolo

Nazionale in quindicine.

Saluti

Posted: 10/6/2020, 10:23

Le Colonne della VENUS by Enplein - Area libera

Ciao Enplein , grazie per la conferma e per l'ottimo script (molto utile la visualizzazione degli esiti).

Buona giornata a tutti

Posted: 9/6/2020, 21:32

Le Colonne della VENUS by Enplein - Area libera

Non voglio dare adito a maldicenze, ma corre voce che le 6 quindicine

di consecutivi esistessero anche prima dell' invenzione delle venus e

pare (ma è notizia da confermare) che ne siano state trovate tracce

nelle tabelle utente di L8+ e Lottodesk.

Vi terrò aggiornati.

Un saluto a tutti e scusate l' assenza e ....la battuta!

Posted: 20/3/2020, 17:57

Nazionale: un ritardo di forte attualità... - Area libera

Ciao Matteo come giustamente dici era una cosa che sapevo bene, ho avuto un blackout!

Ringrazio te e Claudio per avermi nuovamente "illuminato"!

Buona serata

Gaspare

Posted: 20/3/2020, 09:42

Nazionale: un ritardo di forte attualità... - Area libera

Buon giorno a tutti

volevo segnalare che a me risulta uno storico di 758 estr. sulla ruota nazionale risalente a marzo 2010;

il dato mi risulta anche sull' archivio L1 di spaziometria dove è istallato l' archivio fornito da silop;

è sbagliato?

Posted: 4/3/2020, 19:44

Cinquine sincrone a RIGO X - Aiuto per Listati

Un saluto a tutti

X Matteo

non essendo sicuro dell'esattezza del mio archivio, mi puoi confermare che il ritardo del rigo 37 di Firenze è ancora in corso?

Grazie anticipatamente, un abbraccio

Gaspare

Posted: 19/12/2019, 20:09

Catene di ambi consecutivi con capogioco a RUOTA - Area libera

CITAZIONE

però io mi devo arrangiare con quello che so e quello che ho: non posso chiedere sempre favori a voi.
Il fatto è che gli script da te segnalati non li avevo immessi in L8, perchè avevo già nelle tabelle fino ai pentambi ricavati come già detto; avevo completamente dimenticato i tuoi script.

Oggi con il tuo intervento ho creato in tabella modificando gli stessi le formazioni fino ai decambi e mi fermo qui.

Ancora una volta: non è questo il punto; cioè quello che è servito o serve a te, ma quello che serviva a Gam

CITAZIONE

scandagliare tutti gruppi da 2 a 89 ambi.

e il metodo che hai proposto (coinvolgendomi) mi è sembrato del tutto inappropriato.

Da qui il mio intervento. Spero di aver chiarito.

Un abbraccio

Posted: 19/12/2019, 19:00

Catene di ambi consecutivi con capogioco a RUOTA - Area libera

CITAZIONE

Devo però chiederti scusa per non essermi ricordato di tutto ciò e non essere stato più preciso

Caro Matteo, non è questo il punto;

il punto è che non mi sarei aspettato da te il ritenere plausibile il procedimento

da te suggerito partendo da quello script.

Comunque è stata una buona occasione per salutarti,

saluto che estendo a tutti quanti con l' augurio di Buone Feste

un abbraccio Gaspare

Posted: 24/2/2019, 11:10

UN PRESENTE PER GLI AMICI DI LOTTOGAM - Argomenti VARI

a fatica ieri sono riuscito a importare su Tabelle utente i 655 terni vergini dal 1939

ecco il file testo utilizzato

Posted: 6/2/2019, 20:20

Compenso Dinamico - Aiuto per Listati

CITAZIONE

dopo averne modificato la ricerca da coppie a terzine cioè For p = 1 To 3)

Oltre a mattere for p=1 To 3

è preferibile aggiungere

m(3,r) = NumeroPosRit(k(r) - 1,r,3)

dopo m(2,r) = NumeroPosRit(k(r) - 1,r,2)

e & "." & m(3,rr),0,1

dopo m(1,rr) & "." & m(2,rr)

e dopo "ambo sortito" aggiungere "nella terzina"

I dati comunque sono quelli

Posted: 4/2/2019, 09:16

Compenso Dinamico - Aiuto per Listati

CITAZIONE

Posso postarlo su qualche altro sito?

Dico no

lo script non è mio (chiedi a Joe)

e ci sono troppi apici '

Ciao

251 replies since 15/12/2007

Filter forums