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
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto