malkavianer

weisste was? ^^ das war der nötige schlag auf den hinterkopf den ich gebraucht habe :uli danke dir vielmals!!! :marine

na danke, stempel mich doch zum kompletten volltrottel ab... O_o ich weiss schon wie man klammern rechnet, was mich interesiert ist, wie man es programmieren kann, das der computer in klammern rechnet?! (btw.: es handelt sich hier um VB6.0!)

aaaaaalso, ich hab zwar nich wirklich viel verstanden, aba das is erstmal der source-code ohne klammern, kannst du mir anhand eines kleinen "schubs" oder beispiels zeigen wie genau du das meinst plz? ________________________________________________________________ Option Explicit Dim fblnErgebniss As Boolean Dim flngButton As Long Dim fdblZahl As Double Private Sub cmd_neu_Click() txtZahl1.Text = "" flngButton = 0 End Sub Private Sub cmdknopp_Click(index As Integer) If txtZahl1.Text = "" Then Exit Sub If index = 7 Then flngButton = 0 txtZahl1.Text = txtZahl1.Text * CDbl((fdblZahl) / 100) End If If IsNumeric(txtZahl1.Text) = True Then 'Hier wird überprüft ob im Textfeld wirklich eine Zahl steht If flngButton <> 0 Then 'in dieser "if anweisung" wird vorher festgestellt ob ein knopf "ungleich" der 0 gedrückt wurde Select Case flngButton 'jeh nach index-nr. der zahl wird eine der folgenden rechenarten gewählt Case 1 fdblZahl = fdblZahl + CDbl(txtZahl1.Text) 'Addition Case 2 fdblZahl = fdblZahl - CDbl(txtZahl1.Text) 'Subtraktion Case 3 fdblZahl = fdblZahl * CDbl(txtZahl1.Text) 'Multiplikation Case 4 fdblZahl = fdblZahl / CDbl(txtZahl1.Text) 'Division Case 5 txtZahl1.Text = fdblZahl ^ CDbl(txtZahl1.Text) 'potenz Case 6 txtZahl1.Text = Sqr(txtZahl1.Text) 'Wurzel End Select Else If index = 6 Then txtZahl1.Text = Sqr(txtZahl1.Text) If index <> 7 Then fdblZahl = CDbl(txtZahl1.Text) 'falls vorher bereits eine andere rechenart benutzt wurde, wird diese in fdblZahl behalten End If flngButton = index 'hier wird durch die indexnummer unterschieden welcher knopf gedrückt wurde Else MsgBox "richtige zahl eintippen" = vbOKOnly ' falls im textfeld keine zahl eingegeben wurde, wird diese fehlermeldung angezeigt Exit Sub End If If index < 6 Then txtZahl1.Text = "" End Sub Private Sub CmdErgebniss_Click() 'hier wird das ergebniss berechnet Select Case flngButton Case 1 txtZahl1.Text = fdblZahl + CDbl(txtZahl1.Text) 'Addition Case 2 txtZahl1.Text = fdblZahl - CDbl(txtZahl1.Text) 'Subtraktion Case 3 txtZahl1.Text = fdblZahl * CDbl(txtZahl1.Text) 'Multiplikation Case 4 txtZahl1.Text = fdblZahl / CDbl(txtZahl1.Text) 'Division Case 5 txtZahl1.Text = fdblZahl ^ CDbl(txtZahl1.Text) 'potenzrechnung Case 7 txtZahl1.Text = fdblZahl + txtZahl1.Text 'prozentergebniss End Select flngButton = 0 'der startwert wird wieder auf 0 gesetzt fblnErgebniss = True End Sub Private Sub cmdKomma_Click() txtZahl1.Text = txtZahl1.Text & "," End Sub Private Sub cmdNummer_Click(index As Integer) If fblnErgebniss = True Then txtZahl1.Text = "" & index Else txtZahl1.Text = txtZahl1.Text & index End If fblnErgebniss = False End Sub Private Sub lblrechenweg_Click() lblrechenweg = lblrechenweg & " " & fdblZahl End Sub Private Sub lblrechenweg_DblClick() lblrechenweg = "" End Sub

tag auch! - ich wollte mal kurz und knapp etwas erfragen, unzwar: ich soll für mein praktikum einen rechner programmieren,(als vorbild windows rechner) bis jetzt ohne probleme, (also addition, subtraktion, multi, divi, prozent und potenz) jetzt soll ich die funktionen einer "klammer rechnung" einbauen O_o - wie das? ( als beispiel schaut euch mal bei programme -> zubrhör - > "rechner" an und geht auf ansicht, und wechselt zu "wissenschaftlich") naja, ich hoffe es hat jemand verstanden was mein prob is und kann mir helfen! knöpfe für die anderen rechenarten habe ich schon gesetzt und als case select mit den index-nummern als integer ausgewählt, soll ich die klammer da jetzt auch reinhaun oder nicht? naja- hoffe ihr könnt mir helfen! :mod: