Docimp

1) Display a message in a lable on click event of the button.
Design:-
Public Class Form1
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
lblshow.Text += "Hello,window!"
End Sub
End Class

2) Create a simple VB.Net Project. Place a button on the form and show welcome message on
the click of the button using msgbox() function.
Design:-
Private Sub btnclick_Click(sender As Object, e As EventArgs) Handles btnclick.Click
MessageBox.Show("welcome")
End Sub
End Class

3) Accept two numbers using Inputbox on the click of the button and display SUM of these
two numbers using Msgbox.
Design:-
Private Sub btnsumoftwonumber_Click(sender As Object, e As EventArgs) Handles
btnsumoftwonumber.Click
Dim a, b, c As Integer
a = InputBox("Enter First no", "addition")
b = InputBox("Enter Second no", "addition")
c = a + b
MessageBox.Show("ADDITION IS " + Convert.ToString(c), "addition")
End Sub
End Class

4) Design a form as shown below and perform the operations on the numbers entered.
ResultTexbox mustbe readonly
Design:-
Public Class Form1
Private Sub btnplus_Click(sender As Object, e As EventArgs) Handles btnplus.Click
Dim No1 As Integer = Convert.ToInt32(txtno1.Text)
Dim Result As Integer
Result = No1 + No2
txtresult.Text = Result

End Sub
Private Sub btnminus_Click(sender As Object, e As EventArgs) Handles btnminus.Click
Result = No1 - No2
End Sub
Private Sub btnmulti_Click(sender As Object, e As EventArgs) Handles btnmulti.Click
Result = No1 * No2
End Sub
Private Sub btndiv_Click(sender As Object, e As EventArgs) Handles btndiv.Click
Result = No1 / No2
End Sub
End Class

5) Write a program to find weather the given no is Positive, negative or zero.
Design:-
Private Sub btnclick_Click(sender As Object, e As EventArgs) Handles btnclick.Click
Dim no As Integer = Convert.ToInt32(txtnum.Text)
If no > 0 Then
MessageBox.Show("Positive")
txtnum.Clear()
ElseIf no < 0 Then
MessageBox.Show("Negative")
txtnum.Clear()
Else
MessageBox.Show("Zero")
txtnum.Clear()
End If
End Sub
End Class

6) Write a program to find the maximum and minimum of given three numbers.
Design:-
Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
Dim no1 As Integer = Convert.ToInt32(txtno1.Text)
If no1 < no2 And no1 < no3 Then
MessageBox.Show(no1.ToString + " is minimum")
ElseIf no2 < no1 And no2 < no3 Then
ElseIf no3 < no1 And no3 < no2 Then
End If
End Sub
Private Sub btnmax_Click(sender As Object, e As EventArgs) Handles btnmax.Click
If no1 > no2 And no1 > no3 Then
MessageBox.Show(no1.ToString + " is maximum")
ElseIf no2 > no1 And no2 > no3 Then
ElseIf no3 > no1 And no3 > no2 Then
End If
End Sub

7) Develop VB.NET application which calculates the simple interest = p*r*n / 100 and
compound interest = p*(1+r/100)^n using textbox. In the same application take another form
which calculates area and circumference of circle by declaring Pi as constant in module
Design:-
Private Sub btnsimple_Click(sender As Object, e As EventArgs) Handles btnsimple.Click
Dim p As Integer = txtprincipal.Text
Dim r As Integer = txtrate.Text
Dim t As Integer = txttax.Text
Dim ans As Integer
ans = p * r * t / 100
MessageBox.Show(ans)
End Sub
Private Sub btncompound_Click(sender As Object, e As EventArgs) Handles
btncompound.Click
Dim p As Integer = txtprincipal.Text
Dim r As Integer = txtrate.Text
Dim t As Integer = txttax.Text
Dim ans As Integer
ans = p * (1 + r / 100) ^ t - p
MessageBox.Show(ans)
End Sub
Private Sub btncircleradius_Click(sender As Object, e As EventArgs) Handles
btncircleradius.Click
Dim pi As Double = 3.14
Dim r As Integer = txtradius.Text
Dim area As Double

area = pi * r * r
MessageBox.Show(area)
End Sub
End Class
Output:-

8) Design a VB form as shown below to read the student data and generate the mark-sheet
data. Clear the data when user clicks the “Clear” button. When user click on “Exit” then end
the execution.
Design:-
Private Sub btngeneral_Click(sender As Object, e As EventArgs) Handles btngeneral.Click
Dim sub1, sub2, sub3, sub4, sub5, sub6, total, per As Double
sub1 = txtsub1.Text
sub2 = txtsub2.Text
sub3 = txtsub3.Text

sub4 = txtsub4.Text
sub5 = txtsub5.Text
sub6 = txtsub6.Text
total = sub1 + sub2 + sub3 + sub4 + sub5 + sub6
txttotal.Text() = total.ToString()
per = total / 6
txtper.Text() = per.ToString()
Dim grade As String
If per >= 90 And per >= 100 Then
txtgrade.Text = "A+"
ElseIf per >= 80 And per <= 89 Then
txtgrade.Text = "A"
txtgrade.Text = "B+"
txtgrade.Text = "B"
txtgrade.Text = "C"
txtgrade.Text = "C+"
Else
txtgrade.Text = "fail"
If txtgrade.Text = "per <=49" Then
txtgrade.Text = "fail"
txtgrade.Enabled = False
Else
txtgrade.Enabled = True
MessageBox.Show("fail")
End If
End If
End Sub
Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtname.Clear()
txtrollno.Clear()
txtsub1.Clear()
txtsub2.Clear()
txtsub3.Clear()
txtsub4.Clear()
txtsub5.Clear()
txtsub6.Clear()
txtgrade.Clear()
txtper.Clear()
txttotal.Clear()
End Sub
End Class

9) Design the digital watch using Timer Control.
Design:-
Private Sub TimerTime_Tick(sender As Object, e As EventArgs) Handles TimerTime.Tick
lblhour.Text = Now.Hour
lblmin.Text = Now.Minute
lblsecond.Text = Now.Second
End Sub
Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click
TimerTime.Start()
End Sub
Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click
TimerTime.Stop()
End Sub
End Class

10) Design the following form.
From the given combo boxes user has to select Starting value and ending value. When
user clicks on “Prime nos” radio button then the prime nos. between the given ranges is
displayed in the list box. Same as for other options.
Design:-

Private Sub rbevenno_CheckedChanged(sender As Object, e As EventArgs) Handles
rbevenno.CheckedChanged
lbdisplay.Items.Clear()
Dim no, no1 As Integer
no = cbstart.Text
no1 = cbend.Text
For item = no To no1 Step 1
If item Mod 2 = 0 Then
lbdisplay.Items.Add(item)
End If
Next
End Sub
Private Sub rbprimeno_CheckedChanged(sender As Object, e As EventArgs) Handles
rbprimeno.CheckedChanged
Dim no, no1, i, f As Integer
f = 0
no = cbstart.Text
no1 = cbend.Text
For item = no To no1
For i = 2 To item - 1
If item Mod i = 0 Then
f = 1
Exit For
Else
f = 0
End If
Next
If f = 0 Then
End If
Next
End Sub
Private Sub rboddno_CheckedChanged(sender As Object, e As EventArgs) Handles
rboddno.CheckedChanged
lbdisplay.Items.Clear()
Dim no, no1 As Integer
no = cbstart.Text
no1 = cbend.Text
For item = no To no1 Step 1
If item Mod 2 <> 0 Then
End If
Next
End Sub
End Class
Output:-

11) Develop following form. When user clicks on Submit button then all information will be
printed in following textbox. When user clicks on Clear then all textboxes will clear. When user
clicks on Exit button then application will be closed.
Design:-
Private Sub btnsubmit_Click(sender As Object, e As EventArgs) Handles btnsubmit.Click
Dim l, f, a, rd As String
Dim gender, hobbies As String
gender = hobbies = ""
f = txtname.Text

l = txtlastname.Text
a = txtaddress.Text
If rbmarried.Checked = True Then
rd = "Married"
ElseIf rbunmarried.Checked = True Then
rd = "UnMarried"
End If
If rbmale.Checked = True Then
gender = "Male"
ElseIf rbfemale.Checked = True Then
gender = "Female"
End If
If cbread.Checked = True Then
hobbies += "Read"
End If
If cbwrite.Checked = True Then
hobbies += "Write"
End If
If cbspeak.Checked = True Then
hobbies += "Speak"
End If
Dim selecteddate As Date
selecteddate = dtpdateofbirth.Value
Dim year As Integer = selecteddate.Year
Dim month As Integer = selecteddate.Month
Dim day As Integer = selecteddate.Day
txtshow.Text = "First Name :" + f + " " + "Last Name :" + l + vbNewLine
txtshow.Text += "Address : " + a + vbNewLine
txtshow.Text += "Marital Status : " + rd + vbNewLine
txtshow.Text += "Gender : " + gender + vbNewLine
txtshow.Text += "EnglishAbility : " + hobbies + vbNewLine
txtshow.Text += "Date Of Birth : " + day.ToString() + "/" + month.ToString() +
"/" + year.ToString() + vbNewLine
End Sub
Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtname.Clear()
txtlastname.Clear()
txtaddress.Clear()
End Sub
Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
Me.Close()
End Sub
End Class

12) Develop the following form. When user clicks add button add the name in list box (Friend),
using list box (Friend) enter selected name in another list box (Invite), also remove-selected
name from list box
Design:-
Public Class exam

Private Sub btnaAdd_Click(sender As Object, e As EventArgs) Handles
btnaAdd.Click
Dim item As String
item = txtName.Text.Trim()
lstbxfriendlist.Items.Add(item)
End Sub
Private Sub btnRight_Click(sender As Object, e As EventArgs) Handles
btnRight.Click
For Each item In lstbxfriendlist.SelectedItems
lstbxSelectedfriendlist.Items.Add(item)
Next
If lstbxfriendlist.SelectedItems.Count > 0 Then
For checked As Integer = lstbxfriendlist.SelectedItems.Count - 1
To 0 Step -1
lstbxfriendlist.Items.Remove(lstbxfriendlist.SelectedItems(checked))
Next
End If
End Sub
Private Sub btnLeft_Click(sender As Object, e As EventArgs) Handles
btnLeft.Click
For Each item In lstbxfriendlist.SelectedItems
lstbxSelectedfriendlist.Items.Add(item)
Next
If lstbxfriendlist.SelectedItems.Count > 0 Then
For checked As Integer = lstbxfriendlist.SelectedItems.Count - 1
To 0 Step -1
lstbxfriendlist.Items.Remove(lstbxfriendlist.SelectedItems(checked))
Next
End If
End Sub
Private Sub btnDoubleleft_Click(sender As Object, e As EventArgs) Handles
btnDoubleleft.Click
For Each item In lstbxSelectedfriendlist.SelectedItems
Next

If lstbxSelectedfriendlist.SelectedItems.Count > 0 Then
For checked As Integer =
lstbxSelectedfriendlist.SelectedItems.Count - 1 To 0 Step -1
lstbxSelectedfriendlist.Items.Remove(lstbxSelectedfriendlist.SelectedItems(ch
ecked))
Next
End If
End Sub
Private Sub btnDoubleright_Click(sender As Object, e As EventArgs)
Handles btnDoubleright.Click
For Each item In lstbxSelectedfriendlist.SelectedItems
Next
If lstbxSelectedfriendlist.SelectedItems.Count > 0 Then
For checked As Integer =
lstbxSelectedfriendlist.SelectedItems.Count - 1 To 0 Step -1
lstbxSelectedfriendlist.Items.Remove(lstbxSelectedfriendlist.SelectedItems(ch
ecked))
Next
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Me.Close()
End Sub
End Class

Docimp

More Related Content

Similar to Docimp (20)

Recently uploaded (20)

Docimp