FEDTI Practical file

Year : 2
( III - sem)

Q1. Design an interface to calculate the Simple Interest?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim principal, years As Integer
Dim rate, intrest, ammount As Integer

principal = [Link]
years = [Link]
rate = [Link]
intrest = (principal * years * rate) / 100
[Link] = intrest

End Sub
Q2. Write a program to convert Fahrenheit to Celsius?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim f, c, x As Double
f = [Link]
x = (f - 32) * 5 / 9
[Link] = x
[Link] = 10
End Sub
Q3. Design an interface for take input 5 subjects marks & calculate total marks, average and
grade?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim a, b As Integer
Dim s1, s2, s3, s4, s5 As Integer

s1 = [Link]
s2 = [Link]
s3 = [Link]
s4 = [Link]
s5 = [Link]

a = s1 + s2 + s3 + s4 + s5
b=a/5
[Link] = a
[Link] = b

End Sub
Q4. Design an interface to find the greatest number out of three?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim a, b, c, x As Integer
a = [Link]
b = [Link]
c = [Link]
If a > b And a > c Then
x=a
ElseIf b > c Then
x=b
Else
x=c
End If
 [Link] = x

End Sub

Q5. Design an interface to find the number is odd or even?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim n As Integer
Dim a As String
n = [Link]
If n Mod 2 = 0 Then
a = "Eaven number"
Else
a = "odd number"
 End If
[Link] = a

End Sub

Ques6. Write a program to calculate the grade by taking input of percentage using
input box & display grade using msgbox.

Public Class Form9

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim per As Integer
Dim grade As String
per = [Link](InputBox("Enter percentage", "To calculate grade", "0"))
If per >= 90 Then
 grade = "A"
ElseIf (per < 90 And per >= 75) Then
grade = "B"
ElseIf (per < 75 And per >= 65) Then
grade = "C"
ElseIf (per < 65 And per >= 50) Then
grade = "D"
Else
grade = "E"
End If
MsgBox("Grade is " & grade)
End Sub
End Class
Ques7. Design an interface to find the factorial of a given number.

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim a, fact As Integer
fact = 1
a = [Link]
For i = 1 To a
fact = fact * i
Next
[Link] = fact
End Sub
End Class
Q8. Design an interface that determines that number is prime or not?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim n, x As Integer
Dim a As String
n = [Link]
For x = 2 To (n - 1)
If n Mod x = 0 Then
a = "non prime"
Else
a = "prime"
End If
Exit For
Next
[Link] = a

End Sub
Ques9. Design an interface to reverse the number using do-while loop.

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim a, rev, b As Integer
rev = 0
a = [Link]
b=a
Do While (b > 0)
Dim d As Integer = 0
d = b Mod 10
rev = rev * 10 + d
b = b \ 10
Loop
[Link] = rev
 End Sub
End Class

Ques10. Read number till user enter zero and display the sum of odd and even
numbers.

Public Class Form14

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim i, o, q As Integer
Dim s As String
i=0
q = InputBox("Enter number for read else enter 0: ")
Do While q <> 0
s=s&""&q
If q Mod 2 = 0 Then
i=q+i
Else
o=o+q
End If
q = InputBox("Enter 0 for exit")
Loop
[Link] = s
[Link] = o
[Link] = i
End Sub
End Class
Ques11. Write a program to determine the number is palindrome of a number.

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim sum = 0, r, n, temp As Integer
n = [Link]([Link])
temp = n
While (n > 0)
r = n Mod 10
sum = (sum * 10) + r
n = n / 10
End While
If (temp = sum) Then
MsgBox("It is a Palindrome number.")
Else
MsgBox("Not a palindrome")
End If

End Sub
End Class
Ques12. Write a program that print all the prime numbers between 1 and 500.

Module Module13
Sub main()
Dim i As Integer
Dim j As Integer
Dim flag As Integer
flag = 0
For i = 2 To 500
For j = 2 To i - 1
If (i Mod j = 0) Then
flag = 1
Exit For
Else
flag = 0
End If
Next j
 If flag = 0 Then
[Link](i)
End If
Next i
[Link]()
End Sub
End Module
Ques13. Write a program to find the maximum in list of numbers.

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim a(6) As Integer
Dim i As Integer
Dim s As String
Dim max As Integer
For i = 0 To 6
a(i) = [Link](InputBox("Enter the number"))
s = s & " " & a(i)
Next i
[Link] = s
max = a(0)
For i = 0 To 6
If (a(i) > max) Then
max = a(i)
End If
Next
[Link] = max
End Sub
End Class
Ques14. Write a program for the following

5 6 7 5 4 9 10 6

25 12 49 25 8 81 20 12

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim a(7), b, c, d As Integer
Dim s, x As String
For b = 0 To 7
a(b) = InputBox("enter the number")
s = s & " " & a(b)
Next
[Link] = s
For d = 0 To 7
If a(d) Mod 2 = 0 Then
c = a(d) * 2
[Link] = c
x=x&""&c
Else
c = a(d) * a(d)
[Link] = c
x=x&""&c

End If
Next
[Link] = x

End Sub
End Class
Ques15. Write a program to find the occurrences of a given number in a list of
numbers.

Module Program
Sub main()
Dim a(7) As Integer
Dim i, count, n As Integer
[Link]("Enter the numbers of list")
For i = 0 To 7
a(i) = [Link]([Link]())
Next
[Link]("Enter the number")
n = [Link]([Link]())
count = 0
For i = 0 To 7
If (a(i) = n) Then
count = count + 1
End If
Next
[Link]("Ocuurences : {0}", count)
[Link]()
End Sub
End Module
Ques16. Write a program to insert an element in an array.

Module Program
Sub main()
Dim a() As Integer = {765, 126, 3, 4, 2, 37, 93}
Dim pos, n As Integer
[Link]("Elemets in array")
For i = 0 To 6
[Link](a(i))
Next
[Link]("Enter the position to insert an elmenet")
pos = [Link]([Link]())
[Link]("Enter the elment want to insert :")
n = [Link]([Link]())
ReDim Preserve a(7)
For i = 6 To pos Step -1
a(i + 1) = a(i)
Next
a(pos) = n
[Link]("Now array is :")
For i = 0 To 7
[Link](a(i))
Next
[Link]()
End Sub
End Module
Ques17. Write a program to sort the array of numbers.

Module Program
Sub Main()
Dim a() As Integer = {84, 354, 6683, 2386, 9652, 8624}
Dim i, j, t As Integer
[Link]("Before sorting")
For i = 0 To UBound(a)
[Link](a(i))
Next
For i = 0 To UBound(a)
For j = 0 To UBound(a)
If (a(i) > a(j)) Then
t = a(i)
a(i) = a(j)
a(j) = t

End If
Next
Next
[Link]("After sorting")
For i = 0 To UBound(a)
[Link](a(i))
Next
[Link]()
End Sub
End Module
Ques18. Design an interface to show the different functions of strings.

Module Program
Sub Main()
Dim str1, str2 As String
str1 = "Hello"
str2 = "world"
[Link]("String 1 : " & str1)
[Link]("String 2 : " & str2)
[Link]("Comaprision of two string : ")
If ([Link](str1, str2) = 0) Then
[Link](str1 & " " & str2 & " are equal")
Else
[Link](str1 & " " & str2 & "are not equal")
End If
[Link]("Concatation of two string :")
[Link]("str1+str2 : " & [Link](str1, str2))
Dim str3 As String
str3 = [Link](str1)
[Link]("Copy str1 to str3 " & str3)
[Link]("Convert str1 to lowercase : " & [Link])
[Link]("conver str2 to uppercase : " & [Link])
[Link]()
End Sub
End Module
Ques19. Write a sub procedure that takes a number as a parameter and display the
sum of digits of the number.

Module Program
Sub main()
Dim n As Integer
[Link]("Enter a number ")
n = [Link]([Link]())
sum(n)
[Link]()
End Sub
Public Sub sum(ByVal n As Integer)
Dim s As Integer = 0
While n > 0
Dim digit As Integer
digit = n Mod 10
s = s + digit
n = n \ 10
End While
[Link]("Sum of digits of number : " & s)
End Sub
End Module
Ques20. Write a function that takes 2 numbers and one string (operator) as parameter
and perform the operation according to the operation according to the operator and
then return the result.

Module Program
Sub main()
Dim a, b As Integer
Dim s As String
[Link]("Enter a : ")
a = [Link]([Link]())
[Link]("Enter b : ")
b = [Link]([Link]())
[Link]("Enter the operator : ")
s = [Link]()
per(a, b, s)
[Link]()

End Sub
Public Function per(ByVal a As Integer, ByVal b As Integer, ByVal s As String)
Dim res As Integer
Select Case (s)
Case "+"
res = a + b
Case "-"
res = a - b
Case "*"
res = a * b
Case "/"
res = a / b
Case Else
[Link]("No operation to be performed")
End Select
[Link]("result = " & res)
End Function
End Module
Ques21. Write an example of named argument.

Module Program
Sub main()
Dim a As String
Dim b As Integer
show(a:="Sunil", b:=1324)
[Link]()
End Sub
Public Function show(ByVal b As Integer, ByVal a As String)
[Link]("Code : " & b)
[Link]("Name : " & a)
End Function
End Module
Ques22. Define a class employee with the following specifications:

Private members of class employee

Empno : Integer Ename : 20 Characters

Basic, HRA, DA : Float Net Pay: Float

Calculate() : a function to find basic+hra+da with float return type.

Public members functions of class employee

Havedata() : to accept values for empno, empname, basic, hra, da and invoke
calculate() to calculate net pay.

Module Module5
Class employee
Private empno As Integer
Private ename As String
Private basic, hra, da, netpay As Decimal
Private Function calculate(ByVal basic As Decimal, ByVal hra As Decimal, ByVal da As
Decimal) As Decimal
netpay = basic + hra + da
Return netpay
End Function
Public Function havedata()
[Link]("Enter employee no : ")
empno = [Link]([Link]())
[Link]("Enter employee name : ")
ename = [Link]()
 [Link]("Enter basic : ")
basic = [Link]([Link]())
[Link]("Enter HRA : ")
hra = [Link]([Link]())
[Link]("Enter DA : ")
da = [Link]([Link]())
calculate(basic, hra, da)
[Link]("Netpay : " & netpay)
End Function
End Class
Sub main()
Dim emp As employee = New employee()
[Link]()
[Link]()
End Sub
End Module

Ques23. Create a class called item with the data Members:- itemcode, iname, price,
qty and the following methods:
a) Parameterized
b) Get information
c) Display information
d) Calculate bill

Module Module6
Class item
Private itemcode As Integer
Private iname As String
Private qty As Integer
 Private price As Integer
Public Sub New()
End Sub
Public Sub New(ByVal a As Integer, ByVal b As String, ByVal c As Integer, ByVal d
As Integer)
itemcode = a
iname = b
qty = c
price = d
End Sub
Public Function getdata()
[Link]("Enter item code : ")
itemcode = [Link]([Link]())
[Link]("Enter item name : ")
iname = [Link]()
[Link]("Enter quantity : ")
qty = [Link]([Link]())
[Link]("Enter price : ")
price = [Link]([Link]())
End Function
Public Function display()
[Link](vbCrLf & "Item code : " & itemcode)
[Link]("Item name : " & iname)
[Link]("Quantity : " & qty)
[Link]("Price: " & price)
End Function
Public Function bill()
Dim total As Integer
total = qty * price
[Link](vbCrLf & "Bill : " & total)
End Function
End Class
Sub main()
Dim i As item = New item(12, "Waffers", 3, 30)
[Link]()
[Link]()
[Link]()
[Link]()
End Sub
End Module
Ques24. Write an example of shared variables and shared constructor.

Module Module7
Class A
Public Shared num As Integer
Shared Sub New()
num = 10
[Link]("Num=" & num)
End Sub
Public Shared Function getdata() As Integer
Return num
End Function
End Class
Sub main()
Dim ob As A = New A()
[Link]()
End Sub
End Module
Ques25. Write a program to create a base class car containing the following
members:

Protected: Carname

Public: Member functions to input and print out the data Create a derived class Maruti
containing the following members:

Private: Registration fee

Public:

Readdata(), Showdata()

Make object of Maruti class and ask the user to fill the data with showdata().

Module Module8
Public Class car
Protected carname As String
Public Function getdata()
[Link]("Enter car name : ")
carname = [Link]()
End Function
Public Function display()
[Link]("Car name : " & carname)
End Function
End Class
Public Class maruti : Inherits car
Private reg As Integer
Public Function readdata()
[Link]("Enter registration fees : ")
reg = [Link]([Link]())
End Function
Public Function showdata()
[Link]("Registrationfees : " & reg)
End Function
End Class
Sub main()
Dim ob As maruti = New maruti()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
End Sub
End Module
Ques26. WAP to implement of listbox, combobox, checkbox, radiobutton,
datetimepicker, richtextbox tools in your form.

Listbox -

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles [Link]
[Link]("Rahul")
[Link]("Anjali")
[Link]("Raj")
 [Link]("Nikita")
[Link]("Tina")
[Link]("Anu")
[Link]("Aman")
[Link]("Manish")
[Link]("Himanshi")
[Link]("Virat")
[Link]("Samrat")
[Link]("Karishma")
[Link]("Mohit")
[Link] = True
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
Handles [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
End Sub
End Class
Combobox –

Public Class Form3

Dim players() As String = {"David", "sachin", "kapil", "Laxman", "Ganguly"}
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim i As Integer
[Link]()
[Link]()
[Link]()
For i = 0 To UBound(players)
[Link](players(i))
[Link](players(i))
[Link](players(i))
Next
[Link]()
[Link]()
[Link]()
End Sub
End Class

Checkbox –

Public Class Form4

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles [Link]
[Link]("Rahul")
[Link]("Anjali")
[Link]("Raj")
[Link]("Nikita")
[Link]("Tina")
[Link]("Anu")
[Link]("Aman")
[Link]("Manish")
 [Link]("Himanshi")
[Link]("Virat")
[Link]("Samrat")
[Link]("Karishma")
[Link]("Mohit")
End Sub
Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As
EventArgs) Handles [Link]
[Link] = [Link]
End Sub
End Class

RadioButton -

Public Class Form1

Dim sub1, sub2, sub3, tot As Integer
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles
[Link]
If Len([Link]) > 0 Then
sub1 = [Link]([Link])
End If
If Len([Link]) > 0 Then
sub2 = [Link]([Link])
End If
If Len([Link]) > 0 Then
sub3 = [Link]([Link])
End If
tot = sub1 + sub2 + sub3
[Link] = tot
End Sub
 Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles
[Link]
If Len([Link]) > 0 Then
sub1 = [Link]([Link])
End If
If Len([Link]) > 0 Then
sub2 = [Link]([Link])
End If
If Len([Link]) > 0 Then
sub3 = [Link]([Link])
End If
tot = sub1 + sub2 + sub3
[Link] = tot
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]
End Sub
Private Sub TextBox5_Leave(sender As Object, e As EventArgs) Handles
[Link]
sub1 = [Link]([Link])
sub2 = [Link]([Link])
sub3 = [Link]([Link])
tot = sub1 + sub2 + sub3
[Link] = tot
End Sub
End Class
DateTime Picker-

Public Class Form2

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs)
Handles [Link]
[Link] = [Link]
End Sub
End Class

RichTextbox-

Public Class Form3

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]("[Link]")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]("[Link]")
End Sub
End Class
Ques27. Write an example of function overloading.

Module Program
Sub main()
[Link]("integer maximum ={0}", max(2, 13))
[Link]("double maximum={0}", max(5.6, 24.99))
[Link]()
End Sub
Public Function max(ByVal x As Integer, ByVal y As Integer) As Integer
If x > y Then
Return x
Else
Return y
End If
End Function
Public Function max(ByVal x As Double, ByVal y As Double) As Double
If x > y Then
Return x
Else
Return y
End If
End Function
End Module
Ques28. Write an example of function overriding.

Module Program
Public Class first
Public Overridable Sub display(ByVal a As Integer, ByVal b As Integer)
Dim result As Integer
result = a + b
[Link]("Result is " & result)
End Sub
Public Overloads Sub area(ByVal l As Integer)
Dim cal As Integer
cal = l * l
[Link]("Area is " & cal)
End Sub
End Class
Public Class second
Inherits first
Public Overrides Sub display(ByVal a As Integer, ByVal b As Integer)
Dim result As Integer
result = a - b
[Link]("Result is " & result)
[Link](23, 45)
End Sub
Public Overloads Sub area(ByVal l As Integer, ByVal b As Integer)
Dim cal As Integer
cal = l * b
[Link]("Area is " & cal)
End Sub
End Class
Sub main()
Dim ob As second = New second()
[Link](10, 20)
[Link](10)
[Link](56, 78)
[Link]()
End Sub
End Module

Ques29. Write a program to create an interface.

Module Program
Interface istudent
Sub details(ByVal y As String)
End Interface
Class student
Implements istudent
Public Sub details(y As String) Implements [Link]
'Throw New NotImplementedException()
[Link]("Name of student : {0}", y)
End Sub
End Class
Class student1
Implements istudent
Public Sub details(y As String) Implements [Link]
'Throw New NotImplementedException()
[Link]("Cousre : {0}", y)
End Sub
End Class
Sub main()
Dim std As student = New student()
 [Link]("Kashish")
Dim std1 As student1 = New student1()
[Link]("LLB")
[Link]()
End Sub
End Module

Ques30. Write a program to show login form.

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim a, b As String
a = [Link]
b = [Link]

If a = "Abc" And b = 0000" Then

MsgBox("Hey! ABC")
Else
MsgBox("sorry try again")
End If
End Sub

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

[Link]

End Sub
 Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles
[Link]

End Sub
End Class

Ques31. Write a program to change the color of the form using progress bar.

Public Class color

Private this As Object

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]

If [Link] = 100 Then

[Link] = False
Else [Link] = [Link] + 1

End If
End Sub
End class
Ques32. Write a program to show various functions of lists.

Module Program
Sub main()
Dim lt As List(Of Integer) = New List(Of Integer)
[Link](70)
[Link](60)
[Link](35)
[Link](75)
[Link](95)
Dim i As Integer
[Link]("Elements in list : " & vbCrLf)
For Each i In lt
[Link]("{0} ", i)
Next
[Link](vbCrLf & vbCrLf & "Insert element 85 in list : ")
[Link](5, 85)
For Each i In lt
[Link]("{0} ", i)
Next
[Link]()
[Link](vbCrLf & vbCrLf & "Sorting of list :")
For Each i In lt
[Link]("{0} ", i)
Next
[Link](70)
[Link](vbCrLf & vbCrLf & "After removing elemet 70 :")
For Each i In lt
[Link]("{0} ", i)
Next
[Link](vbCrLf & vbCrLf & "Reverse elements of list : ")
[Link]()
For Each i In lt
[Link]("{0} ", i)
Next
[Link]()
End Sub
End Module
Ques33. Write a program to generate bill of restaurant.

Public Class bill_input

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim x, c, sd, s, d, t As Integer
Dim n As String
c = [Link]
sd = [Link]
s = [Link]
d = [Link]
n = [Link]
x = (c * 450) + (sd * 50) + (150 * s) + (400 * d)
If [Link] = True Then
t = x - (x * 0.2)
ElseIf [Link] = True Then
t = x - (x * 0.3)
End If
MsgBox(n & " your sum total is =" & t)
End Sub
End Class
Ques34. Create a menu bar which contains (cut, copy, paste) and style (bold, italic
and underline).

Public Class Form1

Private this As Object

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

[Link]
If [Link] <> "" Then
[Link]([Link])
End If

End Sub

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

[Link]
If [Link] <> "" Then
[Link]([Link])
[Link] = ""
End If
End Sub

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

[Link]
[Link] = [Link]
End Sub

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

[Link]
 [Link] = New Font([Link], [Link],
[Link])
[Link] = New Font([Link], [Link],
[Link])

End Sub

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

[Link]

[Link] = New Font([Link], [Link],

[Link])
[Link] = New Font([Link], [Link],
[Link])
End Sub

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

[Link]

[Link] = New Font([Link], [Link],

[Link])
[Link] = New Font([Link], [Link],
[Link])
End Sub

Private Sub UnderlineToolStripMenuItem_Click(sender As Object, e As EventArgs)

Handles [Link]
[Link] = New Font([Link], [Link],
[Link])
[Link] = New Font([Link], [Link],
[Link])
End Sub
End Class
Ques35. Write a program to increase font size using scrollbar.
Public Class size
Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles
[Link]
Dim mysize As Integer
mysize = [Link]
[Link] = New [Link]("", mysize)
End Sub