Scribd
Upload
46 views

PDF Created With Pdffactory Pro Trial Version

The document discusses steps to create a program in VB.Net: 1. Open the VB.Net program 2. Draw shapes using necessary tools and change properties to appropriate values 3. Write code such as assigning values from textboxes to variables, performing calculations, and displaying results in labels

Uploaded by

net_code
Copyright
© Attribution Non-Commercial (BY-NC)
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
46 views

PDF Created With Pdffactory Pro Trial Version

The document discusses steps to create a program in VB.Net: 1. Open the VB.Net program 2. Draw shapes using necessary tools and change properties to appropriate values 3. Write code such as assigning values from textboxes to variables, performing calculations, and displaying results in labels

Uploaded by

net_code
Copyright
© Attribution Non-Commercial (BY-NC)
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
You are on page 1/ 5

. VB.

NeT


TextBox.Text = ""
TextBox.Text = ""
TextBox.Text = ""
TextBox.Text = ""
TextBox.Text = ""
TextBox.Text = ""
Label.Text = ""
Label.Text = ""
Label.Text = ""
TextBox.Focus( )

. VB.NeT


:
Dim d,d,m,m,y,y as Integer
D = val(TextBox.Text)
D = val(TextBox.Text)

M= val(TextBox.Text)
M= val(TextBox.Text)

Y= val(TextBox.Text)
Y= val(TextBox.Text)

PDF created with pdfFactory Pro trial version www.pdffactory.com

. VB.NeT

:
If d < d Then

D = d +
M = m

End if
If m< m Then

M = m +
Y = y -
End If

Label .Text = d d
Label.Text = m- m

Label.Text y-y

. VB.NeT

:
Dim a,b,c as single
A = val(TextBox.Text)
B = val(TextBox.Text)
C=a+b
Label.Text = C

PDF created with pdfFactory Pro trial version www.pdffactory.com

. VB.NeT

:
Dim a,b,c as single

A = val(TextBox.Text)
B = val(TextBox.Text)
C=a-b
Label.Text = C

. VB.NeT

:
Dim a,b,c as single

A = val(TextBox.Text)
B = val(TextBox.Text)
C=a*b

Label.Text = C

PDF created with pdfFactory Pro trial version www.pdffactory.com

. VB.NeT

:
Dim a,b,c as single

A = val(TextBox.Text)
B = val(TextBox.Text)

C=a/b
Label.Text = C

IF

. VB.NeT


:
If en > or en < Then

MsgBox(" )"
If en >= Then

T = ""

If en >= and en < Then
T = ""

If en >= and en < Then
T = ""

If en >= and en < Then
T = ""

If en < then T = ""

PDF created with pdfFactory Pro trial version www.pdffactory.com

Select Case
. VB.NeT

:
If en > or en < Then
MsgBox(" )"
Select case en
Case is >=

T = ""
Case is >= and en <

T = ""
Case is >= and en <

T = ""
Case is >= and en <

T = ""
Case is <

T = ""

. VB.NeT

:
Dim a,b,c,Max as single
A = Val(TextBox.Text)
B = Val(TextBox.Text)
C = Val(TextBox.Text)
If a > b Then max = a else max = b
If Max < c Then max = c
Label.Text = max
If a = b and b = c Then
Label.Text = " "


PDF created with pdfFactory Pro trial version www.pdffactory.com

You might also like