Bharti Visual Basic

 VISUAL BASIC

VISUAL BASIC IS A WINDOWS PROGRAMMING LANGUAGE THAT HAS BEEN DEVELOPED AT MICROSOFT CORPORATION. VISUAL BASIC IS A POWERFUL PROGRAMMING LANGUAGE TO DEVELOP SOPHISTICATED WINDOWS PROGRAMS VERY QUICKLY. VISUAL BASIC ONE OF THE RAPID APPLICATIONS VERY EASILY AND VERY QUICKLY. IT CONTAINS THE SAME BASIC LIKE LANGUAGE THAT HAS BEEN POPULAR OVER THE YEARS AND IT INCLUDES ALL THE NECESSARY EXTENSIONS REQUIRED TO PRODUCE WINDOWS PROGRAMS.VISUAL BASIC APPLICATIONS ARE VERY POPULAR AS FRONT-END TO MANY CLIENT SERVER DATABASE SYSTEMS LIKE  SQL/SERVER, ORACLE ETC.

VISUAL BASIC APPLICATION DEVELOPMENT CYCLE

THE NECESSARY STEPS TO CREATE A VISUAL BASIC PROGRAM.PROGRAMMERS CALL THESE STEPS AS DEVELOPMENT CYCLE

[1] DECIDE WHAT YOU WANT THE COMPUTER TO DO

[2] DECIDE HOW YOU WANT YOUR PROGRAM TO LOOK  ON THE SCREEN

[3] DRAW YOUR USER INTERFACE BY USING COMMON COMPONETS, SUCH AS WINDOWS, MENUS AND COMMAND BUTTONS.

DATA TYPES IN VISUAL BASIC

TYPES                                                         STORAGE  SIZE

INTEGER                                                    2 BYTES

LONG                                                           4 BYTES

SINGLE                                                       4 BYTES

DOUBLE                                                     8 BYTES

CURRENCY                                               8 BYTES

STRING                                                       1 BYTE PER CHARACTER

BYTE                                                           1 BYTE

DATE                                                          8 BYTE

BOOLEAN                                                  TRUE OR FALSE

DECLARING VARIABLES

A VARIABLE DECLARED WITH THE DIM STATEMENT WITHIN  A PROCEDURE EXISTS ONLY AS LONG AS THE PROCEDURE IS EXECUTING.WE DECLARE A VARIABLE UNSIG DIM STATEMENT

SYNTAX

DIM VARIABLE AS TYPE

EXAMPLE

DIM ROLL AS INTEGER

VISUAL BASIC USER INTERFACE

TOOLBARàDISPLAYS ICONS THAT REPRESENT THE MOST COMMONLY USED VISUAL BASIC COMMANDS.

TOOLBOXàDISPLAYS THE TYPES OF OBJECTS SUCH AS COMMNAD BUTTON OR CHECK BOX THAT YOU CAN DRAW ON A FORM.THE TOOLBOX MAY NOT LIST ALL POSSIBLE OBJECTS YOU CAN DRAW ON A FORM. TO GET A COMPLETE LIST OF OBJECTS YOU CAN DISPLAY IN YOUR TOOLBOX, PRESS CTRL+T

PROJECT EXPLOERà LISTS ALL THE FILES THAT MAKE UP A SINGLE VISUAL BASIC PROGRAM.

PROPERTIES WINDOWà DISPLAYS THE PROPERTIES OF THE CURRENTLY SELECTED FORM OF OBJECT.

FORM LAYOUT WINDOWàENABLES YOU TO ARRANGE THE LOCATION WHERE YOUR FORMS APPEAR ON THE SCRREN.

FORMà PROVIDES A WINDOW WHERE YOU CAN DRAW OBJECTS TO DESIGN YOUR PROGRAM’S USER INTERFACE.

VISUAL BASIC CONTROLS

THE VISUAL BASIC TOOLBOX CONTAINS THE TOOLS WE USE TO DRAW CONTROLS ON OUR FORMS. EACH TOOL IN THE TOOLBOX REPRESENTS A CONTROL.

POINTER à THE POINTER PROVIDES A WAY TO MOVE AND RESIZE FORMS AND CONTROLS

LABELà THE LABEL CONTROL DISPLAYS TEXT  A USER CANNOT INTERACT WITH OR MODIFY

TEXTBOXàTHE TEXTBOX  CONTROL PROVIDES AN AREA TO ENTER OR DISPLAY TEXT

COMMAND BUTTON à THE COMMAND BUTTON CONTROL CARRIES OUT A COMMAND OR ACTION WHEN A USER CHOOSES IT.

CONTROL STRUCTURES

[1] DECISION STRUCTURES – IF  à VISUAL BASIC PROCEDURES CAN TEST CONDITION  AND THEN, DEPENDING ON THE RESULTS OF THE TEXT, PERFORM DIFFERENT OPERATIONS.

   [A]  IF  ---  THEN  à WE CAN USE  EITHER SINGLE LINE SYNTAX OR MULTIPLE LINE BLOCK SYNTAX

  IF  <CONDITION> THEN

      <STATEMENT >

 IF <CONDITION> THEN

     <STATEMENT>

ENDIF

[B] IF --- THEN --- ELSE

  IF <CONDITION> THEN

SYNTAX

FOR <VARIABLE> = <START VALUE> TO  <END VALUE> STEP INCREMENT

 ONE  OR MORE STATEMENTS

NEXT <VARIABLE>

[2] DO WHILE  ---LOOP

 SYNTAX

  DO WHILE <CONDITION>

 STATEMENT

 LOOP

[3] DO ----LOOP

  SYNTAX

DO

   STATEMENT

LOOP WHILE<CONDITION>

CHECK BOXàTHE CHECK BOX CONTROL DISPLAYS A TRUE/FALSE OR YES/ NO OPTION.YOU CAN CHECK ANY NUMBER OF CHECK BOXES ON A FORM AT ONE TIME

OPTION BUTTONàTHE OPTION BUTTON CONTROL, AS A PART OF AN OPTION GROUP WITH OTHER OPTION BUTTONS, DISPLAYS MULTIPLE CHOICES, FROM WHICH A USER CAN CHOOSES ONLY ONE.

COMBO BOXàTHE COMBO BOX CONTROL COMBINES A TEXT BOX WITH A LIST BOX.ALLOWS A USER TO TYPE IN A SELECETION OR SELECT AN ITEM FROM A DROP – DOWN LIST

LIST BOXà THE LIST BOX CONTROL DISPLAYS A LIST OF ITEMS THAT A USER CAN CHOOSE FROM.

TIMERà THE TIMER CONTROL EXECUTES TIMER EVENTS AT SPECIFIED  TIME INTERVAIS.

SHAPEà THE SHAPE CONTROL ADDS A RECTANGEL, SQURE,ELLIPSE OR CIRCLE TO A FORM.

LINE à THE LINE CONTROL ADDS  A LINE ON A FORM

(1)        WAP TO ENTER A NUMBER THEN CHECK THE EVEN OR ODD NUMBER.

CHECK

EXIT

 COMMAND 1                                                                      COMMAND 2

PRIVATE SUB COMMAND 1 CLICK()

DIM A AS INTEGER

A=INPUTBOX(“ENTER YOUR NO”)

IF(A MOD2)=0 THEN

MSGBOX(“NO IS EVEN NO”)

ELSE

MSGBOX(“NO IS ODD NO”)

ENDIF

ENDSUB

PRIVATE SUB COMMAND 2 CLICK()

END

ENDSUB

(2)        WAP TO ENTER TWO NUMBER THEN PRINT BIGGEST NUMBER.

RUN

EXIT

COMMAND 1                                                            COMMAND 2

Private Sub Command1_Click()

Dim A, B As Integer

A = InputBox("ENTER YOUR FIRST NO")

B = InputBox("ENTER YOUR SECOND NO")

If (A > B) Then

MsgBox (" A IS THE BIGGEST NO")

Else

MsgBox ("B IS THE BIGGEST NO")

End If

End Sub

Private Sub Command2_Click()

End

End Sub

(3)        WAP TO ENTER THREE NUMBER THEN PRINT THE BIGGEST NUMBER.

RUN

EXIT

COMMAND 1                                                            COMMAND 2

Private Sub Command1_Click()

Dim a, b, c As Integer

a = InputBox("enter your first no")

b = InputBox("enter your second no")

c = InputBox("enter your third no")

If (a > b And a > c) Then

MsgBox (" a is the biggest no")

Else

If (b > a And  b > c) Then

MsgBox (" b is the biggest no")

Else

MsgBox (" c is the biggest no")

End If

End If

               End Sub

Private Sub Command2_Click()

End

End Sub

(4)        WAP TO ENTER THREE NUMBER THEN PRINT THE SMALLEST NUMBER.

RUN

EXIT

COMMAND 1                                                            COMMAND 2

Private Sub Command1_Click()

Dim a, b, c As Integer

a = InputBox("enter your first no")

b = InputBox("enter your second no")

c = InputBox("enter your third no")

If (a < b And a < c) Then

MsgBox (" a is the SMALLEST no")

Else

If (b < a And b < c) Then

MsgBox (" b is the SMALLEST no")

Else

MsgBox (" c is the SMALLEST no")

End If

End If

End Sub

Private Sub Command2_Click()

End

End Sub

(5)        WAP ENTER A YEAR THEN PRINT THE LEAP OR NOT LEAP YEAR.

RUN

EXIT

COMMAND 1                                                            COMMAND 2

Private Sub Command1_Click()

Dim A As Integer

A = InputBox("ENTER YOUR NO")

If (A Mod 4) = 0 Then

MsgBox (" A IS THE LEAP YEAR")

Else

MsgBox (" A IS NOT LEAP YEAR")

End If

End Sub

Private Sub Command2_Click()

End

End Sub

(6)        WAP ENTER TWO NUMBER THEN PRINT TOTAL AND AVERAGE MARKS.

FIRST NO

LABEL 1                                               TEXT 1

SECOND NO

LABEL2                                      TEXT 2                                                                                                

TOTAL

LABEL 3                                             TEXT 3

AVERAGE

LABEL4                                  TEXT 4                                          

EXIT

INPUT

CALCULATE

COMMAND 1                     COMMAND 2     COMMAND 3

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text4.Text = Val(Text3.Text) / 2

End Sub

Private Sub Command3_Click()

End

End Sub

(7)        WAP ENTER TWO NUMBER THEN PRINT ADD,SUB,MUL AND DIVISION NUMBER.

                                

FIRST NO

LABEL 1                                               TEXT 1

SECOND NO

LABEL2                                      TEXT 2                                                                                                

ADD

LABEL 3                                             TEXT 3

 

SUB

LABEL4                                  TEXT 4       

MUL

LABEL 5                                               TEXT 5

DIV

LABEL 6                                  TEXT 6

EXIT

INPUT

CALCULATE

COMMAND 1                                COMMAND 2 COMMAND 3

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

TEXT5.Text = " "

TEXT6.Text = " "

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text4.Text = Val(Text1.Text) - Val(Text2.Text)

TEXT5.Text = Val(Text1.Text) * Val(Text2.Text)

TEXT6.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command3_Click()

End

End Sub

(8)        WAP TO ENTER NAME,EMP NO,DEPT AND BASIC PAY IF BASIC PAY>10000 THEN TA,DA=10% AND HRA=7% OF BP OTHERWISE TA,DA=8% AND HRA=5% OF BP CALCULATE TOTAL PAY.          

NAME

EMP NO

DEPT

BASIC PAY

TA

    

DA

HRA

TOTAL

EXIT

INPUT

CALCULATE

COMMAND 1                   COMMAND 2            COMMAND 3

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

Text7.Text = " "

Text8.Text = " "

Text1.SetFocus

End Sub

Private Sub Command2_Click()

If (Text4.Text > 10000) Then

Text5.Text = Text4.Text * 10 / 100

Text6.Text = Text4.Text * 10 / 100

Text7.Text = Text4.Text * 7 / 100

Else

Text5.Text = Text4.Text * 8 / 100

Text6.Text = Text4.Text * 8 / 100

Text7.Text = Text4.Text * 5 / 100

End If

Text8.Text = Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text)

End Sub

Private Sub Command3_Click()

End

End Sub

(9)        WAP TO ENTER NAME,ROLL AND THREE SUBJECT MARKS CALCULATE TOTAL AND AVERAGE IF AVERAGE >80% THEN GRADE=”A” IF AVERAGE>70% THEN GRADE=”B” OTHERWISE GRADE=”C”.

NAME

ROLL

PHY

CHE

MATH

    

TOTAL

AVERAGE

GRADE

EXIT

INPUT

CALCULATE

COMMAND 1                   COMMAND 2            COMMAND 3

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

Text7.Text = " "

Text8.Text = " "

End Sub

Private Sub Command2_Click()

TEXT6.TEXT=VAL(TEXT3.TEXT)+VAL(TEXT4.TEXT)+VAL(TEXT5.TEXT)

TEXT7.TEXT=VAL(TEXT6.TEXT)/3

IF(TEXT7.TEXT)>80 THEN

TEXT8.TEXT=”A”

ELSE

IF(TEXT7.TEXT)>70 THEN

TEXT8.TEXT="B”

ELSE

TEXT8.TEXT=”C”

ENDIF

ENDIF

ENDSUB

Private Sub Command 3_Click()

END

ENDSUB

(10)WAP TO PRINT ODD NO BETWEEN 1 TO 50.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim K As Integer

For K = 1 TO 50

If (K Mod 2) = 1 Then

Print K

End If

Next K

End Sub

Private Sub Command2_Click()

End

End Sub

(11)WAP TO PRINT EVEN NO BETWEEN 1 TO 50.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim K,A As Integer

For K = 1 TO 50

If (K Mod 2) = 0 Then

Print K

End If

Next K

End Sub

Private Sub Command2_Click()

End

End Sub

(12) WAP ENTER A NO THEN PRINT TABLE OF NO.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim N,  I As Integer

N = InputBox("ENTER A NO")

For I = 1 To 10

Print " ", N * I

Next I

End Sub

Private Sub Command2_Click()

End

End Sub

(13) WAP TO PRINT NO DIVIDED BY 7 BETWEEN 1 TO 100.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

DIM K AS Integer

For K = 1 To 100

If (K Mod 7) = 0 Then

Print " ", K

End If

Next K

End Sub

Private Sub Command2_Click()

End

End Sub

(14)  WAP ENTER A NO THEN PRINT THE FACTORIAL NUMBER.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim F, N As Integer

F = 1

N = InputBox("ENTER YOUR NO")

Do While (N <> 0)

F = F * N

N = N - 1

Loop

Print " ", F

End Sub

Private Sub Command2_Click()

End

End Sub

(15) WAP 1 TO 100 THEN PRINT SUM OF EVEN NUMBER.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim S,k As Integer

S = 0

For K = 1 To 100

If (K Mod 2) = 0 Then

S = S + K

End If

Next K

Print " ", S

End Sub

Private Sub Command2_Click()

End

End Sub

(16) WAP 1 TO 100  THEN PRINT SUM OF ODD NO.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim S As Integer

S = 0

For K = 1 To 100

If (K Mod 2) = 1 Then

S = S + K

End If

Next K

Print " ", S

End Sub

Private Sub Command2_Click()

End

End Sub

(17) WAP TO ENTER A NO THEN PRINT THE REVERSE NUMBER.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim F, N, P As Integer

F = 0

P = 0

N = InputBox("ENTER A NO")

Do While (N< > 0)

P = (N Mod 10)

F = F * 10 + P

N = Int(N / 10)

Loop

Print " ", F

End Sub

Private Sub Command2_Click()

End

End Sub

(18) WAP ENTER A NO THEN PRINT THE COUNT OF DIGIT NO.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim F, N, P, C As Integer

F = 0

C = 0

P = 0

N = InputBox("ENTER A NO")

Do While (N > 0)

P = (N Mod 10)

F = F * 10 + P

C = C + 1

N = Int(N / 10)

Loop

Print " ", C

End Sub

Private Sub Command2_Click()

End

End Sub

(19) WAP TO ENTER A NO THEN PRINT FEBANACIOUR SERIES NUMBER.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim A, B, C As Integer

A = 0

B = 1

Print A

Print B

C = A + B

Do While (C < 50)

Print " ", C

A = B

B = C

C = A + B

Loop

End Sub

Private Sub Command2_Click()

End

End Sub

(20) WAP TO PRINT NO,SQUARE NO,QUBE NO AND SUM OF NO,SUM SQUARE NO,SUM QUBE NO BETWEEN 1 TO 20.

RUN

EXIT

COMMAND 1                   COMMAND 2 

Private Sub Command1_Click()

Dim M, N, S, Q, T, L As Integer

For T = 1 To 20

L = L + T

M = T * T

S = S + M

N = T * T * T

Q = Q + N

Print " ", T, M, N

Next T

Print " ", L, S, Q

End Sub

Private Sub Command2_Click()

End

End Sub

(21) WAP TO ENTER NAME,ROLL FIVE SUBJECT AND SECTION,CLASS AND CALCULATE TOTAL,AVERAGE AND GRADE.IF AVG>60 THEN GRADE=”A” IF AVG>50 THEN GRADE=”B” OTHERWISE GRADE=”FAIL”.

NAME

ROLL

CLASS

SECTION

MATH

    

PHY

CHE

HIN

ENG

TOTAL

AVERAGE

    

GRADE

INPUT

CALCULATE

EXIT

COMMAND 1                   COMMAND 2            COMMAND 3

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

Text7.Text = " "

Text8.Text = " "

Text9.Text = " "

Text10.Text = " "

Text11.Text = " "

Text12.Text = " "

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text10.Text = Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text)

Text11.Text = Val(Text10.Text) / 5

K = Text11.Text

If (K > 60) Then

Text12.Text = "A"

Else

If (K > 50) Then

Text12.Text = "B"

Else

Text12.Text = "FAIL"

End If

End If

End Sub

Private Sub Command3_Click()

End

End Sub

(22) WAP TO ENTER TWO NO THEN PRINT CHANGE NUMBER.

FIRST NO

SECOND NO

INPUT

CHANGE NO

EXIT

COMMAND 1                   COMMAND 2            COMMAND 3

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text1.Text = Val(Text1.Text) + Val(Text2.Text)

Text2.Text = Val(Text1.Text) - Val(Text2.Text)

Text1.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

End

End Sub

(23) WAP TO ENTER MALE OR FEMALE THEN CHECK MALE OR FEMALE CANDIATE.

MALE

                                              OPTION 1

FEMALE

                                                 OPTION 2

CHECK

                                            TEXT1

EXIT

                                              COMMAND 1

Private Sub Option1_Click()

If Option1.Value = True Then

Text1.Text = "MALE"

End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Text1.Text = "FEMALE"

End If

End Sub

Private Sub Command1_Click()

End

End Sub

(24)