[Risolto]Visualizzare subito una DrawingArea

[Top Fuel]

Nell'ennesimo progettino che sto scrivendo devo disegnare in successione dei punti in una DrawingArea. Il problema è che il programma prima fa tutti i calcoli e poi alla fine fa vedere la DrawingArea con i punti già completamente tracciati, mentre a me serve il contrario, visualizzare subito la DrawingArea e poi i punti in successione.
Cosa devo fre?

[vuott]

... i punti in successione.

Precisamente cosa intendi per in successione ? Solo spaziale o anche temporale, ossia ciascun punto appare sulla DrawingArea dopo tot tempo ?

[Top Fuel]

Tutte e due, in pratica è un programma che simula la traiettoria di 2 o più stelle che passano vicine tra loro e si influenzano con la loro forza di gravità.

[vuott]

Una cosa così ? 


Con il Timer:

Codice: gambas [Seleziona]

Private j As Byte


Public Sub Form_Open()  

  DrawingArea1.Background = Color.White 
  DrawingArea1.Cached = True 

  Timer1.Start()
  Timer1.Delay = 1000   '  ritardo = 1 secondo

End
 

Public Sub Timer1_Timer()
  
  Dim i As Short

    i = 100 * j
  
    With Draw
      .Begin(DrawingArea1)
      .RichText(String.Chr(&2730), i, 100, 10, 10, 0)
      .End
    End With
  
    Inc j
  
End

Senza Timer:

Codice: gambas [Seleziona]

Private j As Byte
Private ciclo As Boolean = True


Public Sub Form_Open()

  Dim i As Short

    DrawingArea1.Background = Color.White 
    DrawingArea1.Cached = True 

    Me.Show


    While ciclo   ' Esegue il ciclo, finché la omonima variabile è "vera"
      i = 50 * j
      With Draw
        .Begin(DrawingArea1)
        .RichText(String.Chr(&2730), i, 100, 10, 10, 0)
        .End
      End With

      Wait 1   '  ritardo = 1 secondo
      Inc j
    Wend

End


Public Sub Button1_Click()   ' Impone l'uscita dal ciclo

  ciclo = False

End

[Top Fuel]

No, il ciclo di calcolo è completamente differente, e funziona, devo solo trovare i parametri giusti, però ho bisogno che la DrawingArea venga visualizzata subito e non solo alla fine.

[vuott]

... ho bisogno che la DrawingArea venga visualizzata subito e non solo alla fine.

Quel

Codice: gambas [Seleziona]

Me.Show

è sufficiente ?

[Top Fuel]

Niente da fare.
Sto provanto a cambiare metodo, vediamo se funziona.

[Top Fuel]

Risolto, è stato sufficiente usare dei ValueBox e un bottone al posto degli InputBox.