Question

VISUAL BASIC (VISUAL STUDIO 2010) - PLEASE INCLUDE PICTURES OF OUTPUT AND CODE AND TEXTBOX pictures of everything or thumbs downnnnnnn... Your question has been answered Let us know if you got a helpful answer. Rate this answer Question: VISUAL BASIC (VISUAL STUDIO 2010) - PLEASE INCLUDE PICTURES OF OUTPUT AND CODE AND TEXTBOX Be sur... VISUAL BASIC (VISUAL STUDIO 2010) - PLEASE INCLUDE PICTURES OF OUTPUT AND CODE AND TEXTBOX Be sure to include comments at the top of each procedure and at the top of the file. Be sure to use meaningful names for all buttons and labels. In this project we will accept the status of 10 results from an exam. The value should be a P or a F to indicate Pass or Fail. When 10 results have been entered, the input box will be disable and the Analyze button will be enabled. The Analyze button will loop through the items and present a list of how many passed and failed the exam.

Answer 1

Design

Coding:

'Program For Input analyze student records
Public Class Form1
    Dim count As Integer = 0 'variable for count student
    Dim status As String ''variable for status store

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lstanayalize.Visible = False ''visible off of listbox
        btnanalyze.Enabled = False ''disable analyze button
        lstanayalize.Items.Add("Student Name" + "," + "Status") ''column add in list bo
    End Sub

    Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
        If IsNumeric(txtmathamatics.Text) And IsNumeric(txtchemestry.Text) And IsNumeric(txtphysics.Text) Then ''check for input corrected
            If Val(txtphysics.Text < 35 Or txtchemestry.Text < 35 Or txtmathamatics.Text < 35) Then 'check wheather pass or fail
                status = "Fail" 'status store
            Else
                status = "Pass" ''status store
            End If
            lstanayalize.Items.Add(txtname.Text + "," + status) ''add it in listbox
            txtchemestry.Text = "" ''after add clear textbox
            txtmathamatics.Text = "" 'after add clear textbox
            txtphysics.Text = "" 'after add clear textbox
            txtname.Text = "" 'after add clear textbox
            count = count + 1 'increment count
            If count = 10 Then ''if count is 10 then
                btnadd.Enabled = False ''disable add button
                btnanalyze.Enabled = True ''enable analyze button
            End If

        Else
            MessageBox.Show("Please Enter Valid Marks") ''output message if not valid
            If (Not IsNumeric(txtchemestry.Text)) Then
                txtchemestry.Focus() ''focused on that
            ElseIf (Not IsNumeric(txtmathamatics.Text)) Then
                txtmathamatics.Focus() 'focused on that
            ElseIf (Not IsNumeric(txtphysics.Text)) Then
                txtphysics.Focus() 'focused on that
            End If
        End If
    End Sub

    Private Sub btnanalyze_Click(sender As Object, e As EventArgs) Handles btnanalyze.Click
        lstanayalize.Visible = True 'visiable in listbox here
    End Sub
End Class

output:

if you still have any Problem regarding this question please comment and if you like my code please appreciate me by thumbs up thank you.........