Can i have assistance with my homework? here is what i have so far:

Ok the only issue left is "Conversion from string "Blue" to type 'Double' is not valid."

This is what my code looks like atm:

Module Module1

Sub Main()
'Declare variables
Dim Red As String = Microsoft.VisualBasic.Str(1)
Dim Blue As String = Microsoft.VisualBasic.Str(2)
Dim Yellow As String = Microsoft.VisualBasic.Str(3)
Dim Color1 As String
Dim Color2 As String

'User input
Console.WriteLine("Input 2 colors Choices one at a time from Red, Blue, or Yellow.")
Color1 = Console.ReadLine
Color2 = Console.ReadLine
If Color1 = (Red Or Blue) And Color2 = (Blue Or Red) Then
Console.WriteLine("Purple")
ElseIf Color1 = (Red Or Yellow) And Color2 = (Yellow Or Red) Then
Console.WriteLine("Orange")
ElseIf Color1 = (Yellow Or Blue) And Color2 = (Blue Or Yellow) Then
Console.WriteLine("Green")
Else
Console.WriteLine("Error: Invalid input")
End If
Console.WriteLine("Press Enter to quit.")
Console.ReadKey(ConsoleKey.Enter)

End Sub

End Module

So correct me if I'm wrong, but I was going in the wrong direction. I literally want the value of Red to be Red?

While I was waiting for a response I tried a couple things from the Microsoft guide, this seemed the most usable:

Dim Red As String = "Red"
Dim Blue As String = "Blue"
Dim Yellow As String = "Yellow"

But I'm still getting the conversion warning.

So I was thinking of completely separating the expressions like this:

If (Color1 = Red Or Blue) And (Color2 = Blue Or Red) Then

But I'm still getting the warning.

OOOOOOOOOOHHHHHHHHHHHHHHHHHHHHHHHHH!!!!!!!!!!!! ok ok ok! I think I get it now! :D I will try it out and post the results.

TY SOOOOO MUCH!!! the last post was worded in a way I could understand, it finally worked I really appreciate the help. :) I was also able to get my Midterm redemption Project fixed in between, could you take a look? I just want another persons input, I need a good grade on it.

Your right that might be a problem how would i go about fixing that

Also here's the other project:

Module Module1

'This Sub declares variables.
Sub Main()
Dim Sum As Integer
Dim Num1 As Integer
Dim Num2 As Integer
Dim Num3 As Integer
Dim Num4 As Integer
Dim Num5 As Integer
Dim Num6 As Integer
Dim Num7 As Integer
Dim Num8 As Integer
Dim Num9 As Integer
Dim Num10 As Integer

Console.WriteLine("Enter a number between 50 - 150")
Num1 = Console.ReadLine
If Num1 >= 50 And Num1 <= 150 Then
Sum = 0 + Num1
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num2 = Console.ReadLine
If Num2 >= 50 And Num2 <= 150 Then
Sum = Sum + Num2
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num3 = Console.ReadLine
If Num3 >= 50 And Num3 <= 150 Then
Sum = Sum + Num3
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num4 = Console.ReadLine
If Num4 >= 50 And Num4 <= 150 Then
Sum = Sum + Num4
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
Console.ReadKey(ConsoleKey.Enter)
End If
Console.WriteLine("Enter a number between 50 - 150")
Num5 = Console.ReadLine
If Num5 >= 50 And Num5 <= 150 Then
Sum = Sum + Num5
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
Console.ReadKey(ConsoleKey.Enter)
End If
Console.WriteLine("Enter a number between 50 - 150")
Num6 = Console.ReadLine
If Num6 >= 50 And Num6 <= 150 Then
Sum = Sum + Num6
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num7 = Console.ReadLine
If Num7 >= 50 And Num7 <= 150 Then
Sum = Sum + Num7
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num8 = Console.ReadLine
If Num8 >= 50 And Num8 <= 150 Then
Sum = Sum + Num8
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num9 = Console.ReadLine
If Num9 >= 50 And Num9 <= 150 Then
Sum = Sum + Num9
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine("Enter a number between 50 - 150")
Num10 = Console.ReadLine
If Num10 >= 50 And Num10 <= 150 Then
Sum = Sum + Num10
Else
Console.WriteLine("Error Integer Given was not within parameters, number will not be added to sum.")
End If
Console.WriteLine(Num1 & "+" & Num2 & "+" & Num3 & "+" & Num4 & "+" & Num5 & "+" & Num6 & "+" & Num7 & "+" & Num8 & "+" & Num9 & "+" & Num10 & "=" & Sum)
Console.WriteLine("Press Enter to quit.")
Console.Rea

My 5 for the answer, mostly for your patience. :-)
—SA

At the moment it does what its suppose to. I'm just trying to make sure its passable for a grade or if i should work on it some more.

Right. This is what I call "opposite to programming". Nobody needs such results.
—SA

With such attitude as "passable for a grade" I recommend to run out of this profession as soon as possible.
—SA

This is what made me hesitant to use programming forums, and honestly turns me off from wanting to learn programming even though it's a subject that interests me. I'm an NSA student, and I will admit network admins can be very arrogant, myself included. I've looked on programming forums before, any one out of a good chunk of programmers on there are ten times worse than five network admins.
I've always had an interest in programming, never took the initiative to learn it. Right now I have the opportunity and I'm putting in effort to learn this. I don't need your criticism, I never asked for it.

The easiest is to blame forums, not yourself. Behave in a decent way, take decent goals, and many people will gladly do a lot to help you. No one will be happy to work for a miserable goal.

"I don't need your criticism" simply closes you career. Such people are closed for any learning. Criticism is on of the basics of everything. However, I'm sure you can rethink your attitude and will become a decent engineer.

Good luck.
—SA

I'm still trying to figure out how to call my subs properly, and pass variables between the subs. The book School provided Tells us to Pass by ref, however this is bad practice we should be passing by val. He did tell us we're not going over loops till next week, so I don't think he expects it to just keep looping the same If-Else-Then statement.

As for fixing the same type input such as Blue Blue, I added this line at the end:

End If
Color1 == Color2

However the issues I'm running into with this is it sees the second = as a syntax error and I get a warning about blue being converted from string to boolean not valid.

So we were taught the == operator declares equivalence between two variables, obviously it didn't work so I tried something else. I tried adding more Else-Ifs for if a variable was entered twice, but for some reason the original lines still take priority so blue blue still makes purple.

Here's what i have:

Module Module1

Sub Main()
'Declare variables
Dim Red As String = "Red"
Dim Blue As String = "Blue"
Dim Yellow As String = "Yellow"
Dim Color1 As String
Dim Color2 As String

'User input
Console.WriteLine("Input 2 colors Choices one at a time from Red, Blue, or Yellow.")
Color1 = Console.ReadLine
Color2 = Console.ReadLine
If (Color1 = Red Or Color1 = Blue) And (Color2 = Blue Or Color2 = Red) Then
Console.WriteLine("Purple")
ElseIf (Color1 = Red Or Color1 = Yellow) And (Color2 = Yellow Or Color2 = Red) Then
Console.WriteLine("Orange")
ElseIf (Color1 = Yellow Or Color1 = Blue) And (Color2 = Blue Or Color2 = Yellow) Then
Console.WriteLine("Green")
ElseIf Color1 = Blue And Color2 = Blue Then
Console.WriteLine("Error: Invalid input")
ElseIf Color1 = Red And Color2 = Red Then
Console.WriteLine("Error: Invalid input")
ElseIf Color1 = Yellow And Color2 = Yellow Then
Console.WriteLine("Error: Invalid input")
Else
Console.WriteLine("
Error: Invalid input")
End If

Console.WriteLine("Press Enter to quit.")
Console.ReadKey(ConsoleKey.Enter)

End Sub

End Module

Also the invalid input was a cosmetic I was going to fix later, I assume accepting other inputs like RED or ReD can be done by assigning another variable?

I think your right about that the teacher kept insisting it would work with VB.NET but it never did even in his examples, I'm sure you can understand why this has been frustrating for me. If I try to argue about anything hes wrong about with him waves his status as a programmer in my face, I've kind of stopped relying on him.

I don't know if you saw the other post but he barely has time to help us outside of class. The last time I asked for help he didn't get back to me till the night before, luckily I was able to get everything done prior. Any who I'm Burnt out tonight, I think I just want to unwind now, I can finish tomorrow. Just need to write one more program and fix the color mixer. I really appreciate what you did for me, is there some kind of friend list option on this site? If so may I add you?

I ended up waking up around 2 so I decided to finish my homework, its the lab going over case selection. I'm running into one minor issue; the If-ElseIf-Then statement in the third sub doesn't see any cases other than case one.

Here is the Lab:

Module Module1

Sub Main()

'Declasre variables.
Dim mobileProvider As Integer = 0
Dim dataOption As Integer = 0
Dim dataPackage As Integer = True

'Sub calls
InputOptions(mobileProvider, dataOption, dataPackage)
displayProvider(mobileProvider)

End Sub

'Case selection sub.
Sub InputOptions(ByVal mobileProvider, ByVal dataOption, ByVal dataPackage)
Console.WriteLine("Enter 1 for AT&T 2 for Sprint and 3 for Verizon.")

mobileProvider = CInt(Console.ReadLine())
Select Case mobileProvider
Case 1
mobileProvider = "AT&T"
Console.WriteLine("Enter 1 if you want a dataPackage or 2 if you do not.")
dataOption = Console.ReadLine()
If dataOption = 1 Then
dataPackage = True
Else
dataPackage = False
End If
Case 2
mobileProvider = "Sprint"
Console.WriteLine("Enter 1 if you want a dataPackage or 2 if you do not.")
dataOption = Console.ReadLine()
If dataOption = 1 Then
dataPackage = True
Else
dataPackage = False
End If
Case 3
mobileProvider = "Verizon"
Console.WriteLine("Enter 1 if you want a dataPackage or 2 if you do not.")
dataOption = Console.ReadLine()
If dataOption = 1 Then
dataPackage = True
Else
dataPackage = False
End If
Case Else
Console.WriteLine("You did not select a valid option.")
End Select
End Sub

'Sub displays provider chosen.
Sub displayProvider(ByVal mobileProvider)
If CInt(1) Then
Console.WriteLine("You Selected AT&T.")
ElseIf CInt(2) Then
Console.WriteLine("You Selected Sprint.")
ElseIf CInt(3) Then
Console.WriteLine("You Selected Verizon.")
End If
Console.WriteLine("Press Enter to quit.")
Console.ReadKey(ConsoleKey.Enter)
End Sub
End Module

it is defined in VB as (Object As Expression) As Integer

In other words what it should translate to is the proper case selection.

Oh if you selected CInt, it displays the corresponding console.writeline

Ok so I did this, and added a .readkey to keep it from closing, it writes a one to the console. so shouldn't it work for 2 and 3? It works for 1 but if I go through a different selection the result is still AT&T.

This is what I had tried initially, however I don't get any results from the .WiteLine.

'Sub displays provider chosen
Sub displayProvider(ByVal mobileProvider)
If mobileProvider = 1 Then
Console.WriteLine("You Selected AT&T.")
ElseIf mobileProvider = 2 Then
Console.WriteLine("You Selected Sprint.")
ElseIf mobileProvider = 3 Then
Console.WriteLine("You Selected Verizon.")
End If
Console.WriteLine("Press Enter to quit.")
Console.ReadKey(ConsoleKey.Enter)
End Sub
End Module

Actually I found an easier way to do this, I just added the selection announcement to Each case.

I fixed the Color mixer assignment to thanks to your suggestion from last night about the order of the colors. you were a big help thank you again! :)

Hello again I'm working on anther homework program I've got it written for the most part but I need to figure out how to get the number of pennies to double after day 1. Here is what I have:

Module Module1

Sub Main()
Dim Pennies As Double = 0.1
Dim NumberOfDays As Integer = 0
Dim InvalidInput As Integer = 0
Dim Counter As Integer

While InvalidInput <= 0
Console.WriteLine("Enter number of days worked")
NumberOfDays = Console.ReadLine
If NumberOfDays >= 1 Then
For Counter = 1 To NumberOfDays
Console.WriteLine("Day " & Counter & " you earned: $" & Pennies)
Next
ElseIf NumberOfDays = InvalidInput Then
Console.WriteLine("Invalid input")
End If
End While
End Sub

End Module