x luigi o chi puo' aiutarmi....

[codicebinario]

Ciao a tutti,ho' installato l'ultima versione di SPAZIOMETRIA,e come consigliato da Luigi ho' lanciati il plugin "converti formazioni".....MA MI DA' ERRORE.." IMMAGINE NON VALIDA"....Perche'?

Grazie a chi puo' aiutarmi.

Artemisio
Memento Audere Semper

 

[Roby]

Codice hai provato a farlo dalla "directory plug in"?

Ti metto il link con la spiegazione di Silop

http://forum.lottoced.com/topic.asp?TOPIC_ID=140233

Ps:hai visto la posta?

Blackmore

 

[Roby]

FATTO BLACK !!!!! TUTTO A POSTO ! GRRAZZZIIEEE!

Artemisio
Memento Audere Semper

 

[cex69]

Ciao ho provato a fare un mix di script, ma non capendoci quasi niente mi da errore 13-tipo non corrispondente. chi mi può aiutare?

grazie [:I]

Sub Main()
Dim rg(10)
Dim rr(10)
Dim b1(1)
Dim p1(10)
Dim PosVoluta
Dim PosVoluta1
Dim PosVoluta2
Dim c(1)
Dim c1
Dim a1
p1(10) = 1
rg(1) = CInt(InputBox("INSERIRE IL NUMERO DELLA RUOTA DI GIOCO",,6))
c(1) = CInt(InputBox("Inserire colpi di gioco",,5))
rr(1) = CInt(InputBox("INSERIRE IL NUMERO DELLA RUOTA DI RICAVO",,3))
PosVoluta = CInt(InputBox("Inserire posizione da 1 a 5 INSERIRE N° 5 PER CONTROLLO",,5))
PosVoluta1 = CInt(InputBox("Inserire posizione da 1 a 5",,1))
PosVoluta2 = CInt(InputBox("Inserire posizione da 1 a 5",,3))
If PosVoluta > 0 And PosVoluta <= 5 And PosVoluta1 > 0 And PosVoluta1 <= 5 And PosVoluta2 > 0 And PosVoluta2 <= 5 Then
p1(5 + PosVoluta) = 1 '<-----poste in gioco indice da 6 a 10 per ed1 , ed2 , ed3 eccetera
p1(5 + PosVoluta1) = 1
p1(5 + PosVoluta2) = 1
c1 = c
fin = EstrazioneFin
For n = 7537 To fin
If IndiceMensile(n + 1) = 1 Then
a1 = Fuori90(Estratto(n,rr,PosVoluta) + 18)
b1(1) = a1 ' numero in gioco
ImpostaGiocata 1,b1,rg,p1,c1,5 + PosVoluta
Gioca n
End If
Next
ScriviResoconto
Else
MsgBox "Posizione non valida"
End If
End Sub

 

[claudio8]

Cex 69 prova se ti funziona come ti serve

Sub Main()
Dim rg(10)
Dim rr(10)
Dim b1(1)
Dim p1(10)
Dim PosVoluta
Dim PosVoluta1
Dim PosVoluta2
Dim c(1)
Dim c1
Dim a1
'p1(10) = 1
rg(1) = CInt(InputBox("INSERIRE IL NUMERO DELLA RUOTA DI GIOCO",,6))
c(1) = CInt(InputBox("Inserire colpi di gioco",,5))
rr(1)= CInt(InputBox("INSERIRE IL NUMERO DELLA RUOTA DI RICAVO",,3))


PosVoluta = CInt(InputBox("Inserire posizione da 1 a 5 INSERIRE N° 5 PER CONTROLLO",,5))
PosVoluta1 = CInt(InputBox("Inserire posizione da 1 a 5",,1))
PosVoluta2 = CInt(InputBox("Inserire posizione da 1 a 5",,3))
If PosVoluta > 0 And PosVoluta <= 5 And PosVoluta1 > 0 And PosVoluta1 <= 5 And PosVoluta2 > 0 And PosVoluta2 <= 5 Then
p1(5 + PosVoluta) = 1 '<-----poste in gioco indice da 6 a 10 per ed1 , ed2 , ed3 eccetera 5+5
p1(5 + PosVoluta1) = 1 '5+1
p1(5 + PosVoluta2) = 1 '5+3
c1 = c(1)
fin = EstrazioneFin
For n = 8000 To fin ' 7537 To fin
If IndiceMensile(n + 1) = 1 Then
a1 = Fuori90(Estratto(n,rr(1),PosVoluta)+18)
b1(1) = a1' numero in gioco
ImpostaGiocata 1,b1,rg,p1,c1,5 +PosVoluta
Gioca n
End If
Next
ScriviResoconto
Else
MsgBox "Posizione non valida"
End If
End Sub