Next i
Next
Sub Activity_Touch(Action As Int, X As Float, Y As Float)
Log("1 " & j)
If Berechnungen_Aktiv = True Then Return
Log("2 " & j)
Select Action
...
EndSelect
End Sub
Bist Du sicher ? Hast Du es ausprobiert ob die Touch Routine aufgerufen wird wenn die Schlaufe durchlaufen wird ? Das wollte Ich mit den Log Schlüsselworten ausprobieren.Dein Vorschlag mit den Variabeln hilft mir nicht weiter. Was in der Touch-Routine passiert ist mir schon klar. Daran liegt es nicht.
Wie schon geschrieben, solange die Schleife mit der Grafikausgabe beschäftigt ist,
Sub Activity_Resume()
Berechnung_Aktiv = True
For i = 0 to irgendwas
...ein paar Berechnungen
For ii = 0 to irgendwas2
.. Jede Menge Berechnungen
Canvas1.DrawLine(x,y,...usw.)
next
Panel1.Invalidate
DoEvents
next i
Berechnungen_Aktiv = false
End Sub
Sub Activity_Resume()
Berechnung_Aktiv = True
For i = 0 to irgendwas
...ein paar Berechnungen
For ii = 0 to irgendwas2
.. Jede Menge Berechnungen
Canvas1.DrawLine(x,y,...usw.)
Panel1.Invalidate
DoEvents
next
next i
Berechnungen_Aktiv = false
End Sub
Sub Activity_Resume
Dim i, ii As Int
Berechnung_Aktiv = True
For i = 0 To irgendwas
'...ein paar Berechnungen
For ii = 0 To irgendwas2
'.. Jede Menge Berechnungen
Canvas1.DrawLine(x,y,...usw.)
DoEvents
Next
Panel1.Invalidate
Next
Berechnung_Aktiv = False
End Sub
Sub Activity_Resume
Dim i, ii As Int
Berechnung_Aktiv = True
For i = 0 To irgendwas
'...ein paar Berechnungen
For ii = 0 To irgendwas2
'.. Jede Menge Berechnungen
Canvas1.DrawLine(x,y,...usw.)
Next
Panel1.Invalidate
DoEvents
Next
For a = 0 to 50 '<=
DoEvents '<=
Next '<=
Berechnung_Aktiv = False
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?