come mai in questo tuo script se metto RUOTA 10 e RUOTA DI GIOCO 1 mi va in crash??
HTML:
Option Explicit
Sub Main
Dim es,r,n,p,lunga,ruota,fine,nue,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito,bb
Dim colpo(18,5)
r = InputBox("Ruota",,2)
ruota = InputBox("Ruota di Gioco",,10)
fine = InputBox("Estraz.n.",,EstrazioneFin)
n = CInt(InputBox("Ambata",,66))
p = CInt(InputBox("Posizione estratto",,3))
lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
verc = CInt(InputBox("Verifica esito per ncolpi",,18))
''''
ColoreTesto(2)
Scrivi " B Y R O N 1 2 ",1
ColoreTesto(0)
For es = 3950 To fine
Messaggio(es)
''cerca estratto sulla ruota di riferimento e nella posizione specificata
nue = Estratto(es,r,p)
If nue = n Then
Scrivi String(89,"=")
Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p & " Estratto " & nue,1
ColoreTesto(0)
casi = casi + 1
ColoreTesto(1)
Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " - " & SiglaRuota(ruota) & " Comb." & lunga & " Per colpi n." & verc,1
ColoreTesto(0)
'''''lunghetta o numeri in gioco e arrays di rif.
ReDim an(0)
Call SplitByChar(lunga,".",an)
x = UBound(an)
ReDim nm(10)
For w = 0 To x
nm(w + 1) = an(w)
Next
'''''''
ReDim ar(2)
ar(1) = r
ar(2) = ruota
''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
esito = " "
For col = 1 To verc + 1
'''call verificaesito
ar(r) = r
Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(0)
esito = Left(retesito,8) & " "
If retesito = "Ambo" Then
esito = "Ambo "
ColoreTesto(2)
End If
If retesito = "Terno" Then
esito = "Terno "
ColoreTesto(1)
End If
If retesito = "Quaterna" Then
esito = "Quaterna "
ColoreTesto(1)
End If
If retesito = "Cinquina" Then
esito = "Cinquina "
ColoreTesto(1)
End If
Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
If retesito = "Estratto" Then
colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
End If
If retesito = "Ambo" Then
colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
End If
If retesito = "Terno" Then
colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
End If
If retesito = "Quaterna" Then
colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
End If
If retesito = "Cinquina" Then
colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
End If
ColoreTesto(0)
End If
Next
Scrivi
ColoreTesto(0)
End If
Next
'''riepilogo esiti
ColoreTesto(2)
Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
ColoreTesto(0)
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " n.colpo "
atitoli2(2) = " Estratti "
atitoli2(3) = " Ambi "
atitoli2(4) = " Terni "
atitoli2(5) = " Quaterne "
atitoli2(6) = " Cinquine "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
For z = 1 To 18
avalori2(1) = Format2(z)
avalori2(2) = colpo(z,1)
avalori2(3) = colpo(z,2)
avalori2(4) = colpo(z,3)
avalori2(5) = colpo(z,4)
avalori2(6) = colpo(z,5)
Call AddRigaTabella(avalori2,Bianco_,"center",2)
Next
Call CreaTabella
End Sub
