A Visual Basic 2005 querry

[Zap Brannigan]

I'm having trouble coding something here.

I need to code the calculate buttons click event procedure and to use variables.

Then to use the To String method to display a thousands separator if needed and two decimal places in the total sales and commission amounts.

the XCalcButton Click event procedure

1. calculate total sales = New York Sales + Maine Sales + Florida Sales

2. calculate the commission - total sales *5%

3. display total sales and commision in the xTotalSalesLabel controls

4. Send the focus to the New York Text Box


Any help would be much appreciated!

 

[CycloWizard]

Do you have any code yet? I haven't used VB2005 (went straight from v6 to 2008 after a decade of not using it for anything), but put up what you have and I can probably point you in the right direction.

 

[polarbear6]

well i dont remember the code that much but i can give u hints on what to do
you can always use snippets to accomplish what i say

first
dim nwysales, maine, florida as integer
dim total as integer= nwysales+ maine + florida
total = total / 1000 (this will give a decimal place near the thousand mark which we can find out by instr method and replace with a coma)
label.text = total
dim commision as intger = total * 0.05
newyorktextbox.getfocus(i dont remember the code that much)

 

[PhatoseAlpha]

The relevant methods are

Control.focus()
Double.toString()
Double.isNaN()
String.format()


I expect code will look like this:

Dim Total, Commission, Buffer as double
Total = 0
Buffer = val(txtNY.text)
if (not buffer.isNan())
Total += buffer
end if
Buffer = val(txtMaine.text)
if (not buffer.isNan())
Total += buffer
end ifBuffer = val(txtFlorida.text)
if (not buffer.isNan())
Total += buffer
end if
Commission = Total * .05
lblCommission.text = commission.tostring.format("{0:c}")
lblTotal.text = Total.tostring.format("{0:c}")
txtNewYork.focus()

 

[Zap Brannigan]

Originally posted by: ganesh1
well i dont remember the code that much but i can give u hints on what to do
you can always use snippets to accomplish what i say

first
dim nwysales, maine, florida as integer
dim total as integer= nwysales+ maine + florida
total = total / 1000 (this will give a decimal place near the thousand mark which we can find out by instr method and replace with a coma)
label.text = total
dim commision as intger = total * 0.05
newyorktextbox.getfocus(i dont remember the code that much)

Hi Thanks!

I'm messing around with this now but I forgot ot mention that that I had to start the code with,

Option Explicit On
Option Strict On

This is giving me some troubles in the conversions, as you can probably guess I'm a rookie at this. lol

 

[Zap Brannigan]

Originally posted by: CycloWizard
Do you have any code yet? I haven't used VB2005 (went straight from v6 to 2008 after a decade of not using it for anything), but put up what you have and I can probably point you in the right direction.

Here's what I have so far,



Option Explicit On
Option Strict On

Public Class MainForm

Private Sub xExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xExitButton.Click
Me.Close()

End Sub

Private Sub xCalcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xCalcButton.Click


Dim nysales As Integer
Dim mainesales As Integer
Dim floridasales As Integer

Dim total As Integer = nysales + mainesales + floridasales

 

[Zap Brannigan]

Should I do the xtotal sales label.text = Convert.ToString?

 

[brandonbull]

public class foo_Main
const CommissionRate as double = .05

private sub foo_click()

foo()

end sub

private sub foo()
dim dblNewYorkSales, dblMaineSales, dblFloridaSales, dblTotalSales, dblCommission as double
try

if isnumeric(txtnewyork.text) then
dblNewYorkSales = txtnewyork.text
end if

if isnumeric(txtmaine.text) then
dblMaineSales= txtmaine.text
end if

if isnumeric(txtflorida.text) then
dblFloridaSales= txtflorida.text
end if


dblTotalSales = dblNewYorkSales + dblMaineSales + dblFloridaSales
dblCommission = dblTotalSales * CommissionRate

lblTotalSales.text = FormatCurrency(dblTotalSales , 2)
lblCommission.text = FormatCurrency(dblCommission, 2)

txtnewyork.focus()

catch ex as exception

end try
end sub
end class



May be a little too verbose but you should get the idea

 

[Zap Brannigan]

Hmmmm, I'll try to poke around with it again tomorrow.

Thanks for the help! Anything else added would be appreciated too.

Much to read I still have......lol