Visual Basic

Sub Main()
    Dim customerType As String
    Dim unitsConsumed As Decimal = 0
    Dim costPerUnit As Decimal = 0
    Dim totalCharges As Decimal = 0
    Do
        Console.Write("Enter the customer type as commercial, industrial, or residential: ")
        customerType = Console.ReadLine()
        While customerType <> "commercial" And customerType <> "industrial" And customerType <> "residential"
            Console.WriteLine("ERROR - Enter commerical, industrial, or residential.")
            Console.Write("Enter the customer type as commercial, industrial, or residential: ")
            customerType = Console.ReadLine()
        End While
        Console.Write("Enter the units consumed: ")
        unitsConsumed = Console.ReadLine()
        While unitsConsumed < 0
            Console.WriteLine("ERROR - Please enter a value greater than zero.")
            Console.Write("Enter the units consumed. ")
            unitsConsumed = Console.ReadLine()
        End While
        If unitsConsumed <= 1000 Then
            costPerUnit = 0.5
            If unitsConsumed < 1000 Then
                costPerUnit = 0.5
                If unitsConsumed < 800 Then
                    costPerUnit = 0.65
                    If (unitsConsumed > 800) And (unitsConsumed <= 2000) Then
                        costPerUnit = 0.55
                        If unitsConsumed > 2000 Then
                            costPerUnit = 0.5
                            If unitsConsumed < 500 Then
                                costPerUnit = 0.85
                                If unitsConsumed >= 500 Then
                                    costPerUnit = 0.75
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        totalCharges = unitsConsumed * costPerUnit
        Console.WriteLine("The total charges are: " & totalCharges)
        Console.ReadLine()
    Loop
End Sub

If x < 1000 Then
  If x < 800 Then
    If x > 2000 Then
      ' when does this line get evaluated?
      ' A: if x < 1000 AND x < 800 AND x > 2000
    End If 
  End If
End If

Member 10728667 wrote:

Commercial <= 1,000 $0.50 per unit
Commercial 1,000 < $0.50 per unit

If unitsConsumed <= 1000 Then
            costPerUnit = 0.5
            If unitsConsumed > 1000 Then

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Dan O'Riordan wrote:

All of the code I am using is placed on this thread.

Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=FigClubs;Integrated Security=True;Pooling=False")

Dim cmd As SqlCommand = New SqlCommand("SELECT Email FROM Members", con)

con.Open()

Dim myDA As SqlDataAdapter = New SqlDataAdapter(cmd)

Dim myDataTable As DataTable = New DataTable

myDA.Fill(myDataTable)

con.Close()

con = Nothing

Try
      Dim Smtp_Server As New SmtpClient
      Dim e_mail As New MailMessage()
      Smtp_Server.UseDefaultCredentials = False
      Smtp_Server.Credentials = New Net.NetworkCredential(My.Settings.ClubEmail, My.Settings.EmailPassword)
      Smtp_Server.Port = 587
      Smtp_Server.EnableSsl = True
      Smtp_Server.Host = "smtp.gmail.com"

      e_mail = New MailMessage()
      e_mail.From = New MailAddress(TextBox4.Text)
      e_mail.To.Add(EmailTextBox.Text)
      e_mail.Subject = TextBox1.Text
      e_mail.IsBodyHtml = False
      e_mail.Body = TextBox2.Text
      Smtp_Server.Send(e_mail)
      MsgBox("Your email has been sent.")

  Catch error_t As Exception
      MsgBox(error_t.ToString)
  End Try

Me.MembersTableAdapter.Fill(Me.MembersDataSet.Members)

string[] addresses myDataTable.Rows.Cast<DataRow>().Select(row => (string)row[0]).ToArray();
EmailTextBox.Text = string.Join(", ", addresses);

SELECT Stuff((SELECT ', ' + Email FROM Members FOR XML PATH(''), TYPE).value('.', 'varchar(max)'), 1, 2, '') As Email;

Dan O'Riordan wrote:

So, if you read my first post in this thread, it explains the issue in detail.