PER COMINCIARE

[genios]

Come leggere l' archivio lotto di spaziometria .
Script che mi faccia vedere in uscita lo scrolling delle estrazioni .
Data estrazione numero dell' estrazione estratti per una ruota .

Ciao Eugenio

 

[Membro cancellato 16574]

Buongiorno,
Le postiamo piccolo listato ,fatto da amaretto ,veda se fa al caso suo.

Sub Main
	estr = InputBox("Quante estrazioni vuoi visuallizzare",,100)
	r = InputBox("Quale ruota vuoi analizzare","1=BA , ect , ect ,12=NZ",1)
	Ini = EstrazioneFin - estr
	fin = EstrazioneFin
	For es = Ini To Fin
		Call Messaggio(es)
		Call AvanzamentoElab(Ini,fin,es)
		Call Scrivi(GetInfoEstrazione(es) & "  " & NomeRuota(r) & "  " & StringaEstratti(es,r))
	Next
End Sub

 

[genios]

Grazie Magia .
Potresti fare un esempio con la funzione estratto?

ciao Eugenio

 

[genios]

Risolto ma come si allineano i numeretti a destra ?

Sub Main

Dim n(5)
Dim ruote(1)
For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
r1 = 1

n(1) = (Estratto(es,r1,1))
n(2) = (Estratto(es,r1,2))
n(3) = (Estratto(es,r1,3))
n(4) = (Estratto(es,r1,4))
n(5) = (Estratto(es,r1,5))
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) & n(1) & "." & n(2) & "."& n(3) & "."& n(4) & "."& n(5),1

Next

End Sub