Sabato come fare?

korokoro · 9 Maggio 2012

Come potrei far cercare nei script solo il giorno di SABATO

GRAZIE LEO

Joe91 · 10 Maggio 2012

Accipicchia ... che impresa !!!

Ora, sembra funzionare.

Codice:

'Function Sabato by Joe V.1.0. del 10/05/2012 (Vista/Spaziometria 1.3.73)
Sub Main() 
For Es = EstrazioneFin - 45 To EstrazioneFin  
 If Sabato(Es) Then 
    Scrivi DataEstrazione(Es)
 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

Fammi sapere

korokoro · 10 Maggio 2012

Grazie 1

navidal · 15 Maggio 2012

joe91° per cortesia potresti modificarmi lo script qui sotto ricerca spie
solo con estrazioni del sabato ringrazio coloro che mi posonno aitare

saluti NAVIDAL

'Function Sabato by Joe V.1.0. del 10/05/2012 (Vista/Spaziometria 1.3.73)

Sub Main()
For Es = EstrazioneFin - 45 To EstrazioneFin
If Sabato(Es) Then
Scrivi DataEstrazione(Es)
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

RICERCA SPIE

Sub Main()
Dim am(1),ru(1)
nu = "9.37.79" '---------------------------------------SPIE
fin = EstrazioneFin : ini = fin - 100 'qui' mettere le estrazioni da controllare a ritroso
For es = ini To fin : Messaggio es
For r1 = 1 To 12
If r1 <> 11 Then
ru(1) = r1
sp = Split("0." & nu,".")
For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
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
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,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)
End If
End If : Next
End If
End If : Next : Next : End Sub
　
　

Joe91 · 15 Maggio 2012

Ciao Navidal,

si ma, per poter controllare ... sarebbe meglio partire da una versione funzionante dello script.

Comunque sia, ho reso funzionante quello che hai postato ...

che essendo piuttosto complicato (forse di Robyca) e non sapendo quello che dovrebbe fare ...

mi lascia il dubbio del corretto e voluto funzionamento.

Codice:

Sub Main()
Dim am(1),ru(1)
nu = "9.37.79" '---------------------------------------SPIE
fin = EstrazioneFin : ini = fin - 100 'qui' mettere le estrazioni da controllare a ritroso
For es = ini To fin : Messaggio es
For r1 = 1 To 12
If r1 <> 11 Then
ru(1) = r1
sp = Split("0." & nu,".")
For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
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
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,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)
End If
End If : Next
End If
End If : Next : Next : End Sub

A cui bisogna aggiungere la funzione :

Codice:

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

ed in ultimo applicare il Filtro ... If Sabato (Es) / End If

Alla fine dovrebbe essere così:

Codice:

Sub Main()
 Dim am(1),ru(1)
 nu = "9.37.79" '---------------------------------------SPIE
 fin = EstrazioneFin : ini = fin - 99 'controlla 100 estrazioni
 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,".")
     For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
     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,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
          Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)
         End If
        End If : Next
       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

S.E.&.O dovrebbe essere così.

Un caro saluto.

Antonin · 15 Maggio 2012

Grande joe91,e per la verifica di martedi'e giovedi'cosa potrei cambiare Grazie.

Joe91 · 15 Maggio 2012

Ciao Antonio,

provvisoriamente puoi provare a cambiare nelle ultime righe della funzione "vbSaturday" con :

"vbTuesday" per avere i Martedì e...

"vbThursday" per avere i Giovedì.

Antonin · 16 Maggio 2012

Avevo afferrato che bisognava cambiare i giorni in inglese, sei fantastico.
Grazie joe91.

Joe91 · 16 Maggio 2012

Ciao Antonio, grazie,

solo un avvertenza, che reputo doverosa ... "l'inglese" non sa nulla del nostro lotto ...

e, alla domanda: E' Sabato / Martedì / Giovedì ? Risponde Si opure No.

Le date delle estrazioni del Martedì/Giovedì/Sabato possono avvenire ANCHE in altri giorni.

In questi casi "la funzione" non fornisce una risposta corretta.

Salta l' estrazione-anomala non trovandola nel giorno giusto.

Pensando a tutto questo ho scritto "provvisoriamente" perchè quando avrò tempo ...

(piacendo studiare le date) vorrei creare una Function più efficiente.

Per ora dunque, considerando le avvertenze, che ho appena posto in evidenza,

sembra funzionare benone.

Un caro saluto a tutti.

navidal · 16 Maggio 2012

joe91° Ti ringrazio per la modifica come posso eleminare i numeri ripettuti nella stessa estrazione?
esenpio quelli segnalati in rosso. poi ti volevo chiedere se posso chiederti di farmi unaltra modifica
su unaltro script
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 PA 09
NZ 37.79

sabato, ott 10 2009 BA 09
VE 37.79

sabato, ott 10 2009 RO 37
VE 9.79

sabato, ott 10 2009 TO 09
VE 37.79

sabato, nov 7 2009 RO 37
PA 9.79

sabato, set 4 2010 BA 79
TO 9.37

sabato, ago 13 2011 GE 37
RO 9.79

sabato, gen 28 2012 MI 37
GE 9.79

sabato, apr 14 2012 NA 09
RO 37.79

Antonin · 16 Maggio 2012

Ciao Joe91,questo e' vero per adesso,in attesa della Function piu'efficiente ti auguro buon lavoro.

Joe91 · 19 Maggio 2012

navidal ha scritto:
joe91° Ti ringrazio per la modifica come posso avere numeri non ripettuti nella stessa estrazione?
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 PA 09
NZ 37.79

sabato, ott 10 2009 BA 09
VE 37.79

sabato, ott 10 2009 RO 37
VE 9.79

sabato, ott 10 2009 TO 09
VE 37.79

sabato, nov 7 2009 RO 37
PA 9.79

sabato, set 4 2010 BA 79
TO 9.37

sabato, ago 13 2011 GE 37
RO 9.79

sabato, gen 28 2012 MI 37
GE 9.79

sabato, apr 14 2012 NA 09
RO 37.79

Ciao innanzi tutto mi scuso ...

ma, non avevo visto.

Poi, non capisco, quale è ... la richiesta.

Quindi non so rispondere o se mi è possibile rispondere.

Dovresti unire, cortesementete, ancora qualche spiegazione, oppure esempio,

o qualche parola di commento a quanto hai gia ... scritto.

buona domenica

navidal · 20 Maggio 2012

joe91° Ti ringrazio per la modifica come posso eleminare i numeri ripettuti nella stessa estrazione?
esenpio quelli segnalati in rosso. poi ti volevo chiedere se posso chiederti di farmi unaltra modifica
su lnaltro script
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 PA 09
NZ 37.79

sabato, ott 10 2009 BA 09
VE 37.79

sabato, ott 10 2009 RO 37
VE 9.79

sabato, ott 10 2009 TO 09
VE 37.79

sabato, nov 7 2009 RO 37
PA 9.79

sabato, set 4 2010 BA 79
TO 9.37

sabato, ago 13 2011 GE 37
RO 9.79

sabato, gen 28 2012 MI 37
GE 9.79

sabato, apr 14 2012 NA 09
RO 37.79

navidal · 20 Maggio 2012

richiesta modifica per il sabato

richiesta modifica per il sabato

joe91° Ti ringrazio per la modifica come posso eleminare i numeri ripettuti nella stessa estrazione?
esenpio quelli segnalati in rosso. poi ti volevo chiedere se posso chiederti di farmi unaltra modifica
su lnaltro script
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 PA 09
NZ 37.79

sabato, ott 10 2009 BA 09
VE 37.79

sabato, ott 10 2009 RO 37
VE 9.79

sabato, ott 10 2009 TO 09
VE 37.79

sabato, nov 7 2009 RO 37
PA 9.79

sabato, set 4 2010 BA 79
TO 9.37

sabato, ago 13 2011 GE 37
RO 9.79

sabato, gen 28 2012 MI 37
GE 9.79

sabato, apr 14 2012 NA 09
RO 37.79

Joe91 · 22 Maggio 2012

Ciao,

Ho modificato un pochino lo script ... che avevi proposto.

Non so esattamente cosa dovrebbe fare lo script ... e, siccome 3 numeri a tutte ...

spesso danno spesso risultati multipli,

dovresti cortesemente indicarmi, quali, di questi non sono conformi alla ricerca voluta

e pertanto devono essere esclusi.

sabato, set 26 2009 PA 09
NZ 37..79

BA 08 42 54 55 07
CA 19 61 28 53 65
FI 30 15 56 19 05
GE 85 42 13 04 79
MI 19 06 27 26 52
NA 90 48 12 51 83
PA 09 02 57 47 25
RO 50 71 15 77 10
TO 82 88 61 38 84
VE 01 27 03 49 19
NZ 49 20 79 52 37

sabato, ott 10 2009 BA 09
VE 37..79

BA 90 09 84 30 46
CA 24 60 56 65 12
FI 15 70 45 57 08
GE 16 72 67 65 60
MI 28 49 25 34 40
NA 33 64 04 41 69
PA 42 73 64 45 68
RO 11 35 78 74 37
TO 03 22 09 39 13
VE 09 37 79 74 55
NZ 70 22 88 04 52

sabato, ott 10 2009 RO 37
VE 09..79

BA 90 09 84 30 46
CA 24 60 56 65 12
FI 15 70 45 57 08
GE 16 72 67 65 60
MI 28 49 25 34 40
NA 33 64 04 41 69
PA 42 73 64 45 68
RO 11 35 78 74 37
TO 03 22 09 39 13
VE 09 37 79 74 55
NZ 70 22 88 04 52

sabato, ott 10 2009 TO 09
VE 37..79

BA 90 09 84 30 46
CA 24 60 56 65 12
FI 15 70 45 57 08
GE 16 72 67 65 60
MI 28 49 25 34 40
NA 33 64 04 41 69
PA 42 73 64 45 68
RO 11 35 78 74 37
TO 03 22 09 39 13
VE 09 37 79 74 55
NZ 70 22 88 04 52

Fammi sapere.

korokoro · 22 Maggio 2012

navidal ha scritto:
joe91° ti ringrazio per la modifica come posso eleminare i numeri ripettuti nella stessa estrazione?
Esenpio quelli segnalati in rosso. Poi ti volevo chiedere se posso chiederti di farmi unaltra modifica
su lnaltro script
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 pa 09
nz 37.79

sabato, ott 10 2009 ba 09
ve 37.79

sabato, ott 10 2009 ro 37
ve 9.79

sabato, ott 10 2009 to 09
ve 37.79

sabato, nov 7 2009 ro 37
pa 9.79

sabato, set 4 2010 ba 79
to 9.37

sabato, ago 13 2011 ge 37
ro 9.79

sabato, gen 28 2012 mi 37
ge 9.79

sabato, apr 14 2012 na 09
ro 37.79

le doppie sono utile x le converze
ciao leo

navidal · 23 Maggio 2012

joe91° Ti ringrazio per la modifica come posso eleminare i numeri ripettuti nella stessa estrazione?
esenpio quelli segnalati in rosso. poi ti volevo chiedere se posso chiederti di farmi unaltra modifica
su unaltro script
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 PA 09
NZ 37.79

sabato, ott 10 2009 BA 09
VE 37.79

sabato, ott 10 2009 RO 37
VE 9.79

sabato, ott 10 2009 TO 09
VE 37.79

sabato, nov 7 2009 RO 37
PA 9.79

sabato, set 4 2010 BA 79
TO 9.37

sabato, ago 13 2011 GE 37
RO 9.79

sabato, gen 28 2012 MI 37
GE 9.79

sabato, apr 14 2012 NA 09
RO 37.79

navidal · 23 Maggio 2012

joe91° Ti ringrazio per la modifica come posso eleminare i numeri ripettuti nella stessa estrazione?
esenpio quelli segnalati in rosso. GE 85 42 13 04 79
poi ti volevo chiedere se posso chiederti di farmi unaltra modifica
su lnaltro script
squsami per la mia richiesta di aiuto perche' io sonno proprio na frana
grazie saluti navidal

sabato, set 26 2009 PA 09
NZ 37..79

BA 08 42 54 55 07
CA 19 61 28 53 65
FI 30 15 56 19 05
GE 85 42 13 04 79
MI 19 06 27 26 52
NA 90 48 12 51 83
PA 09 02 57 47 25
RO 50 71 15 77 10
TO 82 88 61 38 84
VE 01 27 03 49 19
NZ 49 20 79 52 37

Joe91 · 23 Maggio 2012

Ciao ...

Non ti devi scusare ... "nessuno nasce imparato".

Per il come ... anch'io, no so, quindi ho chiesto.

E' uno script pittosto complicato e se non sono chiare le regole ...

ovvero ... PERCHE' ... si cancella il 79 a Genova ...

poi, non si sa, perchè non cancellarlo, invece, dalla Nazionale.

Aspetto indicazioni.

Buona Giornata.

navidal · 25 Maggio 2012

Ciao ... si cancella il 79 a Genova ... PERCHE' - le tre spie sonno due ni una ruota
e una in unaltra in cuesto caso PA -NZ il 79 potrebe esere anche a PA invece che su NZ
LE tre spie possono trovarsi in qalsiasi ruota purche siano senpre due ruote se e posibile
seno va benisimo anche cosi grazie mille ciao navidal

Sabato come fare?

Super member

Advanced Member >PLATINUM PLUS<

Super member

Member

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Super member

Member

Member

Advanced Member >PLATINUM PLUS<

Member