Sabato come fare?

[Joe91]

Ok ... Ci penso un pò su e ti faccio sapere.

Infatti non mi era chiaro ... se fosse o meno considerato l'aspetto posizionale ...

Due in una ruota ... ed il terzo isotopo ad uno di questi, due.

Perchè ricordavo di aver visto ... la richiesta di una ricerca, strutturata così.

Ultima cosa ... Possono essere presenti ... e li scludiamo noi ...

oppure è: "che non siano presenti" ... nelle rimanenti ruote.

Grazie, un caro saluto.

 

[navidal]

Grazie, per il tuo interessamento saluti navidal

 

[Joe91]

Lo script che propongo ...

si potrebbe riassumere cosi:

TRE SPIE solo IN DUE RUOTE.

Sub Main()
 Dim am(1),ru(1),Rtt(2),N(1)
 Rtt(1) = 11 : Rtt(2) = 12
 Nu = "9.37.79" '---------------------------------------SPIE
  Ini = 3950 : Fin = EstrazioneFin 'Inizio Archivio 10 Ruote 
 For es = ini To fin
  Messaggio es
  For r1 = 1 To 12
   If r1 <> 11 Then
    ru(1) = r1
    sp = Split("0." & Nu,".")
    K = 0
    For x = 1 To 3 : sp(x) = CInt(sp(x))
     N(1) = Sp(x)
     If SerieFreq(es,es,N,Rtt,1) = 1 Then K = k + 1
    Next
    If K = 3 Then
     If SerieFreq(es,es,sp,ru,1) = 1 Then
      For p = 1 To 5
       a = Estratto(es,r1,p)
       For x = 1 To 3
        If a = sp(x) Then
         sp(x) = 0
         b = a
        End If
       Next
      Next
      For r2 = 1 To 12
       If r2 <> 11 And r2 <> r1 Then
        ru(1) = r2
        If SerieFreq(es,es,sp,ru,2) = 1 Then
         Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b),0         
         Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaNumeri(sp,,1)
         Scrivi 
        End If
       End If
      Next
     End If
    End If
   End If
  Next
 Next
End Sub

 

[navidal]

Joe91 TRE SPIE solo IN DUE RUOTE.
mi va bene anche questo script pero
non fa la ricerca sollo il sabato comunque
ti ringrazio.saluti navidal

 

[Joe91]

Joe91 TRE SPIE solo IN DUE RUOTE.
mi va bene anche questo script pero
non fa la ricerca sollo il sabato comunque
ti ringrazio.saluti navidal

Si è vero.

L'avevo tolto di proposito.

Lo script precedente mi elenca 31 casi in tutta la storia del lotto a 10/11 ruote. (Dal 1946)

Solo al Sabato ... scendono a 17.

E, a partire da questa sera ... in cui l'estrazione del sabato ... cambia di data ...

la funzione dovrebbe ... palesare il suo limite ... che consiste nel non saper gestire l'eccezione.

Verificherò anche questo.

Cordiali saluti.

Sub Main()
 Dim am(1),ru(1),Rtt(2),N(1)
 Rtt(1) = 11 : Rtt(2) = 12
 Nu = "9.37.79" '---------------------------------------SPIE
  Ini = 3950 : Fin = EstrazioneFin 'Inizio Archivio 10 Ruote 
 For es = ini To fin
If Sabato (es) Then
  Messaggio es
  For r1 = 1 To 12
   If r1 <> 11 Then
    ru(1) = r1
    sp = Split("0." & Nu,".")
    K = 0
    For x = 1 To 3 : sp(x) = CInt(sp(x))
     N(1) = Sp(x)
     If SerieFreq(es,es,N,Rtt,1) = 1 Then K = k + 1
    Next
    If K = 3 Then
     If SerieFreq(es,es,sp,ru,1) = 1 Then
      For p = 1 To 5
       a = Estratto(es,r1,p)
       For x = 1 To 3
        If a = sp(x) Then
         sp(x) = 0
         b = a
        End If
       Next
      Next
      For r2 = 1 To 12
       If r2 <> 11 And r2 <> r1 Then
        ru(1) = r2
        If SerieFreq(es,es,sp,ru,2) = 1 Then
  kk=kk+1
         Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) &  String (10," ") & KK & "°"        
         Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaNumeri(sp,,1)
         Scrivi 
        End If
       End If
      Next
     End If
    End If
   End If
  Next
 End If 
 Next
End Sub

Function Sabato(Es)
Sabato = False 
Data = Replace(DataEstrazione(Es),".","/")
Joe  = Day (Data) : Mes = Month(Data) : Ann = Year (Data)
Data = Format2 (Joe)& "/" & Format2 (Mes) & "/" & Ann
If WeekDay (Data) = vbSaturday Then Sabato = True  
End Function

 

[Joe91]

Ho radatto la nuova versione della funzione per la ricerca delle estrazioni del sabato.

Essa, dall'estrazione 8000 ad oggi. mi rileva queste eccezioni (e/o slittamenti)

Chiedo cortesemente ... se qualcuno mantiene conteggio di queste statistiche,

al fine di confermarle esatte ... complete ecc.

Grazie.

lunedì, apr 27 2009

lunedì, ago 17 2009

lunedì, dic 28 2009

lunedì, dic 27 2010

lunedì, gen 3 2011

lunedì, giu 4 2012

 

[navidal]

Joe91 TRE SPIE solo IN DUE RUOTE
ti informo che fino domenica 3 /6/2012 lo script funzionava
bene dopo aver agiornato larchivio mi da errore nella
collona qi sotto ti ringrazio saluti navidal



If SerieFreq(es,es,N,Rtt,1) = 1 Then K = k + 1

 

[navidal]

Joe91 mi scuso o guardato altri script e quasi tutti mi danno errore
mi chiedo se puo essere un problema di archivio grazie ciao navidal

 

[Joe91]

Ciao

Prova a controllare ... l'estrazione incriminata.

In Spaziometria 1.3.75 dal primo menù a tendina, in ...

Base Dati ... scegli

Aggiornamento manuale

S' "APRE" la schermata di aggiornamento con l'ultima estrazione.

Sulla destra di questa, c'è un bottone con il logo della lottomatica,

Cliccando su esso ti appare l' "Estrazione Ufficiale" ... da copiare.

Controlli dunque, se ci sono anomalie, nell'aggiornamento di spaziometria.

Correggi eventuali errori tra gli estratti nelle varie ruote.

Infine quando le estrazioni, originale / Spaziometria sono identiche, confermi / salvi.

Buona Giornata.

 

[navidal]

dopuo aver eseguito l tueoi consiglni

o risolto il problema disinstalando Spaziometria 1.3.75 e reinstalarla grazie ciao navidal

 

[navidal]

Joe91 TRE SPIE solo IN DUE RUOTE. la statistica funziona benissimo
infati io o controlatto diverse formule in base al numero di estrazioni inpostate -3575 -
nel posto di 21 casi me ne da 22 ora ti chiedo se eposibile io o 4 tabelle
formate da 25 formule caduna formule chiamimole pure spie ti chiedo
e posibile cercarle tutte 25 nello steso script dandogli una numerazione
da 1 -a 25 per me sarebbe un grande aiuto grazie
saluti navidal



Sub Main()
Dim am(1),ru(1),Rtt(2),N(1)
Rtt(1) = 11 : Rtt(2) = 12
Nu = "9.37.79" '---------------------------------------SPIE
Ini = 3575 : Fin = EstrazioneFin 'Inizio Archivio 10 Ruote
For es = ini To fin
If Sabato (es) Then
Messaggio es
For r1 = 1 To 12
If r1 <> 11 Then
ru(1) = r1
sp = Split("0." & Nu,".")
K = 0
For x = 1 To 3 : sp(x) = CInt(sp(x))
N(1) = Sp(x)
If SerieFreq(es,es,N,Rtt,1) = 1 Then K = k + 1
Next
If K = 3 Then
If SerieFreq(es,es,sp,ru,1) = 1 Then
For p = 1 To 5
a = Estratto(es,r1,p)
For x = 1 To 3
If a = sp(x) Then
sp(x) = 0
b = a
End If
Next
Next
For r2 = 1 To 12
If r2 <> 11 And r2 <> r1 Then
ru(1) = r2
If SerieFreq(es,es,sp,ru,2) = 1 Then
kk=kk+1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & String (10," ") & KK & "°"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaNumeri(sp,,1)
Scrivi
End If
End If
Next
End If
End If
End If
Next
End If
Next
End Sub
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day (Data) : Mes = Month(Data) : Ann = Year (Data)
Data = Format2 (Joe)& "/" & Format2 (Mes) & "/" & Ann
If WeekDay (Data) = vbSaturday Then Sabato = True
End Function

 

[Joe91]

Ciao, non dovrebbe essere un problema.

L'unica cosa è che ... sarebbe opportuno organizzare le 25 formazioni, in una tabella, da inserire nello script,

e poi insegnare a quest'ultimo come recuperare ... di volta in volta ... queste terne.

 

[navidal]

Ciao, io la tabella n°1 lo creata con le 25 formule pero non so
comme spedirtela la cartella
saluti navidal

 

[Joe91]

Ciao Navidal,

Mi pare di aver letto che in questo spazio non si possono inserire indirizzi ...

puoi tuttavia cercare con Google se per Joe91 / J-Gio91 trovi qualche forum dove

sia possibile inserire messaggi personali ... o mail.

Poi, mi dirai dove mi sarà possibile recuperare la tua tabella.

Buona Giornata.

 

[navidal]

Joe91 per quanto ho capito te' ai bisogno delle 25 formule
per far cirare il programma io ho creato una cartela con le 25 formule
pero non so come spedirtele perche' qui non aceta sotto forma di cartela
e nianche sottoforma di zip amenoche' telemando una alavolta sotto forma di script
saluti navidal,

 

[Joe91]

Joe91 per quanto ho capito te' ai bisogno delle 25 formule
per far cirare il programma io ho creato una cartela con le 25 formule
pero non so come spedirtele perche' qui non aceta sotto forma di cartela
e nianche sottoforma di zip amenoche' telemando una alavolta sotto forma di script
saluti navidal,

Ciao,

non ti preoccupare, del formato, l'importante è che sia leggibile e capibile,

dopo, si decide quale formato sia più utile ... script o tabella o cartella.

Inserisci quello che hai.

Buona giornata.

 

[navidal]

ciao Joe91 sono senpre io navidal, che ti stresso ti volevo
chiedere se per favore potresti modificare lo script ,
TRE SPIE solo IN DUE RUOTE che posa fare la
ricerca di una ambata seca piu' umanbo seco.
piu' una quartina per ambo e terno. con il suo
rispetivo riscontro in pecentuali di usita per
ambata secca. ambo secco, e ambo in
qartina, se puoi inserimi anche InputBox,

InputBox (inserimento spie o formula esenpi (9-37-79)
InputBox (inserimento numeri di ricerca (ambata(38)
(ambo-19-83) quartina per ambo terno(19-83-62-85)
InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE
InputBox("INSERISCI I COLPI DI GIOCO",,9))

ti agiungo le percentuali per
ambata(38) su 21 casi e usita 18 volte
ambo in quartina su 21 casi e usito18 volte
ambo(19-83 secco su 21 casi e usito 10 volte
ben altre formule anno delle percentuali molto piu
alte quasi al100x100 come ambata come ambo in
quartina si va dal 70% al 93% e come ambo seco
dal 30% al 47% percentuali stanpate su carta di 100
formule queste vano giocate sollo il sabato perche ,
la statistica e stata eseguita solo per li sabato
esclusa la ruota nazionale

ti ringrazio saluti navidal,

 

[Joe91]

Ciao Navidal.

Lo script che hai ... (non vorrei sbagliarmi perchè vado a memoria) può già "caricare" ... ognuna delle tue formule.

Per il resto, scusa, ma non ho capito.

Non mi è possibile capire se lo script deve fare la ricerca ... una verifica ... o cosa altro.

Questo perchè ... leggendo che hai già spie, formule, periodi, risultati, percentuali ...

non mi riesce di capire come vorresti dividere le formule, dalle spie, dai periodi.

I dati ... dai risultati e, soprattutto cosa dovrebbe fare lo script ...

di diverso ... da tutto questo ... che si sa già.

Fammi sapere.

 

[navidal]

spie,o formule per me sono la stessa cosa per me e lo script che ho ,
va benissimo io vorei se posibille che lo stesso script potesse
fare la verifica di quelo che ti o messo qui sotto


InputBox (inserimento spie esenpi (9-37-79)
InputBox (inserimento numeri di verifica (ambata(38) sulle 2 ruote
ambo-19-83) sulle 2 ruote e ua cinquina per ambo-terno quaterna,
esenpo questa e la cinquina (38-19-83-62-85)(
InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE
InputBox("INSERISCI I COLPI DI GIOCO",,9)
per quanto riguarda i tabulati cartacei che io ho sonno ,
vecchi vorei poter conntrolare se queste formule sonno ancora valide
per poter controlare la sua statistica

ciao navidal,

 

[Joe91]

Così, è più chiara la descrizione del ... "a cosa serve".

Quindi anche, "del che cosa era" ... "del perchè" e del "come ottenerlo".

Tuttavia, mi permetterai ancora, di esprimere un mio dubbio:

Se le estrzioni "vecchie" come i tuoi vecchi tabulati ... avvenivano solo "al sabato" ...

non sarebbe giusto controllarne i risultati "solo al sabato" ?

Cordiali saluti.