Errore script

lota · 24 Novembre 2013

Ciao a tutti
gentilmente avrei bisogno d'aiuto per questo script che improvvisamente non funziona più, al lancio mi dà errore 1017-linea 37- colonna 8
errore di compilazione potreste darmi un aiuto? grazie e saluti

Codice:

Sub Main
	Scrivi Space(36)&"STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=")&"listedrobyca",1 :ColoreTesto 0

Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms

ms=InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms=CInt(ms)
r=InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r=CInt(r):ru(1)=r

fin=EstrazioneFin: ini=3950
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di "&_
MeseNome(ms)&" del periodo che và"&Chr(13)&"dal "&DataEstrazione (ini)&_
" al "& DataEstrazione (fin)&" sulla ruota di "& NomeRuota(r),1 : Call righeu
Scrivi Chr(13)&"Archivio degli ultimi 5 anni di estrazioni in "& MeseNome(ms)&Chr(13)&_
Chr(13)&"Nmr. Data Lotto"&Space(29)&"Superenalotto"&Chr(13)&Chr(13),1

c1=0: For x=1 To 9: For y=0 To 9:c1=c1+1:dn(x,y+1)=c1-1: Next : Next :dn(1,1)=90

For x=1 To 10: For y=0 To 8:cd(x,y+1)=x+(10*y): Next : Next
For x=1 To 9: For y=0 To 9:fg(x,y+1)=x+(9*y): Next : Next
gem(1)=11:gem(2)=22:gem(3)=33:gem(4)=44:gem(5)=55: gem(6)=66:gem(7)=77:gem(8)=88
For x=1 To 90:mtr(x,1)=x:nms(x,1)=x: Next

For es=ini To fin: Messaggio NomeRuota(r)&" "& MeseNome(ms)&" "& Anno(es)
If Mese(es)=ms Then
c0=c0+1

For x=1 To 90:nms(x,9)=nms(x,9)+1:fn=Posizione(es,r,x)
If fn=0 Then mtr(x,3)=mtr(x,3)+1
If fn>0 Then mtr(x,2)=mtr(x,2)+1:mtr(x,3)=0
If mtr(x,4)<mtr(x,3) Then mtr(x,4)=mtr(x,3)
Next

For p=1 To 6:ns=Estratto(es,,p,1):ena(p)=ns
nms(ns,8)=nms(ns,8)+1:nms(ns,p+1)=nms(ns,p+1)+1
If nms(ns,10)<nms(ns,9) Then nms(ns,10)=nms(ns,9)
nms(ns,9)=0: Next
OrdinaMatrice ena,+1
If es>(fin-520) Then : ColoreTesto 1: Scrivi es&" "& DataEstrazione(es)&_
" "& StringaEstratti(es,r)&Space(20)& StringaNumeri(ena),1: ColoreTesto 0

nm(0)=0: For x=1 To 9: For y=1 To 10:nm(y)=dn(x,y): Next
fdn=0:fdn=SerieFreq(es,es,nm,ru,2)
If fdn=0 Then totradn(x)=totradn(x)+1
If fdn>0 Then totfrdn(x)=totfrdn(x)+fdn:totradn(x)=0
If totrsdn(x)<totradn(x) Then totrsdn(x)=totradn(x)
Erase nm : Next

nm(0)=0: For x=1 To 10: For y=1 To 9:nm(y)=cd(x,y): Next
frcd=0:frcd=SerieFreq(es,es,nm,ru,2)
If frcd=0 Then totracd(x)=totracd(x)+1
If frcd>0 Then totfrcd(x)=totfrcd(x)+frcd:totracd(x)=0
If totrscd(x)<totracd(x) Then totrscd(x)=totracd(x)
Erase nm: Next

nm(0)=0: For x=1 To 9: For y=1 To 10:nm(y)=fg(x,y): Next
frfg=0:frfg=SerieFreq(es,es,nm,ru,2)
If frfg=0 Then totrafg(x)=totrafg(x)+1
If frfg>0 Then totfrfg(x)=totfrfg(x)+frfg:totrafg(x)=0
If totrsfg(x)<totrafg(x) Then totrsfg(x)=totrafg(x)
Erase nm: Next

For x=1 To 30:trz(1)=x:trz(2)=x+30:trz(3)=x+60
ftrz=0:ftrz=SerieFreq(es,es,trz,ru,2)
If ftrz=0 Then datitrz(x,2)=datitrz(x,2)+1
If ftrz>0 Then datitrz(x,1)=datitrz(x,1)+ftrz:datitrz(x,2)=0
If datitrz(x,3)<datitrz(x,2) Then datitrz(x,3)=datitrz(x,2)
Next

For x=1 To 8:rdl(1)=x:rdl(2)=x*10:rdl(3)=rdl(2)+x:rdl(4)=rdl( 2)+9
frdl=0:frdl=SerieFreq(es,es,rdl,ru,2)
If frdl=0 Then datirdl(x,2)=datirdl(x,2)+1
If frdl>0 Then datirdl(x,1)=datirdl(x,1)+frdl:datirdl(x,2)=0
If datirdl(x,3)<datirdl(x,2) Then datirdl(x,3)=datirdl(x,2)
Next

fgem=0:fgem=SerieFreq(es,es,gem,ru,2)
If fgem=0 Then datigem(2)=datigem(2)+1
If fgem>0 Then datigem(1)=datigem(1)+fgem:datigem(2)=0
If datigem(3)<datigem(2) Then datigem(3)=datigem(2)

For x=1 To 90:dativrt(x,1)=x:nr(1)=x:dativrt(x,2)=Vert(x):nr( 2)=Vert(x)
fvrt=0:fvrt=SerieFreq(es,es,nr,ru,2)
If fvrt=0 Then dativrt(x,4)=dativrt(x,4)+1
If fvrt>0 Then dativrt(x,3)=dativrt(x,3)+fvrt:dativrt(x,4)=0
If dativrt(x,5)<dativrt(x,4) Then dativrt(x,5)=dativrt(x,4)
Next
End If : Next

Call righeu: Scrivi Chr(13)&"Estratti ordinati per"&Space(11)&"FREQUENZA"&Space(25)&_
"RITARDO"&Chr(13)&Space(11)&"Pos."&Space(13)&"N."& Space(5)&"Fre."&Space(3)&"R.Att."&_
Space(13)&"N."&Sp
End Sub

Pomito · 24 Novembre 2013

cara lota ogni volta che incontri la stringa ">" sostituiscila con ">" ed ogni volta che incontri la stringa "<" sostituiscila con "<"

Pomito · 24 Novembre 2013

Ogni volta che incontri la stringa ">" sostituiscila con ">" ed ogni volta che incontri la stringa "<" sostituiscila con "<". ciao pomito

lota · 24 Novembre 2013

Pomito ha scritto:
Ogni volta che incontri la stringa ">" sostituiscila con ">" ed ogni volta che incontri la stringa "<" sostituiscila con "<". ciao pomito

Pomito ?????

lota · 25 Novembre 2013

Buona giornata a tutti io di script non mi intendo ma credo che l'utente che mi ha risposto si sia voluto prendere gioco di me, ripeto allora la mia richiesta c'è qualcuno che mi aiuta nella correzzione dello script?

Moro_80 · 25 Novembre 2013

Ciao lota,

prova se così funziona, ciao ciao.

Codice:

Sub Main
Scrivi Space(36) & "STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=") & "listedrobyca",1 :ColoreTesto 0

Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms = CInt(ms)
r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin: ini = 3950
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di " & _
MeseNome(ms) & " del periodo che và" & Chr(13) & "dal " & DataEstrazione(ini) & _
" al " & DataEstrazione(fin) & " sulla ruota di " & NomeRuota(r),1 : Call righeu
Scrivi Chr(13) & "Archivio degli ultimi 5 anni di estrazioni in " & MeseNome(ms) & Chr(13) & _
Chr(13) & "Nmr. Data Lotto" & Space(29) & "Superenalotto" & Chr(13) & Chr(13),1

c1 = 0: For x = 1 To 9: For y = 0 To 9:c1 = c1 + 1:dn(x,y + 1) = c1 - 1: Next : Next :dn(1,1) = 90

For x = 1 To 10: For y = 0 To 8:cd(x,y + 1) = x +(10*y): Next : Next
For x = 1 To 9: For y = 0 To 9:fg(x,y + 1) = x +(9*y): Next : Next
gem(1) = 11:gem(2) = 22:gem(3) = 33:gem(4) = 44:gem(5) = 55: gem(6) = 66:gem(7) = 77:gem(8) = 88
For x = 1 To 90:mtr(x,1) = x:nms(x,1) = x: Next

For es = ini To fin: Messaggio NomeRuota(r) & " " & MeseNome(ms) & " " & Anno(es)
If Mese(es) = ms Then
c0 = c0 + 1

For x = 1 To 90:nms(x,9) = nms(x,9) + 1:fn = Posizione(es,r,x)
If fn = 0 Then mtr(x,3) = mtr(x,3) + 1
If fn > 0 Then mtr(x,2) = mtr(x,2) + 1:mtr(x,3) = 0
If mtr(x,4) < mtr(x,3) Then mtr(x,4) = mtr(x,3)
Next

For p = 1 To 6:ns = Estratto(es,,p,1):ena(p) = ns
nms(ns,8) = nms(ns,8) + 1:nms(ns,p + 1) = nms(ns,p + 1) + 1
If nms(ns,10) < nms(ns,9) Then nms(ns,10) = nms(ns,9)
nms(ns,9) = 0: Next
OrdinaMatrice ena,+ 1
If es >(fin - 520) Then : ColoreTesto 1: Scrivi es & " " & DataEstrazione(es) & _
" " & StringaEstratti(es,r) & Space(20) & StringaNumeri(ena),1: ColoreTesto 0

nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm(y) = dn(x,y): Next
fdn = 0:fdn = SerieFreq(es,es,nm,ru,2)
If fdn = 0 Then totradn(x) = totradn(x) + 1
If fdn > 0 Then totfrdn(x) = totfrdn(x) + fdn:totradn(x) = 0
If totrsdn(x) < totradn(x) Then totrsdn(x) = totradn(x)
Erase nm : Next

nm(0) = 0: For x = 1 To 10: For y = 1 To 9:nm(y) = cd(x,y): Next
frcd = 0:frcd = SerieFreq(es,es,nm,ru,2)
If frcd = 0 Then totracd(x) = totracd(x) + 1
If frcd > 0 Then totfrcd(x) = totfrcd(x) + frcd:totracd(x) = 0
If totrscd(x) < totracd(x) Then totrscd(x) = totracd(x)
Erase nm: Next

nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm(y) = fg(x,y): Next
frfg = 0:frfg = SerieFreq(es,es,nm,ru,2)
If frfg = 0 Then totrafg(x) = totrafg(x) + 1
If frfg > 0 Then totfrfg(x) = totfrfg(x) + frfg:totrafg(x) = 0
If totrsfg(x) < totrafg(x) Then totrsfg(x) = totrafg(x)
Erase nm: Next

For x = 1 To 30:trz(1) = x:trz(2) = x + 30:trz(3) = x + 60
ftrz = 0:ftrz = SerieFreq(es,es,trz,ru,2)
If ftrz = 0 Then datitrz(x,2) = datitrz(x,2) + 1
If ftrz > 0 Then datitrz(x,1) = datitrz(x,1) + ftrz:datitrz(x,2) = 0
If datitrz(x,3) < datitrz(x,2) Then datitrz(x,3) = datitrz(x,2)
Next

For x = 1 To 8:rdl(1) = x:rdl(2) = x*10:rdl(3) = rdl(2) + x:rdl(4) = rdl(2) + 9
frdl = 0:frdl = SerieFreq(es,es,rdl,ru,2)
If frdl = 0 Then datirdl(x,2) = datirdl(x,2) + 1
If frdl > 0 Then datirdl(x,1) = datirdl(x,1) + frdl:datirdl(x,2) = 0
If datirdl(x,3) < datirdl(x,2) Then datirdl(x,3) = datirdl(x,2)
Next

fgem = 0:fgem = SerieFreq(es,es,gem,ru,2)
If fgem = 0 Then datigem(2) = datigem(2) + 1
If fgem > 0 Then datigem(1) = datigem(1) + fgem:datigem(2) = 0
If datigem(3) < datigem(2) Then datigem(3) = datigem(2)

For x = 1 To 90:dativrt(x,1) = x:nr(1) = x:dativrt(x,2) = Vert(x):nr(2) = Vert(x)
fvrt = 0:fvrt = SerieFreq(es,es,nr,ru,2)
If fvrt = 0 Then dativrt(x,4) = dativrt(x,4) + 1
If fvrt > 0 Then dativrt(x,3) = dativrt(x,3) + fvrt:dativrt(x,4) = 0
If dativrt(x,5) < dativrt(x,4) Then dativrt(x,5) = dativrt(x,4)
Next
End If : Next

Call righeu: Scrivi Chr(13) & "Estratti ordinati per" & Space(11) & "FREQUENZA" & Space(25) & _
"RITARDO" & Chr(13) & Space(11) & "Pos." & Space(13) & "N." & Space(5) & "Fre." & Space(3) & "R.Att." & _
Space(13) & "N." & Sp
End Sub

Sub righeu: ColoreTesto 1: Scrivi Chr(13) & String(90,"="),1: ColoreTesto 0: End Sub

lota · 25 Novembre 2013

Moro_80 ha scritto:

Ciao lota,

prova se così funziona, ciao ciao.

Codice:

Sub Main
Scrivi Space(36) & "STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=") & "listedrobyca",1 :ColoreTesto 0

Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms = CInt(ms)
r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin: ini = 3950
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di " & _
MeseNome(ms) & " del periodo che và" & Chr(13) & "dal " & DataEstrazione(ini) & _
" al " & DataEstrazione(fin) & " sulla ruota di " & NomeRuota(r),1 : Call righeu
Scrivi Chr(13) & "Archivio degli ultimi 5 anni di estrazioni in " & MeseNome(ms) & Chr(13) & _
Chr(13) & "Nmr. Data Lotto" & Space(29) & "Superenalotto" & Chr(13) & Chr(13),1

c1 = 0: For x = 1 To 9: For y = 0 To 9:c1 = c1 + 1:dn(x,y + 1) = c1 - 1: Next : Next :dn(1,1) = 90

For x = 1 To 10: For y = 0 To 8:cd(x,y + 1) = x +(10*y): Next : Next
For x = 1 To 9: For y = 0 To 9:fg(x,y + 1) = x +(9*y): Next : Next
gem(1) = 11:gem(2) = 22:gem(3) = 33:gem(4) = 44:gem(5) = 55: gem(6) = 66:gem(7) = 77:gem(8) = 88
For x = 1 To 90:mtr(x,1) = x:nms(x,1) = x: Next

For es = ini To fin: Messaggio NomeRuota(r) & " " & MeseNome(ms) & " " & Anno(es)
If Mese(es) = ms Then
c0 = c0 + 1

For x = 1 To 90:nms(x,9) = nms(x,9) + 1:fn = Posizione(es,r,x)
If fn = 0 Then mtr(x,3) = mtr(x,3) + 1
If fn > 0 Then mtr(x,2) = mtr(x,2) + 1:mtr(x,3) = 0
If mtr(x,4) < mtr(x,3) Then mtr(x,4) = mtr(x,3)
Next

For p = 1 To 6:ns = Estratto(es,,p,1):ena(p) = ns
nms(ns,8) = nms(ns,8) + 1:nms(ns,p + 1) = nms(ns,p + 1) + 1
If nms(ns,10) < nms(ns,9) Then nms(ns,10) = nms(ns,9)
nms(ns,9) = 0: Next
OrdinaMatrice ena,+ 1
If es >(fin - 520) Then : ColoreTesto 1: Scrivi es & " " & DataEstrazione(es) & _
" " & StringaEstratti(es,r) & Space(20) & StringaNumeri(ena),1: ColoreTesto 0

nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm(y) = dn(x,y): Next
fdn = 0:fdn = SerieFreq(es,es,nm,ru,2)
If fdn = 0 Then totradn(x) = totradn(x) + 1
If fdn > 0 Then totfrdn(x) = totfrdn(x) + fdn:totradn(x) = 0
If totrsdn(x) < totradn(x) Then totrsdn(x) = totradn(x)
Erase nm : Next

nm(0) = 0: For x = 1 To 10: For y = 1 To 9:nm(y) = cd(x,y): Next
frcd = 0:frcd = SerieFreq(es,es,nm,ru,2)
If frcd = 0 Then totracd(x) = totracd(x) + 1
If frcd > 0 Then totfrcd(x) = totfrcd(x) + frcd:totracd(x) = 0
If totrscd(x) < totracd(x) Then totrscd(x) = totracd(x)
Erase nm: Next

nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm(y) = fg(x,y): Next
frfg = 0:frfg = SerieFreq(es,es,nm,ru,2)
If frfg = 0 Then totrafg(x) = totrafg(x) + 1
If frfg > 0 Then totfrfg(x) = totfrfg(x) + frfg:totrafg(x) = 0
If totrsfg(x) < totrafg(x) Then totrsfg(x) = totrafg(x)
Erase nm: Next

For x = 1 To 30:trz(1) = x:trz(2) = x + 30:trz(3) = x + 60
ftrz = 0:ftrz = SerieFreq(es,es,trz,ru,2)
If ftrz = 0 Then datitrz(x,2) = datitrz(x,2) + 1
If ftrz > 0 Then datitrz(x,1) = datitrz(x,1) + ftrz:datitrz(x,2) = 0
If datitrz(x,3) < datitrz(x,2) Then datitrz(x,3) = datitrz(x,2)
Next

For x = 1 To 8:rdl(1) = x:rdl(2) = x*10:rdl(3) = rdl(2) + x:rdl(4) = rdl(2) + 9
frdl = 0:frdl = SerieFreq(es,es,rdl,ru,2)
If frdl = 0 Then datirdl(x,2) = datirdl(x,2) + 1
If frdl > 0 Then datirdl(x,1) = datirdl(x,1) + frdl:datirdl(x,2) = 0
If datirdl(x,3) < datirdl(x,2) Then datirdl(x,3) = datirdl(x,2)
Next

fgem = 0:fgem = SerieFreq(es,es,gem,ru,2)
If fgem = 0 Then datigem(2) = datigem(2) + 1
If fgem > 0 Then datigem(1) = datigem(1) + fgem:datigem(2) = 0
If datigem(3) < datigem(2) Then datigem(3) = datigem(2)

For x = 1 To 90:dativrt(x,1) = x:nr(1) = x:dativrt(x,2) = Vert(x):nr(2) = Vert(x)
fvrt = 0:fvrt = SerieFreq(es,es,nr,ru,2)
If fvrt = 0 Then dativrt(x,4) = dativrt(x,4) + 1
If fvrt > 0 Then dativrt(x,3) = dativrt(x,3) + fvrt:dativrt(x,4) = 0
If dativrt(x,5) < dativrt(x,4) Then dativrt(x,5) = dativrt(x,4)
Next
End If : Next

Call righeu: Scrivi Chr(13) & "Estratti ordinati per" & Space(11) & "FREQUENZA" & Space(25) & _
"RITARDO" & Chr(13) & Space(11) & "Pos." & Space(13) & "N." & Space(5) & "Fre." & Space(3) & "R.Att." & _
Space(13) & "N." & Sp
End Sub

Sub righeu: ColoreTesto 1: Scrivi Chr(13) & String(90,"="),1: ColoreTesto 0: End Sub

Ciao Moro_80
Grazie intanto x la risposta allora mi errore in questa riga

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms = CInt(ms)

errore 500variabile non definita"Ms" linea 15 colonna 0

Moro_80 · 25 Novembre 2013

Ciao lota,

io lo faccio girare su Spaziometria e funziona senza problemi, tu dove lo lanci?

Puo' essere che lanciandolo su lottodesk magari non vada...

saluti

lota · 25 Novembre 2013

Moro_80 ha scritto:
Ciao lota,

io lo faccio girare su Spaziometria e funziona senza problemi, tu dove lo lanci?

Puo' essere che lanciandolo su lottodesk magari non vada...

saluti

Ciao allora io uso spaziometria 1.4.60

Moro_80 · 25 Novembre 2013

Allora ti deve funzionare,

io l'ho appena fatto, sempre su Spaziometria 1.4.60 e funziona senza errori.

lota · 25 Novembre 2013

Ora provo a rifare il copia incolla vediamo

lota · 25 Novembre 2013

Provato ma purtroppo x me non gira mi dà sempre lo stesso errore. Comunque grazie lo stesso per la disponibilità

Moro_80 · 25 Novembre 2013

Ciao lota,

ti allego lo script in formato .ls all'interno di una cartella zip.

Vedi l'allegato Script.zip

Estrai lo zip dove vuoi tu e carica il file in esso contenuto con la sezione script di Spaziometria, vediamo se così ti funziona anche a te.

Saluti

lota · 25 Novembre 2013

Ciao grazie sempre sei gentile, allora ho seguito il tuo suggrimento e ora lo script si apre senza errore però restuisce un risultato nullo nel senso che evidenzia solo le estrazioni degli ultimi 5 anni senza la frequenza/ritardo/posizione dei numeri solo estrazioni anche a Te è così?

Moro_80 · 25 Novembre 2013

Si anche a me fa uguale,

io ho solo corretto gli errori per farlo girare, non ho modificato nulla sulle operazioni all'interno dello stesso.

Saluti

Moro_80 · 25 Novembre 2013

lota

prova questo altro script in allegato e dimmi se è quello che volevi tu.

Vedi l'allegato Script-new.zip

Ciao

Alien. · 25 Novembre 2013

lota ha scritto:
Ciao grazie sempre sei gentile, allora ho seguito il tuo suggrimento e ora lo script si apre senza errore però restuisce un risultato nullo nel senso che evidenzia solo le estrazioni degli ultimi 5 anni senza la frequenza/ritardo/posizione dei numeri solo estrazioni anche a Te è così?

vero pure a me fa così e lo script.zip non funziona.............si possono modificare le ricerche dal....al..... in quanto mi da solo gli ultimi 4 anni.....soluzione? grazie

si potrebbe fare lo stesso programma pure per il superenalotto?

lota · 25 Novembre 2013

Grazie mille

è esattamente quello che cercavo sei stato bravissimo e disponibile. Ancora grazie mille ti auguro ogni bene. Saluti

Moro_80 · 25 Novembre 2013

Ottimo, sono felice per te che sia tutto ok ora.

P.S. Alien, prova anche tu ad usare l'ultimo che ho allegato.

Saluti a tutti.

Alien. · 25 Novembre 2013

è QUESTO?
Script-new.zip

non mi si apre..................

Errore script

Super Member >PLATINUM<

Junior Member

Junior Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Advanced Member

Advanced Member

Advanced Premium Member

Super Member >PLATINUM<

Advanced Member

Advanced Premium Member