Rekenmachine

Status
Niet open voor verdere reacties.
Y

Yari1996

Gebruiker
Lid geworden
2 nov 2009
Berichten
10
Ik heb een rekenmachine gemaakt, maar als ik nu de punt indruk komt hij netjes op het schermpje maar als ik dan de som uitreken, rekent hij de punt niet mee. Weet iemand hoe ik zorg dat hij dit wel doet?

Voorbeeld som: als ik 0.20 + 0.20 doet dan geeft hij 0 dus hij doet niks met de cijfers achter de punt. Hij rekent deze som als 0 + 0
 
Laatst bewerkt:
dan is waarschijnlijk iets fout met de code, ik zou het niet weten ik ben zelf namelijk bezig met VB.NET, maar weet jij meschien wat de code is voor de = knop? daar kom ik namelijk nie achter
 
g4m3v3rsl44fd zei:
dan is waarschijnlijk iets fout met de code, ik zou het niet weten ik ben zelf namelijk bezig met VB.NET, maar weet jij meschien wat de code is voor de = knop? daar kom ik namelijk nie achter
Klik om te vergroten...

ik gebruik hiervoor bij de Form1
Dim op As String
Dim num1 As Integer
Dim num2 As Integer

bij de plus, min, keer, gedeeld door:
num1 = TextBox1.Text
TextBox1.Text = ""
op = "+"

en dan bij de = button
num2 = TextBox1.Text
If op = "+" Then
TextBox1.Text = num1 + num2
ElseIf op = "-" Then
TextBox1.Text = num1 - num2
ElseIf op = "*" Then
TextBox1.Text = num1 * num2
ElseIf op = "/" Then
TextBox1.Text = num1 / num2
End If

ik hoop dat dit je helpt om eruit te komen zoniet kan je het verder nog vragen..
 
Probeer het eens met een komma of set je stukje code er bij

Code: 
 Dim op As String
    Dim num1 As Double = 0
    Dim num2 As Double = 0
in je butons +-*/
Code: 
 num1 = CDbl(TextBox1.Text)
        TextBox1.Text = ""
        op = "+"
in buton =
Code: 
 num2 = CDbl(TextBox1.Text)
        If op = "+" Then
            TextBox1.Text = num1 + num2
        ElseIf op = "-" Then
            TextBox1.Text = num1 - num2
        ElseIf op = "*" Then
            TextBox1.Text = num1 * num2
        ElseIf op = "/" Then
            TextBox1.Text = num1 / num2
        End If
 
Laatst bewerkt:
old Hippy zei:
Probeer het eens met een komma of set je stukje code er bij
Klik om te vergroten...

TextBox1.Text = TextBox1.Text & "." dat gebruik ik als punt

en als ik het met een komma doe dan rekent tie het niet als 0,20 maar als 20 dus 0,20 + 0,20 = 40 (zegt dat ding)
 
Laatst bewerkt:
Hi Heb je het al naar Double inplaats van integer gezet zo als in mijn voorbeeld?
bij mij doet hij het wel
 

Bijlagen

  • Knipsel.JPG
    Knipsel.JPG
    22,4 KB · Weergaven: 29
old Hippy zei:
Hi Heb je het al naar Double inplaats van integer gezet zo als in mijn voorbeeld?
bij mij doet hij het wel
Klik om te vergroten...
bij mij doettie het neit ik heb bovenaan netjes
Dim op As String
Dim num1 As Double = 0
Dim num2 As Double = 0

neergezet, maar hij blijft 40 zeggen
 
Heb zelf even een proefje gemaakt

hier de code
Code: 
Public Class Form1
    Dim op As String
    Dim num1 As Double = 0
    Dim num2 As Double = 0

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        num1 = CDbl(TextBox1.Text)
        TextBox1.Text = ""
        op = "+"
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        num1 = CDbl(TextBox1.Text)
        TextBox1.Text = ""
        op = "-"
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        num1 = CDbl(TextBox1.Text)
        TextBox1.Text = ""
        op = "*"
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        num1 = CDbl(TextBox1.Text)
        TextBox1.Text = ""
        op = "/"
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        num1 = CDbl(TextBox1.Text)
        TextBox1.Text = ""
        op = "%"

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        If TextBox1.Text = "" Then
            Exit Sub
        Else
            num2 = CDbl(TextBox1.Text)
            If op = "+" Then
                TextBox1.Text = num1 + num2
            ElseIf op = "-" Then
                TextBox1.Text = num1 - num2
            ElseIf op = "*" Then
                TextBox1.Text = num1 * num2
            ElseIf op = "/" Then
                TextBox1.Text = num1 / num2
            ElseIf op = "%" Then
                TextBox1.Text = (num1 / 100) * (num2)
            End If
        End If
    End Sub

    Private Sub TextBox()
        TextBox1.Text = FormatNumber(TextBox1.Text, 2)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & 2
    End Sub

    Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick

        TextBox1.Text = TextBox1.Text & 1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text & 3
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text & 4
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text & 5
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text & 6
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text & 7
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text & 8
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & 9
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text & 0
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        TextBox1.Text = TextBox1.Text & ","
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        TextBox1.Text = ""
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Close()
    End Sub
End Class
 
nee heb ik niet weet ook niet wat dat is
maar geef je hele code eens
 
hier istie:

Public Class Form1
Dim op As String
Dim num1 As Double = 0
Dim num2 As Double = 0

Private Sub but1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but1.Click
TextBox1.Text = TextBox1.Text & 1
End Sub

Private Sub but2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but2.Click
TextBox1.Text = TextBox1.Text & 2
End Sub

Private Sub but3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but3.Click
TextBox1.Text = TextBox1.Text & 3
End Sub

Private Sub but4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but4.Click
TextBox1.Text = TextBox1.Text & 4
End Sub

Private Sub but5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but5.Click
TextBox1.Text = TextBox1.Text & 5
End Sub

Private Sub but6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but6.Click
TextBox1.Text = TextBox1.Text & 6
End Sub

Private Sub but7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but7.Click
TextBox1.Text = TextBox1.Text & 7
End Sub

Private Sub but8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but8.Click
TextBox1.Text = TextBox1.Text & 8
End Sub

Private Sub but9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but9.Click
TextBox1.Text = TextBox1.Text & 9
End Sub

Private Sub but0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but0.Click
TextBox1.Text = TextBox1.Text & 0
End Sub

Private Sub butplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butplus.Click
num1 = CDbl(TextBox1.Text)
TextBox1.Text = ""
op = "+"
End Sub

Private Sub butmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butmin.Click
num1 = CDbl(TextBox1.Text)
TextBox1.Text = ""
op = "-"
End Sub

Private Sub butkeer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butkeer.Click
num1 = CDbl(TextBox1.Text)
TextBox1.Text = ""
op = "*"
End Sub

Private Sub butgedeeld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butgedeeld.Click
num1 = CDbl(TextBox1.Text)
TextBox1.Text = ""
op = "/"
End Sub

Private Sub butclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butclear.Click
TextBox1.Text = ""
End Sub

Private Sub butenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butenter.Click
If TextBox1.Text = "" Then
Exit Sub
Else
num2 = CDbl(TextBox1.Text)
If op = "+" Then
TextBox1.Text = num1 + num2
ElseIf op = "-" Then
TextBox1.Text = num1 - num2
ElseIf op = "*" Then
TextBox1.Text = num1 * num2
ElseIf op = "/" Then
TextBox1.Text = num1 / num2
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TextBox1.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = Label1.Text
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = ""
End Sub

Private Sub butpunt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butpunt.Click
TextBox1.Text = TextBox1.Text & ","
End Sub
End Class
 
OK Yari de code van jou werkt bij mij wel dus geen Idee waar om bij jou niet
0,20 + 0,20 is bij mij 0,4 hij laat de laatste nul natuurlijk niet zien
mits je er een formatnummer van maakt maar dan zet hij altijd twee 00 op het eind.

ik weet alleen niet wat je met het label wil.
 
dat is heel gek, maar met die label heb ik even snel en simpel een memory functie gemaakt..
 
OK heb ik even aangepast memory functie werkt ook.
hij rekent goed met jou code kan je dus niet verder helpen helaas.

mischien even een nieuw form maken en op nieuw buttons er in code er inplakken.
en kijken wat het doet.
 
old Hippy zei:
OK heb ik even aangepast memory functie werkt ook.
hij rekent goed met jou code kan je dus niet verder helpen helaas.

mischien even een nieuw form maken en op nieuw buttons er in code er inplakken.
en kijken wat het doet.
Klik om te vergroten...

zal het even proberen morgen misschien ik ga nu kijken hoe ik met database werk, maar daat snap ik echt niks van
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan