DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

(calc) Subtraction code with VB6

Thread Solved

•

Join Date: Nov 2008

Posts: 13

Reputation: BigSeckC is an unknown quantity at this point

Solved Threads: 0

BigSeckC

Offline

Newbie Poster

(calc) Subtraction code with VB6

Nov 16th, 2008

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!

 Help with Code Tags 
 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

I am who I am...I do what I do

•

Join Date: Nov 2008

Posts: 13

Reputation: BigSeckC is an unknown quantity at this point

Solved Threads: 0

BigSeckC

Offline

Newbie Poster

Re: (calc) Subtraction code with VB6

Nov 16th, 2008

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

 Help with Code Tags 
 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

I am who I am...I do what I do

Quick Reply to Thread

Show Printable Version

Other Threads in the Visual Basic 4 / 5 / 6 Forum

Previous Thread: Macro Excel and serial port
Next Thread: Remove the "x" in the window at runtime

Thread Tools	Search this Thread
Show Printable Version Email this Page

DaniWeb Message

Cancel Changes