R
Roby
Guest
Ciao Esselotto,
ho trovato uno script che mi serviva,se non erro è tuo,
potresti farmi un paio di modifiche,lo script mi chiede "quante estrazioni voui controllare?" e invece a me servirebbe "quante volte vuoi controllare il n° spia?",inoltre nell'output i numeri sono in ordine di presenza,a me servirebbe che li ordinasse in decine o cmq in ordine naturale dal 1 al 90 e di fianco le presenze.
Ti posto lo script e ti ringrazio anticipatamente.
Sub Main
Dim mt(90,4),n(2),ru(1)
r = CInt(InputBox(" Ruota di ricerca?","SPY FREQUENZA LONES",1))
sp = CInt(InputBox(" Spia?","SPY FREQUENZA BY LONES",46))
p = CInt(InputBox(" POSIZIONE SPIA","POSIZONE SPY FREQUENZA BY LONES 1 a 5 ",1))
ei = CInt(InputBox("Quante estrazioni vuoi controllare?","SPY FREQUENZA BY LONES",650))
cl = CInt(InputBox("Ottimizzazione o colpi? [1-10]","SPY FREQUENZA BY LONES",9))
rr = r ''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso,io qui' al posto di r ho messo 2 cioe' Cagliari
ru(1) = r
Scrivi
casi = 0
For es = EstrazioneFin - ei To EstrazioneFin
a = Estratto(es,r,p)
If a = sp Then
casi = casi + 1
co = 0
For j = 1 To 90
n(1) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = SiglaRuota(rr)
fr = SerieFreq(es + 1,es + cl,n,ru,1)
mt(co,4) = mt(co,4) + fr
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)
'Next
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
Scrivi "SPIA ->" & Format2(sp) & " posizione ->" & p & "° casi ->" & casi & " sulla ruota di " & SiglaRuota(r)
For xx = 1 To 30'<<<<<<<<<<<<<nel caso che vuoi tutti e 90 numeri cambia il 30 con ....90
Scrivi Format2(mt(xx,2)) & " " & mt(xx,3) & " " & mt(xx,4)
Next
End Sub
ho trovato uno script che mi serviva,se non erro è tuo,
potresti farmi un paio di modifiche,lo script mi chiede "quante estrazioni voui controllare?" e invece a me servirebbe "quante volte vuoi controllare il n° spia?",inoltre nell'output i numeri sono in ordine di presenza,a me servirebbe che li ordinasse in decine o cmq in ordine naturale dal 1 al 90 e di fianco le presenze.
Ti posto lo script e ti ringrazio anticipatamente.
Sub Main
Dim mt(90,4),n(2),ru(1)
r = CInt(InputBox(" Ruota di ricerca?","SPY FREQUENZA LONES",1))
sp = CInt(InputBox(" Spia?","SPY FREQUENZA BY LONES",46))
p = CInt(InputBox(" POSIZIONE SPIA","POSIZONE SPY FREQUENZA BY LONES 1 a 5 ",1))
ei = CInt(InputBox("Quante estrazioni vuoi controllare?","SPY FREQUENZA BY LONES",650))
cl = CInt(InputBox("Ottimizzazione o colpi? [1-10]","SPY FREQUENZA BY LONES",9))
rr = r ''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso,io qui' al posto di r ho messo 2 cioe' Cagliari
ru(1) = r
Scrivi
casi = 0
For es = EstrazioneFin - ei To EstrazioneFin
a = Estratto(es,r,p)
If a = sp Then
casi = casi + 1
co = 0
For j = 1 To 90
n(1) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = SiglaRuota(rr)
fr = SerieFreq(es + 1,es + cl,n,ru,1)
mt(co,4) = mt(co,4) + fr
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)
'Next
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
Scrivi "SPIA ->" & Format2(sp) & " posizione ->" & p & "° casi ->" & casi & " sulla ruota di " & SiglaRuota(r)
For xx = 1 To 30'<<<<<<<<<<<<<nel caso che vuoi tutti e 90 numeri cambia il 30 con ....90
Scrivi Format2(mt(xx,2)) & " " & mt(xx,3) & " " & mt(xx,4)
Next
End Sub