aiuto per script

[vengio]

Scusate ragazzi, qualcuno puo spiegarmi come impostare un indice settimanale (Martedi-giovedi-sabato) negli script?

 

[Mike58]

Ciao, Vengio, l'indice settimanale non c'è, Tuttavia è possibile creare una function per determinare il giorno e richiamarla all'occorrenza.

Ti posto un mio esempio, che a secondo del giorno settimanale conteggia la presenza ed il ritardo del numero in esame.

spero ti sia di aiuto.

Sub Main()
	'Sabato, martedi, giovedi
	Dim nu(1),ru(1)
	num = InputBox("Quale numero cercare ",,90)
	rt = InputBox("Quale ruota ",,1)
	et = CInt(InputBox("Quante estrazioni",,300))
	nu(1) = num
	ru(1) = rt
	For Es = EstrazioneFin - et To EstrazioneFin
		aps = Posizione(es,rt,num)
		If Sabato(es) Then
			If SerieFreq(es,es,nu,ru,1) = 1 Then
				sab = EstrazioneFin - es
				Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & aps
				co = co + 1
			End If
		End If
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co & " Volte al Sabato " & " è Ritarda da... " & sab,1
	ColoreTesto 0
	Scrivi
	For Es = EstrazioneFin - et To EstrazioneFin
		apg = Posizione(es,rt,num)
		If giovedi(es) Then
			If SerieFreq(es,es,nu,ru,1) = 1 Then
				gio = EstrazioneFin - es
				Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apg
				co1 = co1 + 1
			End If
		End If
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co1 & " Volte al giovedì" & " è Ritarda da... " & gio,1
	ColoreTesto 0
	Scrivi
	For Es = EstrazioneFin - et To EstrazioneFin
		apm = Posizione(es,rt,num)
		If martedi(es) Then
			If SerieFreq(es,es,nu,ru,1) = 1 Then
				mar = EstrazioneFin - es
				Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apm
				co2 = co2 + 1
				sr = SerieRitardo(es,EstrazioneFin,nu,ru,1)
			End If
		End If
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co2 & " Volte al martedì " & " è Ritarda da... " & mar,1
	ColoreTesto 0
	Scrivi
	tt = co + co1 + co2
	ColoreTesto 2
	Scrivi "Totali di volte uscito.... " & tt & " Ritarda da... " & sr & " Dalla data ultima... " & DataEstrazione(EstrazioneFin - sr,1),1
	ColoreTesto 0
End Sub
Function Sabato(Es)
	Sabato = False
	Data = Replace(DataEstrazione(Es),".","/")
	Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
	Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
	If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Function giovedi(Es)
	giovedi = False
	Data = Replace(DataEstrazione(Es),".","/")
	Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
	Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
	If WeekDay(Data) = vbThursday Then giovedi = True
End Function
Function martedi(Es)
	martedi = False
	Data = Replace(DataEstrazione(Es),".","/")
	Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
	Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
	If WeekDay(Data) = vbTuesday Then martedi = True
End Function

 

[vengio]

Grazie Mike, sei sempre disponibile.

 

[Mike58]

Ciao, vengio , si fa quel che si può !!!! e soprattutto si mette a disposizione quel che si conosce.

Ciao Giulio, per gli altri giorni basta forse creare la function ad ok ed il tutto dovrebbe funzionare, Magari provaci !!!!

Ciao.

 

[rosce14]

Ciao, vengio , si fa quel che si può !!!! e soprattutto si mette a disposizione quel che si conosce.

Ciao Giulio, per gli altri giorni basta forse creare la function ad ok ed il tutto dovrebbe funzionare, Magari provaci !!!!

Ciao.

CIAO MIKE58, SCUSA SE TI SCRIVO QUI, VOLEVO CHIEDERTI COME SI FA A SBLOCCARE DEGLI SCRIPT CHE HO IN ARCHIVIO E NON SI AGGIORNANO CON L'ULTIMA ESTRAZIONE?
IN ATTESA DI UNA TUA RISPOSTA TI RINGRAZIO E TI AUGURO UNA BUONA GIORNATA.

 

[Mike58]

Ciao Rosce, è strano quello che chiedi, gli script dovrebbero aggiornarsi sempre con l'archivio aggiornato all'ultima estrazione, a meno che negli stessi non è settato il parametro fine ad una data estrazione bloccata, oppure la condizione cercata è lontana dalla estrazione fine.

Posta un qualche script ad esempio e vediamo dove possiamo intervenire.

Ciao

 

[rosce14]

GRAZIE, MIKE, SAPEVO CHE POTEVO CONTARE SU DI TE, LO FARO' AL PIU' PRESTO.
BUONA NOTTE.

 

[rosce14]

CIAO MIKI. QUESTO E' UNO DEGLI SCRIPT BLOCCATO AL 21 SETTEMBRE 2013

Sub Main
Scrivi String(108,"-")
Scrivi " SOMMA 90 GENOVA , di Chloè ",1
Dim n(1),nn(3),posta(1),poste(2),ruota(1)
posta(1) = 1
poste(2) = 1
ruota(1) = GE_
k = 10
Ini = EstrazioneIni + 3187
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 9 Then
For p = 1 To 4
a = Estratto(es,GE_,p)
For p1 = p + 1 To 5
b = Estratto(es,GE_,p1)
If a + b = 90 Then
co = co + 1
Scrivi String(100,"-") & "Caso n°" & Co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(GE_) & " " & StringaEstratti(es,GE_) & " estratto il numero [" & Format2(a) & "] in [" & Format2(p) & "] posizione",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(GE_) & " " & StringaEstratti(es,GE_) & " estratto il numero [" & Format2(b) & "] in [" & Format2(p1) & "] posizione",1
Scrivi "Sommando il numero [" & Format2(a) & "] con il numero [" & Format2(b) & "] ottemiamo la somma [" & Format2(a + b) & "] ",1
Scrivi String(108,"-")
n(1) = Fuori90(Estratto(es,MI_,1) + Estratto(es,TO_,2) + 76)
ImpostaGiocata 1,n,ruota,posta,k
nn(1) = n(1)
nn(2) = Fuori90(Estratto(es,NA_,1) + Estratto(es,NZ_,2) + 05)
nn(3) = Fuori90(Estratto(es,NA_,4) + Estratto(es,RO_,4) + 05)
ImpostaGiocata 2,nn,ruota,poste,k,2
Gioca es,True,,1
End If
Next
Next
End If
Next
Scrivi String(108,"-")
Scrivi " SOMMA 90 GENOVA , di Chloè ",1
Scrivi String(108,"-")
ScriviResoconto
End Sub


N° 2

Sub Main()
Scrivi: ColoreTesto 1: Scrivi String(38," ") & " Metodo di Matematico Listato By Blackmore"
Scrivi: ColoreTesto 0
Dim ruota(10) : Dim ambata(1) : Dim lunghetta(5) : Dim posta(1) : Dim poste(3): Dim a1(1) : Dim b1(4)
posta(1) = 1 : poste(2) = 1 : poste(3) = 1
t = 0
ss = CInt(InputBox("INSERISCI LA SOMMA DEI 5 ESTRATTI",,147))
p = CInt(InputBox("SCEGLI LA POSIZIONE DELL' ESTRATTO",,1))
j = CInt(InputBox("SCEGLI L' ESTRATTO",,1))
k = InputBox("INSERISCI I COLPI DI GIOCO",,10)
ff = InputBox("INSERISCI L' AMBATA",," 5 ")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1))
a1(1) = f1
ff = InputBox("INSERISCI LA LUNGHETTA",," 5.1.14.77 ")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3)): f4 = CInt(h(4))
b1(1) = f1 : b1(2) = f2 : b1(3) = f3 : b1(4) = f4
ini = EstrazioneIni
fin = EstrazioneFin
For es = ini To fin
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ Metodo di Matematico Script By Blackmore ]"
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
a =(SommaEstratti(es,r1))
b = Estratto(es,r1,p)
If a = ss Then
If b = j Then
t = t + 1
ruota(1) = r1
Scrivi String(100,"*") & " Caso n° " & Format2(t),1
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & p & "° Estratto = 1 Somma Estratti = " & a
ColoreTesto 0: Scrivi
ImpostaGiocata 1,a1,ruota,posta,k,1
ImpostaGiocata 2,b1,ruota,poste,k
Gioca es
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub


QUESTO E' BLOCCATO A OTTOBRE 2012



RESTO IN ATTESA DI UNA TUA RISPOSTA E TI AUGURO BUONA SERATA.

 

[Mike58]

Ciao Rosce, il forum è rimasto irraggiungibile fino ad ora, e adesso il tempo mi manca devo scappare al lavoro.
Ho dato una occhiata rapida ai 2 script e sono corretti entrambi, solo che cercano delle condizioni mirate e definite e non trovano altre condizioni valide oltre quella data.

sul 1° script la condizione sono :

indicemensile = 9 + somma 90 su Genova su 2 estratti

sul 2° script la condizione è ancora + rigida e cerca
la somma estratti = 147 con in 1° posizione l'estratto = 1

Si capisce che con queste rigide condizioni i casi trovati sono e restano datati.

Ciao

 

[rosce14]

CIAO MIKI, GRAZIE X LA TUA RISPOSTA, LO SO CHE SONO CONDIZIONI UN PO' RIGIDE, MA PER QUANTO RIGUARDA LO SCRIPT DI GE LE OCCASIONI CI SONO STATE DI CUI L'ULTIMA E' DEL 06 05 14 GE 52 17 13 38 89 DOVE C'E' LA SOMMA 90 CON 52 E 38.

NON AVERE PREMURA A RISPONDERMI, FAI CON CALMA, E QUANTO TI SARA' POSSIBILE MI AIUTERAI.

BUONA SERATA.

 

[vengio]

CIAO MIKI, GRAZIE X LA TUA RISPOSTA, LO SO CHE SONO CONDIZIONI UN PO' RIGIDE, MA PER QUANTO RIGUARDA LO SCRIPT DI GE LE OCCASIONI CI SONO STATE DI CUI L'ULTIMA E' DEL 06 05 14 GE 52 17 13 38 89 DOVE C'E' LA SOMMA 90 CON 52 E 38.

NON AVERE PREMURA A RISPONDERMI, FAI CON CALMA, E QUANTO TI SARA' POSSIBILE MI AIUTERAI.

BUONA SERATA.

Ma il 06.05.2014 è indice mensile 3 mentre lo script richiede il 9.

 

[vengio]

Sub Main
Scrivi String(108,"-")
Scrivi " SOMMA 90 GENOVA , di Chloè ",1
Dim n(1),nn(3),posta(1),poste(2),ruota(1)
posta(1) = 1
poste(2) = 1
ruota(1) = GE_
k = 10
Ini = EstrazioneFin - 500
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
'If IndiceMensile(es) = 9 Then
For p = 1 To 4
a = Estratto(es,GE_,p)
For p1 = p + 1 To 5
b = Estratto(es,GE_,p1)
If a + b = 90 Then
co = co + 1
Scrivi String(100,"-") & "Caso n°" & Co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(GE_) & " " & StringaEstratti(es,GE_) & " estratto il numero [" & Format2(a) & "] in [" & Format2(p) & "] posizione",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(GE_) & " " & StringaEstratti(es,GE_) & " estratto il numero [" & Format2(b) & "] in [" & Format2(p1) & "] posizione",1
Scrivi "Sommando il numero [" & Format2(a) & "] con il numero [" & Format2(b) & "] ottemiamo la somma [" & Format2(a + b) & "] ",1
Scrivi String(108,"-")
n(1) = Fuori90(Estratto(es,MI_,1) + Estratto(es,TO_,2) + 76)
ImpostaGiocata 1,n,ruota,posta,k
nn(1) = n(1)
nn(2) = Fuori90(Estratto(es,NA_,1) + Estratto(es,NZ_,2) + 05)
nn(3) = Fuori90(Estratto(es,NA_,4) + Estratto(es,RO_,4) + 05)
ImpostaGiocata 2,nn,ruota,poste,k,2
Gioca es,True,,1
End If
Next
Next
'End If
Next
Scrivi String(108,"-")
Scrivi " SOMMA 90 GENOVA , di Chloè ",1
Scrivi String(108,"-")
ScriviResoconto
End Sub

Così giochi sempre ma vai in perdita.

 

[Mike58]

Si è come dice vengio la somma ad esempio ultimo è un indicemensile = 3 e lo script in origine è settato per l'indice mensile = 9.
Mi sembra ovvio che lo script in origine non lo trova.

Ciao

 

[rosce14]

Si è come dice vengio la somma ad esempio ultimo è un indicemensile = 3 e lo script in origine è settato per l'indice mensile = 9.
Mi sembra ovvio che lo script in origine non lo trova.

Ciao

GRAZIE SIETE GENTILISSIMI, INDICE MENSILE 9 VUOL DIRE ALLA NONA ESTRAZIONE NON AVEVO DATO PESO ALLA DESCRIZIONE DELLO SCRIPT, SE DOVESSI TROVARE ALTRE ANOMALIE VI DISTURBERO'.
GRAZIE ANCORA E BUONA NOTTE.