Novità

perche non gira ?

genios

Advanced Member >PLATINUM PLUS<
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
 
Ciao genios,
vedi se gira...

Codice:
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
 
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
 
genios;n1887303 ha scritto:
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.
 
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
 
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.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto