(calc) Subtraction code with VB6

Expand Post »

Hey all,

I apologize now for being a Noob. I'm using a Tutorial to learn VB6 (for starters) and everything was going great until just now... The assignment is to create a Weekly Payroll. I have managed to figure out how to make the standard calc ( Hrs worked * Rate ) and display properly, however, that's when my legs get knocked out from under me

I'm not entirely sure how to subtract the deductions. I tried searching but couldn't find a similar situation. Below is my working code, albeit probably OC'd... over-coded.

*scratches head... how do I subtract? I 'thought' it would be:

If opta.Value = True Then _
intgsal = (txthrs.Text * 10) _
And intnet = (txthrs.Text * 10 - txtded.Text) <-- txtded.Text being my Deductions

txtgsal.Text = intgsal
txtnet.Text = intnet

...I was sooooo wrong... more errors than a little bit!

My 'working' code is below - any help would be appreciated! Also, if there are shortcuts (i.e., functions) that I could use in the future - I would like to know that as well!

Thanks again!

vb Syntax (Toggle Plain Text)
'setting up Integers for
'calculations
 
Option Explicit
    Dim intgsal As Integer   'Gross Salary
    Dim intnet As Integer    'Net Salary
    Dim inthrs As Integer    'Hours Worked
    Dim intded As Integer    'Deductions
 
'setting text box values to
'"blank" and "0"
 
Private Sub Form_Load()
    txtname.Text = " "
    txthrs.Text = "0.00"
    txtded.Text = "0.00"
    txtgsal.Text = "0.00"
    txtnet.Text = "0.00"
 
End Sub
 
'coding Confirm to calculate
 
Private Sub cmdconfirm_Click()
 
If opta.Value = True Then _
    intgsal = (txthrs.Text * 10)
 
txtgsal.Text = intgsal
 
End Sub
'setting up Integers for
'calculations

Option Explicit
    Dim intgsal As Integer   'Gross Salary
    Dim intnet As Integer    'Net Salary
    Dim inthrs As Integer    'Hours Worked
    Dim intded As Integer    'Deductions

'setting text box values to
'"blank" and "0"

Private Sub Form_Load()
    txtname.Text = " "
    txthrs.Text = "0.00"
    txtded.Text = "0.00"
    txtgsal.Text = "0.00"
    txtnet.Text = "0.00"

End Sub

'coding Confirm to calculate

Private Sub cmdconfirm_Click()

If opta.Value = True Then _
    intgsal = (txthrs.Text * 10)
       
txtgsal.Text = intgsal

End Sub

BigSeckC

Reputation Points: 12

Solved Threads: 0

Newbie Poster

Offline

13 posts
since Nov 2008

Permalink

Nov 16th, 2008

Re: (calc) Subtraction code with VB6

Got it!!! Figured out the Code I needed... at least for now...

vb Syntax (Toggle Plain Text)
'coding Confirm to calculate
 
Private Sub cmdconfirm_Click()
 
If opta.Value = True Then
    intgsal = (txthrs.Text * 10)
       txtgsal.Text = intgsal
    intnet = (intgsal - txtded.Text)
        txtnet.Text = intnet
End If
End Sub
'coding Confirm to calculate

Private Sub cmdconfirm_Click()

If opta.Value = True Then
    intgsal = (txthrs.Text * 10)
       txtgsal.Text = intgsal
    intnet = (intgsal - txtded.Text)
        txtnet.Text = intnet
End If
End Sub

BigSeckC

Reputation Points: 12

Solved Threads: 0

Newbie Poster

Offline

13 posts
since Nov 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Macro Excel and serial port

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Remove the "x" in the window at runtime

DaniWeb Message

Cancel Changes

User Name
Password