Per Esselotto , claudio8, rubino- --aiuto script

[Roby]

Ciao , mi rivolgo a voi ,data la vostra indiscussa bravura negli script ed io sono una vera schiappa in questo campo....mi servirebbero 2 script x "SPAZIOMETRIA" o L8 .
Il primo un semplice modulo a 90
Di questo tipo :
1)Output per inserimento dei 5 estratti a mia scelta
2)Output per inserimento dei 5 estratti sortiti(estrazione successiva) con evidenziatore degli stessi.
Esempio estraz. del 17/5 su BARI
48.41.30.49.20
49.42.31.50.21
50.43.32.51.22
51.44.33.52.23
E cosi via fino ad arrivare alla cinquina originale.

L'altro script uguale solo che mi serve x il Lotto UK49
Esempio :sestina estratta + numero jolly del 16/5/2011
15 02 19 44 33 11 08
16.03.20.45.34.12.09
17.04.21.46.35.13.10
18.05.22.47.36.14.11
19.06.23.48.37.15.12
20.07.24.49.38.16.13
21.08.25.01.39.17.14
E cosi via fino alla settina originale, da notare che dopo il 49 si ritorna a 1 perche' i numeri sono 49 in totale all' UK49.

Vi ringrazio di cuore anticipatamente

 

[imported_n/a]

Nessuno mi aiuta? [V]

E cosi difficile x voi esperti realizzare questi 2 script x spaziometria?[:0]

Grazie lo stesso comunque x le tante visite

 

[stef]

Prova questo.

Option Explicit
Sub Main
	Dim n(5),i,j
	For j = 1 To 5
		n(j) = InputBox("Inserisci i 5 estratti",j,j)
	Next
	For i = 1 To 90
		n(1) = Format2(Fuori90(n(1) + 1))
		n(2) = Format2(Fuori90(n(2) + 1))
		n(3) = Format2(Fuori90(n(3) + 1))
		n(4) = Format2(Fuori90(n(4) + 1))
		n(5) = Format2(Fuori90(n(5) + 1))
		Scrivi StringaNumeri(n)
	Next
End Sub

 

[imported_n/a]

Ciao stef , ti ringrazio x la tua gentilezza pero' manca la seconda parte , questa:
2)Output per inserimento dei 5 estratti sortiti(estrazione successiva) con evidenziatore degli stessi.

Buon pomeriggio

 

[stef]

Option Explicit
Sub Main
Dim es,ru,p,i,n(5)
    
	es = InputBox ("Quale estrazione vuoi elaborare?","Estrazione",8300)
	ru = InputBox ("Su quale ruota?","Ruota",1)
	For p = 1 To 5
	    n(p) = Estratto(es,ru,p)
	Next 
	ColoreTesto(2)
	Scrivi "Estrazione del " & DataEstrazione(es) & " Sulla ruota di " & NomeRuota(ru)
	Scrivi StringaNumeri(n)
	ColoreTesto (1)
	For i = 1 To 90
		n(1) = Format2(Fuori90(n(1) + 1))
		n(2) = Format2(Fuori90(n(2) + 1))
		n(3) = Format2(Fuori90(n(3) + 1))
		n(4) = Format2(Fuori90(n(4) + 1))
		n(5) = Format2(Fuori90(n(5) + 1))
		Scrivi StringaNumeri(n)
	Next    
	
End Sub

 

[imported_n/a]

Grazie mille di cuore stef , lo script e' perfetto!

Notte [8D]

 

[Roby]

....la domanda e':qual'e' lo scopo di farsi fare listati per lo stesso metodo su due forum diversi?bohhhhh ..........
ciao gabriele !

SUERTE !!!!

 

[imported_n/a]

quote:Originally posted by artemisio

....la domanda e':qual'e' lo scopo di farsi fare listati per lo stesso metodo su due forum diversi?bohhhhh ..........
ciao gabriele !

SUERTE !!!!

Pure tu mi ronzi intorno come una

?

Ma i cavolacci tua , come me li faccio io proprio non te li sai fare ?

Io per caso entro nei tuoi post a disturbarti o criticarti?

 

[Roby]

non mi hai risposto.......eppoi entra pure nei miei post ......ne hai facolta'......
Ciao Gabriele !!

SUERTE !!!!

 

[imported_n/a]