Click here to Skip to main content
15,891,529 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionVB 2008 express example Pin
A Wyatt6-Jun-09 4:28
A Wyatt6-Jun-09 4:28 
AnswerRe: VB 2008 express example Pin
Dave Kreskowiak6-Jun-09 4:48
mveDave Kreskowiak6-Jun-09 4:48 
QuestionProblem creating ForeignKey between DataTables Pin
carrigart6-Jun-09 2:50
carrigart6-Jun-09 2:50 
AnswerRe: Problem creating ForeignKey between DataTables Pin
Dave Kreskowiak6-Jun-09 4:46
mveDave Kreskowiak6-Jun-09 4:46 
GeneralRe: Problem creating ForeignKey between DataTables Pin
carrigart6-Jun-09 4:50
carrigart6-Jun-09 4:50 
GeneralRe: Problem creating ForeignKey between DataTables Pin
Henry Minute6-Jun-09 9:41
Henry Minute6-Jun-09 9:41 
GeneralRe: Problem creating ForeignKey between DataTables Pin
Dave Kreskowiak6-Jun-09 9:52
mveDave Kreskowiak6-Jun-09 9:52 
QuestionCalculator Pin
keymoney6-Jun-09 2:41
keymoney6-Jun-09 2:41 
Hi guys,I have a project to come up with a calculator to perform basic addition,subtraction,multiplication and division. I came up with the code below but it only adds correctly the first time...multiple addition always gives me a wrong answer and so does any attempted subtraction,multiplication and division....point out the errors please


CALCULATOR CODE:


Public Class Form1
Dim total1 As Single
Dim total2 As Single
Dim total3 As Single
Dim result As Single

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn5.Text)
End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn1.Text)
End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn2.Text)
End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn3.Text)
End Sub

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn4.Text)
End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn6.Text)
End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn7.Text)
End Sub

Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn8.Text)
End Sub

Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btn9.Text)
End Sub

Private Sub btnzero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzero.Click
txtdisplay.Text = Val(txtdisplay.Text) & Val(btnzero.Text)
End Sub

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click

total1 = Val(txtdisplay.Text)

total1 = total1 + Val(txtdisplay.Text)

total2 = total1

result = total2
txtdisplay.Clear()


End Sub

Private Sub btneql_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneql.Click

txtdisplay.Text = result

End Sub

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtdisplay.Clear()
total1 = 0
End Sub

Private Sub btntimes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntimes.Click
total1 = Val(txtdisplay.Text)

total1 = total1 * Val(txtdisplay.Text)

total2 = total1

result = total2
txtdisplay.Clear()
End Sub

Private Sub Buttbtndivideon15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttbtndivideon15.Click
total1 = Val(txtdisplay.Text)

total1 = total1 / Val(txtdisplay.Text)

total2 = total1

result = total2
txtdisplay.Clear()
End Sub

Private Sub btnless_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnless.Click
total1 = Val(txtdisplay.Text)

total1 = total1 - Val(txtdisplay.Text)

total2 = total1

result = total2
txtdisplay.Clear()
End Sub
End Class











AnswerRe: Calculator Pin
Dave Kreskowiak6-Jun-09 4:44
mveDave Kreskowiak6-Jun-09 4:44 
AnswerRe: Calculator Pin
molesworth6-Jun-09 7:28
molesworth6-Jun-09 7:28 
QuestionPopulate a Treeview Pin
wr30286-Jun-09 1:36
wr30286-Jun-09 1:36 
QuestionRichTextbox Text Alignment Pin
Paramu19735-Jun-09 21:01
Paramu19735-Jun-09 21:01 
AnswerRe: RichTextbox Text Alignment Pin
Dave Kreskowiak6-Jun-09 4:40
mveDave Kreskowiak6-Jun-09 4:40 
QuestionSending SMS Software. Pin
Anubhava Dimri5-Jun-09 19:52
Anubhava Dimri5-Jun-09 19:52 
AnswerRe: Sending SMS Software. Pin
Christian Graus5-Jun-09 20:14
protectorChristian Graus5-Jun-09 20:14 
GeneralRe: Sending SMS Software. Pin
Anubhava Dimri5-Jun-09 21:02
Anubhava Dimri5-Jun-09 21:02 
GeneralRe: Sending SMS Software. Pin
Christian Graus5-Jun-09 21:57
protectorChristian Graus5-Jun-09 21:57 
AnswerRe: Sending SMS Software. Pin
ThatsAlok5-Jun-09 20:25
ThatsAlok5-Jun-09 20:25 
GeneralRe: Sending SMS Software. Pin
Anubhava Dimri5-Jun-09 21:06
Anubhava Dimri5-Jun-09 21:06 
GeneralRe: Sending SMS Software. Pin
EliottA6-Jun-09 13:17
EliottA6-Jun-09 13:17 
GeneralRe: Sending SMS Software. Pin
Anubhava Dimri7-Jun-09 18:15
Anubhava Dimri7-Jun-09 18:15 
QuestionShowing the Common properties for the Multiple Controls selection Pin
VB 8.05-Jun-09 18:47
VB 8.05-Jun-09 18:47 
AnswerRe: Showing the Common properties for the Multiple Controls selection Pin
Dave Kreskowiak6-Jun-09 4:39
mveDave Kreskowiak6-Jun-09 4:39 
QuestionHow to Retrieve data from a boumd Datalist column [modified] Pin
MacIntyre5-Jun-09 6:34
MacIntyre5-Jun-09 6:34 
AnswerRe: How to Retrieve data from a boumd Datalist column Pin
Henry Minute5-Jun-09 10:27
Henry Minute5-Jun-09 10:27 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.