Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Per favore mi spieghi cosa è successo ? puoi rettificare lo script.È MOLTO interessante notare che nel messaggio da me inviato, lo SPAZIO SBAGLIATO nel nome dell'Archivio non c'è :
Vedi l'allegato 2317549
Come si sia aggiunto non saprei.
esatto per lo script non esiste l'archivio mentre l'ho aggiornato dove va a vedere forse non ha gli occhiali !
Option Explicit
Sub Main
Scrivi EstrazioniArchivioSE
End Sub
chissà...3478969340 sentiamoci stasera alle 21.30 e ti guido cercando di sistemare la situazione.
SI è VERDE
2774La priorità è avere l'archivio.
Un archivio giusto al posto giusto.
Se non è apposto l'archivio, non funziona nessuno script e neanche il programma Spaziometria.
Lo script per provare a vedere se c'è l'archivio che Spaziometria si aspetta di avere è questo :
Codice:Option Explicit Sub Main Scrivi EstrazioniArchivioSE End Sub
Eseguito restituisce : 4233
Option Explicit
Sub Main
Scrivi DataEstrazioneSE(1)
Scrivi DataEstrazioneSE(EstrazioniArchivioSE)
End Sub| Ini = EstrazioniArchivioSE - estr | ||
| fin = EstrazioniArchivioSE | ||
| Tot = fin - Ini |
| For es = 3334 To EstrazioniArchivioSE |
Then amb = Fuori90(amb + 1)
02.01.2009
,se hai un b/up precedente come data.... (chi non ce l'ha), eseguilo , inoltre personalmente avrei da un pezzo fatto una pulizia profonda di tt le dipendenze di spaziometria chenneso' ccleaner ce ne sono davvero molte di applicazione e reinstallato tutto con archivi puliti e corretti son troppi anni che vai avanti cosi , maremma impestata..
Sub Main()
Dim a(6),e,x,y,nu,k,i,uscito,num
s=InputBox("SPIA",,8)
e0=InputBox("ESTRAZIONE DI PARTENZA",,3334)
k=InputBox("COLPI DI GIOCO",,12)
For e=e0 To EstrazioniArchivioSE-k
If PosizioneSE(e,s)>0 Then
a(1)=Fuori90(100+EstrattoSE(e,1)): a(2)=Fuori90(129+EstrattoSE(e,1))
a(3)=Fuori90(EstrattoSE(e,1)*71): a(4)=Fuori90(EstrattoSE(e,1)*61)
a(5)=Fuori90(11+EstrattoSE(e,3)): a(6)=Fuori90(10+EstrattoSE(e,1))
Do While NumeriRipetuti(a)
For x=1 To 5
For y=x+1 To 6
If a(x)=a(y) Then a(y)=Fuori90(a(y)+1)
Next
Next
Loop
Scrivi "*** SPIA "&s&" - Estr. "&e&" ***",True,True,2,4,3
' Scrive i numeri allineati (3 caratteri ciascuno)
For i=1 To 6
uscito=False
For nu=e+1 To e+k
If EstrattoSE(nu,1)=a(i) Or EstrattoSE(nu,2)=a(i) Or EstrattoSE(nu,3)=a(i) Or _
EstrattoSE(nu,4)=a(i) Or EstrattoSE(nu,5)=a(i) Or EstrattoSE(nu,6)=a(i) Then
uscito=True: Exit For
End If
Next
If uscito Then col=3 Else col=1
num=Right(Space(3)&a(i),3)
If i=1 Then
Scrivi num,False,False,col,4,3
Else
Scrivi "-"&num,False,False,col,4,3
End If
Next
Scrivi "",True,False,1,4,3
End If
Next
End SubSENTI MALEDETTO"TOSCANO"non che mi voglia impicciare ma non capisco perchè continui a rimanere sullo stesso punto e non vai oltre...senza accompagnatore
JavaScript:Sub Main() Dim a(6),e,x,y,nu,k,i,uscito,num s=InputBox("SPIA",,8) e0=InputBox("ESTRAZIONE DI PARTENZA",,3334) k=InputBox("COLPI DI GIOCO",,12) For e=e0 To EstrazioniArchivioSE-k If PosizioneSE(e,s)>0 Then a(1)=Fuori90(100+EstrattoSE(e,1)): a(2)=Fuori90(129+EstrattoSE(e,1)) a(3)=Fuori90(EstrattoSE(e,1)*71): a(4)=Fuori90(EstrattoSE(e,1)*61) a(5)=Fuori90(11+EstrattoSE(e,3)): a(6)=Fuori90(10+EstrattoSE(e,1)) Do While NumeriRipetuti(a) For x=1 To 5 For y=x+1 To 6 If a(x)=a(y) Then a(y)=Fuori90(a(y)+1) Next Next Loop Scrivi "*** SPIA "&s&" - Estr. "&e&" ***",True,True,2,4,3 ' Scrive i numeri allineati (3 caratteri ciascuno) For i=1 To 6 uscito=False For nu=e+1 To e+k If EstrattoSE(nu,1)=a(i) Or EstrattoSE(nu,2)=a(i) Or EstrattoSE(nu,3)=a(i) Or _ EstrattoSE(nu,4)=a(i) Or EstrattoSE(nu,5)=a(i) Or EstrattoSE(nu,6)=a(i) Then uscito=True: Exit For End If Next If uscito Then col=3 Else col=1 num=Right(Space(3)&a(i),3) If i=1 Then Scrivi num,False,False,col,4,3 Else Scrivi "-"&num,False,False,col,4,3 End If Next Scrivi "",True,False,1,4,3 End If Next End Sub
Then nn = Fuori90(nn + 01)
Buona Domenica a tutte/I.
