Vaibhav Bansal, Author at BCA Support

Sem 4 – VWP Unit 4 Programs

Posted on April 9, 2018 by Vaibhav Bansal

VWP – Visual & Windows Programming

Using menus, common dialogs, procedures, functions and arrays

1. Design a form that having subroutine of function with below operations
Button1: Find out the avg. of four values.
Button2: Find out the max. From that values.
Button3: Find out the min. from that values.

View Code

Public Class Program1
    Dim four(4), max, min As Integer

    Private Sub Program1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For index = 0 To 3
            four(index) = InputBox("Enter 4 numbers")
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        average()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        maximum()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Minimum()
    End Sub

    Sub average()
        Label1.Text = (four(0) + four(1) + four(2) + four(3)) / 4
    End Sub

    Sub maximum()
        If four(0) > four(1) And four(0) > four(2) And four(0) > four(3) Then
            max = four(0)
        ElseIf four(1) > four(0) And four(1) > four(2) And four(1) > four(3) Then
            max = four(1)
        ElseIf four(2) > four(1) And four(2) > four(1) And four(2) > four(3) Then
            max = four(2)
        Else
            max = four(3)
        End If
        Label1.Text = max
    End Sub

    Sub minimum()
        If four(0) < four(1) And four(0) < four(2) And four(0) < four(3) Then
            min = four(0)
        ElseIf four(1) < four(0) And four(1) < four(2) And four(1) < four(3) Then
            min = four(1)
        ElseIf four(2) < four(1) And four(2) < four(1) And four(2) < four(3) Then
            min = four(2)
        Else
            min = four(3)
        End If
        Label1.Text = min
    End Sub
End Class

Public Class Program1

Dim four(4), max, min As Integer

Private Sub Program1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For index = 0 To 3

four(index) = InputBox("Enter 4 numbers")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

average()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

maximum()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Minimum()

End Sub

Sub average()

Label1.Text = (four(0) + four(1) + four(2) + four(3)) / 4

End Sub

Sub maximum()

If four(0) > four(1) And four(0) > four(2) And four(0) > four(3) Then

max = four(0)

ElseIf four(1) > four(0) And four(1) > four(2) And four(1) > four(3) Then

max = four(1)

ElseIf four(2) > four(1) And four(2) > four(1) And four(2) > four(3) Then

max = four(2)

Else

max = four(3)

End If

Label1.Text = max

End Sub

Sub minimum()

If four(0) < four(1) And four(0) < four(2) And four(0) < four(3) Then

min = four(0)

ElseIf four(1) < four(0) And four(1) < four(2) And four(1) < four(3) Then

min = four(1)

ElseIf four(2) < four(1) And four(2) < four(1) And four(2) < four(3) Then

min = four(2)

Else

min = four(3)

End If

Label1.Text = min

End Sub

End Class

2. Create an application which provides four textboxes for accepting numbers and three option buttons to select two, three or four. Design function adds to find addition of numbers selected using option buttons.

View Code

3. Take two picture boxes on form which overlap each other. It we click on first picture it will hide itself and shows second one and if we click second one it will do the same. Continue reading “Sem 4 – VWP Unit 4 Programs” →

Semester 4

Sem 4 – VWP Unit 3 Programs

Posted on April 7, 2018April 9, 2018 by Vaibhav Bansal

VWP – Visual & Windows Programming

Unit 3 – Decision Making, Repetition and multiple forms

1. Enter 5 numbers find out highest and second highest. For highest no check it is prime or not and for second highest calculate Fibonacci series.

View Code

Public Class Program1
    Dim no(5), no1, no2, flag As Integer

    Private Sub Program1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For index = 0 To 4
            no(index) = Val(InputBox("Enter number " & (index + 1), "Input 5 numbers"))
        Next
        TextBox1.Text = "Numbers entered :" + vbNewLine + no(0).ToString + ", " + no(1).ToString + ", " + no(2).ToString + ", " + no(3).ToString + ", " + no(4).ToString + vbNewLine + vbNewLine
        Array.Sort(no)
        no1 = no(5)
        no2 = no(4)
        TextBox1.Text &= "Largest number : " + no1.ToString + vbNewLine + "Second largest number : " + no2.ToString + vbNewLine + vbNewLine

        For index = 2 To no1 / 2
            If no1 Mod index <> 0 Then
                flag = 1
            Else
                flag = 0
                Exit For
            End If
        Next
        If flag = 1 Then
            TextBox1.Text &= no1.ToString + " is prime" + vbNewLine + vbNewLine
        Else
            TextBox1.Text &= no1.ToString + " is not prime" + vbNewLine + vbNewLine
        End If
        Dim a, b, c As Integer
        a = 0
        b = 1
        c = a + b
        TextBox1.Text &= c.ToString

        Do
            TextBox1.Text &= ", " + c.ToString
            a = b
            b = c
            c = a + b
        Loop While c <= no2
    End Sub
End Class

Public Class Program1

Dim no(5), no1, no2, flag As Integer

Private Sub Program1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For index = 0 To 4

no(index) = Val(InputBox("Enter number " & (index + 1), "Input 5 numbers"))

TextBox1.Text = "Numbers entered :" + vbNewLine + no(0).ToString + ", " + no(1).ToString + ", " + no(2).ToString + ", " + no(3).ToString + ", " + no(4).ToString + vbNewLine + vbNewLine

Array.Sort(no)

no1 = no(5)

no2 = no(4)

TextBox1.Text &= "Largest number : " + no1.ToString + vbNewLine + "Second largest number : " + no2.ToString + vbNewLine + vbNewLine

For index = 2 To no1 / 2

If no1 Mod index <> 0 Then

flag = 1

Else

flag = 0

Exit For

End If

If flag = 1 Then

TextBox1.Text &= no1.ToString + " is prime" + vbNewLine + vbNewLine

Else

TextBox1.Text &= no1.ToString + " is not prime" + vbNewLine + vbNewLine

End If

Dim a, b, c As Integer

a = 0

b = 1

c = a + b

TextBox1.Text &= c.ToString

TextBox1.Text &= ", " + c.ToString

a = b

b = c

c = a + b

Loop While c <= no2

End Sub

End Class

2. Create an application with a textbox in which user can enter a sentence then displays
1) Number of vowels
2) Number of spaces
3) Number of digits
4) Number of special symbols
When user press “analysis” button

View Code

Public Class Program2
    Dim sentence() As Char
    Dim vowels, spaces, digits, symbols, length As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        vowels = 0
        spaces = 0
        digits = 0
        symbols = 0
        sentence = TextBox1.Text.ToCharArray
        length = sentence.GetLength(0)

        For index = 0 To length - 1
            If sentence(index) = "a" Or sentence(index) = "e" Or sentence(index) = "i" Or sentence(index) = "o" Or sentence(index) = "u" Or sentence(index) = "A" Or sentence(index) = "E" Or sentence(index) = "I" Or sentence(index) = "O" Or sentence(index) = "U" Then
                vowels += 1
            ElseIf Char.IsWhiteSpace(sentence(index)) Then
                spaces += 1
            ElseIf Char.IsDigit(sentence(index)) Then
                digits += 1
            ElseIf Char.IsSymbol(sentence(index)) Or Char.IsPunctuation(sentence(index)) Or Char.IsSeparator(sentence(index)) Then
                symbols += 1
            End If
        Next

        TextBox2.Text = "Vowels = " + vowels.ToString + vbNewLine
        TextBox2.Text &= "Spaces = " + spaces.ToString + vbNewLine
        TextBox2.Text &= "Digits = " + digits.ToString + vbNewLine
        TextBox2.Text &= "Special symbols = " + symbols.ToString
    End Sub
End Class

Public Class Program2

Dim sentence() As Char

Dim vowels, spaces, digits, symbols, length As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

vowels = 0

spaces = 0

digits = 0

symbols = 0

sentence = TextBox1.Text.ToCharArray

length = sentence.GetLength(0)

For index = 0 To length - 1

If sentence(index) = "a" Or sentence(index) = "e" Or sentence(index) = "i" Or sentence(index) = "o" Or sentence(index) = "u" Or sentence(index) = "A" Or sentence(index) = "E" Or sentence(index) = "I" Or sentence(index) = "O" Or sentence(index) = "U" Then

vowels += 1

ElseIf Char.IsWhiteSpace(sentence(index)) Then

spaces += 1

ElseIf Char.IsDigit(sentence(index)) Then

digits += 1

ElseIf Char.IsSymbol(sentence(index)) Or Char.IsPunctuation(sentence(index)) Or Char.IsSeparator(sentence(index)) Then

symbols += 1

End If

TextBox2.Text = "Vowels = " + vowels.ToString + vbNewLine

TextBox2.Text &= "Spaces = " + spaces.ToString + vbNewLine

TextBox2.Text &= "Digits = " + digits.ToString + vbNewLine

TextBox2.Text &= "Special symbols = " + symbols.ToString

End Sub

End Class

3. Take one textbox. Enter paragraph with multiple lines and find out no. of vowels and no. of digits from paragraph. Continue reading “Sem 4 – VWP Unit 3 Programs” →

Semester 4

Sem 4 – VWP Unit 2 Programs

Posted on April 6, 2018April 9, 2018 by Vaibhav Bansal

VWP – Visual & Windows Programming

Unit 2 – Working with Variables, Constants, Data types and Expressions

1. Design a form that has three textboxes and radio button that calculate simple interest and compound interest.

View Code

2. Design an application which will have 2 radio buttons. One will convert the Celsius to Fahrenheit and another will convert Fahrenheit to Celsius. Show the appropriate output depends on the user’s selection. (Use radio button to take user choice and use textbox to enter value).

View Code

3. Create a loan calculator using Pmt function. Continue reading “Sem 4 – VWP Unit 2 Programs” →

All Posts, Semester 4

Sem 4 – CJ Unit 4 Programs

Posted on March 31, 2018 by Vaibhav Bansal

CJ – Core Java

Unit 4 – Packages, Multithreading, Applets and Graphics

1. Write a program to calculate the area by using an interface.
Download

View Code

2. Write a program to show use of the import statement.
Download (Main file – cj4_2.java) || Download (Package file – Calculator.java)

View Code (Main file - cj4_2.java)

View Code (Package file - Calculator.java)

3. Write an interface called Numbers, with a method int Process(int x, int y). Write a class called Sum, in which the method Process finds the sum of two numbers and returns an int value. Write another class called Average, in which the Process method finds the average of the two numbers and returns an int. Continue reading “Sem 4 – CJ Unit 4 Programs” →

Semester 4

Sem 4 – VWP Unit 1 Programs

Posted on March 30, 2018April 9, 2018 by Vaibhav Bansal

VWP – Visual & Windows Programming

Unit 1 – Building simple application in the VB.NET environment with form, textbox, label, numeric up down and button

1. Create a form with one textbox, one label and one button. Enter your name in textbox. On clicking of button, your name must display into the label.

View Code

2. Create a form with three buttons Red, green and blue. On the click of red button back color of form will be changed to red and so on.

View Code

3. Create a form, while running the application the form should always be shown in the middle of the screen. Continue reading “Sem 4 – VWP Unit 1 Programs” →

All Posts, Semester 4

Sem 4 – CJ Unit 3 Programs

Posted on March 24, 2018March 24, 2018 by Vaibhav Bansal

CJ – Core Java

Unit 3 – Exception Handling and Inheritance

1. Write a program to display the sum of digits of given numbers with exception handling.
Download

View Code

2. Write a java program which takes 2 arguments – a string and its length. If the length of the string is not according to given one then throw the user defined LengthMatchException and handles it appropriately.
Download

View Code

3. Write a Java program to input n integer numbers and display lowest and second lowest number. Also handle the different exceptions possible to be thrown during execution. Continue reading “Sem 4 – CJ Unit 3 Programs” →