herat
Advanced Member >GOLD<
Buongiorno a tutto lo splendido gruppo, ieri mi volevo cimentare , copiando qui e li, a creare uno script per gli ambetti piu presenti dopo la sortita di un ambetto determinato, pero purtroppo, essendo un po imbranata in materia, non riesco perchè la funzione "m(co,12) = m(co,12) + rt(1)" mi restituisce le presenze del solo primo ambo dei 5 che formano l'ambetto.
è possibile impostare lo script in maniera da evidenziare la presenza , per ogni condizione, di un determinato ambetto ?
vorrei che lo script mi restituisse un risultato simile
DOPO LA SORTITA DELLA SPIA X SULLA POSIZIONE Y
AMBETTI PIU PRESENTI NEI CICLI DI 12 ESTRAZIONI: (I DATI CHE SEGUONO SONO UN SEMPLICE ESEMPIO)
04-09...04-08...04-10...09-03...09-05... 7 PRESENZE SU 7 CASI
24-75...24-74...24-76...75-23...75-25... 6 PRESENZE SU 7 CASI
78-43...78-42...78-44...43-77...43-79... 6 PRESENZE SU 7 CASI
è possibile impostare lo script in maniera da evidenziare la presenza , per ogni condizione, di un determinato ambetto ?
vorrei che lo script mi restituisse un risultato simile
DOPO LA SORTITA DELLA SPIA X SULLA POSIZIONE Y
AMBETTI PIU PRESENTI NEI CICLI DI 12 ESTRAZIONI: (I DATI CHE SEGUONO SONO UN SEMPLICE ESEMPIO)
04-09...04-08...04-10...09-03...09-05... 7 PRESENZE SU 7 CASI
24-75...24-74...24-76...75-23...75-25... 6 PRESENZE SU 7 CASI
78-43...78-42...78-44...43-77...43-79... 6 PRESENZE SU 7 CASI
Codice:
Sub Main()
Dim n(2),n1(2),n2(2),n3(2),n4(2),m(8010,12),ru(2),rt(5),nu(10),n5(2),ru1(12)
fin = EstrazioneFin
ini = 9500
For es = ini To fin
For r = 12 To 12
For p = 3 To 3
a = Estratto(es,r,p)
If a = 89 And r <> TT_ Then
ru(1) = r
nu(1) = a
'ru(2)=r2
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu(1)) & "-->> SPIA 1 " & rt1,1
Scrivi String(34,"-")
co = 0
es2 = es + 12
If es2 > fin Then es2 = fin End If
If es2 <> es Then
For i = 1 To 90
For j = 1 To 90
n(1) = i
n(2) = j
n1(1) = i
n1(2) = j - 1
n2(1) = i
n2(2) = j + 1
n3(1) = j
n3(2) = i - 1
n4(1) = j
n4(2) = i + 1
If n(2) > 0 Then
If n(2) < 91 Then
If n1(2) > 0 Then
If n1(2) < 91 Then
If n2(2) > 0 Then
If n2(2) < 91 Then
If n3(2) > 0 Then
If n3(2) < 91 Then
If n4(2) > 0 Then
If n4(2) < 91 Then
If n(1) <> n(2)Then
If n1(1) <> n1(2)Then
If n2(1) <> n2(2)Then
If n3(1) <> n3(2)Then
If n4(1) <> n4(2)Then
ru1(1) = NZ_
rt(1) = SerieFreq(es + 1,es + 12,n,ru1,2)
rt(2) = SerieFreq(es + 1,es + 12,n1,ru1,2)
rt(3) = SerieFreq(es + 1,es + 12,n2,ru1,2)
rt(4) = SerieFreq(es + 1,es + 12,n3,ru1,2)
rt(5) = SerieFreq(es + 1,es + 12,n4,ru1,2)
If rt(1) <= 1 And rt(2) <= 1 And rt(3) <= 1 And rt(4) <= 1 And rt(5) <= 1 Then
'OrdinaMatrice rt,- 1
'Messaggio(StringaNumeri(n) & " " & StringaNumeri(n1) & " " & StringaNumeri(n2) & " " & StringaNumeri(n3) & " " & StringaNumeri(n4))
co = co + 1
m(co,1) = co
m(co,2) = n(1)
m(co,3) = n(2)
m(co,4) = n1(1)
m(co,5) = n1(2)
m(co,6) = n2(1)
m(co,7) = n2(2)
m(co,8) = n3(1)
m(co,9) = n3(2)
m(co,10) = n4(1)
m(co,11) = n4(2)
m(co,12) = m(co,12) + rt(1)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
End If
End If
Next
Next
Next
OrdinaMatrice m,- 1,12
For w = 1 To 10'modificare per visualizzare una diversa quantità di ambi
Scrivi Format2(m(w,2)) & "-" & Format2(m(w,3)) & "..." & Format2(m(w,4)) & "-" & Format2(m(w,5)) & "..." & _
Format2(m(w,6)) & "-" & Format2(m(w,7)) & "..." & Format2(m(w,8)) & "-" & Format2(m(w,9)) & "..." & _
Format2(m(w,10)) & "-" & Format2(m(w,11)) & "..." & FormatSpace(m(w,12),4,1)
Next
End Sub
Ultima modifica:
