Novità

Come scrivere dati in Orizzontale?

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti provando a creare questa statistica sui Ritardi dei numeri per ciascuna ruota, non riesco a riportare i valori dei Ritardi sotto il singolo Numero.

Ho voluto scrivere i primi 15 numeri in ritardo è fin quì tutto ok, poi però nel voler trascrivere i ritardi dei singoli numeri me li scrive in colonna ma Io vorrei averli in orizzontale, mi sono perso e non riesco a trascriverli, o sbaglio un codice o mi sfugge un qualcosa che mi sfugge, è la prima volta che mi cimento in questo modo di creare delle statistiche, e sicuramente non ho capito il perchè non lo riporta in orizzontale.

Ho bisogno di un aiuto per avere i valori trascritti nel modo giusto.
Posto lo script

Codice:
Sub Main()
   Dim Ini,Fin,Es
   Dim R,P,E,Rit
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   Scrivi "Primi Ritardatari Per Ogni Ruota * Al " & DataEstrazione(Fin),1,,,1
   Scrivi
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & "  ",1,0,,2
      For P = 1 To 15 ' Quì Impongo Quanti Ritardatari
         E = NumeroPosRit(Fin,R,P)
         Rit = EstrattoRitardoTurbo(R,E,Ini,Fin)
         Scrivi Format2(E) & "  ",1,0
         'Scrivi "  " &  Rit,1 ' Disattivata capire come scrivere in Orizzontale
      Next
      Scrivi
      Scrivi
   Next
   Scrivi
End Sub

Spero he qualcuno mi dia la dritta che non comprendo o che effettivamente non ho ancora usato ma di cui mi sfugge il motivo.

Grazie come Sempre
 
il problema è che prima si scrive una riga e poi l'altra.. non è che puoi scrivere il numero su una riga poi scrivere il ritardo alla riga sotto , poi tornare alla riga sopra...


Codice:
Option Explicit
Sub Main()
   Dim Ini,Fin,Es
   Dim R,P,E,Rit
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   Scrivi "Primi Ritardatari Per Ogni Ruota * Al " & DataEstrazione(Fin),1,,,1
   Scrivi
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & "  ",1,0,,2
      For P = 1 To 15 ' Quì Impongo Quanti Ritardatari
         E = NumeroPosRit(Fin,R,P)
       '  Rit = EstrattoRitardoTurbo(R,E,Ini,Fin)
         If P < 15 Then 
              Scrivi  FormatSpace(  Format2(E) , 5 ,True )  ,True,False 

         Else
              Scrivi  FormatSpace( Format2( E) , 5 ,True ),True

         End If 
         'Scrivi "  " &  Rit,1 ' Disattivata capire come scrivere in Orizzontale
      Next
      Scrivi "Rit" & " ",1,0,,2


      For P = 1 To 15 
         E = NumeroPosRit(Fin,R,P)
         Rit = EstrattoRitardoTurbo(R,E,Ini,Fin)
         If P < 15 Then 

             Scrivi   FormatSpace(  Rit , 5 ,True ) ,,False 
         Else
             Scrivi  FormatSpace(  Rit , 5 ,True )  


         End If 
            
      Next

      Scrivi
      Scrivi
   Next
   Scrivi
End Sub
 
Ciao, LuigiB

Grazie.

Vedo che non avevo proprio compreso il costrutto.

Vedendo il tutto ho capito, come sempre Gentile e chiaro.

Così utilizzerò il costrutto per altre Ricerche.
Grazie Ancora
 
Codice:
Sub Main()
   Dim Ini,Fin,Es
   Dim R,P,E,Rit
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   Scrivi "Primi Ritardatari Per Ogni Ruota * Al " & DataEstrazione(Fin),0,1,1,5
   Scrivi
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & "  ",1,0,,0
      For P = 1 To 10 ' Quì Impongo Quanti Ritardatari
         E = NumeroPosRit(Fin,R,P)
         Rit = EstrattoRitardoTurbo(R,E,Ini,Fin)
         Scrivi Format2(E) & "_",0,0,1,5
         Scrivi "_" &  Rit,0,0,3,1 ' Disattivata capire come scrivere in Orizzontale
      
      
       If Rit = 100<>150 Then  ' ?  mettere il colore per evidenziare le caselle con il maggiore rit
      
       End If

      
      
      Next
          
           Scrivi
      Scrivi
   Next
   'Scrivi
End Sub

la tabella lo sistemata in questo modo ma non mi ricordo come
si mette il colore per evidenziare le caselle con il maggior rit
 
Altri 2 costrutti per raccogliere i dati (visto che li avevo preparati.

Codice:
Sub Main()
   Dim Ini,Fin,Es
   Dim R,P,E,Rit
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   Scrivi "Primi 15 Ritardatari Per Ogni Ruota * Al " & DataEstrazione(Fin),1,,,1
   Scrivi
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & "  ",1,0,,2
      For P = 1 To 15 ' Quì Impongo Quanti Ritardatari
         E = NumeroPosRit(Fin,R,P)
         Rit = EstrattoRitardoTurbo(R,E,Ini,Fin)
         Scrivi Format2(E) & "  ",1,0
         RigaRit = RigaRit & FormattaStringa(Rit,"00") & "  "
      Next
      Scrivi
      Scrivi "Rit." & RigaRit,0,1,,1
      Scrivi String(65,"-")
      RigaRit = ""
   Next
  
End Sub

Codice:
Sub Main()
   Dim Ini,Fin,Es
   Dim R,P,E,Rit
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   Scrivi "Primi Ritardatari Per Ogni Ruota * Al " & DataEstrazione(Fin),1,,,1
   Scrivi
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & "  ",1,0,,2
      For P = 1 To 15 ' Quì Impongo Quanti Ritardatari
         E = NumeroPosRit(Fin,R,P)
         Rit = EstrattoRitardoTurbo(R,E,Ini,Fin)
         Scrivi Format2(E) & " ",1,0
         '--------------------------------
         If Rit > 0 Then
            ReDim Preserve NumRit(P)
            NumRit(P) = Rit
         End If
         '-------------------------------
      Next
      Scrivi ' azzera la scrittura numeri ritardatari in orizzontale
      Scrivi "Rit." & StringaNumeri(NumRit,,1),1,1,,1
      Scrivi ' stacca scrittura ruote
   Next
End Sub
 
Grazie anche a Te, Mike58

Ora ho più modi di esporre i dati.

Altre cose che ho capito ed aggiunto al mio bagaglio.
 
Xeroxs si figuri noi siamo allievi rispetto ai maestri degli script LuigiB e Mike58..
e grazie a loro che abbiamo imparato qualcosa con gli script ma ho notato
che nel programma SpazioLight la programmazione e diversa con gli script
e simile a quella di Visual Lotto 7..
quindi gli script che abbiamo in SpazioMetria non vanno bene
nel programma SpazioLight perche la programmazione e diversa..
grazie Mike dopo vedrò i tuoi listati..
 
Ultima modifica:
Xeroxs si figuri noi siamo allievi rispetto ai maestri degli script LuigiB e Mike58..
e grazie a loro che abbiamo imparato qualcosa con gli script ma ho notato
che nel programma SpazioLight la programmazione e diversa con gli script
e simile a quella di VIsual Lotto 7..
Si Zetrix il linguaggio è lo stesso Vbnet , ma i codici delle librerie dei programmi sono diversi.
esempio EstrattoRitardo (spazio) - Estratto.Ritardo (vl7)
PiuRitardatario contro Estratto.Ritardatario
etc quindi non sono utlizzabili per SpazioLight
 
Mike quindi vorresti dire che se incollo uno script di Visual 7 in SpazioLight
non va bene perche i codici delle librerie dei programmi sono diversi
 
Si Zetrix è così.
Se Vuoi puoi provare ma il programma ti darà errore di codici non presenti

;)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 15 maggio 2025
    Bari
    75
    59
    15
    72
    63
    Cagliari
    76
    52
    09
    25
    37
    Firenze
    40
    82
    70
    19
    90
    Genova
    32
    60
    13
    19
    27
    Milano
    61
    66
    60
    27
    32
    Napoli
    27
    59
    39
    66
    58
    Palermo
    09
    08
    25
    34
    71
    Roma
    78
    11
    10
    64
    58
    Torino
    13
    50
    42
    45
    40
    Venezia
    87
    32
    66
    30
    73
    Nazionale
    09
    62
    43
    23
    49
    Estrazione Simbolotto
    Milano
    24
    41
    35
    26
    01
Indietro
Alto