Novità

x luigi o chi puo' aiutarmi....

  • Creatore Discussione Creatore Discussione codicebinario
  • Data di inizio Data di inizio
C

codicebinario

Guest
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
 
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
 
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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45

Ultimi Messaggi

Indietro
Alto