Richiesta script

fatina76 · 26 Novembre 2013

Buonasera a tutti.
Per cortesia avrei bisogno,se possibile,di uno script.
Vorrei che all'uscita di un determinato numero su una ruota si mettessero in gioco un numero fisso x ambata e due numeri fissi di abbinamento per ambo. Con la possibilità di variare numeri e ruota.
Es:
in data 26.11 è uscito su milano il numero 1. quindi giocare x ambata il numero 90 e x ambo i fissi 2 e 9 sulla stessa ruota di uscita e come lunghetta x ambo e terno su tutte x 10 colpi.

E' possibile anche fare la ricerca quando il numero 1 esce solo in una determinata posizione?

Grazie infinite a tutti.
fatina

Roby · 26 Novembre 2013

Leggi all' interno dello script

Ciao

Codice:

Sub Main()
	Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
	Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),terzina(3),posta(1),poste(2),postee(3)
	posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1
	ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
	ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
	rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
	ext = CInt(InputBox("Estratto Spia","SPIA","1"))
	pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
	am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
	ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2.9")
	ff = "0." & ff
	h = Split(ff,".")
	f1 = CInt(h(1)) : f2 = CInt(h(2))
	k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio "Metodo di Fatina76 Scripted By Black"
		'For pos = 1 To 5  ' togliere l'apice per la ricerca in tutte le posizioni
		a = Estratto(es,ru,pos)
		If a = ext Then
			ruota(1) = rx : ruote(1) = TU_
			co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
			Scrivi DataEstrazione(es) & "  " & SiglaRuota(ru) & "  " & StringaEstratti(es,ru) & "  Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
			ColoreTesto 0
			ambata(1) = am
			ImpostaGiocata 1,ambata,ruota,posta,k,1
			ambo1(1) = am
			ambo1(2) = f1
			ImpostaGiocata 2,ambo1,ruota,poste,k,2
			ambo2(1) = am
			ambo2(2) = f2
			ImpostaGiocata 3,ambo2,ruota,poste,k,2
			terzina(1) = am
			terzina(2) = f1
			terzina(3) = f2
			ImpostaGiocata 4,terzina,ruote,postee,k,2
			Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
		End If
		'Next  ' togliere l'apice per la ricerca in tutte le posizioni
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub

fatina76 · 26 Novembre 2013

Blackmore ha scritto:

Leggi all' interno dello script

Ciao

Codice:

Sub Main()
	Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
	Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),terzina(3),posta(1),poste(2),postee(3)
	posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1
	ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
	ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
	rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
	ext = CInt(InputBox("Estratto Spia","SPIA","1"))
	pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))[U][B][I]'mettere l'apice se si desidera la ricerca in tutte le posizioni[/I][/B][/U]
	am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
	ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2.9")
	ff = "0." & ff
	h = Split(ff,".")
	f1 = CInt(h(1)) : f2 = CInt(h(2))
	k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio "Metodo di Fatina76 Scripted By Black"
		'For pos = 1 To 5  ' togliere l'apice per la ricerca in tutte le posizioni
		a = Estratto(es,ru,pos)
		If a = ext Then
			ruota(1) = rx : ruote(1) = TU_
			co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
			Scrivi DataEstrazione(es) & "  " & SiglaRuota(ru) & "  " & StringaEstratti(es,ru) & "  Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
			ColoreTesto 0
			ambata(1) = am
			ImpostaGiocata 1,ambata,ruota,posta,k,1
			ambo1(1) = am
			ambo1(2) = f1
			ImpostaGiocata 2,ambo1,ruota,poste,k,2
			ambo2(1) = am
			ambo2(2) = f2
			ImpostaGiocata 3,ambo2,ruota,poste,k,2
			terzina(1) = am
			terzina(2) = f1
			terzina(3) = f2
			ImpostaGiocata 4,terzina,ruote,postee,k,2
			Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
		End If
		'Next  ' togliere l'apice per la ricerca in tutte le posizioni
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub

Ciao Black,
grazie mille per la rapidità e la disponibiltà.
Ma scusa la mia ignoranza, come faccio a fare la ricerca in tutte le posizioni? non riesco a capire cosa mettere al posto dell'1.
Perdonami e grazie.
Fatina

Roby · 26 Novembre 2013

Prima dell'inputbox inserisci l'apice così
' pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))

qui invece lo devi cancellare
' For pos = 1 To 5

anche qui va tolto
' Next

fatina76 · 26 Novembre 2013

Grazie mille Black, ora funziona tutto perfettamente.
Grazie,grazie di cuore per tutto e ti auguro una buona serata.
Fatina

fatina76 · 29 Novembre 2013

Buonasera,sono di nuovo qui a disturbare.
Come posso modificare questo script, togliendo il secondo numero fisso,in modo da avere un solo ambo,oltre l'almbata,da calcolare su ruota e su tutte?
Grazie a chiunque mi risponderà

Roby · 29 Novembre 2013

Ciao fatina, leggi sempre all'interno dei listati, così una volta capito
il da farsi puoi farlo da sola, alla fine sono sempre le stesse cose...

Codice:

Sub Main()
	Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
	Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),terzina(3),posta(1),poste(2),postee(3)
	posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1
	ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
	ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
	rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
	ext = CInt(InputBox("Estratto Spia","SPIA","1"))
	pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
	am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
	ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2")
	ff = "0." & ff
	h = Split(ff,".")
	f1 = CInt(h(1)) ': f2 = CInt(h(2)) 'tolgo f2 (2°numero) che non serve 
	k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio "Metodo di Fatina76 Scripted By Black"
		'For pos = 1 To 5  ' togliere l'apice per la ricerca in tutte le posizioni
		a = Estratto(es,ru,pos)
		If a = ext Then
			ruota(1) = rx : ruote(1) = TU_ : ruote(2)= rx  'inserisco anche la ruota fissa anche per ruote(2) 
			co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
			Scrivi DataEstrazione(es) & "  " & SiglaRuota(ru) & "  " & StringaEstratti(es,ru) & "  Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
			ColoreTesto 0
			ambata(1) = am
			ImpostaGiocata 1,ambata,ruota,posta,k,1
			ambo1(1) = am
			ambo1(2) = f1
			ImpostaGiocata 2,ambo1,ruote,poste,k,2 ' ruote (gioca l'ambo sia su ruota fissa che a tutte) 
			ambo2(1) = am
			ambo2(2) = f2
			'ImpostaGiocata 3,ambo2,ruota,poste,k,2 '---> metto l'apice alle giocate che non mi interessano 
			terzina(1) = am
			terzina(2) = f1
			terzina(3) = f2
			'ImpostaGiocata 4,terzina,ruote,postee,k,2  '---> metto l'apice alle giocate che non mi interessano
			Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
		End If
		'Next  ' togliere l'apice per la ricerca in tutte le posizioni
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub

fatina76 · 29 Novembre 2013

Grazieeeeeeeeeeeee... ci avevo provato..ma avevo tolto troppo...ora ne ho di materiale per imparare....grazie ancora e buonissima serata

fatina76 · 5 Dicembre 2013

Buonasera,
ho voluto modificare lo script per fargli cercare 5 numeri invece che tre e ovviamente....non funziona... Black puoi controllare dove sbaglio? e se vorrei giocarne solo 4?
Perdona la mia ignoranza.

ecco il mio " capolavoro"

Sub Main()
Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),terzina(3),quaterna(4),cinquina(5),posta(1),poste(2),postee(3),posta(4),poste(5)
posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1 : poste(4) = 1 : poste(5) = 1
ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
ext = CInt(InputBox("Estratto Spia","SPIA","1"))
pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2.9.1.20")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2))
k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Metodo di Fatina76 Scripted By Black"
'For pos = 1 To 5 ' togliere l'apice per la ricerca in tutte le posizioni
a = Estratto(es,ru,pos)
If a = ext Then
ruota(1) = rx : ruote(1) = TU_
co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(ru) & " " & StringaEstratti(es,ru) & " Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
ColoreTesto 0
ambata(1) = am
ImpostaGiocata 1,ambata,ruota,posta,k,1
ambo1(1) = am
ambo1(2) = f1
ImpostaGiocata 2,ambo1,ruota,poste,k,2
ambo2(1) = am
ambo2(2) = f2
ImpostaGiocata 3,ambo1,ruota,poste,k,2
ambo3(1) = am
ambo3(2) = f3
ImpostaGiocata 4,ambo1,ruota,poste,k,2
ambo4(1) = am
ambo4(2) = f4
ImpostaGiocata 5,terzina,ruota,poste,k,3
terzina(1) = am
terzina(2) = f1
terzina(3) = f2
terzina(4) = f3
terzina(5) = f4
ImpostaGiocata 6,quaterna,ruote,postee,k,4
quaterna(1) = am
quaterna(2) = f1
quaterna(3) = f2
quaterna(4) = f3
quaterna(5) = f4
ImpostaGiocata 7,cinquina,ruote,postee,k,5
cinquina(1) = am
cinquina(2) = f1
cinquina(3) = f2
cinquina(4) = f3
cinquina(5) = f4
Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
End If
'Next ' togliere l'apice per la ricerca in tutte le posizioni
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

Roby · 5 Dicembre 2013

fatina76 ha scritto:
Buonasera,
ho voluto modificare lo script per fargli cercare 5 numeri invece che tre e ovviamente....non funziona... Black puoi controllare dove sbaglio? e se vorrei giocarne solo 4?
Perdona la mia ignoranza.

ecco il mio " capolavoro"

Sub Main()
Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),terzina(3),quaterna(4),cinquina(5),posta(1),poste(2),postee(3),posta(4),poste(5)
posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1 : poste(4) = 1 : poste(5) = 1
ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
ext = CInt(InputBox("Estratto Spia","SPIA","1"))
pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2.9.1.20")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2))
k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Metodo di Fatina76 Scripted By Black"
'For pos = 1 To 5 ' togliere l'apice per la ricerca in tutte le posizioni
a = Estratto(es,ru,pos)
If a = ext Then
ruota(1) = rx : ruote(1) = TU_
co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(ru) & " " & StringaEstratti(es,ru) & " Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
ColoreTesto 0
ambata(1) = am
ImpostaGiocata 1,ambata,ruota,posta,k,1
ambo1(1) = am
ambo1(2) = f1
ImpostaGiocata 2,ambo1,ruota,poste,k,2
ambo2(1) = am
ambo2(2) = f2
ImpostaGiocata 3,ambo1,ruota,poste,k,2
ambo3(1) = am
ambo3(2) = f3
ImpostaGiocata 4,ambo1,ruota,poste,k,2
ambo4(1) = am
ambo4(2) = f4
ImpostaGiocata 5,terzina,ruota,poste,k,3
terzina(1) = am
terzina(2) = f1
terzina(3) = f2
terzina(4) = f3
terzina(5) = f4
ImpostaGiocata 6,quaterna,ruote,postee,k,4
quaterna(1) = am
quaterna(2) = f1
quaterna(3) = f2
quaterna(4) = f3
quaterna(5) = f4
ImpostaGiocata 7,cinquina,ruote,postee,k,5
cinquina(1) = am
cinquina(2) = f1
cinquina(3) = f2
cinquina(4) = f3
cinquina(5) = f4
Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
End If
'Next ' togliere l'apice per la ricerca in tutte le posizioni
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

Fatina quando posti gli script racchiudili tra i tasti code (l'icona a forma di cancelletto in alto, #)
Ho evidenziato in rosso dove la stringa è incompleta
se vuoi 4 numeri devi aggiungere altri 2 fissi in modo che l'output li legga
in quella riga aggiungi queste formule in blu, compresi i 2 punti ----> : f3 = CInt(h(3)) : f4 = CInt(h(4))
se vuoi 5 numeri dovrai aggiungere anche ---> : f5 = CInt(h(5))
Se invece vuoi nuovamente giocare solo 2 o 3 numeri dovrai cancellare
o mettere un apice davanti a :f4, :f5 etc..
Ciao

fatina76 · 5 Dicembre 2013

Grazie mille Black,sei sempre così gentile. Però mi dà ugualmente questo errore : 1041 nome ridefinito ,linea 3, colonna 134 e mi evidenzia la frase che ti ho messo in rosso nello script..

Sub Main()
Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),terzina(3),quaterna(4),cinquina(5) ,posta(1),poste(2),postee(3),posta(4),poste(5)
posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1 : poste(4) = 1 : poste(5) = 1
ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
ext = CInt(InputBox("Estratto Spia","SPIA","1"))
pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2.9.1.20")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2))
k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Metodo di Fatina76 Scripted By Black"
'For pos = 1 To 5 ' togliere l'apice per la ricerca in tutte le posizioni
a = Estratto(es,ru,pos)
If a = ext Then
ruota(1) = rx : ruote(1) = TU_
co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(ru) & " " & StringaEstratti(es,ru) & " Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
ColoreTesto 0
ambata(1) = am
ImpostaGiocata 1,ambata,ruota,posta,k,1
ambo1(1) = am
ambo1(2) = f1
ImpostaGiocata 2,ambo1,ruota,poste,k,2
ambo2(1) = am
ambo2(2) = f2
ImpostaGiocata 3,ambo1,ruota,poste,k,2
ambo3(1) = am
ambo3(2) = f3
ImpostaGiocata 4,ambo1,ruota,poste,k,2
ambo4(1) = am
ambo4(2) = f4
ImpostaGiocata 5,terzina,ruota,poste,k,3
terzina(1) = am
terzina(2) = f1
terzina(3) = f2
terzina(4) = f3
terzina(5) = f4
ImpostaGiocata 6,quaterna,ruote,postee,k,4
quaterna(1) = am
quaterna(2) = f1
quaterna(3) = f2
quaterna(4) = f3
quaterna(5) = f4
ImpostaGiocata 7,cinquina,ruote,postee,k,5
cinquina(1) = am
cinquina(2) = f1
cinquina(3) = f2
cinquina(4) = f3
cinquina(5) = f4
Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
End If
'Next ' togliere l'apice per la ricerca in tutte le posizioni
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

sono proprio imbranata...grazie ancora e scusami...

Roby · 5 Dicembre 2013

Fata se guardi bene le variabili posta(1) e poste(2) le hai già scritte è per questo che
ti da errore, le hai scritte 2 volte
cancella le 2 che hai evidenziato

fatina76 · 5 Dicembre 2013

12.03.2005 MI 02.54.68.30.10 Estratto Spia: 02 In 1° Posizione
Estrazione generatrice del pronostico 07425 [ 21 - 12/03/2005]
G 0001 Numeri in gioco : 90 su MI per Estratto
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 90.03 su MI per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 90.03 su MI per Ambo
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 90.03 su MI per Ambo
Interrotta per raggiunta durata

G 0005 Numeri in gioco : 90.03.10 su MI per Ambo
Interrotta per raggiunta durata

G 0006 Numeri in gioco : 90.03.10.01 su TT per Ambo,Terno
V N. [90.03.10.01 ] [TT] [BA][.. .. 90 10 ..] C. 1 Ambo 07426 [ 22 - 16/03/2005]
V N. [90.03.10.01 ] [TT] [RO][10 90 01 .. ..] C. 1 Terno 07426 [ 22 - 16/03/2005]
Interrotta per raggiunta durata

G 0007 Numeri in gioco : 90.03.10.01.20 su TT per Ambo,Terno
V N. [90.03.10.01.20 ] [TT] [BA][.. .. 90 10 ..] C. 1 Ambo 07426 [ 22 - 16/03/2005]
V N. [90.03.10.01.20 ] [TT] [RO][10 90 01 .. ..] C. 1 Terno 07426 [ 22 - 16/03/2005]
Interrotta per raggiunta durata

ecco black,togliendo togliendo funziona,ma come vedi mi calcola tre volte lo stesso ambo su ruota e invece vorrei che ne calcolasse 4 con i numeri fissi che ho messo...scusami ancora,se non hai tempo,va bene così. è già troppo quello che hai fatto.
Grazie

Roby · 5 Dicembre 2013

in impostagiocata avevi sempre ambo1

Codice:

Sub Main()
Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),quaterna(5),posta(4),poste(5),postee(5)
posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1 
ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
ext = CInt(InputBox("Estratto Spia","SPIA","1"))
pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","3.10.1.20")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3)) : f4 = CInt(h(4))
k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Metodo di Fatina76 Scripted By Black"
'For pos = 1 To 5 ' togliere l'apice per la ricerca in tutte le posizioni
a = Estratto(es,ru,pos)
If a = ext Then
ruota(1) = rx : ruote(1) = TU_ : ruote(2)= rx 
co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(ru) & " " & StringaEstratti(es,ru) & " Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
ColoreTesto 0
ambata(1) = am
ImpostaGiocata 1,ambata,ruota,posta,k,1
ambo1(1) = am
ambo1(2) = f1
ImpostaGiocata 2,ambo1,ruota,poste,k,2
ambo2(1) = am
ambo2(2) = f2
ImpostaGiocata 3,ambo2,ruota,poste,k,2
ambo3(1) = am
ambo3(2) = f3
ImpostaGiocata 4,ambo3,ruota,poste,k,2
ambo4(1) = am
ambo4(2) = f4
ImpostaGiocata 5,ambo4,ruota,poste,k,3
quaterna(1) = am
quaterna(2) = f1
quaterna(3) = f2
quaterna(4) = f3
quaterna(5) = f4
ImpostaGiocata 6,quaterna,ruote,postee,k,5

Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
End If
'Next ' togliere l'apice per la ricerca in tutte le posizioni
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

fatina76 · 5 Dicembre 2013

Non ho parole...grazie Black,sei un grande...sempre pronto ad aiutare chi come me ha la testa dura dura.
Grazie ancora e ti auguro una splendida serata

fatina76 · 12 Dicembre 2013

Sub Main()
Scrivi:Scrivi "Metodo di Fatina76 Scripted By Blackmore": Scrivi
Dim ruota(10),ruote(10),ambata(1),ambo1(2),ambo2(2),terzina(3),posta(1),poste(2),postee(3)
posta(1) = 1 : poste(2) = 1 : postee(3) = 1 : postee(2) = 1
ini = InputBox("Inizio ricerca Estrazione n°","INIZIO RICERCA","7000")
ru = InputBox("Ruota di ricerca","RUOTA DI RICERCA","5")
rx = InputBox("Ruota di gioco","RUOTA DI GIOCO","5")
ext = CInt(InputBox("Estratto Spia","SPIA","1"))
pos = CInt(InputBox("Posizione dell' estratto","POSIZIONE","1"))'mettere l'apice se si desidera la ricerca in tutte le posizioni
am = InputBox("Inserisci l'ambata da giocare","AMBATA","90")
ff = InputBox("Digita i 2 Fissi da abbinare all'ambata","FISSI","2.9")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2))
k = InputBox("Colpi di verifica","COLPI DI GIOCO","10")
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Metodo di Fatina76 Scripted By Black"
'For pos = 1 To 5 ' togliere l'apice per la ricerca in tutte le posizioni
a = Estratto(es,ru,pos)
If a = ext Then
ruota(1) = rx : ruote(1) = TU_
co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1 : ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(ru) & " " & StringaEstratti(es,ru) & " Estratto Spia: " & Format2(a) & " In " & pos & "° Posizione"
ColoreTesto 0
ambata(1) = am
ImpostaGiocata 1,ambata,ruota,posta,k,1
ambo1(1) = am
ambo1(2) = f1
ImpostaGiocata 2,ambo1,ruota,poste,k,2
ambo2(1) = am
ambo2(2) = f2
ImpostaGiocata 3,ambo2,ruota,poste,k,2
terzina(1) = am
terzina(2) = f1
terzina(3) = f2
ImpostaGiocata 4,terzina,ruote,postee,k,2
Gioca es,1 ' Togliere ,1 dopo gioca es se si usa L8 o Lottodesk
End If
'Next ' togliere l'apice per la ricerca in tutte le posizioni
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

Ciao Black,
provando e riprovando stò iniziando a capire i vari significati delle istruzioni,ma alcune mi sono ancora sconosciute.
Mi potresti spiegare,per cortesia, quelle che ti ho evidenziato?
Ti ringrazio tantissimo.
Fatina

fatina76 · 15 Dicembre 2013

Ciao,
nessun altro che me lo possa spiegare? Grazie a tutti

Roby · 16 Dicembre 2013

Ciao Fatina, split vuol dire dividere, in questo caso divide i 2 numeri da un punto "." il cint invece converte in intero
i co qui sono i casi, scrivendo co=co+1 ogni volta incrementa di 1 i casi trovati
mentre la stringa scrivi dataestrazione etc... Sono più che altro per dare un output più chiaro
mostrando i 5 estratti dell'estrazione esaminata, la ruota e così via...
Se apri uno script e poi vai nell'help c'è la guida fatta da Luigi
ti consiglio di leggerla, almeno le istruzioni basilari, ti saranno molto utili
ciao

fatina76 · 16 Dicembre 2013

Grazie mille black,e scusa se ti disturbo sempre ma da sola tutto tutto non capisco

Buona serata

Richiesta script

Member

Roby

Guest

Member

Roby

Guest

Member

Member

Roby

Guest

Member

Member

Roby

Guest

Member

Roby

Guest

Member

Roby

Guest

Member

Member

Member

Roby

Guest

Member