برنامه ي براي طراحي ماشين حساب مي خواستم

برنامه ي براي طراحي ماشين حساب مي خواستم

دوست عزیز منظورت چیه که برنامه ای برای طراحی ماشین حساب میخواهی . مگر برای طراحی برنامه احتیاج داری ؟

سلام
frend جان اگه منظورت سورس یک ماشین حساب با VB 6 بگو همینجا بزارم یا
اگه چیز دیگه ای منظورته بیشتر توضیح بده.

من اين برنامه ماشين حساب رو تو ASP.NET نوشتم و كار ميكنه
كد هاشو مينويسم برات خودت درستش كن
البته شرمنده كه اينجا upload center نداره تا خود برنامه رو برات بفرستم.
يكي هم تو VB.NET 2003 نوشته بودم ، اگه پيدا كردم برات ميفرستم.

کد:

---


```````````````````````````````````````````````````````````````````

Protected Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn1.Click, btn0.Click, btn00.Click, btn000.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
        Dim btn As Button
        btn = sender
        Me.txtdisplayer.Text = ""
        Me.txtdisplayer.Text += btn.Text
        Me.intoperand1 = Convert.ToInt32(Me.txtdisplayer.Text)


        Me.stroperator = btn.text

    End Sub

    Protected Sub btnclear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnclear.Click
        Me.txtdisplayer.Text = ""
    End Sub

    Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click, btnclear.Click, btncross.Click, btnDivide.Click
       
    End Sub

    Protected Sub btnEqual_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEqual.Click
        Session("intoprand1") = Convert.ToInt32(Me.txtdisplayer.Text)
        Select Case Me.stroperator
            Case "+"
                Me.txtdisplayer.Text = (intoperand1 + intoperand2).ToString
            Case "-"
                Me.txtdisplayer.Text = (intoperand1 - intoperand2).ToString
            Case "*"
                Me.txtdisplayer.Text = (intoperand1 * intoperand2).ToString
            Case "/"
                If intoperand2 = 0 Then
                    txtdisplayer.Text = "E R R O R"
                Else
                    Me.txtdisplayer.Text = (intoperand1 + intoperand2).ToString
                End If
        End Select
    End Sub


````````````````````````````````````````````````````````````````````````````````````````````

---

با چه زبوني ميخواي؟؟؟