for each loop in a checkbox

[Guest]

I have six checkboxes so I went to see it and os them are checked and if so
add 50 to the total
heres my code

Dim arrchecks(6) As CheckBox
arrchecks(0) = Me.chkChicken
arrchecks(1) = Me.chkMushrooms
arrchecks(2) = Me.chkPepperoni
arrchecks(3) = Me.chkECheese
arrchecks(4) = Me.chkHam
arrchecks(5) = Me.chkPeppers

For Each chk As CheckBox In arrchecks
chk.CheckState = CheckState.Checked
total = +50

Next chk
I know I am doing something wrong
Thanks

 

[Larry Serflaten]

and if so add 50 to the total

For Each chk As CheckBox In arrchecks
chk.CheckState = CheckState.Checked
total = +50
Next chk

I know I am doing something wrong

Where is your If statement?

LFS

 

[Guest]

I have no if statement, but I do need one right?

Where is your If statement?

LFS

 

[Herfried K. Wagner [MVP]]

I have six checkboxes so I went to see it and os them
are checked and if so add 50 to the total
heres my code

Dim arrchecks(6) As CheckBox
arrchecks(0) = Me.chkChicken
arrchecks(1) = Me.chkMushrooms
arrchecks(2) = Me.chkPepperoni
arrchecks(3) = Me.chkECheese
arrchecks(4) = Me.chkHam
arrchecks(5) = Me.chkPeppers

For Each chk As CheckBox In arrchecks
chk.CheckState = CheckState.Checked
total = +50

Next chk

\\\
Private AllChecked As Boolean = True
For Each chk As CheckBox In ArrChecks
If Not chk.Checked Then
AllChecked = False
Exit For
End If
Next chk
If AllChecked THen
Total = Total + 50
End If
///

 

[Larry Serflaten]

I have no if statement, but I do need one right?

Thats what you said, right here:

Since adding 50 is conditional, you need to use the conditional
commands. In this case that is going to be the If statement....

LFS

 

[Guest]

here it is:

Dim arrchecks(6) As CheckBox
arrchecks(0) = Me.chkChicken
arrchecks(1) = Me.chkMushrooms
arrchecks(2) = Me.chkPepperoni
arrchecks(3) = Me.chkECheese
arrchecks(4) = Me.chkHam
arrchecks(5) = Me.chkPeppers

For Each chk As CheckBox In arrchecks
If chk.CheckState.Checked Then
total = total + 50
End If

Next chk

 

[Larry Serflaten]

here it is:

Yippee! But did it work?

<g>
LFS

 

[Guest]

no it does not work, I am still trying new code
Dim t = 50


Dim arrchecks(6) As CheckBox
arrchecks(0) = Me.chkChicken
arrchecks(1) = Me.chkMushrooms
arrchecks(2) = Me.chkPepperoni
arrchecks(3) = Me.chkECheese
arrchecks(4) = Me.chkHam
arrchecks(5) = Me.chkPeppers

For Each chk As CheckBox In arrchecks
If chk.CheckState.Checked Then
End If
t = t + 50
Next chk

 

[Larry Serflaten]

no it does not work, I am still trying new code

Keep trying, nothing cements the learning process faster
than finding the answer yourself.

For Each chk As CheckBox In arrchecks
If chk.CheckState.Checked Then
End If
t = t + 50
Next chk

How did the + 50 get outside of the conditional block?
And, what prompted you to use CheckState? Don't be
afraid to open up Help and read about the checkbox and
its properties....

LFS

 

[Peter Proost]

There's also something wrong witth your array declaration and you should dim
your t as something

greetz Peter

 

[Guest]

Can you give me a hint or something, I am new to vb.net -

 

[Larry Serflaten]

Can you give me a hint or something, I am new to vb.net -

Didn't you see Herfried's reply to your first post?

LFS

 

[Guest]

I see it , but how can I learn if someone tell me here copy my code it works
- I want to learn. If you can not tell me whats wrong with my array that's
ok, but don't give me the run around
Thanks

 

[Guest]

I went to see if any of them are checked andir so add 50. So if three are
ckecked add 50 three times