Zip Code Program (Visual Basic)

Question

Zip Code Program (Visual Basic)

Burke, Brendan J 141

The Instruction Docs is the main document that will lead to what I need in my Code editor window which when I run the application should be able to do in the designer window.

MotoX80 37,696 Reputation points

2022-04-06T22:28:29.68+00:00

What is your question?
Burke, Brendan J 141 Reputation points

2022-04-07T01:30:38.863+00:00

I need the code to make this application run successfully I will post the important info that I need to answer the question.
Burke, Brendan J 141 Reputation points

2022-04-07T01:45:55.34+00:00

/api/attachments/190647-zip-code-directions.jpg?platform=QnA

This is the instruction docs aka 1st image this is the main document that will help answer my question. I just need the entire visual basic code that will help run this application successfully the way instruction tell me to.
Burke, Brendan J 141 Reputation points

2022-04-07T01:54:32.95+00:00

The code editor window is where I need the code which is the last image.
Burke, Brendan J 141 Reputation points

2022-04-07T01:57:06.93+00:00

The pseudo code is important.

Burke, Brendan J 141

    ' Trim the leading and trailing spaces from the zip entered by the user

    ' if first four characters of the zip are "4210" 
    '    and the last character is 2, 3 or 4 then
    '       display "Valid Zip" in the status label (lblStatus)
    ' else
    '       display "Invalid Zip" in the status label (lblStatus)
    ' endif
    '
    ' Put the focus in the zip textbox (txtZip)

Burke, Brendan J 141 Reputation points

2022-04-07T02:01:13.63+00:00

Everything in the instructions document up until where it says Create a programming assignment folder per the video in Week 1 Reading and Course Materials. The name of your assignment folder should be WK12 C7P “your last name” In the folder, place the .exe file and an image of the Main Form.vb file (pdf or .jpeg or .png). Zip the folder per the video and attach it to the assignment then submit. don't worry about that part I know what to do with that part. Everything before is the main part that I need for my question to be answered. I hope this makes it as clear as possible.

Burke, Brendan J 141

Option Explicit On
Option Strict On
Option Infer Off

Public Class frmMain
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub txtZip_Enter(sender As Object, e As EventArgs) Handles txtZip.Enter
        txtZip.SelectAll()
    End Sub

    Private Sub txtZip_TextChanged(sender As Object, e As EventArgs) Handles txtZip.TextChanged
        lblStatus.Text = String.Empty
    End Sub

    Private Sub txtZip_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtZip.KeyPress
        ' Allow only numbers and the Backspace key.

        If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back Then
            e.Handled = True
        End If
    End Sub
End Class

This is the code in the code editor window which I need to add on to so it matches everything the directions are trying to tell me.

MotoX80 37,696 Reputation points

2022-04-07T02:15:09.967+00:00

You won't learn anything if we write the code. We'll help you, but we're not doing your homework for you.

Follow the instructions and try to write the code. When you run into a problem, explain what the problem is, what error you get, and share the code using the Code Sample tool, the 101010 icon.

Answer accepted by question author

0 additional answers

Your answer

MotoX80 37,696 Reputation points

2022-04-06T22:28:29.68+00:00

What is your question?
Burke, Brendan J 141 Reputation points

2022-04-07T01:30:38.863+00:00

I need the code to make this application run successfully I will post the important info that I need to answer the question.
Burke, Brendan J 141 Reputation points

2022-04-07T01:45:55.34+00:00

/api/attachments/190647-zip-code-directions.jpg?platform=QnA

This is the instruction docs aka 1st image this is the main document that will help answer my question. I just need the entire visual basic code that will help run this application successfully the way instruction tell me to.
Burke, Brendan J 141 Reputation points

2022-04-07T01:54:32.95+00:00

The code editor window is where I need the code which is the last image.
Burke, Brendan J 141 Reputation points

2022-04-07T01:57:06.93+00:00

The pseudo code is important.
Burke, Brendan J 141 Reputation points

2022-04-07T01:57:36.99+00:00

' Trim the leading and trailing spaces from the zip entered by the user ' if first four characters of the zip are "4210" ' and the last character is 2, 3 or 4 then ' display "Valid Zip" in the status label (lblStatus) ' else ' display "Invalid Zip" in the status label (lblStatus) ' endif ' ' Put the focus in the zip textbox (txtZip)
Burke, Brendan J 141 Reputation points

2022-04-07T02:01:13.63+00:00

Everything in the instructions document up until where it says Create a programming assignment folder per the video in Week 1 Reading and Course Materials. The name of your assignment folder should be WK12 C7P “your last name” In the folder, place the .exe file and an image of the Main Form.vb file (pdf or .jpeg or .png). Zip the folder per the video and attach it to the assignment then submit. don't worry about that part I know what to do with that part. Everything before is the main part that I need for my question to be answered. I hope this makes it as clear as possible.
Burke, Brendan J 141 Reputation points

2022-04-07T02:05:04.98+00:00

Option Explicit On Option Strict On Option Infer Off Public Class frmMain Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub txtZip_Enter(sender As Object, e As EventArgs) Handles txtZip.Enter txtZip.SelectAll() End Sub Private Sub txtZip_TextChanged(sender As Object, e As EventArgs) Handles txtZip.TextChanged lblStatus.Text = String.Empty End Sub Private Sub txtZip_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtZip.KeyPress ' Allow only numbers and the Backspace key. If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back Then e.Handled = True End If End Sub End Class

This is the code in the code editor window which I need to add on to so it matches everything the directions are trying to tell me.
MotoX80 37,696 Reputation points

2022-04-07T02:15:09.967+00:00

You won't learn anything if we write the code. We'll help you, but we're not doing your homework for you.

Follow the instructions and try to write the code. When you run into a problem, explain what the problem is, what error you get, and share the code using the Code Sample tool, the 101010 icon.

Answer 1

Jiachen Li-MSFT 34,241 Microsoft External Staff

Hi @Burke, Brendan J ,
Please check the following document to learn about the usage of like operator.
Like Operator (Visual Basic)

And the answer should be like the following code.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        If txtZip.Text Like "4210*[2-4]" Then  
            lblStatus.Text = "Valid Zip"  
        Else  
            lblStatus.Text = "Invalid Zip"  
        End If  
        txtZip.Focus()  
    End Sub

Best Regards.
Jiachen Li

----------

If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Burke, Brendan J 141 Reputation points

2022-04-07T03:58:17.893+00:00

Thanks a lot appreciate the help.

Share via

Zip Code Program (Visual Basic)

0 additional answers

Your answer