Design an Application in Visual Basic, which display picture by visual studio

 

1. Design an Application in Visual Basic, which display picture when 

1. Command button with caption “Click Here” is clicked.

2. After Delay time 100ms (by using timer control)

Form Design:

Coding:

Private Sub Command1_Click ()

Picture1.Picture = Load Picture ("C:\Users\RohanKhante\Desktop\Capture.jpg")

End Sub

Private Sub Timer1_Timer ()

    If Timer1.Interval = 100 Then

     Picture2.Picture = Load Picture("C:\Users\RohanKhante\Desktop\Capture.jpg")

    End If

    End Sub

Output:

News book stall gives discount on the books as per following conditions by vs code

  A book stall gives discount on the books as per following conditions:

No. of books purchased                             Discount

a. <=5 Nil                                                         0

b. >5 and <=10                                                10%

c. >10 and <=15                                              12%

d. >15                                                             20%

Create a form as follows to calculate the discount.

Form Design :

Coding:

Dim u_price As Single

Dim n As Single

Dim t_price As Single

Dim discount As Single

Sub pro()

u_price = Val(Text1.Text)

n = Val(Text2.Text)

t_price = n * u_price

Text3.Text = t_price

If n &lt;= 5 Then

discount = 0

ElseIf n &gt; 5 And n &lt;= 10 Then

discount = 0.1 * t_price

ElseIf n &gt; 10 And n &lt;= 15 Then

discount = 0.12 * t_price

Else

discount = 0.2 * t_price

End If

End Sub

Private Sub Command1_Click()

Text1.Text = &quot;&quot;

Text2.Text = &quot;&quot;

Text3.Text = &quot;&quot;

Text4.Text = &quot;&quot;

Text5.Text = &quot;&quot;

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Text3_GotFocus()

pro

u_price = Val(Text1.Text)

t_price = n * u_price

Text3.Text = t_price

End Sub

Private Sub Text4_GotFocus()

pro

u_price = Val(Text1.Text)

t_price = n * u_price

Text4.Text = discount

End Sub

Private Sub Text5_GotFocus()

pro

u_price = Val(Text1.Text)

t_price = n * u_price

Text5.Text = t_price - discount

End Sub

Output :