11. december 2010 - 18:15Der er
10 kommentarer og 1 løsning
Hjælp til "komma" i lommeregner.
Jeg er lige igang med at lave en lommeregner og har fået lavet mig denne linje: Private Sub btnKomma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKomma.Click If InStr(TextBox1.Text, ",") = 0 Then TextBox1.Text &= "," End If End Sub
Problemet er bare at hvis jeg taster 5, bliver resultatet ,5 ind til jeg trykker på en ny tast eks 6. Så vi starter med 5 og så trykker jeg , og får ,5 og trykker 6 og får så 5,6.
Dette er selvfølgelig ikke meningen. Har prøvet med text1.refresh og med update intet hjælper dog. Hvad kan der være galt her?
Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click If TextBox1.Text = "0" Then TextBox1.Text = "1" Else TextBox1.Text &= 1 End If End Sub
Public Sub BtnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlus.Click værdi1 = (Decimal.Parse(TextBox1.Text)) streng = "+" TextBox1.Text = "0" End Sub
Private Sub btnLigMed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLigMed.Click værdi2 = (Decimal.Parse(TextBox1.Text)) Dim iResult As Decimal Select Case streng Case Is = "+" iResult = (værdi1 + værdi2) Case Is = "-" iResult = (værdi1 - værdi2) Case Is = "*" iResult = (værdi1 * værdi2) Case Is = "/" iResult = (værdi1 / værdi2) End Select TextBox1.Text = iResult.ToString End Sub
Dette burde være nok til du kunne fortælle mig hvor fejlen er
It-GuFFe smider du et svar da det jo var det som var problemet, dog forstår jeg stadig ikke hvorfor det ikke er flyttet med over til Arne da han hentede programmet
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.