Differenze tra le versioni di "Uso dello ''Spinner''"

Da Gambas-it.org - Wikipedia.
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Lo '''''Spinner''''' è un oggetto grafico GUI avente aspetto circolare che ruota in continuazione di 360° e che rappresenta un'attesa che termini un processo.
+
Lo '''Spinner''' è un Oggetto grafico GUI avente aspetto circolare che ruota in continuazione di 360° e che rappresenta un'attesa che termini un processo.
 
 
  
 
Lo ''Spinner'' può essere utilizzato senza o con l'indicazione in rappresentazione percentuale del tempo sin a quel momento passato rispetto al termine del processo. Ovviamente potrà anche indicare, ad esempio, la quantità di byte caricati sino a quel momento rispetto alla totale dimensione da caricare.
 
Lo ''Spinner'' può essere utilizzato senza o con l'indicazione in rappresentazione percentuale del tempo sin a quel momento passato rispetto al termine del processo. Ovviamente potrà anche indicare, ad esempio, la quantità di byte caricati sino a quel momento rispetto alla totale dimensione da caricare.
  
Per ottenere anche l'indicazione della percentuale bisognerà porre a ''vero'' la proprietà ''.Label'' dello ''Spinner'':
+
Per ottenere anche l'indicazione della percentuale bisognerà porre a ''Vero'' la Proprietà ".Label" dello ''Spinner'':
 
  Spinner1.Label = <FONT color=#B22222>True</font>
 
  Spinner1.Label = <FONT color=#B22222>True</font>
 
e impostare il valore della percentuale con un valore in virgola mobile, ad esempio:
 
e impostare il valore della percentuale con un valore in virgola mobile, ad esempio:
  Spinner1.Value = <FONT color=#B22222>0.33</font>  <FONT color=gray>' ''Verrà mostrato: 33%''</font>
+
  Spinner1.Value = <FONT color=#B22222>0.33</font>  <FONT color=gray>' ''Verrà mostrato: <B>33%</b>''</font>
 
 
  
 
===Esempi pratici===
 
===Esempi pratici===
Mostramo di seguito un semplice esempio didattico dell'uso dell'oggetto ''Spinner'', con il quale si farà soltanto incrementare la percentuale, indicata nello ''Spinner'', mediante un ''Timer''. Si porrà sul ''Form'' l'icona dell'oggetto ''Spinner'', nonché quella dell'oggetto speciale ''Timer''. Poi si imposterà il seguente codice:
+
Mostramo di seguito un semplice esempio didattico dell'uso dell'oggetto ''Spinner'', con il quale si farà soltanto incrementare la percentuale, indicata nello ''Spinner'', mediante un ''Timer''. Si porrà sul ''Form'' l'icona del Controllo  ''Spinner'', nonché quella dell'Oggetto speciale ''Timer''. Poi si imposterà il seguente codice:
 
  Private s As Single
 
  Private s As Single
 
   
 
   
 
   
 
   
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
      
 
      
  With Spinner1
+
  With Spinner1
    .Label = True
+
    .Label = True
    .Value = 0
+
    .Value = 0
  End With
+
    .Start
 +
  End With
 +
 +
  With Timer1
 +
    .Delay = 100
 +
    .Start()
 +
  End With
 
   
 
   
  With Timer1
+
End
    .Delay = 100
 
    .Start()
 
  End With
 
 
   
 
   
  '''End'''
+
  Public Sub Timer1_Timer()
 
 
 
 
'''Public''' Sub Timer1_Timer()
 
 
   
 
   
  If s > 1 Then
+
  If s > 1 Then
    With Spinner1
+
    With Spinner1
      .Stop()
+
      .Stop()
      .Delete()
+
      .Delete()
    End With
+
    End With
    Timer1.Stop()
+
    Timer1.Stop()
    Return
+
    Return
  Endif
+
  Endif
 
    
 
    
  Spinner1.Value = s
+
  Spinner1.Value = s
 
    
 
    
  s += 0.01
+
  s += 0.01
 +
 
 +
End
 +
In quest'altro esempio verrà utilizzata la funzione ''Wait'' al posto del ''Timer'', e l'Oggetto ''Spinner'' sarà avviato al di fuori dell'apertura del ''Form'' principale del programma, ma cliccando su un tasto:
 +
Public Sub Button1_Click()
 +
 
 +
  Dim b As Byte
 +
  Dim s As Single
 +
 
 +
  With Spinner1
 +
    .Label = True
 +
    .Value = 0
 +
    .Start
 +
    For b = 0 To 100
 +
      .Value = s
 +
      s += 0.01
 +
      <FONT Color=#B22222>Wait</font> 0.01
 +
    Next
 +
    .Stop
 +
    .Delete
 +
  End With
 
    
 
    
  '''End'''
+
  End

Versione attuale delle 11:56, 13 giu 2023

Lo Spinner è un Oggetto grafico GUI avente aspetto circolare che ruota in continuazione di 360° e che rappresenta un'attesa che termini un processo.

Lo Spinner può essere utilizzato senza o con l'indicazione in rappresentazione percentuale del tempo sin a quel momento passato rispetto al termine del processo. Ovviamente potrà anche indicare, ad esempio, la quantità di byte caricati sino a quel momento rispetto alla totale dimensione da caricare.

Per ottenere anche l'indicazione della percentuale bisognerà porre a Vero la Proprietà ".Label" dello Spinner:

Spinner1.Label = True

e impostare il valore della percentuale con un valore in virgola mobile, ad esempio:

Spinner1.Value = 0.33   ' Verrà mostrato: 33%

Esempi pratici

Mostramo di seguito un semplice esempio didattico dell'uso dell'oggetto Spinner, con il quale si farà soltanto incrementare la percentuale, indicata nello Spinner, mediante un Timer. Si porrà sul Form l'icona del Controllo Spinner, nonché quella dell'Oggetto speciale Timer. Poi si imposterà il seguente codice:

Private s As Single


Public Sub Form_Open()
   
 With Spinner1
   .Label = True
   .Value = 0
   .Start
 End With

 With Timer1
   .Delay = 100
   .Start()
 End With

End

Public Sub Timer1_Timer()

 If s > 1 Then
   With Spinner1
     .Stop()
     .Delete()
   End With
   Timer1.Stop()
   Return
 Endif
  
 Spinner1.Value = s
  
 s += 0.01
 
End

In quest'altro esempio verrà utilizzata la funzione Wait al posto del Timer, e l'Oggetto Spinner sarà avviato al di fuori dell'apertura del Form principale del programma, ma cliccando su un tasto:

Public Sub Button1_Click()
 
 Dim b As Byte
 Dim s As Single
 
 With Spinner1
   .Label = True
   .Value = 0
   .Start
   For b = 0 To 100
     .Value = s
     s += 0.01
     Wait 0.01
   Next
   .Stop
   .Delete
 End With
 
End