Scribd
Upload
16 views31 pages

Vbnet

The document outlines a series of programming tasks for a Visual Basic .NET course, including creating GUIs for basic arithmetic operations, checking for vowels, determining voting eligibility, and generating Fibonacci series. It also includes implementations for sorting algorithms like bubble sort and insertion sort, as well as matrix operations. Each task is accompanied by code snippets demonstrating the required functionality.

Uploaded by

Gaurav singh
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
16 views31 pages

Vbnet

The document outlines a series of programming tasks for a Visual Basic .NET course, including creating GUIs for basic arithmetic operations, checking for vowels, determining voting eligibility, and generating Fibonacci series. It also includes implementations for sorting algorithms like bubble sort and insertion sort, as well as matrix operations. Each task is accompanied by code snippets demonstrating the required functionality.

Uploaded by

Gaurav singh
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 31

SWAMI RAMA HIMALAYAN

UNIVERSITY HILL CAMPUS


TOLI DUDARKHAL

PROGRAMME NAME:-BCA
COURSE NAME: VB.NET

COURSE CODE: BCP 302

SUBMITTED TO: SUBMITTED BY:


ASHISH BAUTHIYAL GAURAV
ASSISTANT PROFESSOR REG NO.:PG22111301005
1. Create GUI from Show below and Type Code for Each Button.

Public Class Form1


Dim a, b, c As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

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


a = TextBox1.Text
b = TextBox2.Text
c=a+b
TextBox3.Text = c

End Sub

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


a = TextBox1.Text
b = TextBox2.Text
c=a-b
TextBox3.Text = c

End Sub

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


a = TextBox1.Text
b = TextBox2.Text
c=a*b
TextBox3.Text = c

End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
a = TextBox1.Text
b = TextBox2.Text
c=a/b
TextBox3.Text = c
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

End Sub
End Class
2. Write a program in Visual basic to find whether a given character is vowel or
not .Display the result in a message box.

Imports System.Net.Configuration
Public Class Form1
Dim ch As Char

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


ch = TextBox1.Text
Select Case ch
Case "A", "E", "i", "O", "U"
MessageBox.Show(ch + "is vowel in Upper case")
Case "a", "e", "i", "o", "u"
MessageBox.Show(ch + " is vowel lower case")
Case Else
MessageBox.Show(ch + " is not vowel")

End Select

End Sub
End Class
3. Create GUI From Show Below and check the eligibility for Voting.
Public Class Form1
Dim age As Integer

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


age = Val(t1.Text)
If age >= 18 Then
MessageBox.Show("You are eligible to vote")
Else
MessageBox.Show("You are not eligible to vote")

End If
End Sub

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


t1.Text = ""

End Sub

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


Close()
End Sub
End Class
4. Show that how many time a page has been clicked ?

Imports System.Net.Security

Public Class Form1

Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click


Static clickcount As Integer = 0
clickcount += 1
If clickcount = " 50" Then
clickcount = 1
End If
Label1.Text = clickcount.ToString("00")
End Sub
End Class
5. Create GUI Form Show Below.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Val(TextBox1.Text) > Val(TextBox2.Text) Then
TextBox3.Text = "First number is Biggest"
Else
TextBox3.Text = " Second number is Biggest"

End If
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles


TextBox1.TextChanged

End Sub
End Class
6. Design and code to print a Table of a given no in textbox.
Public Class Form1
Dim mu As Integer = 1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
While (mu <= 10)
ListBox1.Items.Add(Val(TextBox1.Text) & "*" & mu & "=" & mu * Val(TextBox1.Text))
mu += 1 'mu= mu+1'
ListBox1.Refresh()
End While
End Sub

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


ListBox1.Items.Clear()
ListBox1.Refresh()
TextBox1.Text = ""
End Sub

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


Me.Close()
End Sub
End Class
7. Design and code a Calculator by using Control Array.
Public Class Form1
Dim value1, value2 As Integer
Dim sign As String

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


TextBox1.Text = TextBox1.Text & 2
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

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


TextBox1.Text = TextBox1.Text & 1

End Sub

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


TextBox1.Text = TextBox1.Text & 3

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click


TextBox1.Text = TextBox1.Text & 4
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click


TextBox1.Text = TextBox1.Text & 5
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click


TextBox1.Text = TextBox1.Text & 6
End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click


TextBox1.Text = TextBox1.Text & 7
End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click


TextBox1.Text = TextBox1.Text & 8
End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click


TextBox1.Text = TextBox1.Text & 9
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


value1 = TextBox1.Text
TextBox1.Clear()
TextBox1.Focus()
sign = "+"

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click


value1 = TextBox1.Text
TextBox1.Clear()
TextBox1.Focus()
sign = "-"
End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click


value1 = TextBox1.Text
TextBox1.Clear()
TextBox1.Focus()
sign = "*"
End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click


value1 = TextBox1.Text
TextBox1.Clear()
TextBox1.Focus()
sign = "/"
End Sub

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click


TextBox1.Text = TextBox1.Text & 0
End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click


value2 = TextBox1.Text
If sign = "+" Then
TextBox1.Text = value1 + value2
ElseIf sign = "-" Then
TextBox1.Text = value1 - value2
ElseIf sign = "*" Then
TextBox1.Text = value1 * value2

Else
TextBox1.Text = value1 / value2
End If
End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click


TextBox1.Clear()
TextBox1.Focus()
End Sub

End Class
8. Design and code to generate fibonacii series on a label upto entered limit.

Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim A, B, C, N As Integer
N = Val(TextBox1.Text)
A=0
B=1
C=A
TextBox2.Text = A & " " & B & " "
For I = 2 To N - 1
C=A+B
TextBox2.Text = TextBox2.Text & C & " "
A=B
B=C
Next I
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = " "
TextBox2.Text = " "
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
End Class
9. Design and code to return the factorial of a given no by using user define
function.

Imports System.Drawing.Imaging

Public Class Form1


Function fact(a As Integer)
Dim f As Integer
f=1
For i = 1 To a
f=f*i
Next
fact = f
End Function

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


Dim n As Integer, r As Integer
n = TextBox1.Text
r = fact(n)
TextBox2.Text = r

End Sub
End Class
10. Design and coding for selection sorting by using a user define sub routine in
vb.net.
Module Module1

Sub Main()
Dim numbers As Integer() = {5, 2, 9, 1, 5,
6} Console.WriteLine("Original Array:")
PrintArray(numbers)
InsertionSort(numbers)
Console.WriteLine("Sorted Array:")
PrintArray(numbers)
Console.ReadLine() ' To keep the console window open
End Sub
Sub InsertionSort(ByRef arr As Integer())
Dim n As Integer = arr.Length
Dim i, j, key As Integer
For i = 1 To n - 1
key = arr(i)
j=i-1
While j >= 0 AndAlso arr(j) > key
arr(j + 1) = arr(j)
j -= 1
End While
arr(j + 1) =
key
Next
End Sub
Sub PrintArray(arr As Integer())
For Each num As Integer In arr
Console.Write(num & " ")
Next
Console.WriteLine()
End Sub
End Module
Module SelectionSortDemo
Sub Main()
Dim arr() As Integer = {64, 25, 12, 22, 11}
Console.WriteLine("Original array:")
PrintArray(arr)
SelectionSort(arr)
Console.WriteLine("Sorted array:")
PrintArray(arr)
Console.ReadLine()
End Sub
Sub SelectionSort(ByRef array() As Integer)
Dim n As Integer = array.Length
For i As Integer = 0 To n - 2
Dim minIndex As Integer = i
For j As Integer = i + 1 To n - 1
If array(j) < array(minIndex) Then
minIndex = j
End If
Next
If minIndex <> i Then
Dim temp As Integer = array(i)
array(i) = array(minIndex)
array(minIndex) = temp
End If
Next
End Sub
Sub PrintArray(ByVal array() As Integer)
For Each item As Integer In array
Console.Write(item & " ")
Next
Console.WriteLine()
End Sub
End Module

11. Design and coding for insertion sorting by using a user define sub routine in
vb.net.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim inputArray As String() = TextBox1.Text.Split(New String() {Environment.NewLine},
StringSplitOptions.RemoveEmptyEntries)

' Convert the string array to integer array


Dim intArray As Integer() = Array.ConvertAll(inputArray, AddressOf Integer.Parse)
' Call the InsertionSort subroutine
InsertionSort(intArray)
' Display the sorted result in TextBox2
TextBox2.Text = String.Join(Environment.NewLine, intArray)
End Sub
' Subroutine for insertion sort
Private Sub InsertionSort(ByRef arr As Integer())
Dim n As Integer = arr.Length
For i As Integer = 1 To n - 1
Dim key As Integer = arr(i)
Dim j As Integer = i - 1
While j >= 0 AndAlso arr(j) > key
arr(j + 1) = arr(j)
j -= 1
End While
arr(j + 1) =
key
Next
End Sub
End Class

12. Design and coding for bubble sorting by using a user define sub routine in
vb.net.

Module BubbleSortExample
Sub Main()
Dim numbers() As Integer = {64, 34, 25, 12, 22, 11, 90}

Console.WriteLine("Original Array:")
DisplayArray(numbers)
BubbleSort(numbers)

Console.WriteLine("Sorted Array:")
DisplayArray(numbers)

' Wait for user input before closing


Console.WriteLine("Press any key to exit...")
Console.ReadKey()
End Sub
Sub BubbleSort(ByRef arr() As Integer)
Dim n As Integer = arr.Length
Dim temp As Integer
For i As Integer = 0 To n - 1
For j As Integer = 0 To n - 2 - i
If arr(j) > arr(j + 1) Then
next
temp = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = temp
End If
Next
Next
End Sub

Sub DisplayArray(arr() As Integer)


For Each num As Integer In arr
Console.Write(num & " ")
Next
Console.WriteLine()
End Sub
End Module
13. Demonstrate the use of option with strict , compare and explicit in vb.net.

Module Program
Sub Main()
' Example of Option Explicit
Dim number As Integer = 10 ' Explicitly declaring the variable
Dim text As String = "Hello"

' This will cause a compile-time error if Option Explicit is On:


' message = "This will cause an error!" ' Uncommenting this will cause an error

Console.WriteLine(CompareStrings(text, "hello")) ' Returns True due to Option Compare


Text
Console.WriteLine(CompareNumbers(number, 10)) ' Returns True

' Example of Option Strict (commented out to avoid runtime errors)


' Dim value As Integer = "123" ' This will cause a compile-time error with Option Strict On

Console.ReadLine()
End Sub

Function CompareStrings(ByVal str1 As String, ByVal str2 As String) As Boolean


' Strings will be compared in a case-insensitive manner
Return str1.Equals(str2)
End Function

Function CompareNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As


Boolean ' Direct comparison, safe with Option Strict On
Return num1 = num2
End Function
End Module
14. Designing and code for addition, subtraction and multiplication of two
matrices of 2*2 in vb.net

Module MatrixOperations
Sub Main()
' Declare two 2x2 matrices
Dim matrixA(1, 1) As Integer
Dim matrixB(1, 1) As Integer

' Input values for the first matrix


Console.WriteLine("Enter values for the first 2x2 matrix (A):")
For i As Integer = 0 To 1
For j As Integer = 0 To 1
Console.Write($"Enter value for A({i},{j}): ")
matrixA(i, j) = Convert.ToInt32(Console.ReadLine())
Next
Next

' Input values for the second matrix


Console.WriteLine(vbCrLf & "Enter values for the second 2x2 matrix (B):")
For i As Integer = 0 To 1
For j As Integer = 0 To 1
Console.Write($"Enter value for B({i},{j}): ")
matrixB(i, j) = Convert.ToInt32(Console.ReadLine())
Next
Next

' Display results of operations


Console.WriteLine(vbCrLf & "Matrix A:")
DisplayMatrix(matrixA)
Console.WriteLine(vbCrLf & "Matrix B:")
DisplayMatrix(matrixB)
Console.WriteLine(vbCrLf & "Addition (A + B):")
Dim sumResult(1, 1) As Integer = AddMatrices(matrixA, matrixB)
DisplayMatrix(sumResult)
Console.WriteLine(vbCrLf & "Subtraction (A - B):")
Dim diffResult(1, 1) As Integer = SubtractMatrices(matrixA, matrixB)
DisplayMatrix(diffResult)
Console.WriteLine(vbCrLf & "Multiplication (A * B):")
Dim multResult(1, 1) As Integer = MultiplyMatrices(matrixA, matrixB)
DisplayMatrix(multResult)
' Wait for user input before closing
Console.WriteLine(vbCrLf & "Press any key to exit...")
Console.ReadKey()
End Sub
Sub DisplayMatrix(matrix(,) As Integer)
For i As Integer = 0 To 1
For j As Integer = 0 To 1
Console.Write(matrix(i, j) & vbTab)
Next
Console.WriteLine()
Next
End Sub
Function AddMatrices(A(,) As Integer, B(,) As Integer) As Integer(,)
Dim result(1, 1) As Integer
For i As Integer = 0 To 1
For j As Integer = 0 To 1
result(i, j) = A(i, j) + B(i, j)
Next
Next
Return result
End Function
Function SubtractMatrices(A(,) As Integer, B(,) As Integer) As Integer(,)
Dim result(1, 1) As Integer
For i As Integer = 0 To 1
For j As Integer = 0 To 1
result(i, j) = A(i, j) - B(i, j)
Next
Next
Return result
End Function
Function MultiplyMatrices(A(,) As Integer, B(,) As Integer) As Integer(,)
Dim result(1, 1) As Integer
'Matrix multiplication logic for 2x2 matrices
result(0, 0) = A(0, 0) * B(0, 0) + A(0, 1) * B(1, 0)
result(0, 1) = A(0, 0) * B(0, 1) + A(0, 1) * B(1, 1)
result(1, 0) = A(1, 0) * B(0, 0) + A(1, 1) * B(1, 0)
result(1, 1) = A(1, 0) * B(0, 1) + A(1, 1) * B(1, 1)
Return result
End Function
End Module

15. Design and code to check wheather the entered no. is armstrong and
palindrome or not in vb.net.

Public Class Form1


Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
Dim input As String = txtNumber.Text
Dim number As Integer

' Try to convert input to an integer


If Integer.TryParse(input, number) Then
Dim isArmstrong As Boolean = CheckArmstrong(number)
Dim isPalindrome As Boolean = CheckPalindrome(number)

' Display results


Dim result As String = $"Is Armstrong: {isArmstrong}" & Environment.NewLine &
$"Is Palindrome: {isPalindrome}"
MessageBox.Show(result)
Else
MessageBox.Show("Please enter a valid integer.")
End If
End Sub
Private Function CheckArmstrong(num As Integer) As Boolean
Dim sum As Integer = 0
Dim digits As Integer = num.ToString().Length

Dim temp As Integer = num


While temp > 0
Dim digit As Integer = temp Mod 10
sum += Math.Pow(digit, digits)
temp \= 10
End While

Return sum = num


End Function

Private Function CheckPalindrome(num As Integer) As Boolean


Dim original As String = num.ToString()
Dim reversed As String = StrReverse(original)

Return original = reversed


End Function
End Class

16. Design and code an application for dynamic array that accept array for the
user and add it to a list box. preserve the values by selecting checkbox in vb.net

Public Class Form1


Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim input As String = txtInput.Text.Trim()

If Not String.IsNullOrEmpty(input) Then


' Split the input string into an array (by comma for example)
Dim values As String() = input.Split(","c)
' Add values to the ListBox
For Each value As String In values
Dim trimmedValue As String = value.Trim()
If Not lstItems.Items.Contains(trimmedValue) AndAlso Not
String.IsNullOrEmpty(trimmedValue) Then
lstItems.Items.Add(trimmedValue)
End If
Next

' Clear the TextBox after adding


txtInput.Clear()
End If
End Sub

Private Sub lstItems_SelectedIndexChanged(sender As Object, e As EventArgs) Handles


lstItems.SelectedIndexChanged
' Clear the checked list box
clbPreservedValues.Items.Clear()

' Add the selected items to the checked list box


For Each item As Object In lstItems.SelectedItems
clbPreservedValues.Items.Add(item, True) ' Check by default
Next
End Sub
End Class

You might also like