Question

Design a program that would allow a user to enter a resistor value in ohms and then provide the resistor colour code for the given value.

Answer 1

Module Module1

Sub Main()
Dim colors() As String = {"BLACK", "BROWN",
"RED", "ORANGE", "YELLOW", "GREEN",
"BLUE", "PURPLE", "GRAY", "WHITE"}

Dim resistorvalue As Integer
Console.Write("Enter a resistor value: ")
resistorvalue = Integer.Parse(Console.ReadLine())
If resistorvalue.ToString().Length = 1 Then
Console.Write(colors(Integer.Parse(resistorvalue.ToString()(0))) + "
" + colors(0) + " " + colors(0))
End If
If resistorvalue.ToString().Length = 2 Then
Console.Write(colors(Integer.Parse(resistorvalue.ToString()(0))) + "
" + colors(Integer.Parse(resistorvalue.ToString()(1))) + " " +
colors(0))
End If

If resistorvalue.ToString().Length = 3 Then
Console.Write(colors(Integer.Parse(resistorvalue.ToString()(0))) + "
" + colors(Integer.Parse(resistorvalue.ToString()(1))) + " " +
colors(Integer.Parse(resistorvalue.ToString()(2))))
End If
Console.ReadLine()

End Sub


End Module