Come rallentare un ciclo ?

[vuott]

https://www.iprogrammatori.it/forum-programmazione/cplusplus/come-rallentare-ciclo-t33964.html#p8594350

[Top Fuel]

Noi abbiamo Sleep e Wait, se non vado errante.

[vuott]

Noi abbiamo Sleep e Wait

......e se io volessi un ritardo inferiore al millesimo di secondo ?

[kicco]

Teoria:
Creo un ciclo, avvio un contatore, quando arrivo ad un millisecondo esco dal ciclo e memorizzo l'indice del ciclo.
Calcolo le frazioni di millisecondo.
Quando mi serve genero un ciclo con valore definito (frazione di millisecondi)
Certo questo contravviene alla condizione posta, che la temporizzazione fosse slegata dalla velocità del microprocessore!
È un idea tanto strampalata?
 

[vuott]

È un idea tanto strampalata?

[Gianluigi]

Ammetto la mia ignoranza in materia, ma questo non ritarda il ciclo di un microsecondo?:

Codice: [Seleziona]

Public Sub Main()

  Dim i As Integer
  Do
    Inc i
    Wait 0.0000001
  Loop Until i = 2000000
  Print i

End

Ho provato a mettere in pratica le indicazioni di kicco ma mi sono slogato una spalla 

P.S. con Sleep non funziona con Wait sembra di si, potete fare la prova prima commentando Wait e poi de-commentandolo per vedere la differenza.

 

[vuott]

La domanda vera è:
le funzioni di "attesa" di Gambas supportano valori inferiori al millesimo di secondo ?


Forse potrebbero aiutarci questi esempi: 

Codice: [Seleziona]

Public Sub Main()

  Print CFloat(Time)

  Wait 0.001
 
  Print CFloat(Time)
  Print "      |^^^"
  Print "      Sdcm"
  Print "S= secondi\nd= decimi di sec.\nc= centesimi di sec.\nm= millisecondi"

End

Codice: [Seleziona]

Public Sub Main()

  Print CFloat(Time)

  Wait 
 
  Print CFloat(Time)
  Print "      |^^^"
  Print "      Sdcm"
  Print "S= secondi\nd= decimi di sec.\nc= centesimi di sec.\nm= millisecondi"

End

Codice: [Seleziona]

Public Sub Main()

  Print CFloat(Time)

  Wait 0.0001
 
  Print CFloat(Time)
  Print "      |^^^"
  Print "      Sdcm"
  Print "S= secondi\nd= decimi di sec.\nc= centesimi di sec.\nm= millisecondi"

End

[Gianluigi]

Ottima dimostrazione 
Dai mille in su non sortisce effetto alcuno.
Pertanto non può essere usato ad esempio per i miei microsecondi 

Comunque lo avevo premesso che di queste cose ci capisco... 

 

P.S. Stai a vedere che kicco ha ragione...

[vuott]

P.S. Stai a vedere che kicco ha ragione...

[Top Fuel]

[......e se io volessi un ritardo inferiore al millesimo di secondo ?

For i = 0 To 1
Next

 

[vuott]

A questo punto suggerirei una seduta spiritica...

[kicco]

 
Pensavo in realtà a una cosa così, ma purtroppo, ho l'impressione, che il contatore non parta in parallelo al Main quando riceve il comando enabled, ma aspetti che termini il ciclo LOOP...

Codice: [Seleziona]

Private timer1 As Timer 
Private a As Boolean

Public Sub Main()
  
  Dim i As Integer
  
  a = False
  timer1 = New Timer As "timer1"
  timer1.delay = 1  'carica 1ms nel timer
  timer1.enabled = 1  'fa partire il timer
  
  Do
    Inc i
  Loop Until a = True
  Print i
  
End

Public Sub Timer1_timer()
  
  a = True  'allo scadere modifica la variabile
  timer1.Enabled = 0  'ferma il timer
  Print "Stop"

End

PS: vediamo come mi cazzia Vuott, stavolta! 

[vuott]

  ...no, scusa.... mi puoi spiegare per quale ragione con il tuo codice il ciclo

Codice: [Seleziona]

  Do
    Inc i
  Loop Until a = True
  

riceve un'attesa inferiore al millisecondo ? 

[kicco]

Perchè credo che la velocità del microprocessore permetta di effettuare un numero elevato di cicli in 1ms.
 

[Gianluigi]

......e se io volessi un ritardo inferiore al millesimo di secondo ?

Naturalmente stai parlando di risorse in puro Gambas, non è che alla fine te ne esci con le librerie C che prevedono micro e nano secondi, giusto?