hallo,
ich habe mich mal nach ewiger zeit an eine kleine app gewagt, leider ohne erfolg.
beim starten erhalte ich sofort auf verschiedenen android versionen die meldung, dass die app angehalten wurde und/oder nicht reagiert, es erscheint kein fenster und nix weiter.
ich habe bisher aber ja kaum was an code da drin ...
danke
ich habe mich mal nach ewiger zeit an eine kleine app gewagt, leider ohne erfolg.
beim starten erhalte ich sofort auf verschiedenen android versionen die meldung, dass die app angehalten wurde und/oder nicht reagiert, es erscheint kein fenster und nix weiter.
ich habe bisher aber ja kaum was an code da drin ...
danke
B4X:
#Region Project Attributes
#ApplicationLabel: Rad-Rechner
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: True
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim btCalc As Button
Dim btClearFields As Button
Dim cmbEinheit As Spinner
Dim lblCalcDurchmesser As Label
Dim lblCalcFlaeche As Label
Dim lblCalcRadius As Label
Dim lblCalcUmfang As Label
Dim lblEinheitFlaeche As Label
Dim lblEinheitRadius As Label
Dim lblEinheitDurchmesser As Label
Dim lblEinheitUmfang As Label
Dim txtInputA As EditText
Dim txtInputH As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("Portrait")
If FirstTime Then
End If
lblCalcDurchmesser.Text = "0,00"
lblCalcFlaeche.Text = "0,00"
lblCalcRadius.Text = "0,00"
lblCalcUmfang.Text = "0,00"
lblEinheitFlaeche.Text = "mm"
lblEinheitRadius.Text = "mm"
lblEinheitUmfang.Text = "mm"
lblEinheitDurchmesser.Text = "mm"
txtInputA.Text = "0,00"
txtInputH.Text = "0,00"
cmbEinheit.Add("mm")
cmbEinheit.Add("cm")
cmbEinheit.Add("dm")
cmbEinheit.Add("m")
cmbEinheit.Add("km")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Activity_WindowFocusChanged (Focused As Boolean)
End Sub
Sub Activity_ActionBarHomeClick
End Sub
Sub txtInputH_TextChanged (Old As String, New As String)
End Sub
Sub txtInputH_EnterPressed
End Sub
Sub txtInputH_FocusChanged (HasFocus As Boolean)
End Sub
Sub txtInputA_TextChanged (Old As String, New As String)
End Sub
Sub txtInputA_EnterPressed
End Sub
Sub txtInputA_FocusChanged (HasFocus As Boolean)
End Sub
Sub lblEinheitUmfang_Click
End Sub
Sub lblEinheitUmfang_LongClick
End Sub
Sub lblEinheitRadius_Click
End Sub
Sub lblEinheitRadius_LongClick
End Sub
Sub lblEinheitFlaeche_Click
End Sub
Sub lblEinheitFlaeche_LongClick
End Sub
Sub lblEinheitDurchmesser_Click
End Sub
Sub lblEinheitDurchmesser_LongClick
End Sub
Sub lblCalcUmfang_Click
End Sub
Sub lblCalcUmfang_LongClick
End Sub
Sub lblCalcRadius_Click
End Sub
Sub lblCalcRadius_LongClick
End Sub
Sub lblCalcFlaeche_Click
End Sub
Sub lblCalcFlaeche_LongClick
End Sub
Sub lblCalcDurchmesser_Click
End Sub
Sub lblCalcDurchmesser_LongClick
End Sub
Sub cmbEinheit_ItemClick (Position As Int, Value As Object)
lblEinheitDurchmesser.Text = Value
lblEinheitFlaeche.Text = Value
lblEinheitRadius.Text = Value
lblEinheitRadius.Text = Value
End Sub
Sub btClearFields_Click
txtInputA.Text = ""
txtInputH.Text = ""
lblCalcDurchmesser.Text = "0,00"
lblCalcFlaeche.Text = "0,00"
lblCalcRadius.Text = "0,00"
lblCalcUmfang.Text = "0,00"
End Sub
Sub btCalc_Click
End Sub
