lage kalkulator .

[toss]

jeg prøver nå å lage en enkel kalkulator..

 

koden ser slik ut:

Private Sub btnBeregn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBeregn.Click
       If IsNumeric(txtTall1.Text) And IsNumeric(txtTall2.Text) Then
           If RBadder.Checked = True Then
               lblError.Text = ""
               lblSvar.Text = "txtTall1 + txtTall2"
           ElseIf RBsubtraher.Checked = True Then
               lblError.Text = ""
               lblSvar.Text = "txtTall1-txtTall2"
           ElseIf RBmultipliser.Checked = True Then
               lblError.Text = ""
               lblSvar.Text = "txtTall1*txtTall2"
           ElseIf RBdivider.Checked = True Then
               lblError.Text = ""
               lblSvar.Text = "txtTall1 / txtTall2"
           Else : lblError.Text = "Du må velge en regneart."
           End If
       Else : lblError.Text = "Du kan bare skrive tall i rutene."
       End If
   End Sub

 

problemet er at i textboxen kommer ikke svaret opp, men "txtTall1 + txtTall2" eller noe i den duren..

 

noen som kan si hva som er gale her?

[ratata]

feilpost

Endret 14. august 2004 av ratata

[ratata]

du har brukt gåseauge, dei lyt du ta vekk...

lblSvar.Text = "txtTall1 + txtTall2" ska vera lblSvar.Text = txtTall1 + txtTall2

[alftore]

Øh...

 

Hva med?

 

Private Sub btnBeregn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBeregn.Click
      If IsNumeric(txtTall1.Text) And IsNumeric(txtTall2.Text) Then
          Dim tall1 As Double, tall2 As Double
          tall1 = CDouble(txtTall1.Text)
          tall2 = CDouble(txtTall2.Text)
          If RBadder.Checked = True Then
              lblError.Text = ""
              lblSvar.Text = tall1 + tall2
          ElseIf RBsubtraher.Checked = True Then
              lblError.Text = ""
              lblSvar.Text = tall1 - tall2
          ElseIf RBmultipliser.Checked = True Then
              lblError.Text = ""
              lblSvar.Text = tall1 * tall2
          ElseIf RBdivider.Checked = True Then
              lblError.Text = ""
              lblSvar.Text = tall1 / tall2
          Else : lblError.Text = "Du må velge en regneart."
          End If
      Else : lblError.Text = "Du kan bare skrive tall i rutene."
      End If
  End Sub

Endret 14. august 2004 av alftore