Come scrivere dati in Orizzontale?

[Xeroxs]

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

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

 

[LuigiB]

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

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

 

[Xeroxs]

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

 

[Zetrix]

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

 

[Xeroxs]

Grazie anche per il Contributo Zetrix.

 

[Mike58]

Altri 2 costrutti per raccogliere i dati (visto che li avevo preparati.

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

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

 

[Xeroxs]

Grazie anche a Te, Mike58

Ora ho più modi di esporre i dati.

Altre cose che ho capito ed aggiunto al mio bagaglio.

 

[Zetrix]

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

 

[Mike58]

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

 

[Zetrix]

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

 

[Mike58]

Si Zetrix è così.
Se Vuoi puoi provare ma il programma ti darà errore di codici non presenti