Novità

aiuto per script

V

vengio

Super Member >GOLD<
Scusate ragazzi, qualcuno puo spiegarmi come impostare un indice settimanale (Martedi-giovedi-sabato) negli script?
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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.


Codice: 
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
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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

rosce14

Premium Member
Mike58 ha scritto:
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.
Clicca per espandere...
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

Mike58

Advanced Member >PLATINUM PLUS<
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

rosce14

Premium Member
GRAZIE, MIKE, SAPEVO CHE POTEVO CONTARE SU DI TE, LO FARO' AL PIU' PRESTO.
BUONA NOTTE.;)
 
Ultima modifica:
rosce14

rosce14

Premium Member
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.;)
 
Ultima modifica:
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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

rosce14

Premium Member
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.;)
 
V

vengio

Super Member >GOLD<
rosce14 ha scritto:
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.;)
Clicca per espandere...
Ma il 06.05.2014 è indice mensile 3 mentre lo script richiede il 9.
 
V

vengio

Super Member >GOLD<
Codice: 
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

Mike58

Advanced Member >PLATINUM PLUS<
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

rosce14

Premium Member
Mike58 ha scritto:
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
Clicca per espandere...
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.;)

 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto