lotto_tom75
Advanced Premium Member
Questo script genera tutte le formazioni di classe voluta per tutte le distanze da 1 a 89 e credo sia stato creato dal grande Joe che saluto. Ad ogni modo questo criptico ma molto interessante script prende in considerazione tutti i 90 numeri mentre a me servirebbe che potesse valutare anche solo un gruppo numerico di base ben specifico importabile appunto dall'ormai nota tabella colorata apposita. Un'ulteriore modifica che vorrei apportarvi e quella di non considerare l'inutile distanza 90 che ovviamente riporta solo lo stesso numero per il numero delle volte pari al valore della classe di sviluppo scelta.
Qualcuno/a riesce ad inserirvi questa opzione della tabella colorata e a rimuovere la distanza 90 dallo sviluppo?
Thanks
Codice:
Sub Main
Q = 30 '<=== Inserisci "Quantità" Numeri in Lunghetta
For P = 1 To 90
AvanzamentoElab 1,90,P
'Scrivi String(Q*3 - 1,"=") & " PASSO " & Format2(P),1
For N = 1 To 90
Stringa = Format2(N) & "."
For L = 1 To Q
Stringa = Stringa & Format2(Fuori90(N + L*P)) & "."
Next
For LL = 3*Q To 3*Q Step 3
Scrivi Left(Stringa,LL - 1)
Next
'Scrivi
Next
Next
End Sub
Qualcuno/a riesce ad inserirvi questa opzione della tabella colorata e a rimuovere la distanza 90 dallo sviluppo?
Thanks
Ultima modifica: