RSS Forums RSS

My Calculator

Please support our VB.NET advertiser: DiscountASP.NET – 3 Months Free on VB.NET Web Hosting
Reply
Posts: 1
Reputation: Gwen203 is an unknown quantity at this point 
Solved Threads: 0
Gwen203 Gwen203 is offline Offline
Newbie Poster

My Calculator

  #1  
Dec 3rd, 2008
I made a Calculator with 3 Textboxes (the First 2 for the Variables the Third for the Result) and 4 buttons (+, -, *, /) and the code i used for the subtraction button was:
   TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) 

But Heres all my Code:

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
'Closes Form
Me.Close()
End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
'Shows Form2 or the About Form
Form2.Show()
End Sub

Private Sub HelpToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem1.Click
'Shows Form3 or the Help Form
Form3.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Add Button
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
'Subtract Button
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Multiply Button
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Divide Button
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
End Class

And i used 02 + 04 and i got it to = 6


Its not the most Advanced Calculator but I was board one day
Last edited by Gwen203 : Dec 3rd, 2008 at 6:24 pm. Reason: Edit
AddThis Social Bookmark Button
Reply With Quote  
Posts: 160
Reputation: kb.net is an unknown quantity at this point 
Solved Threads: 26
kb.net's Avatar
kb.net kb.net is offline Offline
Junior Poster

Re: My Calculator

  #2  
Dec 6th, 2008
Hi,

Not bad for a start but I have attached a full calc. code as a gift.
Attached Files
File Type: zip Forms.zip (29.0 KB, 4 views)
It is never about the number of languages you know, you either have the logic of programming or you don't ...

Some of the codes I post are collected from different sites during the past couple of years, so I would like to thank them for their help and for enabling me to help.
Reply With Quote  
Reply

Only community members can participate in forum threads. You must register or log in to contribute.



Views: 327 | Replies: 1 | Currently Viewing: 1 (0 members and 1 guests)

 

Thread Tools Display Modes
Forums | Blogs | Tutorials | Code Snippets | Whitepapers | RSS Feeds | Advertising
All times are GMT -4. The time now is 10:24 pm.
Newsletter Archive - Sitemap - Privacy Statement - Acceptable Use Policy - Contact Us
Forum system based on vBulletin Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC