|
|
| ciao Silop quanto chiedi non sono in grado di farlo, ho fatto diversamente vedi se così va bene lo stesso; colgo l' occasione per ringraziarti per gli archivi che metti a disposizione di tutti nel tuo sito che spesso ho usato per aggiornare Spaziometria anche se io uso ancora L8+ CODICE ' Cinquine sincrone a passo x per singolo Estratto con numeri in gioco 'Ritardi attuali o storici (scambiare apici)
[color=red]' Su SPAZIOMETRIA al posto di scrivi Space(5),0,0 mettere scrivi Space(12),0,0 e ' a Scrivi FormatSpace(SiglaRuota(rr),6),0,0 sostituire il 6 con 7 [/color]
Sub Main() Dim num(5) Dim ruota(1) Dim rita(5,11) Dim max(5,11) Dim estr(5,11) For ep = 1 To 27 AvanzamentoElab 1,38,ep Scrivi "-------------------------------------------------------------passo " & ep Scrivi Scrivi Space(5),0,0 For rr = 1 To 10 ruota(1) = rr Scrivi FormatSpace(SiglaRuota(rr),6),0,0 If rr = 10 Then Scrivi "posizione" For p = 1 To 5 eini = EstrazioneFin - 250 efin = EstrazioneFin For i = eini To efin num(1) = Estratto(i - ep,rr,p) estr(p,rr) = Estratto(efin - ep + 1,rr,p) If SerieFreq(i,i,num,ruota,1) > 0 Then rita(p,rr) = 0 Else rita(p,rr) = rita(p,rr) + 1 If max(p,rr) < rita(p,rr) Then max(p,rr) = rita(p,rr) End If Next Next Next For z = 1 To 5 rita(z,11) = z max(z,11) = z estr(z,11) = z Next ScriviMatrice rita 'ritardi attuali 'ScriviMatrice max 'ritardi storici ColoreTesto 1 Scrivi "Numeri in gioco per l'estrazione successiva al " & DataEstrazione(efin) ScriviMatrice estr ColoreTesto 0 Erase rita Erase max Next Erase rita Erase max End Sub Ciao a tutti
|
| |