| Autore |
 Discussione  |
|
|
santani
Utente Nuovo
1 invio |
 Spedito - 10 novembre 2017 : 10:13:25
|
Questo script mette in gioco gli ambi bivalenti che raggiungono un ritardo di 600 estrazioni.
Si può fare in modo che lo script metta in gioco solo i 10 ambi bivalenti in maggior ritardo indipendentemente da quale esso sia?
Gentilmente qualcuno mi può aiutare?
Grazie!
Sub Main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)
rur1(1) = 11
rur1(2) = 12
fin = EstrazioneFin
ini = 7440
For es = fin To ini Step - 1
cc = cc + 1
For rr = 1 To 11
If rr = 11 Then rr = 12
rur(1) = rr
For pp = 1 To 4
For pp1 = pp + 1 To 5
n(1) = Estratto(es,rr,pp)
n(2) = Estratto(es,rr,pp1)
OrdinaMatrice n,1
If n(1) > 0 Then
rt = SerieRitardo(1,es - 1,n,rur,2)
If rt > 600 Then
u = es - rt - 1
frr = SerieFreq(u,u,n,rur1,2)
If frr > 1 And frr < 3 Then
For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
Messaggio(es)
If r = rr Xor r1 = rr Then
ru(1) = r
ru1(1) = r1
If SerieFreq(u + 1,es - 1,n,ru,2) = 0 And SerieFreq(u + 1,es - 1,n,ru1,2) = 0 Then
If SerieFreq(u,u,n,ru,2) > 0 And SerieFreq(u,u,n,ru1,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & " ambo bivalente " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " nella ruota di " & SiglaRuota(rr) & " con rit " & FormatSpace(rt,4,1) & " " & FormatSpace(cc,4,1)
cc = 0
End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub |
Modificato da - santani su 30 novembre 2017 16:48:51 |
|
|
franca46
Amministratore
Italy
24538 invii |
Spedito - 10 novembre 2017 : 17:29:38
|
Ciao santani , benvenuto nel forum.
Questa sezione e' stata creata per permettere a chi vuole inserire listati per il beneficio di tutti.
Per la tua richiesta di modifica spero che qualcuno possa aiutarti.
Purtroppo io non so farlo.
Buona permanenza nel forum. |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
 |
|
| |
Discussione |
|
|
|
Chi riesce in piccola modifica?
