Script Estrazioni Datate Archivi Completi

[TizianoCiclomet]

Joe91 Gennaro vi voglio bene e se mi consetite
passo la parola alla Leti(Letizia)
Ciao sono Leti complimenti ragazzi ho fatto dei
Test anche io e devo dire che per le ricerche
sulle Estrazioni piu antiche(Quelle 1800 e prime 1900)
e vi porto un esempio
Fate una ricerca in Semi Data 17/11 data anche
una sbirciatina in quella del 16/11 Ciao
Ste ragazze Ste ragazze ne sa una piu del [}]
Ciao

 

[Roby]

Leti e Tizi.... mi so perso nei numeri

 

[TizianoCiclomet]

Ciao Gennaro cerco di spiegare i test della Leti
Come puoi vedere da immagine sono state inserite
tutte le Estrazioni dell 1800 in Semi Date 16/11 e 17/11
sulla ruota di Bari e secondo lei queste cinquine daranno un Ambo nelle prossime due estrazioni
Ho fatto una verifica anche io e sembra propio che sia
cosi in particolare per le ruote di Bari e Firenze tutto
questo a che scopo per verificare eventuali convergenze
con nostre previsioni e di altri per concludere inserendo
anche le prime estrazioni del 1900 i risultati diventano
davvero sorprendenti
Ciao

 

[Joe91]

Aggiornamento / Correzioni

Aggiornamento / Correzioni

Buon Giorno a tutti.

Il trasferimento al nuovo Forum ha "tradotto" alcune istruzioni dello script ... rendendolo inutilizzabile.

Si tratta dei già noti operatori logici (quali Maggiore Minore ... ecc... ) convertiti in < ... >

Ho sistemato questa cosuccia nel seguente script:

'Data SemiDeterminata V.3.0. Scritto da Joe91 per Tiziano, Alba, 11/11/11
'<http://forum.lottoced.com/topic.asp?TOPIC_ID=139577>=
' V3.1 del 10/01/2012
Sub Main()
 Ini = 1
 Fin = EstrazioneFin
 I = InputBox("... separati da un punto.","Inserisci GIORNO e MESE ...","10.11")
 Rif = Split(I,".")
 Scrivi "Data Estr.    ",1,0
 For R = 1 To 11 :  If R = 11 Then R = 12
  Scrivi FormatSpace(NomeRuota(R),13) & "  ",1,0
 Next
 Scrivi
 For Es = Ini To Fin
  Dt = DataEstrazione(Es)
  Nu = Split(Dt,".")
  If(Nu(0) = Rif(0)) And(Nu(1) = Rif(1)) Then
   Scrivi StringaNumeri(nu) & " ",1,0
   For R = 1 To 11 :  If R = 11 Then R = 12
    If SommaEstratti(Es,R,1) >= 15 Then
     Scrivi StringaEstratti(Es,R) & " ",0,0
    Else
     Scrivi "  .  .  .  .  " & " ",0,0
    End If
   Next
   Scrivi
  End If
 Next
End Sub

 

[franca46]

buon giorno

Gio91 mi sono permessa di mandarti un'email per una informazione. se puoi rispondere .
grazie

 

[Joe91]

Ciao Franca ...

Ciao Franca ...

Si ho letto ed al riguardo alla tua richiesta ... in questo Forum,

con il prezioso aiuto di molti ... ho cercato di dipanare la matassa ...

dell'annoso problema derivante dal confronto tra gli archivi,

che ci presenta differenze spesso significative.

Questo l'indirizzo :

http://forum.lottoced.com/f12/archivi-confronto-1603/



Rinnovo pertanto il mio GRAZIE a tutti quanti mi hanno aiutato ...

 

[franca46]

Si ho letto ed al riguardo alla tua richiesta ... in questo Forum,

con il prezioso aiuto di molti ... ho cercato di dipanare la matassa ...

dell'annoso problema derivante dal confronto tra gli archivi,

che ci presenta differenze spesso significative.

Questo l'indirizzo :

http://forum.lottoced.com/f12/archivi-confronto-1603/



Rinnovo pertanto il mio GRAZIE a tutti quanti mi hanno aiutato ...

ti ringrazio ma nell'mp che ti ho mandato in altro forum mi riferivo all'archivio di L8 , in quanto mi ero accorta per caso che al confronto con un amico lui ha 2 estrazioni in più.
quindi mi chiedevo dove fosse l'errore.
grazie ancora del tuo tempo

 

[Joe91]

35 per un colpo ...

35 per un colpo ...

... a Cagliari e Genova (Ruota Secondaria desumibile dalle tabelle aggiunte allo script (e,per le quali ... ringrazio).