Per Joe, Mike58, ILegend, Djnomade, Enplein ecc...

[salvo50]

Non riesco a visualizzare i 36 ambi risultanti in orizzontale

Option Explicit
Sub Main
 
   Dim k,e,s
   Dim nClasse
   ReDim aNumeri(9)
   Dim aColonne
   nClasse = 2 ' sviluppo in ambi
   aNumeri(1) = 36
   aNumeri(2) = 42
   aNumeri(3) = 57
   aNumeri(4) = 63
   aNumeri(5) = 78
   aNumeri(6) = 84
   aNumeri(7) = 09
   aNumeri(8) = 15
   aNumeri(9) = 21
   aColonne = SviluppoIntegrale(aNumeri,nClasse)
   For k = 1 To UBound(aColonne)
      s = ""'  s = FormatSpace (k,10,True) & "- "
      For e = 1 To nClasse
         s = s & Format2(aColonne(k,e)) & " "
      Next
      Call Scrivi(s)
   Next
End Sub

 

[Lottopython]

Bene

 

[claudio8]

Option Explicit
Sub Main
Dim k,e,s
Dim nClasse
ReDim aNumeri(9)
Dim aColonne
nClasse = 2 ' sviluppo in ambi
aNumeri(1) = 36
aNumeri(2) = 42
aNumeri(3) = 57
aNumeri(4) = 63
aNumeri(5) = 78
aNumeri(6) = 84
aNumeri(7) = 09
aNumeri(8) = 15
aNumeri(9) = 21
aColonne = SviluppoIntegrale(aNumeri,nClasse)
For k = 1 To UBound(aColonne)
s = ""' s = FormatSpace (k,10,True) & "- "
For e = 1 To nClasse
s = s & Format2(aColonne(k,e)) & " "
Next
Call Scrivi(s & "- ",,False)
Next
End Sub

ecc... Cl8​

 

[salvo50]

Per Lottopython
non li scrive in orizzontale
Grazie lo stesso




Per Claudio8

Grande Claudio Grazie

 

[claudio8]

Caro Salvo le funzioni presenti in "Spazioscript" che LuigiB ha creato, ivi compresa "Scrivi", ti danno la possibilità di specificare parametri dedicati per migliorarne l'uso o utilizzo...
E' chiaro che conoscerne la loro costruzione ( vedi esempi di funzioni scritte da Lottopython ) amplia la conoscenza nell'uso degli script e ti aiuta a crearne di nuove con specificità per tue ricerche.

Caio

 

[salvo50]

Ciao a Tutti

Ho visto che lottopython ha cancellato il suo intervento, se si è offeso per quello che ho scritto gli chiedo scusa ma io il suo aiuto non l'avevo capito, dopo che Claudio me l'ha fatto capire ho salvato il suo aiuto, e rinnovo le mie scuse

 

[Lottopython]

no macchè ,ma figurati salvo50 quale offesa ,ho visto che hai risolto con lo script di claudio e non era necessario il mio ,ho ritenuto di cancellarlo ma senza alcuna offesa da parte mia anzi sono contento che hai potuto risolvere ,il mio era semplicemente un tentativo ho abbozzato qualcosa tutto qui
un abbraccio e buona serata