perche non gira ?

[genios]

Sub Main()
Dim num(),nu(1),ru(10),nr(),ner(),totc(10)
Dim yy,Ini,fin,es,tst,rr,ruote,Tot,Totx,Toty,y
Dim nmr(),riga , rigo


'nmr=Array(1,2,3,4,5,6,7,8,9,90)
'nmr=Array(11,12,13,14,15,16,17,18,19,10)
'nmr=Array(21,22,23,24,25,26,27,28,29,20)
'nmr=Array(31,32,33,34,35,36,37,38,39,30)
'nmr=Array(41,42,43,44,45,46,47,48,49,40)
'nmr=Array(51,52,53,54,55,56,57,58,59,50)
'nmr=Array(61,62,63,64,65,66,67,68,69,60)
' nmr=Array(71,72,73,74,75,76,77,78,79,70)
'nmr=Array(81,82,83,84,85,86,87,88,89,80)

yy= 1 '<=== numero fisso da sommare al tot per avere totx
Ini=7600
fin=EstrazioneFin
es=fin
'co= co+1 '<==
tst="Segna i numeri delle ruote da sommare"&Chr(10)&_
"(separati da un punto) anche tutte 10"&Chr(10)&Chr(10)&"es. 1.4.5.10"&_
" per BA-GE-MI-VE"
rr=InputBox(tst,"","1.2.3.4.5.6.7.8.9.10")
If rr="" Then Exit Sub
rr="0."&rr
ruote=Split(rr,".")

Tot=UBound(ruote)+2
Totx=Tot+1
Toty=Totx+1
ReDim num(12,Toty)

ReDim nr(Tot-2)
For y=1 To 10
num(y,1)=nmr (y-1)
nu(1)=num(y,1)
For x=1 To UBound(ruote)
ru(1)=ruote(x)
num(y,x+1)=SerieRitardo(es-200,es,nu,ru,1)
num(y,Tot)= num(y,Tot)+ num(y,x+1)
num(y,Totx)=num(y,Tot)+yy '<==== il calcolo di totx cioè tot+fisso yy
totc(x)=totc(x)+num(y,x+1)

Next
Next

For x=1 To 10 'scorro il vettore totc (tot colonna)
num(x,Toty)=totc(x)+yy ' <=== il calcolo di totaly (sommo il totale colonna col fisso yy)
Next

Scrivi "::::::::""& fino all'estrazione n°:" &fin&" del "& DataEstrazione(fin)
Scrivi " tot x = tot + il fisso " & yy
Scrivi " tot y = totc + il fisso " & yy& Chr(10)

riga=" Numeri" : rigo=" Totali "
For x=1 To UBound(ruote)
riga=riga & FormatSpace(Left(NomeRuota(ruote(x)),2),5,1) & " "
rigo=rigo & FormatSpace(totc(x),5,1)& " "
Next
riga=riga & Space(2)&"Tot " &"Totx "&" Totaly"
Scrivi riga,1
'OrdinaMatrice num,-1,tot
ScriviMatrice num
Scrivi rigo,1

End Sub

 

[Moro_80]

Ciao genios,
vedi se gira...

Sub Main() 
Dim num(),nu(1),ru(10),nr(),ner(),totc(10)




'nmr=Array(1,2,3,4,5,6,7,8,9,90)
'nmr=Array(11,12,13,14,15,16,17,18,19,10)
nmr=Array(21,22,23,24,25,26,27,28,29,20)
'nmr=Array(31,32,33,34,35,36,37,38,39,30)
'nmr=Array(41,42,43,44,45,46,47,48,49,40)
'nmr=Array(51,52,53,54,55,56,57,58,59,50)
'nmr=Array(61,62,63,64,65,66,67,68,69,60)
' nmr=Array(71,72,73,74,75,76,77,78,79,70)
'nmr=Array(81,82,83,84,85,86,87,88,89,80)

yy= 1 '<=== numero fisso da sommare al tot per avere totx
ini=7600
fin=EstrazioneFin
es=fin 
'co= co+1  '<== 
tst="Segna i numeri delle ruote da sommare"&Chr(10)&_ 
"(separati da un punto) anche tutte 10"&Chr(10)&Chr(10)&"es. 1.4.5.10"&_ 
" per BA-GE-MI-VE" 
rr=InputBox(tst,"","1.2.3.4.5.6.7.8.9.10") 
If rr="" Then Exit Sub 
rr="0."&rr 
ruote=Split(rr,".") 

tot=UBound(ruote)+2



totx=tot+1
toty=totx+1
Roc=toty+1
nuc=roc+1

ReDim num(12,nuc)

ReDim nr(tot-2) 
For y=1 To 10 
num(y,1)=nmr (y-1) 
nu(1)=num(y,1) 
For x=1 To UBound(ruote) 
ru(1)=ruote(x) 
num(y,x+1)=SerieRitardo(es-200,es,nu,ru,1) 
num(y,tot)= num(y,tot)+ num(y,x+1)
num(y,totx)=num(y,tot)+yy    '<==== il calcolo di totx cioè tot+fisso yy
totc(x)=totc(x)+num(y,x+1)
num(y,nuc)=num(y,1)

Next 
Next

For x=1 To 10 'scorro il vettore totc (tot colonna)
num(x,toty)=totc(x)+yy ' <=== il calcolo di totaly (sommo il totale colonna col fisso yy)
num(x,roc)=SiglaRuota(x)
Next

OrdinaMatrice num,-1,tot  '<==================== ORDINAMENTO MATRICE

Scrivi "::::::::""& fino all'estrazione n°:" &fin&" del "& DataEstrazione(fin)
Scrivi " tot x =  tot + il fisso " & yy
Scrivi " tot y =  totc + il fisso " & yy& Chr(10)

riga=" Numeri" : rigo=" Totali "
For x=1 To UBound(ruote) 
riga=riga & FormatSpace(Left(NomeRuota(ruote(x)),2),5,1) & " " 
rigo=rigo & FormatSpace(totc(x),5,1)& " "
Next 
riga=riga & Space(2)&"Tot " &" Totx "&" Toty "&" Ruota "& " Num"
Scrivi riga,1 




For y= 1 To 10
For x=1 To nuc    
Scrivi " "& FormatSpace(num(y,x),5,1),0,0
If x= nuc Then Scrivi "",0,1
Next
Next
Scrivi
Scrivi rigo,1
End Sub

Ciao

 

[genios]

Moro_80 no non gira.

 

[Moro_80]

Io lo copio pari pari in spaziometria come l'ho postato io e non dà errori nè niente...quindi gira.
Se poi intendi per valori,risultati e quant'altro allora non saprei, non l'ho redatto io.


Ciao

 

[salvo50]

Confermo

Gira

 

[genios]

Questo è l' errore che mi da. ciao

 

[Moro_80]

Devi usare quello postato da me....

 

[genios]

Risolto ho tolto Option Explicit . Chissà perché cosi funziona.
Ciao Grazie a tutti

 

[Joe91]

Risolto ho tolto Option Explicit . Chissà perché cosi funziona.
Ciao Grazie a tutti

Ciao Eugenio ...

perché quando lo script inizia con Option Explicit

poi TUTTE le variabili utilizzate nello script devono essere dimensionate (con DIM)

e ... non farlo è un errore quindi più che togliere Option Explicit

bisognerebbe dichiarare tutte le variabili utilizzate ed inserire tutte le DIM necessarie.

Cordiali saluti.

 

[genios]

Grazie dell' aiuto Joe91 ho anche provato a inizializzare tutte le variabili ma in alcuni script si bloccava comunque . Sto portando gli script del vecchio programma in Spaziometria ma alcuni non funzionano . Vorrei chiederti se hai modificato lo script per Spaziometria dello script che mi avevi fatto tempo fa' su http://www.lottodesk.it/forum/index.php?topic=1519.45 .
Caio Eugenio

 

[Joe91]

Si ma vale la risposta di allora.

Non lo rendo disponibile oltre la versione la presente.

Se non funziona ... e per funziona intendo funziona-correttamente è perchè qualche anima buona l'ha rovinato.

Quindi regola: I miei script sono fatti per me e perchè funzionino. Bene. (Poi di errori ne commettiamo tutti. Chiedo venia per i miei)

Quando i miei script ... poi ... smettono di funzionare normalmente è perchè qualcuno ... ha voluto così ed operato in tale prospettiva.

Ed io ... naturalmente da un lato non posso correre dietro a tutte le malefatte altrui.

Dall'altro non mi diverto a farlo. Terzo non ne ho ... neppure il tempo.

Quindi prendo atto, di ciò che è ... e che di tanto in tanto mi riferiscono.

Buona Giornata.

PS: Uno script vecchio, come quello funziona, io so che funziona anche con Spaziometria.

Eventualmente dovrai cambiare ... solo Scrivimatrice che se è una StringaNumeri ...

Spaziometria ne vede e ne fa fa differenza. E/o poche altre cose.

Ora ... non ricordo con precisione, tutte le mofdifche che vi avevo apportato.

 

[genios]

Ok provo . Ma non ho capito l' arcano .
Ciao Eugenio