Rob Frank

Haven't posted here since I've been out of my college courses but I read your email. I'm only 33 so not ready to make a giant move but I grew up on Alot of land and would have rather had my grandparents do something like this instead of it getting ruined by my relatives. Also my dream someday would be to have alot of land with fields and woods. I love this idea and hope that it works. We don't need more developments. The house I'm at now has a decent yard and woods to the back. I have to live an hour from my workplace because this is the closest area I could afford to have a little piece of what I wanted for my kids.

well my problem is in my  module. my function calcSub() . I'm trying to search the cart items for my loop. however i have never done this before and it would appear that  using ".Contains" is not the correct way to go. It does not pick up anything in my cart items. I have tried

If MainForm.lstCart.Items.ToString.Contains("Your Way ") Then            decSub += decYourWayPrint

and If MainForm.lstCart.Items.Contains("Your Way ") Then            decSub += decYourWayPrint
and
If MainForm.lstCart.Items.ToString.Contains("Your Way ") = True Then            decSub += decYourWayPrint

can't make anything of that really do anything.

ok so i'm still on this for anyone who cares. I cannot get my numbers to populate in my labels. I just get zeros. I have inserted breakpoints and i can't figure this out....

main form
Public Class MainForm    'declare variables    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles mnuFile.Click    End Sub    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load    End Sub    Public Sub mnuPrint_Click(sender As Object, e As EventArgs) Handles mnuPrint.Click        'create an instance of the PrintForm        'display the PrintForm        frmPrint.Show()        'add menu items to list box        frmPrint.lstPrint.Items.Add("I Did It Your Way (Print)")        frmPrint.lstPrint.Items.Add("The History of Scotland(Print)")        frmPrint.lstPrint.Items.Add("Learn Calculus in One Day(Print)")        frmPrint.lstPrint.Items.Add("Feel the Stress(Print)")    End Sub    Public Sub mnuAudio_Click(sender As Object, e As EventArgs) Handles mnuAudio.Click        'create an instance of the AudioForm        'display the AudioForm        frmAudio.Show()        'add menu items to list box        frmAudio.lstAudio.Items.Add("Learn Calculus in One Day(Audio)")        frmAudio.lstAudio.Items.Add("Relaxation Techniques(Audio)")        frmAudio.lstAudio.Items.Add("The History of Scotland(Audio)")        frmAudio.lstAudio.Items.Add("The Science of Body Language(Audio)")    End Sub    Private Sub mnuAbout_Click(sender As Object, e As EventArgs) Handles mnuAbout.Click        'display a simple about box        MessageBox.Show("Book Selector System Version 1.0")    End Sub    Public Sub lstCart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstCart.Click    End Sub    Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click        'loop to remove items from cart list box and add them to print list box        If lstCart.SelectedItem.ToString.Contains("Print") Then            While lstCart.SelectedIndices.Count > 0                frmPrint.lstPrint.Items.Add(lstCart.Items(                    lstCart.SelectedIndices(0)))                lstCart.Items.Remove(lstCart.Items(                    lstCart.SelectedIndices(0)))            End While            'loop to remove items from cart list box and add them to audio list box        ElseIf lstCart.SelectedItem.ToString.Contains("Audio") Then            While lstCart.SelectedItems.Count > 0                frmAudio.lstAudio.Items.Add(lstCart.Items(                    lstCart.SelectedIndices(0)))                lstCart.Items.Remove(lstCart.Items(                    lstCart.SelectedIndices(0)))            End While        Else            MessageBox.Show("There is nothing to remove. ")            calcSub()            addItems()        End If        lblSub.Text = decSub.ToString("c")        lblShipping.Text = decShipping.ToString("c")        lblTax.Text = decTax.ToString("c")        lblTotal.Text = decTotal.ToString("c")    End Sub    Private Sub mnuReset_Click(sender As Object, e As EventArgs) Handles mnuReset.Click        'clears main form        lstCart.Items.Clear()        lblShipping.Text = ""        lblSub.Text = ""        lblTax.Text = ""        lblTotal.Text = ""    End Sub    Private Sub mnuExit_Click(sender As Object, e As EventArgs) Handles mnuExit.Click        'closes all forms        Me.Close()        frmAudio.Close()        frmPrint.Close()    End Sub End Class

second form
Public Class frmPrint    Private Sub lstPrint_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstPrint.SelectedIndexChanged    End Sub    Public Sub btnAddPrint_Click(sender As Object, e As EventArgs) Handles btnAddPrint.Click        'removes items from print list box and adds them to cart list box        While lstPrint.SelectedIndices.Count > 0            MainForm.lstCart.Items.Add(lstPrint.Items(            lstPrint.SelectedIndices(0)))            lstPrint.Items.Remove(lstPrint.Items(            lstPrint.SelectedIndices(0)))        End While        calcSub()        addItems()        MainForm.lblSub.Text = decSub.ToString("c")        MainForm.lblShipping.Text = decShipping.ToString("c")        MainForm.lblTax.Text = decTax.ToString("c")        MainForm.lblTotal.Text = decTotal.ToString("c")    End Sub    Private Sub btnClosePrint_Click(sender As Object, e As EventArgs) Handles btnClosePrint.Click        'closes the form        Me.Close()    End Sub End Class

third form
Public Class frmAudio    Private Sub lstAudio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstAudio.SelectedIndexChanged    End Sub    Private Sub AudioForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load    End Sub    Private Sub btnAddAudio_Click(sender As Object, e As EventArgs) Handles btnAddAudio.Click        While lstAudio.SelectedIndices.Count > 0            MainForm.lstCart.Items.Add(lstAudio.Items(            lstAudio.SelectedIndices(0)))            lstAudio.Items.Remove(lstAudio.Items(            lstAudio.SelectedIndices(0)))        End While        calcSub()        addItems()        MainForm.lblSub.Text = decSub.ToString("c")        MainForm.lblShipping.Text = decShipping.ToString("c")        MainForm.lblTax.Text = decTax.ToString("c")        MainForm.lblTotal.Text = decTotal.ToString("c")    End Sub    Private Sub btnCloseAudio_Click(sender As Object, e As EventArgs) Handles btnCloseAudio.Click        Me.Close()    End Sub End Class

and a module containing the variables and functions

Module CalcModule    'declare constants    Public Const decYourWayPrint As Decimal = 11.95D    Public Const decScotPrint As Decimal = 14.5D    Public Const decLearnPrint As Decimal = 29.95D    Public Const decStressPrint As Decimal = 18.5D    Public Const decLearnAudio As Decimal = 29.95D    Public Const decRelaxAudio As Decimal = 11.5D    Public Const decScotAudio As Decimal = 14.5D    Public Const decBodyAudio As Decimal = 12.95D    Public Const decTax_Rate As Decimal = 0.06D    Public Const decShipping_Rate As Decimal = 2D    Public intTotal As Integer    Public decSub As Decimal    Public decTax As Decimal = decSub * decTax_Rate    Public decShipping As Decimal = intTotal * decShipping_Rate    Public decTotal As Decimal = decSub + decTax + decShipping    Public Function calcSub() As Decimal        If MainForm.lstCart.Items.ToString.Contains("Your Way ") Then            decSub += decYourWayPrint        ElseIf MainForm.lstCart.Items.ToString.Contains("Scotland Print") Then            decSub += decScotPrint        ElseIf MainForm.lstCart.Items.ToString.Contains("Learn Print") Then            decSub += decLearnPrint        ElseIf MainForm.lstCart.Items.ToString.Contains("Stress Print") Then            decSub += decStressPrint        ElseIf MainForm.lstCart.Items.ToString.Contains("Learn Audio") Then            decSub += decLearnAudio        ElseIf MainForm.lstCart.Items.ToString.Contains("Relaxation Audio") Then            decSub += decRelaxAudio        ElseIf MainForm.lstCart.Items.ToString.Contains("Scotland Audio") Then            decSub += decScotAudio        ElseIf MainForm.lstCart.Items.ToString.Contains("Body Audio") Then            decSub += decBodyAudio        End If        Return decSub    End Function    Public Function addItems() As Integer        For Each i As String In MainForm.lstCart.Items            If i.ToString.Contains("Print") Then                intTotal += 1            ElseIf i.ToString.Contains("Audio") Then                intTotal += 1            End If        Next        Return intTotal    End Function End Module

I'd really appreciate any help as always. One note I should be able to get a count going instead of using the for loop. but either way i can't make that work. I run the program and intTotal = 0 decSub=0 and so on. No errors are found. And sorry for the lack of comments. I should be doing them as i go but i've gotten so frustrated i've been deleting and changing stuff all over the place.

well i guess i'm just posting this for anyone searching the web for the answer like me lol. took me awhile to find out how to do this.  but here it is.


Public Class PrintForm    Private Sub lstPrint_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstPrint.SelectedIndexChanged    End Sub    Private Sub btnAddPrint_Click(sender As Object, e As EventArgs) Handles btnAddPrint.Click        While lstPrint.SelectedIndices.Count > 0            MainForm.lstCart.Items.Add(lstPrint.Items(            lstPrint.SelectedIndices(0)))            lstPrint.Items.Remove(lstPrint.Items(            lstPrint.SelectedIndices(0)))        End While    End Sub End Class

ok so i fixed it half way. i can have it add items like i need. no problem there. however i want it to also remove the items from that list box as they are added to the next. what i have is.

Public Class PrintForm    Private Sub lstPrint_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstPrint.SelectedIndexChanged    End Sub    Private Sub btnAddPrint_Click(sender As Object, e As EventArgs) Handles btnAddPrint.Click        For Each item In lstPrint.SelectedItems            MainForm.lstCart.Items.Add(item)        Next    End Sub End Class

if i add this i get Exception thrown: 'System.InvalidOperationException' in System.Windows.Forms.dll

Public Class PrintForm    Private Sub lstPrint_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstPrint.SelectedIndexChanged    End Sub    Private Sub btnAddPrint_Click(sender As Object, e As EventArgs) Handles btnAddPrint.Click        For Each item In lstPrint.SelectedItems            MainForm.lstCart.Items.Add(item) 'This is what i added and get the error            lstPrint.Items.Remove(item)        Next    End Sub End Class

ok so i have 3 forms. 2 of which are populated and i need to take the selected items from those listboxes and add it to the main which is empty. so this is what i have. I have no errors but it also does nothing. any help will be appreciated.

this is the form that contains the empty listbox.
Public Class MainForm    'add menu items to print books list box    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles mnuFile.Click    End Sub    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load    End Sub    Public Sub mnuPrint_Click(sender As Object, e As EventArgs) Handles mnuPrint.Click        'create an instance of the PrintForm        Dim frmPrint As New PrintForm        'display the PrintForm        frmPrint.Show()        'add menu items to list box        frmPrint.lstPrint.Items.Add("I Did It Your Way (Print)")        frmPrint.lstPrint.Items.Add("The History of Scotland(Print)")        frmPrint.lstPrint.Items.Add("Learn Calculus in One Day(Print)")        frmPrint.lstPrint.Items.Add("Feel the Stress(Print)")    End Sub    Public Sub mnuAudio_Click(sender As Object, e As EventArgs) Handles mnuAudio.Click        'create an instance of the AudioForm        Dim frmAudio As New AudioForm        'display the AudioForm        frmAudio.Show()        'add menu items to list box        frmAudio.lstAudio.Items.Add("Learn Calculus in One Day(Audio)")        frmAudio.lstAudio.Items.Add("Relaxation Techniques(Audio)")        frmAudio.lstAudio.Items.Add("The History of Scotland(Audio)")        frmAudio.lstAudio.Items.Add("The Science of Body Language(Audio)")    End Sub    Private Sub mnuAbout_Click(sender As Object, e As EventArgs) Handles mnuAbout.Click        'display a simple about box        MessageBox.Show("Book Selector System Version 1.0")    End Sub    Public Sub lstCart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstCart.SelectedIndexChanged    End Sub End Class

and this is one of my populated listboxes that i'm trying to remove items from there and add them to the main listbox.

Public Class PrintForm    Private Sub lstPrint_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstPrint.SelectedIndexChanged    End Sub    Private Sub btnAddPrint_Click(sender As Object, e As EventArgs) Handles btnAddPrint.Click        Dim frmMain As New MainForm        For Each item In lstPrint.SelectedItems            frmMain.lstCart.Items.Add(item)        Next    End Sub End Class

i believe my problem is in line 8 of my second form. I have it as New MainForm. which i assume is creating a new form as it implies. i want to modify the current form that is already being displayed. I'm not sure what to put there instead of new though since i really just want to modify it.

A lot of good advise thankyou. I will  check into those addons. Visual studio has a lot of great features and the only issue  I found with the 2015 edition is that the undo button doesn't  always light up. From what I can tell it's a known issue. I really do like the suggestions it gives when I code wrong really saves me from pounding my head like I did with Java using netbeans. But if these addons will go past what what VS already does that would be awesome.

Ok thanks. I appreciate it. I made some of the changes you recommended. I kept the integer and the zero errors separate only because i think the problem in the book wants both error messages. Not sure if it makes a difference or not in my grade. just playing that safe. I added the exit subs in last. I found some input online searching when i couldn't get my error messages to stop. I was a little confused because I did if statements in java and didn't have a problem and when i did if, else if and else it seemed to play through the whole thing instead of stopping at the first error message. I see you say its just your opinion not to use exit sub so can i ask what your preferred method is? I don't have very many opinions on any of this since it is still all very new to me.
Thanks,
Rob

i'm using visual studio 2015 enterprise. I have no errors or trouble. I was simply looking for someone with experience to tell me if i need to improve on anything in my code to possibly make it cleaner or more simple.

bump.

I guess vb isn't as popular as java lol.

Hi I found this forum very helpful before in my java class and figured you guys could share some insight on my vb class. My professor  doesn't seem to share anything about any assignments being turned in so ya i can't determine if i'm really doing any of this stuff right. so this is the code that i came up with for a calories from fat calculator. it seems to work just fine and i have all my error messages working the way i want them to. It does seem rather drawn out to me. i'm not sure if it can be cleaned up and shortened but it is similar to other examples in the chapter i am on.

Public Class frmFatCalc    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click        'declare variables        Dim intCalories As Integer        Dim intFat As Integer        Dim decPercent As Decimal        Const decFat_Calories As Integer = 9        Dim blnInputOk As Boolean = True        'error check and convert user input        lblError.Text = String.Empty        If Integer.TryParse(txtCalories.Text, intCalories) = False Then            lblError.Text = "Calories must be an integer."            txtCalories.Focus()            blnInputOk = False            Exit Sub        End If        lblError.Text = String.Empty        If Integer.TryParse(txtFat.Text, intFat) = False Then            lblError.Text = "Grams of fat must be an integer."            txtFat.Focus()            blnInputOk = False            Exit Sub        End If        'error check that integers are greater than zero        If Not intCalories > 0 Then            lblError.Text = "Calories must be greater than zero."            txtCalories.Focus()            blnInputOk = False            Exit Sub        End If        If Not intFat > 0 Then            lblError.Text = "Grams of fat must be greater than zero."            txtFat.Focus()            blnInputOk = False            Exit Sub        End If        'error check that calories from fat are not greater than total calories        If intFat * decFat_Calories > intCalories Then            MessageBox.Show("Calories from fat cannot be greater than total calories. Please check the label and input the correct values.")            blnInputOk = False            Exit Sub        End If        'calculate calories from fat percentage        If blnInputOk = True Then            decPercent = CDec((intFat * decFat_Calories) / intCalories)            lblPercent.Text = decPercent.ToString("p")        End If        'display message if food is low in fat        If decPercent < 0.3D Then            lblError.Text = "This food is low in Fat"        End If    End Sub    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click        'clear text input fields        txtCalories.Clear()        txtFat.Clear()        'clear all labels        lblError.Text = String.Empty        lblPercent.Text = String.Empty        'set cursor back to first field after hitting clear button        txtCalories.Focus()    End Sub    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click        'closes form        Me.Close()    End Sub

well other people posting what they think is the correct way is very useful even if i don't use it. it is a great way for me to see how things can be used and work. i should have became a member of this site a while ago. even though i didn't have that much trouble with previous assignments allowing other users to input their ideas would have really broadened my knowledge of using java. once again thanks to all that have replied. and thanks to you guys this assignment isn't graded yet but i'm sure i will get a good score on it and should finish with over 100 percent with the extra credit i'm due on some previous projects.

this is all really good stuff. i can see how only knowing how to do a few things with java can really complicate the code. not sure learning how to complicate the code should be in a beginning java class. anyways i removed my do while loop for the count and added a brace to move my output outside the loop. that did correct it and the program works fine. at this point it looks like the program functions the way it should and only includes items that i have gone over in this class.  and building the array using joptionpane wasn't something i came up with. that was the program i was instructed to build previously and had to work off of that. yes i see that it again complicates things.  i do think that if i take another java class i'll invest in a real book. the required book for this class was alice 3 with java and while alice 3 is "fun" i didn't find it very useful in taking up so many pages in the book and not going over enough actual coding.

i'm also wondering if count A , B, C, D and F can be made into an array. i'm done being stressed about this now so i would actually like to spend some time with this program and learn.

you are correct it does crash when a letter is entered. although i do not think its required at all to actually fix that for this assignment i am very curious on how you do that. i tried to change my statement to something like if scores != Integer and other things like that and it doesn't even come close to working or really giving me any other ideas.