[VB.NET] Problema con operazioni multiple su calcolatrice

[frank094]

Ciao a tutti! Sto facendo una calcolatrice ma sono incappato in un problema:
Io ho ad esempio il pulsante +, inserisco un numero clicco su + e liberando la textbox inserisco anche l'altro numero e poi premo = così da avere il risultato.
Ma se io volessi fare 2 + 3 e poi aggiungere un nuovo numero senza prima passare per l'uguale, e dunque mettere + e un nuovo numero direttamente mi da errore.
COme posso risolvere? Non ho idee....

[oregon]

Originariamente inviato da frank094
... mi da errore. COme posso risolvere?

Quale errore? Quale codice?

Si deve indovinare ...?

[frank094]

Errore nel senso che non funziona, infatti se premo 2 + 3 e poi premo + un altro numero premendo = mi calcola solo 3+altro numero, lasciando stare il 2.
Non ho idee su come procedere, vorrei farla funzionare come quella di windows.. o almeno con un funzionamento simile nella gestione delle operazioni.

[oregon]

Resta il fatto che dovresti mostrare il codice che hai scritto, per partire da una base a cui apportare le modifiche ... no?

[frank094]

Eccolo:

Imports System.IO

Public Class Form1
    Dim a, b, somma As Double
    Dim op As String
    Dim memorized As Double



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

    End Sub

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

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

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

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

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub

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

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

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text = ""
        op = ""


    End Sub

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

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If TextBox1.Text.Length > 0 Then
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1)
        Else
            MsgBox("Non ci sono caratteri!")
        End If
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        memorized = TextBox1.Text
        ListBox1.Items.Add("Memorizzato: " & CDbl(TextBox1.Text))
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
      
        ListBox1.Items.Add("Addizione: " & CDbl(TextBox1.Text) & " + " & memorized)
        Dim c As Double = TextBox1.Text
        TextBox1.Text = c + memorized
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
    
        ListBox1.Items.Add("Sottrazione: " & CDbl(TextBox1.Text) & " - " & memorized)
        Dim c As Double = TextBox1.Text
        TextBox1.Text = c - memorized
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        TextBox1.Text = memorized
        ListBox1.Items.Add("Memorizzato: " & CDbl(TextBox1.Text))
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        memorized = 0
        ListBox1.Items.Add("Memorizzato: 0")
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        op = "+"

        a = CDbl(TextBox1.Text)
        TextBox1.Text = ""

    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        b = CDbl(TextBox1.Text)

        If op = "+" Then
            TextBox1.Text = a + b
            ListBox1.Items.Add("Addizione: " & a & " + " & b)
        ElseIf op = "-" Then
            TextBox1.Text = a - b
            ListBox1.Items.Add("Sottrazione: " & a & " - " & b)
        ElseIf op = "*" Then
            TextBox1.Text = a * b
            ListBox1.Items.Add("Moltiplicazione: " & a & " * " & b)
        ElseIf op = "/" Then
            TextBox1.Text = a / b
            ListBox1.Items.Add("Divisione: " & a & " / " & b)
        ElseIf op = "%" Then
            TextBox1.Text = (a / 100) * b
            ListBox1.Items.Add("Percentuale: " & b & "% di " & a)
        End If
    End Sub


    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        TextBox1.Text = CDbl(TextBox1.Text) * -1
        ListBox1.Items.Add("Moltiplicazione: " & a & " * -1")
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        ListBox1.Items.Add("Radice: Sqrt(" & CDbl(TextBox1.Text) & ")")
        TextBox1.Text = Math.Sqrt(CDbl(TextBox1.Text))

    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        ListBox1.Items.Add("Potenza: Pow(" & CDbl(TextBox1.Text) & ")")
        TextBox1.Text = CDbl(TextBox1.Text) ^ 2

    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        op = "-"
        a = CDbl(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

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

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

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        op = "%"
        a = CDbl(TextBox1.Text)
        TextBox1.Text = ""
    End Sub


End Class

I listbox1.items.add sono dovuti al fatto che ho messo una "cronologia" delle operazioni.