Ogni tanto mi viene un'idea in mente

[gorilla81]

Ok grazie mille!

 

[Roby]

Ciao Gorilla81, l'ho modificato, leggi all''interno le righe in verde
nell'help di Spaziometria "negli script" trovi decine di esempi, dai piu' facili fino a quelli di Luigi
anche L8 ha una guida anche se, paragonata a quella di spaziometria è indietro anni luce (senza offendere nessuno)

'per la differenza: ambata(1) = differenza(a,b) e ambata(2) = differenza(c,d)
'per la distanza: ambata(1) = distanza(a,b) e ambata(2) = distanza(c,d)
Sub Main()
	Dim ruota(10)	
	Dim ambata(10)
	Dim ambo(2)      
	Dim posta(10)
	Dim poste(2)     
	posta(1) = 1
	poste(2) = 1  
	co = 0
	rr = InputBox("Scegli la ruota degli estratti",,1) 'Qui cambi la ruota di ricerca degli estratti
	r = InputBox("Ruota di gioco?",,1)                 'Qui cambi la ruota di gioco
	r2 = InputBox("2°Ruota di gioco?",,2) 	         'Qui cambi la 2° ruota di gioco
	'r3= InputBox("3°Ruota di gioco?",,3)              'Se vuoi anche una 3° ruota togli l'apice prima di r3
	x = InputBox("Estrazione di partenza?",,8500)
	k = InputBox("Colpi di gioco?",,10)
	ini = x                                           
	fin = EstrazioneFin					   
	For es = ini To fin                                
		AvanzamentoElab ini,fin,es			 
		Messaggio(es)					  
		p1 = 1     ' posizione = 1°
		p2 = 2     ' posizione = 2°
		ruota(1) = r                                 'questa è la ruota di gioco in impostagiocata
		' se vuoi aggiungere le ruote nelle inputbox devi riportarle anche qui, in questo modo:
		ruota(2) = r2
		casi = casi + 1                              
		a = Estratto(es - 1,rr,p1) : b = Estratto(es,rr,p1)
		c = Estratto(es - 1,rr,p2) : d = Estratto(es,rr,p2)
		Scrivi String(105,"*") & " Caso n° " & Format2(casi),1 : ColoreTesto 0
		co = co + 1
		ColoreTesto 1
		Scrivi DataEstrazione(es - 1) & "    " & SiglaRuota(rr) & "    " & StringaEstratti(es - 1,rr) & "     " & p1 & "°Estratto = " & Format2(a) & "    " & p2 & "°Estratto = " & Format2(c),1
		Scrivi DataEstrazione(es) & "    " & SiglaRuota(rr) & "    " & StringaEstratti(es,rr) & "     " & p1 & "°Estratto = " & Format2(b) & "    " & p2 & "°Estratto = " & Format2(d),1
		ColoreTesto 0
		ambata(1) = Fuori90(a + b) 'gioca la somma dei primi estratti di Bari
		ambata(2) = Fuori90(c + d) 'gioca la somma dei secondi estratti di Bari
		' se vuoi giocare solo un ambata metti l'apice (') davanti all'ambata che vuoi escludere
		ImpostaGiocata 1,ambata,ruota,poste,k,2 'mettendo poste al posto di posta giochi solo l'ambo
		' se invece vuoi giocare sia la doppia ambata che l'ambo, in alto devi aggiungere posta(2)= 1
		'e In ImpostaGiocata metti posta e togli poste
		' il 2 finale in impostagiocata significa che al momento lo script si interrompe solo per la sortita
		' dell'ambo (o per fine range colpi) e non dell'ambata, per quest'ultima devi mettere 1, che sta per estratto
		'-----------------------------------------------------------------------
		'ambo(1) = ambata(1) ' togli l'apice all'inizio 
		'ambo(2) = qui metti il numero che vuoi, poi togli l'apice all'inizio della stringa ambo(2) = etc...
		'ImpostaGiocata 2,ambo,ruota,poste,k,2   ' stesso discorso, togli l'apice all'inizio
		
		Gioca es,1   
	Next
	Scrivi:Scrivi:Scrivi:ScriviResoconto
	End Sub

 

[gorilla81]

Grazie di vero cuore Blackmore!!!