Script bloccato

[Oscar]

Tra tanti bravissimi c'è qualcuno che mi corregge l'errore e se possibile aggiungere il Diametrale in decina , Grazie........

Sub Main
Dim ruota(2)
Dim posta(5)
Dim posta1(5)
Dim posta2(5)
Dim num(10)
Dim num1(10)


posta1(1)=1
posta(2)=1
posta2(2)=0.9
posta2(3)=0.1
casi = 0
For n = 8000 To EstrazioneFin
For r = 1 To 9
For p = 1 To 5
For r1 = r + 1 To 10
a=Estratto(n,r,p)
b=Estratto(n,r1,p)
If (a+b)=90 Then
casi=casi+1
ColoreTesto 1
s=CStr(eval(a))+" "+FormatSpace(NomeRuota(r),8)+" + "+CStr(eval(b))+" "+FormatSpace(NomeRuota(r1),8)+" = 90"
Scrivi s
ColoreTesto 0
ruota(1)=r
ruota(2)=r1
num(1)=90
num(2)=9
ImpostaGiocata 1,num,ruota,posta1,9,1
num1(1)=9
num1(2)=90
num1(3)=a
num1(4)=b
ImpostaGiocata 2,num1,ruota,posta2,9,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,1,1
Gioca n
End If
Next
Next
Next
Scrivi "------------------------------------------"
Next
Scrivi " Casi "&casi
ScriviResoconto

End Sub

 

[Ouroboros]

Ciao Oscar, lo script funziona benissimo. Il discorso e' che se non hai un pc performante si pianta....prova a ridurre il numero di estrazioni da elaborare (prova a sostituire 9000 a 8000).
Per il diametrale in decina, per esempio il diam. in decina di num(2) scrivi :
num (3) = DiametraleD(num(2)).
Spero di aver interpretato bene la tua richiesta.......
Ciao

 

[Master]

Buonasera Oscar
ne metto uno con la scelta delle estrazioni però non so quale diametrale decina aggiungere
nel caso ho lasciato il posto per inserirlo

[B]Sub[/B] [B]Main[/B]()
[B]Dim[/B] [B]ruote[/B](11)
[B]Dim[/B] [B]n1[/B](2)
[B]Dim[/B] [B]n2[/B](6)
[B]Dim[/B] [B]posta[/B](1)
[B]Dim[/B] [B]poste[/B](10)
[B]posta[/B](1) [B]=[/B] 1
[B]poste[/B](2) [B]=[/B] 1 : [B]poste[/B](3)[B]=[/B]1
ce [B]=[/B] [B]InputBox[/B](" Quante estrazioni vuoi controllare? ","estrazioni",200)
k [B]=[/B] [B]InputBox[/B]("per quanti colpi?","colpi di gioco",9)
ini [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] ce
fin [B]=[/B] [B]EstrazioneFin[/B]
casi [B]=[/B] 0
[B]For[/B] es [B]=[/B] ini [B]To[/B] fin
[B]Messaggio[/B] "elab. estr. [" [B]&[/B](es) [B]&[/B] "] di " [B]&[/B] [B]DataEstrazione[/B](es,1)
[B]Call[/B] [B]AvanzamentoElab[/B](Ini,fin,es)
[B]For[/B] r1 [B]=[/B] 1 [B]To[/B] 9
[B]For[/B] r2 [B]=[/B] r1 [B]+[/B] 1 [B]To[/B] 10
[B]For[/B] p1 [B]=[/B] 1 [B]To[/B] 5
a [B]=[/B] [B]Estratto[/B](es,r1,p1): b [B]=[/B] [B]Estratto[/B](es,r2,p1)
[B]If[/B] a [B]+[/B] b [B]=[/B] 90 [B]Then[/B]
casi [B]=[/B] casi [B]+[/B] 1
[B]Scrivi[/B] [B]String[/B](100,"°") [B]&[/B] " Caso n°" [B]&[/B] casi,1
[B]ColoreTesto[/B] 1
[B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " [ " [B]&[/B] [B]SiglaRuota[/B](r1) [B]&[/B] " - " [B]&[/B] [B]StringaEstratti[/B](es,r1) [B]&[/B] _
" ] * [ " [B]&[/B] [B]Format2[/B](a) [B]&[/B] " ]",1
[B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " [ " [B]&[/B] [B]SiglaRuota[/B](r2) [B]&[/B] " - " [B]&[/B] [B]StringaEstratti[/B](es,r2) [B]&[/B] _
" ] * [ " [B]&[/B] [B]Format2[/B](b) [B]&[/B] " ]",1
[B]ruote[/B](1) [B]=[/B] r1
[B]ruote[/B](2) [B]=[/B] r2
[B]n1[/B](1) [B]=[/B] 90: [B]n1[/B](2) [B]=[/B] 9
'----------
[B]n2[/B](1) [B]=[/B] 90
[B]n2[/B](2) [B]=[/B] 9
[B]n2[/B](3) [B]=[/B] a
[B]n2[/B](4) [B]=[/B] b
[B]n2[/B](5) [B]=[/B] [B]DiametraleD[/B]( a)  '<---- aggiungi il diametrale in decina
[B]n2[/B](6) [B]=[/B] [B]DiametraleD[/B]( b)
[B]ColoreTesto[/B] 0
[B]ImpostaGiocata[/B] 1,[B]n1[/B],[B]ruote[/B],[B]posta[/B],k,1
[B]ImpostaGiocata[/B] 2,[B]n2[/B],[B]ruote[/B],[B]poste[/B],k,2
[B]Gioca[/B] es,1
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Scrivi[/B]
[B]ScriviResoconto[/B]
[B]End[/B] [B]Sub[/B]

 

[Oscar]

Funziona alla perfezione grazie
​Per il Diametrale scusa ma è colpa mia , non va messo sul 9.90 ma su gli altri 2 numeri che danno origine alla somma 90 in totale diventano 6 numeri

 

[Master]

Scusa Ouroboros ma non avevo visto la tua risposta....

Modificato script sopra con diametrali decina
buonasera

 

[Oscar]

Scusa Ouroboros ma non avevo visto la tua risposta....

Modificato script sopra con diametrali decina
buonasera

Funziona alla perfezione grazie 1000 Master (Sei un Genio)