Visual Basic

24-Mar-04 15:08

I am needing to shortem my code up. I keep on having to repeat myself so I am trying to do subbing. I am getting an error. It is saying that I have not declared additionalguest - this is what I have

Private Const additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text))

If nudguest.text > 2 then
additionalguestcharge.text = additionalguest

Could anybody tell me what I may be doing wrong?

Thank you,

ibok23

Nadroj24-Mar-04 17:52

Nadroj

24-Mar-04 17:52

ibok23 wrote:
Private Const additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text))
where is this located?

ibok23 wrote:
If nudguest.text > 2 then
additionalguestcharge.text = additionalguest
...where is this located?

since you have declared additionalguest as a private variable, it can only be accessed in the method it is defined, unless you declare it at class/module level. if you are only using the private variable in 1 method, declare it in the same sub that the if statement is in.
..or..
is the private variable already declared in the same sub as the if statement? in this case, post more code.

------------------------
Jordan.
III

Dave Kreskowiak25-Mar-04 1:07

25-Mar-04 1:07

OK. You've got a problem with the way your declaring your variables:

ibok23 wrote:
Private Const additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text))

The 'Const' means that the additionalguest variable will be a constant. Once it's defined, it can never be changed. You can't use the code in your if statement to change it. What you need to do is change the declaration of additionalguest:

Private additionalguest As Double = ((nudguest.text - 2) * 10) * Val(numberofdays.text))

For future reference, error messages are extremely important when asking us questions. Without the error message, we can only guess at what's wrong. Also, posting the code that you did was very helpful, keep it up! You can never post too much code! ...Well, within reason... Poke tongue | ;-P

RageInTheMachine9532

ibok2325-Mar-04 3:21

25-Mar-04 3:21

It is still saying that the additionalguest is not declared. This is what I wrote.

This is all under the button to calculate.

Private additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text)) [I have an error on the last parenthesis - It says end of statement expected.]

if nudguest.text > 2 then
additionalguestcharge.text = additionalguest [I have an error under additonaguest - it says the additionalguest has not been declared]

additionalguestcharge.text = format (additionalguest, "currency")[I have an error under additonaguest - it says the additionalguest has not been declared]

Well what am I doing wrong now? lol Eek! | :eek:

Thank you,

ibok23

Wayne Phipps25-Mar-04 4:10

Wayne Phipps

25-Mar-04 4:10

ibok23 wrote:
Private additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text)) [I have an error on the last parenthesis - It says end of statement expected.]

You have to many parenthesis here, count the oppening and closing brackets, there should be one closing bracket ")" for each opening bracket "(".

I Think the code should be..
Private additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text)

Nadroj wrote:
since you have declared additionalguest as a private variable, it can only be accessed in the method it is defined

Nadroj is quite write, you cannot access the variable outside the code block in which you declared. From the code snipet you posted, we cannot see if you are doing this.

Have you tried declaring it a as class variable?

EG

Public Class myClass<br />
<br />
Private additionalguest as double<br />
<br />
'..other class declarations, methods etc<br />
<br />
Private Sub CalcCharges<br />
    additionalguest = ((nudguest.text - 2) * 10) * Val(numberofdays.text)<br />
<br />
    if nudguest.text > 2 then additionalguestcharge.text = additionalguest<br />
End Sub

Hope this helps

Regards

Wayne Phipps
____________

Time is the greatest teacher... unfortunately, it kills all of its students
LearnVisualStudio.Net

Dave Kreskowiak25-Mar-04 4:11

25-Mar-04 4:11

ibok23 wrote:
This is all under the button to calculate.

Private additionalguest as double = ((nudguest.text - 2) * 10) * Val(numberofdays.text)) [I have an error on the last parenthesis - It says end of statement expected.]

OK. Since this is inside the Calculate button CLick handler, you don't need the Private. Also, the error emssage you got is because the parenthesis don't match up. You have 3 open parenthesis and 4 closing. They need to match exactly:

Dim additionalhuest as Double = ((nudguest.text - 2) * 10) * Val(numberofdays.text)

As for the rest, your best bet is to copy the entire Calculate button Click code to a post here. Paste between <pre> and </pre> tags, like this:

<pre>Private Sub Calculate_Click(...)
Some more code shows up here...
and some more...
End Sub</pre>

When the message is posted, it'll come out looking like this:

Private Sub Calculate_Click(...)
    Some more code shows up here...
    and some more...
End Sub

EDIT: I forgot, don't retype the code you have in your posts. Always Copy and Paste it between a couple of <pre> and </pre> tags or a couple of <code> and </code> tags.
RageInTheMachine9532

ibok2325-Mar-04 4:25

25-Mar-04 4:25

ok,

I finally got it to work. This is just a question regarding the number of days (not on the code itself). I can't copy and paste, I am working on two computers at once. My question is if you put on the arrival as Thursday and the checkout as Sunday wouldn't the number of days be 3? Thursday night, friday night and sat. night. When i run the program it says two days. If I need to write my code just let me know, it will not be a problem.

Thanks again for giving me all of the suggestions - learning alot.

Thank you,

ibok23

Dave Kreskowiak25-Mar-04 4:37

25-Mar-04 4:37

DateDiff is apparently giving you the number of days between the two dates, not inclusive of the actual days that the dates fall on. If you pick Thursday and the very next Friday, DateDiff(Day) will will return 0. If you pick Thursday and Saturday, it will return 1.

The solution is to just add 1 to whatever DateDiff returns.

RageInTheMachine9532

Wayne Phipps25-Mar-04 4:49

Wayne Phipps

25-Mar-04 4:49

If your using VB.Net there is also the System.Timespan Namespace.

You could try something like:

<br />
        Dim d1 As DateTime = DateTime.Now<br />
        Dim d2 As DateTime = d1.AddMonths(2)<br />
<br />
        Dim ts As System.TimeSpan = d2.Subtract(d1)<br />
        Dim sDays As String = ts.Days.ToString()<br />

Regards

Wayne Phipps
____________

Time is the greatest teacher... unfortunately, it kills all of its students
LearnVisualStudio.Net

ibok2325-Mar-04 4:59

Data Bound ComboBox Formatting

25-Mar-04 4:59

Cool, that did work.

Thanks again. I maybe calling again on my next project.

Blush | :O

Thank you,

ibok23

Karsten.Habay@skynet.be24-Mar-04 10:43

Karsten.Habay@skynet.be

24-Mar-04 10:43

Hi,

I'm having a bit of a brainteaser.

What I have:
A typed SQLDataTable with 2 columns with some GUID's and decimal values which represents percentages. I need them to be decimal for the obvious calculations.

What I want:
- Show the values in a ComboBox
- Format them using the local Percentage formatting (difference between 0.1 and 0,1 in most European countries) as you do to format strings with FormatPercent(...)

What I do:
cboPercent.DataSource = DataSetSomething.SQLDataTablePercent
cboPercent.ValueMember = "PercentID"
cboPercent.DisplayMember = "Percent"

The problem:
The ComboBox shows something like 0.2100 instead of 21.00 % or 21,00 %
I don't really know where or how to implement the formatting.

Any help is welcome

Karsten Habay
Belgium

CD Audio Extraction

RobReid24-Mar-04 10:41

RobReid

24-Mar-04 10:41

I have been searching for hours and can't seem to find the answer to this, so maybe it doesn't exist. However, I'll give it a try.

I want to read the audio tracks on a CD. I know how to write data to a .wav format, but can't figure out how to read the data on the CD. I'm sure I can play the audio and write it to a wave file, but this would be done it real-time and would thus be a little on the slow side. Any help would be greatly appreciated.

Thanks!

Dave Kreskowiak24-Mar-04 11:05

24-Mar-04 11:05

You might want to check into someone elses source first before you decide to even attept this. You won't find any examples written in VB or VB.NET for a reason...

Check out the source for CDex on SorceForge: http://sourceforge.net/projects/cdexos/[^]

RageInTheMachine9532

RobReid24-Mar-04 11:33

RobReid

24-Mar-04 11:33

Now I feel like a total idiot. I can't find source code anywhere.

If I have to go with an external program, I'd like one with a command line interface so I can just call it from inside my code. I'm just trying to write a program to do a very specifice task with audio files.

Dave Kreskowiak24-Mar-04 12:04

24-Mar-04 12:04

Click on the "Browse CVS" link at the bottom of the page.

Also, you might want to download the 1.5.1 release. The .zip file doesn't have to source files in it, but it does have .DLL's that you might be able to use to rip tracks and encode them.

RageInTheMachine9532

How to pull a field from a Dataset???

RobReid24-Mar-04 12:25

RobReid

24-Mar-04 12:25

Thanks! You're right, though: This may be WAY more work than it is worth. I'll have to plow around source code for a while...

If anyone else has any other solutions, please let me know.

hounetdev24-Mar-04 9:36

hounetdev

24-Mar-04 9:36

Hello,
I am new to vb.net and I need to know how to pull the value of a certain field from a dataset that i have already filled, to use for to compare to the users input in an if statement. Sleepy | :zzz:

Thanks for the help

Mariscal

Re: How to pull a field from a Dataset???

Pugzley24-Mar-04 17:46

Pugzley

24-Mar-04 17:46

Im not too sure if this is what you are trying to do but:

if form1.DataName1.Data1 = form1.DataName2.Data2

Re: How to pull a field from a Dataset???

Pradeep C24-Mar-04 19:11

Pradeep C

24-Mar-04 19:11

I assume that your Dataset (lets call it ds) has a single table.
So the nth field of mth row will be :
ds.Tables(0).Rows(m).Item(n)

"I think there is a world market for maybe 5 computers"
Thomas Watson, chairman of IBM, 1943

"There is no reason anyone would want a computer in their home"
Ken Olson, chairman & founder of Digital equipment, 1977

"This 'telephone' has too many shortcomings to be seriously considered as a means of communication. The device is ingerently of no value to us."
Western Union internal memo, 1876

"640 K ought to be enough for anybody."
Bill Gates, 1981

"Computers in the future may

Re: How to pull a field from a Dataset???

hounetdev25-Mar-04 7:12

hounetdev

25-Mar-04 7:12

Thanks for the help Pradeep C

Santana

Currency

ibok2324-Mar-04 6:33