sincroni di livello tabella

[trivellatomariotretre33]

ciao salve a tutti se e possibile avere uno script con tabella per ogni ruota dei sincroni di livello x ambo
vi ringrazio di cuore ..

 

[Mike58]

Ciao Trivellato, a me piace fare con gli script tutto quello che mi passa per la testa (nel limite delle mie capacità), però è gisto dare anche valore alle potenzialità di SpazioMetria di LuigiB.

Esiste una ricerca del genere in TABELLONI > Ricerca Sincroni che elenca i sincroni per livello voluto.

Tempo per gli script in questo periodo è pochissimo.

Ciao

 

[Mike58]

Anche se il mio analitico sincroni di livello potrebbe venirti utile,

Sub Main

Dim nu(5),cad(5),ru(1)

'r = InputBox("Quale RUOTA",,2)

f = CInt(InputBox("Estrazione di rilevamento a ritroso",,1))

e = InputBox("Quante ESTRAZIONI",,150)

ss = CInt(InputBox("Quale livello ",,4))

Ini = EstrazioneFin - e

fin = EstrazioneFin - f

fine = EstrazioneFin

Scrivi "-----------------------Analitico Sincroni ---- by Mike58 -------------------",1

Scrivi "sorte...." & NomeSorte(ss) & " .... Rilevamento estrazione ..." & GetInfoEstrazione(fin),1,1,,1,2

Scrivi "----------------------------------------------------------------------------",1

For es = fin To Ini Step - 1' To idEstr

For r = 1 To 12

If r = 11 Then r = 12

ru(1) = r

For p = 1 To 5

nu(p) = Estratto(es,r,p)

cad(p) = Estratto(es,r,p)

If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"

k = k + 1

'If EstrattoFrequenza(r,cad(p),es,fin) = 1 Then cad(p) = "--"

If nu(p) = "--" Then kk = kk + 1

Call VerificaEsito(nu,ru,fin + 1,1,100,,esito,clp,estratti,id)

Next

k1 = k - kk

If k1 = ss Then

k2 = k2 + 1

kc = kc + 1

Scrivi "Ritardo..." & FormatSpace(fin - es,3) & " " & FormatSpace(k2,2) & " " & GetInfoEstrazione(es) & " ",0,0

Scrivi SiglaRuota(r) & " " & StringaNumeri(nu,,1) & " count..." & k - kk,0,0

Scrivi " " & estratti,1,0,,1,2

If esito <> "" And id = EstrazioneFin Then Scrivi " Al colpo..." & clp & " " & GetInfoEstrazione(id) & " ### ",1,1,,1,2

If esito <> "" And id <> EstrazioneFin Then Scrivi " Al colpo..." & clp & " " & GetInfoEstrazione(id),1,1,,1,2

If esito <> "" Then kesito = kesito + 1

If esito = "" Then Scrivi String(60,".") & " In corso ",0,1,,2,2

'Scrivi StringaNumeri(nu,,1) & " " & k-kk '& " Ritarda da.... " & fin - es,0,0

'Scrivi vbTab & " Caduti " & StringaNumeri(cad,,1)

'Scrivi

End If

k = 0

kk = 0

Next

If k2 > 0 Then Scrivi String(150,"="),1

k2 = 0

Next

Scrivi "Esiti Positivi...." & kesito & " su casi " & kc & " Rilevati ",1,1,,2,3

Scrivi "Perc % di Esito..." & Int(kesito/kc*100) & " % ",1,1,,1,3

End Sub

 

[trivellatomariotretre33]

GRAZIE Mike58 E TUTTO VERO CIO CHE AI DETTO MA A ME SERVIVA IN SCRIPT CHE POI MODIFICO NON X SPAZIOMETRIA QUINDI SE PUOI SONO BEN FELICE DEL TUO OPERATO SCUSAMI SE NON TI O RISPOSTO IN TEMPO E GRAZIE PER LA DISPONIBILITA CHE CI DEDICHI.

 

[Mike58]

Ciao Trivellato,se lo script che ho postato non fa in qualche modo quello che chiedi, non saprei come e dove aiutarti, poi fra poco vado in vacanza e tempo non ne ho più.

Ciao