German Zirkelverweis vermeiden?

[Lightsource]

Zwei Textfelder, in die man jeweils einen Wert eintragen kann, der anschließend berechnet wird.
Der berechnete Wert wird in dem jeweils anderen Textfeld dargestellt.

Das Event ist TextChanged.

Wie vermeide ich einen Zirkelbezug?

 

[Petrus]

z.B. so:

Sub Globals
    Dim FocusId As Int
    Dim EditText1, EditText2 As EditText
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("layout01")
   
End Sub
 
Sub EditText2_TextChanged (Old As String, New As String)
    If FocusId = 2 Then EditText1.Text = New
End Sub
 
Sub EditText2_FocusChanged (HasFocus As Boolean)
    If HasFocus = True Then FocusId = 2
End Sub
 
Sub EditText1_TextChanged (Old As String, New As String)
    If FocusId = 1 Then EditText2.Text = New
End Sub
 
Sub EditText1_FocusChanged (HasFocus As Boolean)
    If HasFocus = True Then FocusId = 1
End Sub

Gruß Petrus

 

[Lightsource]

Danke Petrus

Das werde ich dann mal testen.