buon lunedi a tutti vorrei chiedere se cortesemente se qualcuno mi può aiutate.
ho installato l'ultimo aggiornamento di spazziometria che funziona bene,(un grazie a LUIGIB) tra i vari script ho trovato questo però con spazziometria mi da errore se qualcuno me lo può correggere un grazie anticipato
Sub Main()
Dim r,sp,ab,aa,cb,cc,clp,xj,jj,jjj
Dim num(3)
Dim nume(5)
Dim ruote(1)
Dim posta(1)
Dim poste(2)
Dim numeri(2)
Dim prog(5,100)
poste(2) = 1
r = InputBox(Chr(13) & Chr(13) & "SU CHE RUOTA ???",,1)
ruote(1) = r
sp = InputBox(Chr(13) & Chr(13) & "NUMERO SPIA ???",,3)
ab = "CAPIGIOCO ???" & Chr(13) & Chr(13) & "MAX 3 !!!" & _
Chr(13) & Chr(13) & "es. 1.2"
aa = InputBox(ab,"Lunghetta","8.9.10")
aa = "0." & aa
nu1 = Split(aa,".")
For x = 1 To UBound(nu1)
num(x) = nu1(x)
Next
cb = "ABBINAMENTI ???" & Chr(13) & Chr(13) & "MAX 5 !!!" & _
Chr(13) & Chr(13) & "es. 3.4.5.6.7"
cc = InputBox(cb,"Lunghetta","0")
cc = "0." & cc
nu2 = Split(cc,".")
For x = 1 To UBound(nu2)
nume(x) = nu2(x)
Next
clp = InputBox(Chr(13) & Chr(13) & "PER QUANTI COLPI DI GIOCO ???" & _
Chr(13) & Chr(13) & "MAX 18 !!!",,9)
att = 0
xj = 1
ColoreTesto 1
Scrivi "RIASSUNTO METODO",1
Scrivi "Numero Spia " & sp & " sulla ruota di " & NomeRuota(r)
Scrivi "Capogioco " & StringaNumeri(num)
Scrivi "Abbinamenti x ambo " & StringaNumeri(nume)
Scrivi "La giocata è portata per " & Format2(clp) & " colpi"
Scrivi "La verifica parte dal " & DataEstrazione(EstrazioneFin - 500)
Scrivi "Progressione sull'ambata "
ColoreTesto 2
Scrivi
If xj = 1 Then
jj = 1
jjj = 11
Else
jj = 0
jjj = 0
End If
For i = 1 To clp
If i < 5 Then prog(1,i) = 1
If i > 4 Then prog(1,i) = 2
If i > 6 Then prog(1,i) = 3
If i > 8 Then prog(1,i) = i*2 - 14
If i > 13 Then prog(1,i) = i*4 - 42
If i = 18 Then prog(1,i) = 36
Scrivi "colpo n." &(i) & " L." & prog(1,i)
Next
Scrivi "=============="
Scrivi ""
ColoreTesto 0
co = 1
ImpostaGiocata co,num,ruote,posta,clp,1,att
ImpostaProgressione 1,prog
For x = 1 To 2
For y = 1 To 5
numeri(1) = num(x)
numeri(2) = nume
If numeri(1) > 0 And numeri(2) > 0 And numeri(1) <> numeri(2) Then
co = co + 1
ImpostaGiocata co,numeri,ruote,poste,clp,2,att
End If
Next
Next
For j = jj To jjj
ImpostaInterruzioni j,1,1
ImpostaInterruzioni 1,j,2
Next
fin = EstrazioneFin
ini = fin - 500
For x = ini To fin
AvanzamentoElab ini,fin,x
a = Posizione(x,r,sp)
If a > 0 Then
cs = cs + 1
If x >(fin - clp) - 1 Or cs = 1 Then
Gioca x,True,True
Else
Gioca x,True,True
End If
For y = 1 To 11
If Esito = False Then
ce = ce + 1
End If
If ce = 11 And x < fin - clp Then
ColoreTesto 2
Scrivi
Scrivi DataEstrazione(x) & " Sortita spia " & sp & String(30," ") & _
"ESITO NEGATIVO al " & DataEstrazione(x + clp),1
Scrivi
ColoreTesto 0
End If
Next
ce = 0
End If
Next
ScriviResoconto
Scrivi String(85," ") & _
"Robyca"
End Sub
ho installato l'ultimo aggiornamento di spazziometria che funziona bene,(un grazie a LUIGIB) tra i vari script ho trovato questo però con spazziometria mi da errore se qualcuno me lo può correggere un grazie anticipato
Sub Main()
Dim r,sp,ab,aa,cb,cc,clp,xj,jj,jjj
Dim num(3)
Dim nume(5)
Dim ruote(1)
Dim posta(1)
Dim poste(2)
Dim numeri(2)
Dim prog(5,100)
poste(2) = 1
r = InputBox(Chr(13) & Chr(13) & "SU CHE RUOTA ???",,1)
ruote(1) = r
sp = InputBox(Chr(13) & Chr(13) & "NUMERO SPIA ???",,3)
ab = "CAPIGIOCO ???" & Chr(13) & Chr(13) & "MAX 3 !!!" & _
Chr(13) & Chr(13) & "es. 1.2"
aa = InputBox(ab,"Lunghetta","8.9.10")
aa = "0." & aa
nu1 = Split(aa,".")
For x = 1 To UBound(nu1)
num(x) = nu1(x)
Next
cb = "ABBINAMENTI ???" & Chr(13) & Chr(13) & "MAX 5 !!!" & _
Chr(13) & Chr(13) & "es. 3.4.5.6.7"
cc = InputBox(cb,"Lunghetta","0")
cc = "0." & cc
nu2 = Split(cc,".")
For x = 1 To UBound(nu2)
nume(x) = nu2(x)
Next
clp = InputBox(Chr(13) & Chr(13) & "PER QUANTI COLPI DI GIOCO ???" & _
Chr(13) & Chr(13) & "MAX 18 !!!",,9)
att = 0
xj = 1
ColoreTesto 1
Scrivi "RIASSUNTO METODO",1
Scrivi "Numero Spia " & sp & " sulla ruota di " & NomeRuota(r)
Scrivi "Capogioco " & StringaNumeri(num)
Scrivi "Abbinamenti x ambo " & StringaNumeri(nume)
Scrivi "La giocata è portata per " & Format2(clp) & " colpi"
Scrivi "La verifica parte dal " & DataEstrazione(EstrazioneFin - 500)
Scrivi "Progressione sull'ambata "
ColoreTesto 2
Scrivi
If xj = 1 Then
jj = 1
jjj = 11
Else
jj = 0
jjj = 0
End If
For i = 1 To clp
If i < 5 Then prog(1,i) = 1
If i > 4 Then prog(1,i) = 2
If i > 6 Then prog(1,i) = 3
If i > 8 Then prog(1,i) = i*2 - 14
If i > 13 Then prog(1,i) = i*4 - 42
If i = 18 Then prog(1,i) = 36
Scrivi "colpo n." &(i) & " L." & prog(1,i)
Next
Scrivi "=============="
Scrivi ""
ColoreTesto 0
co = 1
ImpostaGiocata co,num,ruote,posta,clp,1,att
ImpostaProgressione 1,prog
For x = 1 To 2
For y = 1 To 5
numeri(1) = num(x)
numeri(2) = nume
If numeri(1) > 0 And numeri(2) > 0 And numeri(1) <> numeri(2) Then
co = co + 1
ImpostaGiocata co,numeri,ruote,poste,clp,2,att
End If
Next
Next
For j = jj To jjj
ImpostaInterruzioni j,1,1
ImpostaInterruzioni 1,j,2
Next
fin = EstrazioneFin
ini = fin - 500
For x = ini To fin
AvanzamentoElab ini,fin,x
a = Posizione(x,r,sp)
If a > 0 Then
cs = cs + 1
If x >(fin - clp) - 1 Or cs = 1 Then
Gioca x,True,True
Else
Gioca x,True,True
End If
For y = 1 To 11
If Esito
= False Thence = ce + 1
End If
If ce = 11 And x < fin - clp Then
ColoreTesto 2
Scrivi
Scrivi DataEstrazione(x) & " Sortita spia " & sp & String(30," ") & _
"ESITO NEGATIVO al " & DataEstrazione(x + clp),1
Scrivi
ColoreTesto 0
End If
Next
ce = 0
End If
Next
ScriviResoconto
Scrivi String(85," ") & _
"Robyca"
End Sub
