I have Created this project in Visual basic 3 times and cannot get it to work ri

Question

I have Created this project in Visual basic 3 times and cannot get it to work right (Select Case) Piecework workers are paid by the piece. Workers who produce a greater quantity of output are often paid at a higher rate. Form: Use text boxes to obtain the person

Explanation / Answer

Public Class Peicework Private Sub Peicework_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Namebox.TextChanged End Sub Private Sub Piecebox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Piecebox.TextChanged Dim Piecebox As Integer Dim Msgbox_TextChanged As String Dim PricePaidPerPiece As Integer If Piecebox < "199" And Piecebox > 0 Then PricePaidPerPiece = 0.5 Else If Piecebox < "399" And Piecebox > "199" Then PricePaidPerPiece = 0.55 Else If Piecebox < "599" And Piecebox > 399 Then PricePaidPerPiece = 0.6 Else If Piecebox >= 600 Then PricePaidPerPiece = 0.65 Else Msgbox_TextChanged = "number out of range" End If End If End If End If End Sub Private Sub Msgbox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Msgbox.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PricePerPiecebox.TextChanged End Sub Private Sub Clrbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clrbut.Click Clrbut.Items.Clear() End Sub End Class

Related Questions

Navigate

• Browse (All)
• Browse I
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.