PartB.md

Lab Practicals

Part B

Program 4 And Program 8 are skipped(Sum of Positive/negative numbers and MDI forms)

Program 1 - VB.NET Program to count the number of Vowels

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str1, str2
        Dim vcount, i, str1len As Integer

        str1 = TextBox1.Text
        str1len = Len(str1)
        For i = 1 To str1len
            str2 = Mid(str1, i, 1)
            If str2 = "a" Or str2 = "e" Or str2 = "i" Or str2 = "o" Or str2 = "u" Or str2 = "A" Or str2 = "E" Or str2 = "I" Or str2 = "O" Or str2 = "U" Then
                vcount = vcount + 1
            End If
        Next
        TextBox2.Text = vcount
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class

Source

Download Output

Program 2 - VB.NET Program to check if number is Odd or Even

Public Class Form1
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Value.TextChanged
        If Value.Text = Nothing Then
            Label1.Text = "Enter Number"
        Else
            Dim ValueNum As Integer = Value.Text
            If (ValueNum Mod 2 = 0) Then
                Label1.Text = "Even - Enter Value"
            Else
                Label1.Text = " Odd - Enter Value"
            End If
        End If
    End Sub

    Private Sub ClrButton_Click(sender As Object, e As EventArgs) Handles ClrButton.Click
        Label1.Text = "Enter Number"
        Value.Text = String.Empty
    End Sub

    Private Sub ExitButton_Click(sender As Object, e As EventArgs) Handles ExitButton.Click
        Close()
    End Sub
End Class

Source

Download Output

Program 3 - VB.NET Program to calculate compound interest

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim P, N As Integer
        Dim R As Double
        P = TextBox1.Text
        R = TextBox2.Text
        N = TextBox3.Text
        TextBox4.Text = Math.Round(((P * (1 + (R / 100)) ^ N - 1) - P), 2)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class

Source

Download Output

Program 4 - VB.NET Program to display the sum of negative and sum of positive numbers(Skip)

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Limit As Integer = Integer.Parse(LimitN.Text)
        Dim arr(Limit) As Integer
        Dim p_n = 0
        Dim n_n = 0


        For i As Integer = 0 To (Limit - 1)
            Dim temp As String = InputBox("Enter Element")
            If (Integer.Parse(temp) >= 0) Then
                p_n = p_n + Integer.Parse(temp)
            Else
                n_n = n_n + Integer.Parse(temp)
            End If
        Next i

        PositiveSum.Text = p_n
        NegativeSum.Text = n_n
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ' clear the screen
        LimitN.Text = String.Empty
        PositiveSum.Text = String.Empty
        NegativeSum.Text = String.Empty
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ' Exit program
        Close()
    End Sub
End Class

Source

Download Output

Program 5 - VB.NET Program to concat 2 strings

Public Class Form1
    Private Sub Result_Click(sender As Object, e As EventArgs) Handles Result.Click
        ResultBox.Text = FirstNameBox.Text & " " & LastNameBox.Text
    End Sub

    Private Sub exitBtn_Click(sender As Object, e As EventArgs) Handles exitBtn.Click
        Close()
    End Sub

    Private Sub Clear_Click(sender As Object, e As EventArgs) Handles Clear.Click
        FirstNameBox.Text = String.Empty
        LastNameBox.Text = String.Empty
        ResultBox.Text = "Result"
    End Sub
End Class

Source

Download Output

Program 6 - VB.NET Program to change the styles and fonts of Text

Public Class Form1
    Public Sub setStyle()
        Dim style = FontStyle.Regular
        If CheckBox1.Checked Then
            style = style Or FontStyle.Bold
        End If
        If CheckBox2.Checked Then
            style = style Or FontStyle.Italic
        End If
        If CheckBox3.Checked Then
            style = style Or FontStyle.Underline
        End If
        TextBox1.Font = New Drawing.Font(TextBox1.Font, style)
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        setStyle()
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        setStyle()
    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        setStyle()
    End Sub
End Class

Source

Download Output

Program 7 - VB.NET Program to generate student enrollment details

Public Class Form1
    Private Sub ClrBtn_Click(sender As Object, e As EventArgs) Handles ClrBtn.Click
        NameBox.ResetText()
        CourseBox.ResetText()
        SemBox.ResetText()
        MarksBox.ResetText()
    End Sub

    Private Sub Result_Click(sender As Object, e As EventArgs) Handles Result.Click
        MsgBox("Details " + vbCrLf +
               "Name: " + vbCrLf + NameBox.Text +
               "Course: " + vbCrLf + CourseBox.Text +
               "Semester: " + vbCrLf + SemBox.Text +
               "Marks: " + MarksBox.Text)
    End Sub

    Private Sub ExitBtn_Click(sender As Object, e As EventArgs) Handles ExitBtn.Click
        Close()
    End Sub
End Class

Source

Download Output

Program 8 - VB.NET Program to demonstrate MDI parent forms(skip)

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Form1.IsMdiContainer = True
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
End Class

Source

Download Output