Scribd
Upload
11 views7 pages

Basic Programming Tasks in VB.NET

1) The document contains code for creating various VB.NET applications including: a) an odd/even number checker, b) a basic form validator, c) list operations, and d) a basic calculator. 2) The code handles button clicks to perform operations like adding/removing items from a list, validating form fields, and performing basic math functions like addition, subtraction etc. 3) The outputs generated by running the applications are also described like displaying if a number is odd/even or showing results of calculations.

Uploaded by

Adam Hill
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
11 views7 pages

Basic Programming Tasks in VB.NET

1) The document contains code for creating various VB.NET applications including: a) an odd/even number checker, b) a basic form validator, c) list operations, and d) a basic calculator. 2) The code handles button clicks to perform operations like adding/removing items from a list, validating form fields, and performing basic math functions like addition, subtraction etc. 3) The outputs generated by running the applications are also described like displaying if a number is odd/even or showing results of calculations.

Uploaded by

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

1.

)To find, whether Entered Number is Odd or Even


Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
%im & As 'nte"er
& ( C'nt()e&tBo&1.)e&t#
'* & +od , ( - ).en
)e&tBo&,.)e&t ( /0umber is !ven/
!lse
)e&tBo&,.)e&t ( /0umber is Odd/
!nd '*
!nd Sub

!nd Class
The following output is shown
1)Number is Even
2)Number is Odd
2.) To Create A Bio Data Form
Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
%im & y 1 As 'nte"er
'* )e&tBo&1.)e&t ( // ).en
2abel13.)e&t ( /0ame Cannot be !m4ty5/
& ( -
!lse
2abel13.)e&t ( //
& ( 1
!nd '*
'* )e&tBo&,.)e&t ( // Or )e&tBo&6.)e&t ( // ).en
2abel17.)e&t ( /Field cannot be !m4ty5/
y ( -
!lse
2abel17.)e&t ( //
y ( 1
!nd '*
'* )e&tBo&8.)e&t ( // Or 9ic.)e&tBo&1.)e&t ( // ).en
2abel1:.)e&t ( /Field cannot be !m4ty5/
1 ( -
!lse
2abel1:.)e&t ( //
1 ( 1
!nd '*
'* & And y And 1 ( 1 ).en
2abel,-.)e&t ( /FO9+ S;B+'))!%....Success55/
!lse
2abel1<.)e&t ( /Form 'ncom4lete55/
!nd '*
!nd Sub
!nd Class
The following output is shown when the Submit Button is clicked and all the personal
etails fields are kept blank!
!.)To "erform #arious O$erations on %istBo&
Public Class Form1
Private Sub Button,_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button,.Click
2istBo&1.'[Link](/=amia/#
2istBo&1.'[Link](/+illia/#
2istBo&1.'[Link](/'slamia/#
!nd Sub
Private Sub Button>_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button>.Click
)e&tBo&>.)e&t ( 2istBo&1.'[Link]
!nd Sub
Private Sub Button6_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
2istBo&1.'[Link](#
)e&tBo&>.Clear(#
!nd Sub
Private Sub Button8_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
%im y As 'nte"er
y ( C'nt()e&tBo&6.)e&t# ? 1
'* y @ 2istBo&1.'[Link] ).en
2istBo&1.'tems.9emoveAt(y#
!nd '*
!nd Sub
Private Sub Button3_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
%im & As 'nte"er
& ( C'nt()e&tBo&3.)e&t# ? 1
2istBo&1.'tems.'nsert(& )e&tBo&8.)e&t#
!nd Sub
!nd Class
The following output is shown when "#dd efault $alue" Button pressed and the "%ount"
Button is pressed!
The following output is shown when &Okhla' is (nserted at )osition &2' using the "(nsert"
button!
The following output is shown when $alue at )osition * is +emoved!
Thus it removes &,illia' which was at )osition *
'.)To (m$)ement a Basi* Ca)*u)ator with basi* fun*tions
Public Class Form1
%im & y 1 res As %ecimal
Private Sub Button1_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(1#
!nd Sub
Private Sub Button,_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button,.Click
)e&tBo&1.A44end)e&t(,#
!nd Sub
Private Sub Button>_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button>.Click
)e&tBo&1.A44end)e&t(>#
!nd Sub
Private Sub Button6_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(6#
!nd Sub
Private Sub Button8_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(8#
!nd Sub
Private Sub Button3_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(3#
!nd Sub
Private Sub Button7_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(7#
!nd Sub
Private Sub Button:_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button:.Click
)e&tBo&1.A44end)e&t(:#
!nd Sub
Private Sub Button<_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button<.Click
)e&tBo&1.A44end)e&t(<#
!nd Sub
Private Sub Button1-_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(-#
!nd Sub
Private Sub Button18_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
y ( C%ec()e&tBo&1.)e&t#
'* [Link] ( )rue ).en
res ( & A y
)e&tBo&1.)e&t ( res
!lse'* 9adioButton,.[Link] ( )rue ).en
res ( & ? y
)e&tBo&1.)e&t ( res
!lse'* 9adioButton>.[Link] ( )rue ).en
res ( & B y
)e&tBo&1.)e&t ( res
!lse'* [Link] ( )rue ).en
)ry
res ( & C y
)e&tBo&1.)e&t ( res
Catc. e& As !&ce4tion
)e&tBo&1.)e&t ( /Cannot %ivide By Dero5/
!nd )ry

!nd '*
!nd Sub
Private Sub Button11_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
& ( C%ec()e&tBo&1.)e&t#
)e&tBo&[Link](#
[Link] ( )rue
)e&tBo&[Link](#
!nd Sub
Private Sub Button1,_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button1,.Click
& ( C%ec()e&tBo&1.)e&t#
)e&tBo&[Link](#
9adioButton,.[Link] ( )rue
)e&tBo&[Link](#
!nd Sub
Private Sub Button1>_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button1>.Click
& ( C%ec()e&tBo&1.)e&t#
)e&tBo&[Link](#
9adioButton>.[Link] ( )rue
)e&tBo&[Link](#
!nd Sub
Private Sub Button16_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
& ( C%ec()e&tBo&1.)e&t#
)e&tBo&[Link](#
[Link] ( )rue
)e&tBo&[Link](#
!nd Sub
Private Sub Button13_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&[Link](#
[Link] ( False
9adioButton,.[Link] ( False
9adioButton>.[Link] ( False
[Link] ( False
!nd Sub

Private Sub Button17_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
[Link]
)e&tBo&1.A44end)e&t(/./#
!nd Sub
Private Sub Button1:_Click(ByVal sender As [Link] ByVal e As System.!ventAr"s# $andles
Button1:.Click
& ( )e&tBo&1.)e&t
)e&tBo&1.)e&t ( +at..SErt(&#
!nd Sub
!nd Class
The following output is shown when - is multiplied b. *
The following output is shown when an. number is divided b. /ero0

You might also like