MAHARASHTRA STATE BOARD OF TECHNICAL EDUCATION

AJEENKYA D. Y. PATIL SCHOOL OF

ENGINEERING (POLYTECHNIC)

MICRO PROJECT
Academic year: 2024-25

TITLE OF THE PROJECT

E-BILLING SYSTEM

Program: Program code:

Course: Course code:
 MAHARASHTRA STATE BOARD OF TECHNICAL
EDUCATION

CERTIFICATE
This is to certify that the following students -

Roll No. Name of the students Exam seat number

114 Shrinivas Bengude 23213470412

116 Shraddha Taware 23213470414

of Diploma in COMPUTER ENGINEERING of Institute, Ajeenkya. D. Y.

Patil School of Engineering (Polytechnic) Institute Code – 1649, has
completed the Micro-Project satisfactorily in Subject - GUI APPLICATION
DEVELOPMENT USING VB.NET for the academic year 2024-25 as
prescribed in the curriculum.

Place: Lohegoan Date:

Subject Teacher Head of the Department Principal

 INDEX

SR.NO. CONTENT PAGE NO.

1 AIM OF THE PROJECT

2 RESOURCES USED

3 LITERATURE REVIEW

4 METHODOLOGY

ACTION PLAN AND RATIONALE

5

6 FUNCTIONALITY OF THE APPLICATION

7 PROGRAM CODE AND OUTPUT

8 CONCLUSION

9 REFERENCES
 ACKNOWLEDGEMEMT

It is with profoundly sense of gratitude that we acknowledge

from our guide Mrs Nita Pawar. She has been guiding in the true
sense of word, a guide who satisfaction from our word & progress.

We are highly obliged to Mr. Sandip Pandey. .Head of

Computer Department for aberrance & good co-operation given to
us for bringing this project to almost standard.

We are grateful to our principal Dr. Nagesh Shelke for

proceeding acknowledgement to us in the connection of this
project concluding. We appreciate the assistance of all staff that
helps us in for their sincere & obliging help to make our project
successfully.
 Micro-Project Proposal
<E-Billing System=

AIM OF THE MICRO-PROJECT: -

➢ Create Report on E-Billing System

BRIEF INTRODUCTION: -
VB.NET stands for Visual Basic.NET, and it is a computer programming language
developed by Microsoft. It was first released in 2002 to replace Visual Basic 6. VB.NET is an
object-oriented programming language. This means that it supports the features of object-
oriented programming which include encapsulation, polymorphism, abstraction, and
inheritance.
This is a report of the project of <E-Billing Software=. This is a standalone application. This
E-Billing Software is developed for the ease Mobile Shopkeepers. It generates bills of the
purchased recharge by the customer with all the details of the customer. This software stores
all the data of the customer which purchase the recharge in the application.

INTENDED COURSE OUTCOMES: -

CO a. Use Visual Studio IDE to design application.
CO b. Develop GUI Application using Form Control and its events.
CO c. Apply Object-Oriented concepts in GUI Application.
CO d. Use Data access control to store data in Database and retrieve it.
RESOURCES USED: -
Sr. No Name of Specification Quantity Remarks
Resources
1. Computer Computer (i3-i5 1
System preferable), RAM
minimum 4 GB
2. Operating Windows 10 1
system
3. Software Microsoft Visual 1
Studio Code 2012
4. Database MS Access 1

LITERATURE REVIEW: -
This is a E-Billing Software which is developed for the mobile shopkeepers. This software
provides a billing functionality which makes the mobile shopkeeper’s business life easy. The
shopkeeper need not to depend on the offline data management of the customers and making bills for
the purchased recharge. It auto generates the bills after purchasing the recharge.

PROPOSED METHODOLOGY: -
• Understand the topic given to us.
• Discuss about the topic with group members.
• Divide the topic throughout each member of the group.
• Collected the information from member and verify from our lecturer.
• Prepared the main report of our micro project.
 ACTION PLAN: -
Sr. No Details of Activity Planned Planned Team
start date finish date Members

1 To discuss and get the topic of All

micro project.

2 Start planning on topic of micro All

project.

3 Collect information about our topic. All

4 Distribute works within group All

members.

To start with creating with main copy

5 of micro-project. All

6 Collect different information about All

micro project.

7 Initiate different views about micro All

project.

8 Editing process must be done before All

hard copy.
9 Check soft copy properly before All
preparing of hard copy.

10 To start creating copy All

properly.
11 Checking the information from All
monitor.
12 Check the soft copy. All

13 To present soft copy via All

G-mail.
Represented the hard copy of main All
14 micro project.
RATIONALE: -
The VB.NET stands for Visual Basic. Network Enabled Technologies. It is a simple,
high-level, object-oriented programming language developed by Microsoft in 2002. It is a
successor of Visual Basic 6.0, that is implemented on the Microsoft .NET framework.
Furthermore, it supports the OOPs concept, such as abstraction, encapsulation, inheritance,
and polymorphism. Therefore, everything in the VB.NET language is an object, including all
primitive data types (Integer, String, char, long, short, Boolean, etc.), user-defined data types,
events, and all objects that inherit from its base class. It is not a case sensitive language,
whereas, C++, JAVA and C# are case sensitive language.
Applications built using the VB.NET language are very reliable and scalable, relying on
the .NET Framework to access all libraries that help to execute a VB.NET program. With this
language, you can develop a fully object-oriented application that is similar to an application
created through another language such as C++, Java, or C#
In addition, applications or programs of VB.NET are not only running on the window
operating system but can also run-on Linux or Mac OS.
The VB.NET language is designed in such a way that any new beginner or novice and the
advanced programmer can quickly develop a simple, secure, robust, high performance of web,
windows, console, and mobile application running on .NET Framework.
FUNCTIONALITY OF THE APPLICATION:
When any customer wants to recharge his mobile, he/she will have to enter the
application. After entering in the application, the user will interact with the login page. Now
the login depends on two conditions. Whether the user is a new customer, or the user is
already a customer of the application.
If the user is new to the application, he will have to register. If user is already a customer he
just has to login with his/her login details.

Register: -
1. If the user is new to the application, he has to first enter to the application. After
entering the application, the user will interact with a page which shows a
wallpaper of the E-Billing System. This page will be on the screen for 2 seconds.
After 2 seconds, user will be taken to the login page. For the new user he/she will
have to click on register.
2. After clicking on the register option, the registration page will come to the screen.
There, the user will have to enter a new username, password and re-enter the
password for registering into the application.

3. Entering the new username and password, user will be registered on the application.
4. Next the user enters the application, he/she will not have to again register. He/she
can login with the login credentials which had entered while registering in the
application.

Login: -
1. Now if there is the condition that the user is already a customer of the application,
then he/she will have to login in the application.
2. To login in the application, user will have to enter the login credentials.
3. After entering the username and password and clicking on sign-up, user will interact
with the page which shows all the lists of the recharges.
 Home Page: -
1. The page includes various recharge plans i.e., talk time, unlimited, recommended data.
Now the user has to click on a recharge plan which he/she wish to buy.
2. After selecting a desired plan, user will be taken to a page where the user has to enter
name, phone number and select the payment option. On this page the plan details and
the amount of the selected recharge plan will be automatically shown.
3. Click on <Recharge now=. Clicking on it, the application stores all the data entered by
the user and stores in the database.
4. After clicking on recharge now option, the application retrieves all the data entered by
the user and provide a Bill for the purchased recharge.

Bill: -
1. The Generated bill of the purchased recharge shows all the details of the customer.
2. The Bill includes: -

 Date
 Name
 Phone Number
 Payment Option
 Plan Details
 Amount
3. The Bill also includes a show option. When the user clicks on the show option, he/she
can see all the history of the customers. This includes all the data of the customers who
recharged in the past. We can say that there is a managed data of the customers in the
application. This data is shown in a format of a table. It includes Id, Name, Plan
Detail, Pay-By, Order ID, Phone Number, Date and Time. The shopkeeper can view
the all the customers data with all details.

Log-Out: -
1. For the security of the user, if the user wants to log-out from the application so he can anytime
log out from the application.
2. He/she can logout from the application from any page of the application.
3. On every page, there is button on the Top-Right for logging out from the application.
4. After logging out, the user can again log in into the application whenever he/she wants to
login.
PROGRAM CODE: -
Imports System.Data Imports
System.Data.OleDb Public Class
Form1
Dim uName, phone, amount As String
Dim Username, Password, password1, username1 As String Dim dates,
Time As Date
Dim plan1, plan2, plan3, plan4 As String Dim rnd,
id, log As Integer
Dim random As New Random()
Dim con As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\Asus\Documents\E-Billing.accdb")
Public Sub AllUserData() Try
con) con.Open()
Dim cmd As New OleDbCommand("Select * from BillsInfo",
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable() da.Fill(dt)
DataGridView1.DataSource = dt con.Close()
Me.TabControl1.SelectedTab = Me.TabPage2 Catch ex As
Exception
MsgBox(ex.Message) End
Try
End Sub
Public Sub InsertData() Try
con.Open()
Dim cmd1 As New OleDbCommand("INSERT INTO
BillsInfo([Name],[PlanDetail],[PayBy],[OrderId],[Phone],[Amount],[Da te],[Time]) VALUES
('" & uName & "','" & Label132.Text & "','" &
Label20.Text & "','" & Label139.Text & "','" & phone & "','" &
amount & "','" & dates & "','" & Time & "')", con)
cmd1.ExecuteNonQuery()
cmd1.Dispose()
Timer2.Start()
Label35.Text = "Reacharge Successfully !"
Me.TabControl1.SelectedTab = Me.TabPage9 con.Close()
Catch ex As Exception
MsgBox(ex.InnerException)
End Try
End Sub
 Public Sub Login(ByVal username As String, ByVal password As String)
Try
con.Open()
Dim cmd2 As New OleDbCommand("Select * from Register
where Username ='" & username & "' OR Password ='" & password & "'", con)
Dim da As New OleDbDataAdapter(cmd2) Dim
dt2 As New DataTable() da.Fill(dt2)
username1 = dt2.Rows(0)("Username").ToString()
password1 = dt2.Rows(0)("Password").ToString()
If ((username.Equals(username1)) And (password.Equals(password1))) Then
Timer5.Start()
Label146.Text = "Login Successfully !" Me.TabControl1.SelectedTab =
Me.TabPage3
End If con.Close()
Catch ex As Exception
Timer5.Start()
Label146.Text = "Invalid Credentials !"
'MsgBox(ex.Message)
con.Close() End
Try
End Sub

Public Sub Register(ByVal username As String, ByVal password As String)

Try
con.Open()
Dim cmd1 As New OleDbCommand("INSERT INTO
REGISTER([Username],[Password]) VALUES ('" & username & "','" & password & "')",
con)
cmd1.ExecuteNonQuery() cmd1.Dispose()
Me.TabControl1.SelectedTab = Me.TabPage6 Timer4.Start()
Label155.Text = "Register Successfully !" TextBox5.Text =
""
TextBox6.Text = ""
TextBox7.Text = ""
con.Close()
Catch ex As Exception
MsgBox(ex.InnerException)
End Try
End Sub
 Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
log = 0
rnd = random.Next(2590, 50000) plan1
= "12GB data and 28 days"
plan2 = "Truly Unlimited call, 3GB per day and 70 days validity"
plan3 = "81.75 talktime and no validity"
plan4 = "Truly Unlimited call, 2GB per day and 70 days validity"

End Sub

'reacharge now button

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
Dim right As Integer right =
0
'Error Provider HAndling If
TextBox4.Text = "" Then
ErrorProvider1.SetError(TextBox4, "Please enter Name") right = 0
Else
ErrorProvider1.SetError(TextBox4, "") right = 1
End If
If TextBox3.Text = "" Then ErrorProvider1.SetError(TextBox3, "Please
enter Name") right = 0
Else
ErrorProvider1.SetError(TextBox3, "") right = 1
End If

If right = 1 Then dates =

Today Time =
TimeOfDay rnd =
rnd * 6
uName = TextBox4.Text phone
= Val(TextBox3.Text) id = rnd
Label134.Text = uName Label32.Text =
phone
Label139.Text = "OID" + id.ToString Label38.Text = dates

Me.TabControl1.SelectedTab = Me.TabPage9 InsertData()

 TextBox3.Text = ""
TextBox4.Text = ""
Label31.Text = ""
Else
Label31.Text = "Please Fill the fields" End If
End Sub

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

Timer1.Tick
Me.TabControl1.SelectedTab = Me.TabPage6 Timer1.Stop()
End Sub

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

Button1.Click
Username = TextBox1.Text Password =
TextBox2.Text
If ((Username = "") And (Password = "")) Then Label146.Text
= "Please Fill all the fields !"
Else
Login(Username, Password)
TextBox1.Text = "" TextBox2.Text
= ""
End If
End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles
PictureBox5.Click
Me.TabControl1.SelectedTab = Me.TabPage8 Label132.Text =
plan1
Label142.Text = plan1
amount = Label2.Text
Label24.Text = amount
Label25.Text = amount
End Sub
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles
PictureBox6.Click
Me.TabControl1.SelectedTab = Me.TabPage8 Label132.Text =
plan2
Label142.Text = plan2
amount = Label3.Text
Label24.Text = amount
Label25.Text = amount
 Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles
PictureBox7.Click
Me.TabControl1.SelectedTab = Me.TabPage8 Label132.Text =
plan3
Label142.Text = plan3
amount = Label4.Text
Label24.Text = amount
Label25.Text = amount
End Sub

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

PictureBox12.Click
Me.TabControl1.SelectedTab = Me.TabPage8
Label132.Text = plan4
Label142.Text = plan4
amount = Label11.Text
Label24.Text = amount
Label25.Text = amount
End Sub

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

Handles RadioButton1.CheckedChanged
Label20.Text = "Gpay" End
Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs)
Handles RadioButton2.CheckedChanged
Label20.Text = "PhonePay" End
Sub

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

Handles RadioButton3.CheckedChanged
Label20.Text = "UPI" End
Sub

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

Handles RadioButton4.CheckedChanged
Label20.Text = "PayTm"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
AllUserData()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
Button4.Click
Me.TabControl1.SelectedTab = Me.TabPage6
 Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles
Timer2.Tick
Label35.Text = ""
Timer2.Stop()
End Sub
Private Sub Label148_Click(sender As Object, e As EventArgs) Handles
Label148.Click
Me.TabControl1.SelectedTab = Me.TabPage6 End
Sub

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

Label22.Click
Me.TabControl1.SelectedTab = Me.TabPage10 End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles
Button5.Click
Dim Username, Cpassword As String If
TextBox6.Text = "" Then
Label154.Text = "Please fill all fields !" Timer3.Start()
ElseIf (TextBox5.Text = "") Then Label154.Text =
"Please fill all fields !" Timer3.Start()
ElseIf (TextBox7.Text = "") Then Label154.Text =
"Please fill all fields !" Timer3.Start()
ElseIf TextBox5.Text.Equals(TextBox7.Text) Then Username =
TextBox6.Text
Cpassword = TextBox7.Text
Register(Username, Cpassword)

Else
Timer3.Start()
Label154.Text = "Password not same !" End If
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles
Timer3.Tick
Label154.Text = ""
Timer3.Stop()

End Sub
 Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles
Timer4.Tick
Label155.Text = ""
Timer4.Stop()
End Sub

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

Timer5.Tick
Label146.Text = ""
Timer5.Stop()
End Sub

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

PictureBox39.Click
Me.TabControl1.SelectedTab = Me.TabPage6 End
Sub
Private Sub PictureBox40_Click(sender As Object, e As EventArgs) Handles
PictureBox40.Click
Me.TabControl1.SelectedTab = Me.TabPage6 End
Sub

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

PictureBox41.Click
Me.TabControl1.SelectedTab = Me.TabPage6 End
Sub

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

TabPage3.Click
End Sub
End Class
OUTPUT: -
CONCLUSION: -
➢ Thus, we have developed an E- Billing Software in VB.Net.
➢ We have developed an E Billing application and prepared report on it.
REFERENCE: -
➢ https://www.javatpoint.com/vb-net

➢ https://docs.microsoft.com/en-us/visualstudio/data-tools/connect-to-data- in-an-access-
database-windows-forms?view=vs-2022