.

NET Program

Q-1) Develop GUI application to book a ticket and calculate a total number of booked tickets without
using database.

Solution:-

PublicClassForm1

PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]

Dim str AsString

str = " "

If [Link] = TrueThen

str = str + [Link]

[Link] = Val([Link]) * Val([Link])

[Link] = "CONGARTULATIONS"&" "& [Link] &" "&"THANK YOU"

Else

str = str + [Link]

[Link] = Val([Link]) * Val([Link])

[Link] = "CONGRATULATIONS"&" "& [Link] &" "&"THANK YOU"

EndIf

EndSub

PrivateSub RadioButton1_CheckedChanged(sender AsObject, e AsEventArgs) Handles

[Link]

[Link] = False

[Link] = False

[Link] = False

EndSub

PrivateSub RadioButton2_CheckedChanged(sender AsObject, e AsEventArgs) Handles

[Link]

[Link] = False

[Link] = False
 [Link] = False

EndSub

EndClass

Q-2) Develop a Gmail Registration form and display the data on label.

Solution:-

PublicClassForm1

PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]

[Link] = [Link]

[Link] = ""

[Link] = [Link]

[Link] = ""

[Link] = [Link]

[Link] = ""

[Link] = [Link]

[Link] = ""

EndSub

EndClass

Q-3) Write a practical of Tic-Tac-Toe game.

Solution:-

Public Class Form1

Enum filepermission

create = 1

Read = 2

Write = 3

delete = 4

End Enum

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

[Link] = [Link]

[Link] = [Link]
 [Link] = [Link]

[Link] = [Link]

End Sub

End Class

Q-4) Write a practical of option statements.

Solution:-

SYBCA-SEM-4 DIV-3 .NET PROGRAMMING ROLL NO-202

[Link]("player1 is winner", "result", [Link],

[Link])

End If

Clearcontrols()

ElseIf ([Link] <> "" And [Link] <> "" And [Link] <> "" And [Link] <> ""
And

[Link] <> "" And [Link] <> "" And [Link] <> "" And [Link] <> "" And

[Link] <> "") Then

[Link]("GAME OVER")

Clearcontrols()

End If

End Sub

Sub Clearcontrols()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""
 [Link] = ""

[Link] = "player1:x"

End Sub

End Class

Q-5) Write a practical of Message box and Input box.

Solution:-

Public Class Form1 Dim a

As Double Dim b As

Double

Dim sign As String

Private Sub Button13_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

[Link] = [Link] & 0

End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 1

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 2

End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 3

End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 4

End Sub
Private Sub Button6_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 5

End Sub

Private Sub Button7_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 6

End Sub

Private Sub Button9_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

[Link] = [Link] & 7

End Sub

Private Sub Button10_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

[Link] = [Link] & 8

End Sub

Private Sub Button11_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

[Link] = [Link] & 9

End Sub

Private Sub Button15_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

[Link] = [Link] & "."

End Sub

Private Sub Button14_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

[Link] = ""

End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

a = [Link] sign =
"+" [Link] = ""

End Sub

Private Sub Button8_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]

a = [Link] sign =

"-" [Link] = ""

End Sub

Private Sub Button12_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

a = [Link] sign =

"*" [Link] = ""

End Sub

Private Sub Button16_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

a = [Link] sign =

"/" [Link] = ""

End Sub

Private Sub Button17_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

b = [Link]

If sign = "+" Then [Link] =

a+b

ElseIf sign = "-" Then

[Link] = a - b

ElseIf sign = "*" Then

[Link] = a * b

Else : sign = "/" [Link]

=a/b

End If End

Sub

End Class
Q-6) Write practical enumeration.

Solution:-

Public Class Form1

Private Sub string_func_Click(sender As Object, e As EventArgs) Handles string_func.Click

[Link]("Asc=" & Asc("A"))

[Link]("Chr=" & Chr(65))

[Link]("LCase=" & LCase("VISUAL"))

[Link]("UCase=" & UCase("Studio"))

[Link]("InStr=" & InStr(3, "This is [Link]", "is").ToString)

[Link]("StrComp=" & StrComp("Visual", "VISUAL", [Link]))

[Link]("left=" & [Link]("August 28,2012", 3).ToString)

[Link]("right=" & [Link]("August 28,2012", 4).ToString)

[Link]("Mid=" & Mid("08 August,2012", 4, 8))

[Link]("Len=" & Len("Visual studio"))

[Link]("StrDup=" & StrDup(12, "*"))

[Link]("StrConv=" & StrConv("visual studio", [Link]))

[Link]("StrReverse=" & StrReverse("visual studio"))

Dim selNames() As String

Dim Names() As String = {"abc", "pqr", "xyz", "mno", "jkl"}

selNames = Filter(Names, "xyz", False)

[Link]("Filter=" & selNames(0))

Dim parts() As String

parts = Split("D:\.net\string function", "\")

[Link]("Split=" & parts(3))

End Sub

End Class

Q-7) Write a practical of Message box and Input box.

Solution:-

Public Class Form1

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

[Link], [Link], MessageBoxDefaultButton.Button2)

End Sub

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

Dim str As String

str = [Link]("enter your name:", "Name", "Your Name", 100, 100)

Dim res As DialogResult

res = [Link](str, "Your Name", [Link],

[Link])

If res = [Link] Then

[Link](str)

Else

[Link]("no value")

End If

End Sub

End Class

Q-8) Write a practical of mathematics function.

Solution:-

Imports [Link]

Imports [Link]

Public Class Form1

Private Sub math_func_Click(sender As Object, e As EventArgs) Handles math_func.Click

[Link]("Abs=" & Abs(-1.01).ToString)

[Link]("Int=" & Int(-1.1).ToString)

[Link]("Fix=" & Fix(-1.1).ToString)

[Link]("Round=" & Round(3.51, 1).ToString)

[Link]("Oct=" & Oct(47).ToString)

[Link]("Hex=" & Hex(47).ToString)

[Link]("pow=" & pow(2, 3).ToString)

End Sub

End Class

Q-9) Write a practical of data type conversion function.

Solution:-

Public Class Form1

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

Dim DbVar As Double = 2.7182818284

Dim objVar As Object

objVar = CObj(DbVar)

[Link]("CObj=" & [Link])

DbVar = 125.5678

Dim byVar As Byte

byVar = CByte(DbVar)

[Link]("CByte=" & [Link])

DbVar = 123.45

[Link]("CInt=" & CInt(DbVar).ToString)

DbVar = 25.921987

[Link]("CSsng=" & CSng(DbVar).ToString)

Dim strVar As String = "Hello"

[Link]("CChar=" & CChar(strVar))

End Sub

End Class

Q-10) Write a practical of data type checking function.

Solution:-

Public Class Form1

Private Sub Type_check_Click(sender As Object, e As EventArgs) Handles Type_check.Click

Dim d1 As Date

Dim o1 As Object = "Visual"

[Link](IsDate(o1))

Dim i1 As Integer

Dim db As Double

Dim o2 As Object = "Studio"

[Link](IsNumeric(db))

[Link](IsNumeric(o2))

[Link](IsNumeric(i1))

Dim testobj As Object = "new"

Dim testnum As Integer = 12

Dim teststr As String = "String"

[Link](IsReference(testobj))

[Link](IsReference(testnum))

[Link](IsReference(teststr))

Dim testVar As Object

[Link](IsDBNull(testVar))

testVar = [Link]

[Link](IsDBNull(testVar))

End Sub

End Class