Novità

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

salvo50

Advanced Member >PLATINUM PLUS<
Non riesco a visualizzare i 36 ambi risultanti in orizzontale
Codice:
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
 
Ultima modifica:
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​

 
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
 
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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
Indietro
Alto