Notesale: Turn your study into money

Document Preview

Extracts from the notes are below, to see the PDF you'll receive please use the links above

---

CMS COLLEGE OF SCIENCE & COMMERCE
(AUTONOMOUS)
(Affiliated to Bharathiar University)
An ISO 9001: 2008 Certified Institution and Reaccredited by NAAC at the ‘A’ level with a
CGPA of 3
...


SCHOOL OF COMPUTER SCIENCE

PRACTICAL RECORD

VISUAL BASIC
...
Sc
...
53 out of 4
Chinnavedampatti-Coimbatore-641 049
...
Sc
...


……
...

Director

Submitted for the Practical Examination held on ___________at CMS College of
Science& Commerce, Coimbatore-641 049


...

External Examiner

INDEX

S
...
WriteLine("Enter First Number:")
a = Console
...
WriteLine("Enter Second Number:")
b = Console
...
WriteLine("Enter the Charater:")
d = Console
...
WriteLine(c)
End While
End Sub

Output:-

Fibonacci Series Using Console Application
Aim : Write a console application for finding Fibonacci series
...

For i As Integer = 0 To n - 1
Dim temp As Integer = a
a=b
b = temp + b
Next
Return a
End Function
Sub Main()
'display first 10 fibonacci numbers
...
WriteLine(Fibonacci(i))
Return
Next
End Sub
End Module

Output:0
1
1
2
3
5
8
13
21
34
55

NOTEPAD APPLICATION
Aim: Develop a window application for a notepad
Algorithm:
#1: Start the process
#2: Open windows application in Visual Studio with language C#
#3: Design the Form similar to a notepad application
#4: Give coding to the application
#5: Run and Display the Output
#6: Stop the process

Public Class Form1
Dim x As Integer
Private Sub MenuStrip1_ItemClicked(ByVal sender As System
...
Windows
...
ToolStripItemClickedEventArgs)
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System
...
EventArgs)
SaveFileDialog1
...
ShowDialog()
If SaveFileDialog1
...
SaveFile(SaveFileDialog1
...
PlainText)
Form1
...
Text = SaveFileDialog1
...
Object, ByVal e As
System
...
Click
RichTextBox1
...
Object, ByVal e As
System
...
Click
RichTextBox1
...
Object, ByVal e As
System
...
Click
RichTextBox1
...
Object, ByVal e As
System
...
Click
RichTextBox1
...
Object, ByVal e As
System
...
Click
RichTextBox1
...
Object, ByVal e As
System
...
Click
FontDialog1
...
Font = FontDialog1
...
Object, ByVal e As
System
...
Click
ColorDialog1
...
ForeColor = ColorDialog1
...
Object, ByVal e As
System
...
Click
OpenFileDialog1
...
txt)|*
...
ShowDialog()
If OpenFileDialog1
...
LoadFile(OpenFileDialog1
...
PlainText)
Form1
...
Text = OpenFileDialog1
...
Object, ByVal e As
System
...
Click
If RichTextBox1
...
YesNo)
End If
If x = vbYes Then
SaveAsToolStripMenuItem
...
Text = "untitld"
RichTextBox1
...
Text = "untitld"
RichTextBox1
...
Object, ByVal e As
System
...
Click
SaveFileDialog1
...
ShowDialog()
If SaveFileDialog1
...
SaveFile(SaveFileDialog1
...
PlainText)
Form1
...
Text = SaveFileDialog1
...
Object, ByVal e As
System
...
Click
SaveFileDialog1
...
ShowDialog()
If SaveFileDialog1
...
SaveFile(SaveFileDialog1
...
PlainText)
Form1
...
Text = SaveFileDialog1
...
Object, ByVal e As
System
...
Click
Application
...
Object, ByVal e As System
...
Click
TextBox1
...
Text + Button1
...
Text)
End Sub
Private Sub Button2_Click(ByVal sender As System
...
EventArgs) Handles
Button2
...
Text = TextBox1
...
Text
c = Val(TextBox1
...
Object, ByVal e As System
...
Click
TextBox1
...
Text + Button3
...
Text)
End Sub
Private Sub Button4_Click(ByVal sender As System
...
EventArgs) Handles
Button4
...
Text = TextBox1
...
Text
c = Val(TextBox1
...
Object, ByVal e As System
...
Click
TextBox1
...
Text + Button5
...
Text)
End Sub
Private Sub Button6_Click(ByVal sender As System
...
EventArgs) Handles
Button6
...
Text = TextBox1
...
Text
c = Val(TextBox1
...
Object, ByVal e As System
...
Click
TextBox1
...
Text + Button9
...
Text)
End Sub
Private Sub Button10_Click(ByVal sender As System
...
EventArgs) Handles
Button10
...
Text = TextBox1
...
Text
c = Val(TextBox1
...
Object, ByVal e As System
...
Click
TextBox1
...
Text + Button11
...
Text)
End Sub
Private Sub Button14_Click(ByVal sender As System
...
EventArgs) Handles
Button14
...
Text = TextBox1
...
Text
c = Val(TextBox1
...
Object, ByVal e As System
...
Click
c = -c
TextBox1
...
Object, ByVal e As System
...
Click
TextBox1
...
Object, ByVal e As System
...
Click
p=c
S = "+"
TextBox1
...
Object, ByVal e As System
...
Click
p=c
S = "-"
TextBox1
...
Object, ByVal e As System
...
Click
p=c
S = "*"
TextBox1
...
Object, ByVal e As System
...
Click
p=c
S = "/"
TextBox1
...
Object, ByVal e As System
...
Click
Select Case (S)
Case "+"
r=p+c
c=r
Case "-"
r=p-c
c=r
Case "*"
r=p*c
c=r
Case "/"
r=p/c
c=r
End Select
TextBox1
...
net using oledb connection
#5: Perform operations for the Employee Payroll Application
#6: Run and Display the Output
#7: Stop the Process

Login
...
Click
If TextBox1
...
Text = "admin" Then
Me
...
Show()
Else
MsgBox("Error In Login")
End If
End Sub
End Class
Menu1
...
Click
Me
...
Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2
...
Hide()
Form2
...
vb
Imports System
...
Data
...
Jet
...
4
...
net\emp\emp
...
Load
'TODO: This line of code loads data into the 'EmpDataSet
...
You can move, or remove it,
as needed
...
NewTableAdapter
...
EmpDataSet
...
Click
con
...
Text & "','" & TextBox2
...
Text & "','" & TextBox4
...
Text & "','" & TextBox6
...
ExecuteNonQuery()
MsgBox("Saved")
con
...
Click
con
...
Text & "',age='" &
TextBox3
...
Text & "',address='" & TextBox5
...
Text & "' WHERE empid='" & TextBox1
...
ExecuteNonQuery()
MsgBox("Updated")
con
...
Click
Me
...
Show()
End Sub
End Class
Form2
...
Data
Imports System
...
OleDb
Public Class Form2
Dim con As New OleDbConnection("Provider=Microsoft
...
OLEDB
...
0;Data Source=E:\Program
Files\vb
...
mdb")
Dim cmd As New OleDbCommand
Dim dread As OleDbDataReader
Dim flag As Integer
Dim rno As String

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button2
...
Open()
rno = InputBox("Enter customer id to be searched", "find")
cmd = New OleDbCommand("select * from new where empid='" & rno & "'", con)
dread = cmd
...
HasRows = True Then
dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Close()
Else
MsgBox("the given no not found")
dread
...
Message)
End Try
con
...
Click
con
...
Text & "' ", con)
cmd
...
Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3
...
Hide()
menu1
...
net using oledb connection
#5: Perform operations for the Inventory System Application
#6: Run and Display the Output
#7: Stop the Process

Imports System
...
Data
...
Jet
...
4
...
mdb")
Dim cmd As New OleDbCommand
Dim dread As OleDbDataReader
Dim flag As Integer
Dim rno As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1
...
Open()
cmd = New OleDbCommand("INSERT INTO new VALUES ('" & TextBox1
...
Text
& "','" & TextBox3
...
Text & "','" & TextBox5
...
Text & "')",
con)
cmd
...
Click
con
...
Text & "' WHERE cid='" &
TextBox1
...
ExecuteNonQuery()
MsgBox("Saved")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3
...
Open()
cmd = New OleDbCommand("delete from new where cid='" & TextBox1
...
ExecuteNonQuery()
MsgBox("deleted")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4
...
Open()
rno = InputBox("Enter customer id to be searched", "find")
cmd = New OleDbCommand("select * from new where cid='" & rno & "'", con)
dread = cmd
...
HasRows = True Then
dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Text = dread
...
Close()
Else
MsgBox("the given no not found")
dread
...
Message)
End Try
con
...
net using oledb connection
#5: Perform operations for the Employee Payroll Application
#6: Run and Display the Output
#7: Stop the Process

Login Page Coding :
Public Class Form1
Private Sub Button2_Click(ByVal sender As System
...
EventArgs) Handles Button2
...
Object, ByVal e As System
...
Click
If TextBox1
...
Text = "domain" Then
Form2
...
Object, ByVal e As System
...
Click
Form3
...
Object, ByVal e As System
...
Click
Form4
...
Object, ByVal e As System
...
Load
'TODO: This line of code loads data into the 'HospitalDataSet
...
You can move, or remove it, as
needed
...
PatTableAdapter
...
HospitalDataSet
...
Object, ByVal e As System
...
Click
End
End Sub
Private Sub Button3_Click(ByVal sender As System
...
EventArgs) Handles Button3
...
RemoveCurrent()
End Sub
Private Sub Button2_Click(ByVal sender As System
...
EventArgs) Handles Button2
...
EndEdit()
PatTableAdapter
...
pat)
End Sub

Private Sub Button1_Click_1(ByVal sender As System
...
EventArgs) Handles
Button1
...
AddNew()
End Sub
Private Sub Button5_Click(ByVal sender As System
...
EventArgs) Handles Button5
...
MoveNext()
End Sub
Private Sub Button4_Click(ByVal sender As System
...
EventArgs) Handles Button4
...
MoveFirst()
End Sub
End Class

Doctor Coding :
Public Class Form4
Private Sub Form4_Load(ByVal sender As System
...
EventArgs) Handles MyBase
...
doc' table
...

Me
...
Fill(Me
...
doc)
End Sub
Private Sub Button1_Click(ByVal sender As System
...
EventArgs) Handles Button1
...
AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System
...
EventArgs) Handles Button2
...
EndEdit()
DocTableAdapter
...
doc)
End Sub
Private Sub Button3_Click(ByVal sender As System
...
EventArgs) Handles Button3
...
EndEdit()
End Sub
Private Sub Button4_Click(ByVal sender As System
...
EventArgs) Handles Button4
...
MoveFirst()
End Sub
Private Sub Button5_Click(ByVal sender As System
...
EventArgs) Handles Button5
...
MoveNext()
End Sub
Private Sub Button6_Click(ByVal sender As System
...
EventArgs) Handles Button6
...
net using oledb connection
#5: Perform operations for the Employee Payroll Application
#6: Run and Display the Output
#7: Stop the Process

FORM
Public Class Form1
Private Sub Form1_Load(ByVal sender As System
...
EventArgs) Handles
MyBase
...
student' table
...

Me
...
Fill(Me
...
student)
End Sub
Private Sub Button2_Click(ByVal sender As System
...
EventArgs) Handles
Button2
...
RemoveCurrent()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System
...
EventArgs)
Handles TextBox1
...
Object, ByVal e As System
...
TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System
...
EventArgs) Handles
Button1
...
AddNew()
End Sub
Private Sub Button3_Click(ByVal sender As System
...
EventArgs) Handles
Button3
...
EndEdit()
StudentTableAdapter
...
student)

End Sub
Private Sub Button4_Click(ByVal sender As System
...
EventArgs) Handles
Button4
...
Show()
End Sub

End Class

FORM2
Public Class Form2
Private Sub Form2_Load(ByVal sender As System
...
EventArgs) Handles
MyBase
...
marks' table
...

Me
...
Fill(Me
...
marks)
End Sub
Private Sub Button2_Click(ByVal sender As System
...
EventArgs) Handles
Button2
...
EndEdit()
MarksTableAdapter
...
marks)

End Sub
Private Sub Button3_Click(ByVal sender As System
...
EventArgs) Handles
Button3
...
RemoveCurrent()
End Sub
Private Sub Button1_Click(ByVal sender As System
...
EventArgs) Handles
Button1
...
AddNew()

End Sub
Private Sub Button4_Click(ByVal sender As System
...
EventArgs) Handles
Button4
...
Show()
End Sub
End Class

FORM3
Public Class Form3

Private Sub Button1_Click(ByVal sender As System
...
EventArgs) Handles
Button1
...
Show()
End Sub
Private Sub Form3_Load(ByVal sender As System
...
EventArgs) Handles
MyBase
...
Object, ByVal e As System
...
Click
Form2
...
Object, ByVal e As System
...
Click
End Sub
End Class

Output:-

LIBRARY MANAGEMENT SYSTEM
Aim : Develop a project for library management system
Algorithm :
#1: Start the process
#2: Design Windows Application in Visual Studio using tools available in toolbox
#3: Create Database in MS Access
#4: Connect database to VB
...
EventArgs)
Handles ComboBox1
...
SelectedItem = "science"Then
ComboBox2
...
SelectedItem = "history" Then
ComboBox2
...
SelectedItem = "astrology"Then
ComboBox2
...
SelectedItem = "nature"Then
ComboBox2
...
Object, ByVal e As System
...
Click
dt = DataSet11
...
NewRow()
dr(0) = ComboBox1
...
Text
dr(2) = TextBox1
...
Text
dr(4) = TextBox3
...
Text
dr(6) = DateTimePicker2
...
Rows
...
Update(DataSet11, "mass")
OdbcDataAdapter1
...
Text = ""
ComboBox2
...
Text = ""
TextBox2
...
Text = ""
DateTimePicker1
...
Text = ""
EndSub
PrivateSub Form2_Load(ByVal sender As System
...
EventArgs)
HandlesMyBase
...
Fill(DataSet11, "mass")
OdbcConnection1
...
BindingContext(DataSet11, "mass"))
rp
...
AcceptChangesDuringFill = True
OdbcDataAdapter1
...
Object, ByVal e As
System
...
Forms
...
Object, ByVal e As System
...
Click
dt = DataSet11
...
Rows
...
Text)
dr
...
Text
dr(1) = ComboBox1
...
Text
dr(3) = TextBox2
...
Text
dr(5) = DateTimePicker1
...
Text
dr
...
Update(DataSet11, "mass")
OdbcDataAdapter1
...
Object, ByVal e As System
...
Click
dt = DataSet11
...
Rows
...
Text)
dr
...
Update(DataSet11, "mass")
OdbcDataAdapter1
...
Object, ByVal e As System
...
Click
rp
...
Object, ByVal e As System
...
Click
rp
...
Object, ByVal e As System
...
Click
rp
...
Object, ByVal e As System
...
Click
rp
...
Count - 1
EndSub
PrivateSub DataGridView1_CellContentClick_1(ByVal sender As System
...
Windows
...
DataGridViewCellEventArgs)
EndSub
PrivateSub Button9_Click(ByVal sender As System
...
EventArgs) Handles
Button9
...
Text = ""
ComboBox2
...
Text = ""
TextBox2
...
Text = ""
DateTimePicker1
...
Text = ""
EndSub
PrivateSub Button6_Click(ByVal sender As System
...
EventArgs) Handles
Button6
...
Show()
EndSub
EndClass

Output:-

SUPERMARKET AUTOMATION SYSTEM
Aim : Develop a project for supermarket automation system
Algorithm :
#1: Start the process
#2: Design Windows Application in Visual Studio using tools available in toolbox
#3: Create Database in MS Access
#4: Connect database to VB
...
vb
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2
...
Click
If TextBox1
...
Text = "admin" Then
Me
...
Show()
Else
MsgBox("Login Error")
End If
End Sub
End Class
Form2
...
Click
Me
...
Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1
...
Hide()
Form4
...
Click
Me
...
Show()
End Sub
End Class
Form3
...
Data
Imports System
...
OleDb
Public Class Form3
Dim con As New OleDbConnection("Provider=Microsoft
...
OLEDB
...
0;Data Source=D:\COLLEGE
WORKS\study\vb
...
mdb")
Dim cmd As New OleDbCommand
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1
...
Open()

cmd = New OleDbCommand("INSERT INTO new VALUES ('" & TextBox1
...
Text
& "','" & ComboBox1
...
Text & "','" & ComboBox3
...
Text &
"','" & TextBox4
...
Text & "')", con)
cmd
...
Close()
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase
...
pro' table
...

Me
...
Fill(Me
...
pro)
'TODO: This line of code loads data into the 'SuperDataSet1
...
You can move, or remove it,
as needed
...
ProTableAdapter1
...
SuperDataSet1
...
pro' table
...

Me
...
Fill(Me
...
pro)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2
...
Hide()
Form2
...
vb
Imports System
...
Data
...
Jet
...
4
...
net\programs\Projectsss\supermarket\super
...
Click
con
...
Text & "','" & TextBox2
...
Text & "','" & TextBox4
...
ExecuteNonQuery()
MsgBox("Saved")
con
...
Click

con
...
Text & "',company='" &
TextBox3
...
Text & "' WHERE product='" & TextBox1
...
ExecuteNonQuery()
MsgBox("Saved")
con
...
Click
con
...
Text & "' ", con)
cmd
...
Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4
...
Hide()
Form2
...
vb
Public Class Form5
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase
...
pro' table
...

Me
...
Fill(Me
...
pro)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1
...
Hide()
Form2
...
net using oledb connection
#5: Perform operations for the Employee Payroll Application
#6: Run and Display the Output
#7: Stop the Process

Form1
...
Click
If TextBox1
...
Text = "domain" Then
Me
...
Show()
Else
MsgBox("USERNAME AND PASSWORD IS NOT VALID")
End If
End Sub
Form2
...
Click
Me
...
Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2
...
Hide()
Form4
...
vb
Public Class Form3
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4
...
Click
Form2
...
Click
BookBindingSource
...
Update(RailwayDataSet
...
Click
BookBindingSource
...
Load
'TODO: This line of code loads data into the 'RailwayDataSet
...
You can move, or remove
it, as needed
...
BookTableAdapter
...
RailwayDataSet
...
vb
Public Class Form4
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase
...
cancel' table
...

Me
...
Fill(Me
...
cancel)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1
...
AddNew()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2
...
EndEdit()
CancelTableAdapter
...
cancel)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4
...
RemoveCurrent()
MsgBox("ticket has cancelled and the amount will be credited to your account")

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

Output:-



---