SillyDog701

[Don_HH2K]

CheapCalculator 0.2, .NET Framework 2.0 build. (I'd have built it in VB4 and made it Win32-enabled, but VB4 apparenty isn't getting along with me).



I was very sloppy with the code, using all the default names and values for everything. Look for yourself -- it's [tt]if[/tt] programming.

Code: Select all

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "+" Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
        If ComboBox1.Text = "-" Then TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        If ComboBox1.Text = "*" Then TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
        If ComboBox1.Text = "/" Then TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = ((Val(TextBox1.Text) + Val(TextBox2.Text)) / 2)
    End Sub
End Class

All operations tested and working.

UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060130 Donzilla/1.1PR1 (WML/1.3)

[Pu7o]

Enjoy the JavaScript version

UserAgent: Mozilla/5.0 (Macintosh; U; PPC Mac OS X Tiger Mach-O Universal; en-US; rv:1.8.0.1) Gecko/20060216 Firefox/1.5.0.1 Firescape/0.2b2 wml/1.3

[Antony]

Thanks guys

Now, I like the SillyDog701 Community, we have CheapCalculator for different platforms.

I was very sloppy with the code, using all the default names and values for everything. Look for yourself -- it's [tt]if[/tt] programming.

Don, try [tt]switch ... case[/tt] (or similar if available), it will be easier and neater.

UserAgent: Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/417.9 (KHTML, like Gecko) Safari/417.8