R
Roby
Guest
cerca di usare il programma spaziometria ha superato di larga misura quelli a pagamento, se poi mi dici che il listato a te non funziona ,avvalori maggiormente quello pocanzi scritto.ti ho aggiunto altre 2 ruote cerca di completarlo.Interessante sarebbe
vedere quali ruote rispondono meglio per un ambo secco,se riesco
a "pasticciare" ti terro' informata.GLI UlTIMO saranni i primi 01.
Artemisio con questo metodo ci stai mettendo in crisi

vedere quali ruote rispondono meglio per un ambo secco,se riesco
a "pasticciare" ti terro' informata.GLI UlTIMO saranni i primi 01.
Artemisio con questo metodo ci stai mettendo in crisi
Codice:
Sub Main()
Dim nu1(10),ruote(10),ruota(1),nu2(5),poste(10)
casi = 0
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",50)
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = EstrazioneFin - ce
fin = EstrazioneFin
Scrivi "primo estratto+-15 ARTEMISIO(script by chilofa)",1
Scrivi String(70,"="),1
Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & _
DataEstrazione(es,1)
a=Estratto(es,1,1)
x=a+15
If x>90 Then n1=(a-15) Else n1=x
'_______________________________________________________------
a1=Estratto(es,2,1)
x1=a1+15
If x1>90 Then n2=(a1-15) Else n2=x1
'_________________________________________continua per tutti gli estratti
a2=Estratto(es,3,1)
x2=a2+15
If x2>90 Then n3=(a2-15) Else n3=x2
'_______________________________________________________------
a3=Estratto(es,4,1)
x3=a3+15
If x3>90 Then n4=(a3-15) Else n4=x3
'_________________________________________continua per tutti gli estratti
casi = casi + 1
Scrivi String(60,"=") & " script by chilofa",1
Scrivi DataEstrazione(es,1) & " 1^ estratto della ruota +-15= "&a&"/ "&a1&"/"&a2&"/ "&a3
Scrivi String(61,"-") & " caso n° " &(casi)
'ruote(1) = 1:ruote(2) = 2:ruote(3) = 3:ruote(4) = 4 'nel caso vuoi le determinate su ruote
'continua
ruota(1) = 11
poste(2) = 3
poste(3) = 1
Redim posta(10)
co = 0
'-------------------------------------------------------------------------
If Cadenza(a) =1 Or Cadenza(a) =6 Then
posta(6) = 1
End If
If Cadenza(a) =2 Or Cadenza(a) =7 Then
posta(7) = 1
End If
If Cadenza(a) =3 Or Cadenza(a) =8 Then
posta(8) = 1
End If
If Cadenza(a) =4 Or Cadenza(a) =9 Then
posta(9) = 1
End If
If Cadenza(a) =5 Or Cadenza(a) =0 Then
posta(10) = 1
End If
'------------------------------------------------continua per gli altri estratti
If Cadenza(a1) =1 Or Cadenza(a1) =6 Then
posta(6) = 1
End If
If Cadenza(a1) =2 Or Cadenza(a1) =7 Then
posta(7) = 1
End If
If Cadenza(a1) =3 Or Cadenza(a1) =8 Then
posta(8) = 1
End If
If Cadenza(a1) =4 Or Cadenza(a1) =9 Then
posta(9) = 1
End If
If Cadenza(a1) =5 Or Cadenza(a1) =0 Then
posta(10) = 1
End If
'-------------------------------