HI
FormelrechnerApps wie "Mathe Experte" aus dem Market haben Eingabemasken.
Du gibst 2 Variablen ein und die App berechnet alle 10 anderen sich ergebenden Variablen. (Und zeigen auch noch den Rechenweg an.)
Jetzt hab ich versucht sowas auch zu erstellen.
Ich habe aber keinen blassen Schimmer wie man es macht das sich aus den 2 Variablen alle anderen ergeben.
Ich meine, ich kann bei Mathe Experte irgendeine der Variablen eingeben und immer errechnet mir die App alle anderen Ergebnisse.
Wie macht man sowas?
6 hoch 6 "If then" Schleifen?
lg Frank
FormelrechnerApps wie "Mathe Experte" aus dem Market haben Eingabemasken.
Du gibst 2 Variablen ein und die App berechnet alle 10 anderen sich ergebenden Variablen. (Und zeigen auch noch den Rechenweg an.)
Jetzt hab ich versucht sowas auch zu erstellen.
Ich habe aber keinen blassen Schimmer wie man es macht das sich aus den 2 Variablen alle anderen ergeben.
Ich meine, ich kann bei Mathe Experte irgendeine der Variablen eingeben und immer errechnet mir die App alle anderen Ergebnisse.
Wie macht man sowas?
6 hoch 6 "If then" Schleifen?
lg Frank
B4X:
'Activity module
'edtTextRechner
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 scvMain As ScrollView
Dim PanelNb As Int : PanelNb=9
Dim PanelHeight As Int : PanelHeight=180dip
Dim Formel, Text(10,10) As String : Formel = "Dreieck"
Dim i,Zahl(10,10) As Int
Dim lblTest(10,10) As Label
Dim edtTest(10) As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim pnltest(10) As Panel
Dim btnTest As Button
scvMain.Initialize(500)
Activity.AddView(scvMain, 0, 0, 100%x, 100%y)
Dreieck ' Labeltexte abholen
For i=0 To PanelNb-1
pnltest(i).Initialize("pnlTest")
scvMain.Panel.AddView(pnltest(i),0,5dip+i*PanelHeight,100%x,PanelHeight+5)
pnltest(i).Tag=i
If (i Mod 2)=1 Then
pnltest(i).Color=Colors.Red
Else
pnltest(i).Color=Colors.Blue
End If
'Benennung
lblTest(i,1).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,1),10dip, 5dip, 45%x, 40dip)
lblTest(i,1).Tag=i
lblTest(i,1).TextSize=20
lblTest(i,1).Text= Text(i,1)
lblTest(i,1).TextColor = Colors.Black
lblTest(i,1).Gravity = Gravity.RIGHT
'Formel 1
lblTest(i,2).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,2),10dip, 35dip, 45%x, 40dip)
lblTest(i,2).Tag=i
lblTest(i,2).TextSize=17
lblTest(i,2).Text=Text(i,2)
lblTest(i,2).TextColor = Colors.Black
lblTest(i,2).Gravity = Gravity.RIGHT
'Formel 2
lblTest(i,3).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,3),10dip, 65dip, 45%x, 40dip)
lblTest(i,3).Tag=i
lblTest(i,3).TextSize=17
lblTest(i,3).Text=Text(i,3)
lblTest(i,3).TextColor = Colors.Black
lblTest(i,3).Gravity = Gravity.RIGHT
'Formel 3
lblTest(i,4).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,4),10dip, 95dip, 45%x, 40dip)
lblTest(i,4).Tag=i
lblTest(i,4).TextSize=17
lblTest(i,4).Text=Text(i,4)
lblTest(i,4).TextColor = Colors.Black
lblTest(i,4).Gravity = Gravity.RIGHT
'Eingabefeld
edtTest(i).Initialize("edtTest")
pnltest(i).AddView(edtTest(i),55%x, 5dip, 35%x, 35dip)'55%x, 70dip, 35%x, 25dip)
edtTest(i).Tag=i
edtTest(i).TextSize=15
edtTest(i).InputType = edtTest(i).INPUT_TYPE_DECIMAL_NUMBERS
'Ergebnis 1
lblTest(i,5).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,5),55%x, 40dip, 35%x, 25dip)
lblTest(i,5).Tag=i&5
lblTest(i,5).TextSize=17
lblTest(i,5).Text= Zahl(i,5)
lblTest(i,5).Color = Colors.LightGray
lblTest(i,5).TextColor = Colors.Black
'Ergebnis 2
lblTest(i,6).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,6),55%x, 70dip, 35%x, 25dip)
lblTest(i,6).Tag=i&6
lblTest(i,6).TextSize=17
lblTest(i,6).Text=Zahl(i,6)
lblTest(i,6).Color = Colors.LightGray
lblTest(i,6).TextColor = Colors.Black
'Ergebnis 3
lblTest(i,7).Initialize("lblTest")
pnltest(i).AddView(lblTest(i,7),55%x, 100dip, 35%x, 25dip)
lblTest(i,7).Tag=i&7
lblTest(i,7).TextSize=17
lblTest(i,7).Text=Zahl(i,7)
lblTest(i,7).Color = Colors.LightGray
lblTest(i,7).TextColor = Colors.Black
'
' btnTest.Initialize("btnTest")
' pnltest(i).AddView(btnTest,240dip, 135dip, 70dip, 40dip)
' btnTest.Tag=i
' btnTest.Text="Test "&i
Next
scvMain.Panel.Height=PanelNb*PanelHeight+10
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lblTest_Click ' übernahme der Ergebnisse in edtTest
Dim Send As Label
Dim i As Int
Send=Sender
Activity.Title="Label "&Send.Tag
i = Send.Tag
Select i
Case 05
edtTest(0).Text = lblTest(0,5).Text
Case 06
edtTest(0).Text = lblTest(0,6).Text
Case 07
edtTest(0).Text = lblTest(0,7).Text
Case 15
edtTest(1).Text = lblTest(1,5).Text
Case 16
edtTest(1).Text = lblTest(1,6).Text
Case 17
edtTest(1).Text = lblTest(1,7).Text
Case 25
edtTest(2).Text = lblTest(2,5).Text
Case 26
edtTest(2).Text = lblTest(2,6).Text
Case 27
edtTest(2).Text = lblTest(2,7).Text
Case 35
edtTest(3).Text = lblTest(3,5).Text
Case 36
edtTest(3).Text = lblTest(3,6).Text
Case 37
edtTest(3).Text = lblTest(3,7).Text
Case 45
edtTest(4).Text = lblTest(4,5).Text
Case 46
edtTest(4).Text = lblTest(4,6).Text
Case 47
edtTest(4).Text = lblTest(4,7).Text
Case Else
Msgbox("Send.Tag = "&Send.Tag, "Probleme in lblTest_click")
End Select
End Sub
Sub btnTest_Click
Dim Send As Button
Send=Sender
Activity.Title="Button "&Send.Tag
End Sub
Sub pnlTest_Click
Dim Send As Panel
Send=Sender
Activity.Title="Panel "&Send.Tag
End Sub
Sub edtTest_EnterPressed 'Berechnung der Ertgebnisse
Dim Send As EditText
Send=Sender
Activity.Title="EditText "&Send.Tag&" = "&Send.Text
'Hier komm ich nicht weiter
'Ich muss ja prüfen welche Zahlen eingegeben wurden,
'Es bibt aber jede Menge Varianten der Eingabe (a und b, a und c, a und Alpha, a und Beta, ....)
'Dann ein Ergebnis ausrechen....
'mit diesem Ergebniss das nächste, und dann wieder das nächste...
'Solange bis alle Variablen berechnet sind
'Dann müssen sie eingetragen werden
If edtTest(2).text <> 0 AND edtTest(3).Text <>0 Then Zahl(0,5) = edtTest(2).text*Sin(edtTest(3).text)
'????
'Variablen zum "Dreieck"
' edtTest(0) = '"Kathete a"
' edtTest(1) = '"Kathete b"
' edtTest(2) = '"Hypotenuse c"
' edtTest(3) = '"Winkel Alpha"
' edtTest(4) = '"Winkel Beta"
' edtTest(5) = '"Winkel Gamma"
' Zahl(0,5) = '"c * sin(Alpha) = "
' Zahl(0,6) = '"b * tan(Alpha = "
' Zahl(0,7) = '"b / cot(Beta)="
'
' Zahl(1,5) = '"c * cos(Alpha)="
' Zahl(1,6) = 0 '"a * cot(Alpha)="
' Zahl(1,7) = 0 '"a / tan(Alpha)=
'
' Zahl(2,5) = 0 '"a / sin(Alpha)="
' Zahl(2,6) = '"b / cos(Alpha)="
' Zahl(2,7) = 0 '
'
' Zahl(3,5) = 0 '"invsin(a/c)="
' Zahl(3,6) = 0 '"180-Beta-Gamma ="
' Zahl(3,7) = 0 '
'
' Zahl(4,5) = 0 '"180-Alpha-Gamma ="
' Zahl(4,6) = 0 '"90-Alpha ="
' Zahl(4,7) = 0 '
'
' Zahl(5,5) = 0 '"180-Alpha-Beta ="
' Zahl(5,6) = 0 '
' Zahl(5,7) = 0 '
End Sub
Sub Dreieck ' Labeltexte
Text(0,1) = "Kathete a"
Text(0,2) = "c * sin(Alpha) = "
Text(0,3) = "b * tan(Alpha = "
Text(0,4) = "b / cot(Beta) ="
Zahl(0,5) = 0
Zahl(0,6) = 0
Zahl(0,7) = 0
Text(1,1) = "Kathete b"
Text(1,2) = "c * cos(Alpha) ="
Text(1,3) = "a * cot(Alpha) ="
Text(1,4) = "a / tan(Alpha) ="
Zahl(1,5) = 0
Zahl(1,6) = 0
Zahl(1,7) = 0
Text(2,1) = "Hypotenuse c"
Text(2,2) = "a / sin(Alpha) ="
Text(2,3) = "b / cos(Alpha) ="
Text(2,4) = ""
Zahl(2,5) = 0
Zahl(2,6) = 0
Zahl(2,7) = 0
Text(3,1) = "Winkel Alpha"
Text(3,2) = "invsin(a/c) ="
Text(3,3) = "90-Beta ="
Text(3,4) = "180-Beta-Gamma ="
Zahl(3,5) = 0
Zahl(3,6) = 0
Zahl(3,7) = 0
Text(4,1) = "Winkel Beta"
Text(4,2) = "180-Alpha-Gamma ="
Text(4,3) = "90-Alpha ="
Text(4,4) = ""
Zahl(4,5) = 0
Zahl(4,6) = 0
Zahl(4,7) = 0
Text(5,1) = "Winkel Gamma"
Text(5,2) = "180-Alpha-Beta ="
Text(5,3) = ""
Text(5,4) = ""
Zahl(5,5) = 0
Zahl(5,6) = 0
Zahl(5,7) = 0
End Sub
Last edited:
