Aiuto per costruzione script

[fatina76]

Buonasera a tutti,
sono qui di nuovo a disturbare.
Vi seguo sempre,ma di script ci capisco poco poco.
Volevo chiedere agli esperti se potrebbero crearmene uno ,che poi potrei modificare a seconda dei numeri che vorrei cercare.
Cerco di spiegarmi meglio.

Numero spia 1 sulla ruota di Bari.
Dalla estrazione successiva vorrei giocare su Cagliari i numeri 50 - 90.

Per ambate e ambo per 10 colpi.

Questo è un esempio,che potrei ogni volta modificare cambiando il numero spia con la relativa ruota e i numeri fissi e la ruota su cui giocarli.
Se mi dareste anche un paio di dritte su come modificare il tutto,non finirei più di ringraziarvi.

P.s. credo che quello che era nella mia testa,sia stato scritto in modo moltoooo confuso.
Se non capite,cercherò di riscrivere il tutto.

Scusate ancora e grazie a tutti per il magnifico lavoro che svolgete.
fatina

 

[Roby]

Ciao Fatina76
all'interno dello script ci sono tutte le spiegazioni che ti servono

Sub Main()
'per fatina76 By Blackmore (Forum Lottoced)
	Dim ruote(10)
	Dim ambo(10) ' imposto la variabile per l'ambo
	Dim poste(2) ' imposto la variabile per le poste in gioco
	poste(1) = 1 ' 1 euro sulle ambate
	poste(2) = 1 ' 1 euro sull'ambo
	ini = InputBox("ESTRAZIONE DI PARTENZA",,8500) ' puoi cambiare il numero dell'estrazione iniziale
	r1 = CInt(InputBox("RUOTA DI RICERCA SPIA",,1)) ' questa è la ruota di ricerca del numero spia
	sp = CInt(InputBox("NUMERO SPIA",,1)) ' inserisci il numero spia che vuoi
	r2 = CInt(InputBox("RUOTA DI GIOCO",,2)) ' questa è la ruota dove giocare la previsione
	nu1 = InputBox("1° NUMERO ?",,50) ' Il 1°numero da giocare
	nu2 = InputBox("2° NUMERO ?",,90) ' Il 2°numero da giocare
	k = InputBox("COLPI DI GIOCO",,10) ' colpi di gioco
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		For p = 1 To 5 ' il programma cerca la spia in tutte e 5 le posizioni
			a = Estratto(es,r1,p) ' estratto della ruota di gioco
			If a = sp Then ' se l'estratto è la spia scelta allora procede
				co = co + 1
				Scrivi String(100,"=") & " Caso n°" & Format2(co),1
				Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  NUMERO SPIA --> ",1 & Format2(a) & " <---"
				ruote(1) = r2 ' la ruota di gioco è quella scelta nell'inputbox
				ambo(1) = nu1 ' questo è il 1° numero dell'inputbox
				ambo(2) = nu2 ' questo è il 2° numero dell'inputbox
				ImpostaGiocata 1,ambo,ruote,poste,k,2 'la giocata è una sola (ambo), ruote di gioco, poste(sia x ambata che per ambo),colpi,2(si ferma all'uscita dell'ambo)
				Gioca es,1
			End If
		Next
		If ScriptInterrotto Then Exit For ' se l'elaborazione risultasse lunga si puo' fermare premendo il tasto STOP
	Next
	Scrivi:Scrivi:ScriviResoconto
End Sub

 

[fatina76]

Grazie mille Blackmore, hai fatto lo script che volevo in pochissimo tempo.
Sei un grande....sei anche riuscito a decifrare quello che la mia testolina voleva far capire

Imparare a creare uno script da sola,sarà improbabile,ma provando e riprovando a modificare questo con le tue ottime istruzioni,mi sarà molto di aiuto.
Grazie ,grazie ancora per tutto.

Fatina

 

[Roby]

Vedrai che imparerai, se hai pazienza e voglia piano piano inizierai a creare i tuoi primi script
Ciao

 

[fatina76]

Voglia e pazienza ci sono....speriamo
grazie ancora