German EditText in Int

[dreamfile]

Erstmal allen Vätern einen schönen Vatertag.
Kennt Ihr das? Man benötigt eine einfache Anwendung, hat einen kleinen Fehler drin und findet ihn nicht. (Betriebsblind)
Als letzte Möglichkeit dann der Hilfeschrei im Forum. Soweit bin ich jetzt und bedanke mich schonmal beim Fehlerfinder.

Sub Process_Globals
   Dim TimerMain As Timer
End Sub

Sub Globals
   Dim lblWoche As Label
   Dim AZVstd As EditText
   Dim AZVstdwert As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
TimerMain.Initialize("TimerMain", 1000)   '1000=1sek.

lblWoche.Initialize("lblWoche") : Activity.AddView(lblWoche, 1%x,1%y, 98%x,10%y)
lblWoche.Gravity = Gravity.CENTER : lblWoche.TextSize = 20

AZVstd.Initialize("AZVstd") : Activity.AddView(AZVstd, 14%x,32%y, 6%x,7%y)
AZVstd.InputType = AZVstd.INPUT_TYPE_NUMBERS

AZVstdwert=lblWoche.Text

TimerMain.Enabled = True
End Sub
Sub TimerMain_Tick
lblWoche.Text = AZVstdwert
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Bei

AZVstdwert=lblWoche.Text

bleibt der Code stehen.

:sign0013:
+
:sign0100:

LG Sascha :sign0104:

 

[CDPeter]

Erstmal allen Vätern einen schönen Vatertag.
Kennt Ihr das? Man benötigt eine einfache Anwendung, hat einen kleinen Fehler drin und findet ihn nicht. (Betriebsblind)
Als letzte Möglichkeit dann der Hilfeschrei im Forum. Soweit bin ich jetzt und bedanke mich schonmal beim Fehlerfinder.

Sub Process_Globals
   Dim TimerMain As Timer
End Sub

Sub Globals
   Dim lblWoche As Label
   Dim AZVstd As EditText
   Dim AZVstdwert As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
TimerMain.Initialize("TimerMain", 1000)   '1000=1sek.

lblWoche.Initialize("lblWoche") : Activity.AddView(lblWoche, 1%x,1%y, 98%x,10%y)
lblWoche.Gravity = Gravity.CENTER : lblWoche.TextSize = 20

AZVstd.Initialize("AZVstd") : Activity.AddView(AZVstd, 14%x,32%y, 6%x,7%y)
AZVstd.InputType = AZVstd.INPUT_TYPE_NUMBERS

AZVstdwert=lblWoche.Text

TimerMain.Enabled = True
End Sub
Sub TimerMain_Tick
lblWoche.Text = AZVstdwert
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Bei

AZVstdwert=lblWoche.Text

bleibt der Code stehen.

:sign0013:
+
:sign0100:

LG Sascha :sign0104:

Du legst für AZVstdwert die Eingabe von Zahlen fest und willst dann eine Zeichenkette zuweisen!?

Gesendet von meinem IDEOS S7 mit Tapatalk 2

 

[dreamfile]

Du legst für AZVstdwert die Eingabe von Zahlen fest und willst dann eine Zeichenkette zuweisen!?

Gesendet von meinem IDEOS S7 mit Tapatalk 2

Siehe Titel :sign0085:

 

[klaus]

Du hast nirgendwo einen numerischen 'default' Wert in lblWoche.Text eingegeben.
Das heisst dass am Anfang lblWoche.Text einen leeren String enthält und dieser nicht in eine Zahl imgewandelt werden kann.


Um soche Fehler rauszufinden solltest Du in dem Programm einen Breakpoint an der problematischen Zeile einsetzten und das Programm im Debug Modus laufen lassen.
Das Programm haltet dann an dieser Stelle an und Du kannst die Inhalte der verschiedenen Variablen anschauen.

Du könntest es auch mit Log versuchen, zum Beispiel

Log(lblWoche.Text)
[COLOR=#000000]AZVstdwert=lblWoche.Text[/COLOR]

Da würdest Du sehen dass nichts in lblWoche.Text drin ist.

Beste Grüsse.