VB Program by Majid

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 55

NAME:-Mohd Majid

CLASS: - B.Sc III


BATCH: - M2

Create Visual Basic Application Using Application Wizard.

This is the first window when you start Application Wizard from new Projects Window

After Clicking on next button On Introductions Wizards the window is appearing as above.
You have to choose different menu & submenu for menu bar from above Menu window

You can also select the toolbar option from the wizards as shown in above window.
After completing the application wizards the above Application Created dialog box is appeared.
This is use of application wizards on form or Application as shown in above figure
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = "SUM"
End Sub

Private Sub Command2_Click()


Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label3.Caption = "SUB"
End Sub

Private Sub Command3_Click()


Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label3.Caption = "MUL"
End Sub

Private Sub Command4_Click()


On Error Resume Next
If Val(Text2.Text) = 0 Then
If MsgBox("Enter the value is greater than ZERO in No.2", vbCritical + vbOKOnly,
"Zero") = vbOK Then
Text2.SetFocus
End If
End If
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label3.Caption = "DIV"
End Sub

Private Sub Command5_Click()


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label3.Caption = "Result"
Text1.SetFocus
End Sub

Private Sub Command6_Click()


Unload Me
End Sub
Dim n(0 To 10) As Integer
Dim i, avg, sum As Integer

Private Sub cmdaccept_Click()


n(i) = CInt(txtnum.Text)
sum = sum + n(i)
txtnum.Text = ""
i=i+1
txtnum.SetFocus
End Sub

Private Sub cmddisplay_Click()


If (sum = 0) Then
MsgBox " No Number Is Entered ....", vbCritical, "Entry"
Else
avg = sum / i
txtavg.Text = avg
txtdisplay.Text = n(0) & " , " & n(1) & " , " & n(2) & " , " & n(3) & " , " & n(4) & " , " & n(5) & " , "
& n(6) & " , " & n(7) & " , " & n(8) & " , " & n(9)
cmdaccept.Enabled = False
txtnum.Enabled = False
End If
End Sub

Private Sub cmdexit_Click()


End
End Sub
Private Sub cmdclear_Click()
txtnum.Text = ""
txtavg = ""
txtdisplay.Text = ""
i=0
avg = 0
sum = 0
txtnum.Enabled = True
cmdaccept.Enabled = True
cmddisplay.Enabled = True
End Sub

Private Sub Form_Load()


i=0
avg = 0
sum = 0
End Sub
Private Sub chkmov_Click()
result
End Sub

Private Sub chkplay_Click()


result
End Sub

Private Sub chkread_Click()


result
End Sub

Private Sub chkwrite_Click()


result
End Sub

Private Sub Form_Load()


txtresult.Text = "Your selected category is: OBC"
End Sub

Private Sub optobc_Click()


result
End Sub

Private Sub optopen_Click()


result
End Sub
Private Sub optother_Click()
result
End Sub

Private Sub optsc_Click()


result
End Sub

Private Sub result()

If optobc.Value = True Then


txtresult.Text = "Your selected category is : " & optobc.Caption & vbCrLf
ElseIf optopen.Value = True Then
txtresult.Text = "Your selected category is : " & optopen.Caption & vbCrLf
ElseIf optsc.Value = True Then
txtresult.Text = "Your selected category is : " & optsc.Caption & vbCrLf
ElseIf optother.Value = True Then
txtresult.Text = "Your selected category is : " & optother.Caption & vbCrLf
End If

If chkread.Value = 1 Or chkwrite.Value = 1 Or chkplay.Value = 1 Or chkmov.Value = 1 Then


txtresult.Text = txtresult.Text & "Your selected hobbies are : " & vbCrLf
End If

If chkread.Value = 1 Then
txtresult.Text = txtresult.Text & chkread.Caption & vbCrLf
End If
If chkwrite.Value = 1 Then
txtresult.Text = txtresult.Text & chkwrite.Caption & vbCrLf
End If
If chkplay.Value = 1 Then
txtresult.Text = txtresult.Text & chkplay.Caption & vbCrLf
End If
If chkmov.Value = 1 Then
txtresult.Text = txtresult.Text & chkmov.Caption & vbCrLf
End If

End Sub
Private Sub cmdclear_Click()
txtfarenheite.Text = ""
txtcelcius.Text = ""
End Sub

Private Sub cmdexit_Click()


Unload Me
End Sub

Private Sub cmdok_Click()


Dim c As Integer
Dim f As Double
c = Val(txtcelcius.Text)
f = Val(txtfarenheite.Text)
c = (f - 32) * 5 / 9
txtcelcius.Text = c
End Sub
EXPERIMENT NO
NAME:-Mohd Majid
CLASS: - B.Sc III
BATCH: - M2

Create Visual Basic Application Which Uses Input Box ( ) function.


Form1

Form 2
Form 3

Visual Basic Code:-


Dim fname, mname, lname As String
Private Sub cmdfname_Click()
fname = InputBox ("Enter Your First Name :", "First Name")
End Sub

Private Sub cmdfull_Click()


MsgBox "Your Full Name Is :- " & fname & " " & mname & " " & lname,
vbOKCancel + vbQuestion, "Full Name"
End Sub

Private Sub cmdlname_Click()


lname = InputBox("Enter Your Last Name :", "Last Name")
End Sub

Private Sub cndmname_Click()


mname = InputBox("Enter Your Middle Name :", "Middle Name")
End Sub
NAME:-Mohd Majid
CLASS: - B.Sc III
BATCH: - M2
DATE:-20-01-2008

Create Visual Basic Application To Find Greatest Among Three


Numbers.

Form 1
Form 2

Visual Basic Code


Private Sub cmdClear_Click()
txtNum1.Text = ""
txtNum2.Text = ""
txtNum3.Text = ""
txtLargest.Text = ""
End Sub

Private Sub cmdExit_Click()


Unload Me
End Sub

Private Sub cmdOk_Click()


Dim A, B, C As Integer
A = CInt(txtNum1.Text)
B = CInt(txtNum2.Text)
C = CInt(txtNum3.Text)
If A > B And A > C Then
txtLargest.Text = A
ElseIf B > C Then
txtLargest.Text = B
Else
txtLargest.Text = C
End If
End Sub

EXPERIMENT NO-
NAME:- Mohd Majid
CLASS:- B.S.c III
BATCH :- CES

Create VB Application which Demonstrate the List Box.

STARTING FORM

OUTPUT

CODES

Private Sub cmdclear_Click()


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub cmdlstok_Click()
If listopt.ListIndex = 0 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = "SUM"
ElseIf listopt.ListIndex = 1 Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label3.Caption = "SUB"
ElseIf listopt.ListIndex = 2 Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label3.Caption = "MUL"
ElseIf listopt.ListIndex = 3 Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label3.Caption = "DIV"
ElseIf listopt.ListIndex = 4 Then
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
Label3.Caption = "Result"
ElseIf listopt.ListIndex = 5 Then
Unload Me
End If
End Sub
NAME:-Mohd Majid
CLASS: - B.Sc III
BATCH: - M2

Create Visual Basic Application for Mark list of Student.


Form window
Output Window

Visual Basic Code


Dim intTotal As Integer
Dim dblPercentage As Double
Private Sub cmdok_Click()
txttotal.Text = (CInt(txtmar.Text) + CInt(txthin.Text) + CInt(txteng.Text) +
CInt(txtmaths.Text) + CInt(txtsci.Text) + CInt(txtssci.Text))
intTotal = (txttotal.Text)
dblPercentage = (intTotal / 7.5)
lblpercentage.Caption = dblPercentage & " %"
If (CInt(txtmar.Text) < 35) Or (CInt(txthin.Text) < 35) Or (CInt(txteng.Text) < 35) Or
(CInt(txtmaths.Text) < 52) Or (CInt(txtsci.Text) < 52) Or (CInt(txtssci.Text) < 52) Then
lblresult.Caption = " Fail "
Else
lblresult.Caption = "Pass "
End If
If (dblPercentage > 75) Or (dblPercentage = 75) Then
lblgrade.Caption = " Distinction "
ElseIf (dblPercentage > 60) Or (dblPercentage = 60) Then
lblgrade.Caption = " I Class "
ElseIf (dblPercentage > 45) Or (dblPercentage = 45) Then
lblgrade.Caption = " II Class "
End If
End Sub

Private Sub Command1_Click()


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
txtmar.Text = ""
txthin.Text = ""
txteng.Text = ""
txtmaths.Text = ""
txtsci.Text = ""
txtssci.Text = ""
txttotal.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
lblpercentage.Caption = "....."
lblresult.Caption = "....."
lblgrade.Caption = "....."
End Sub
EXPERIMENT NO
NAME:Mohd Majid
CLASS: - B.Sc III
BATCH: - M2
Create Visual Basic Application Which Uses the menu editor to full function menu

Form1

Form2
Output form 3

Output form 4

Output form 5
Visual Basic Code Of Programme

Private Sub MnuAboutUs_Click()


MsgBox "College Vb Software 1.0 version", vbOKOnly + vbInformation, "About
Product"
End Sub

Private Sub mnuColorBlue_Click ()


lblname1.ForeColor = vbBlue
lblname2.ForeColor = vbBlue
MnuColorBlue.Checked = True
MnuColorRed.Checked = False
MnuColorGreen.Checked = False
End Sub

Private Sub MnuColorGreen_Click ()


lblname1.ForeColor = vbGreen
lblname2.ForeColor = vbGreen
MnuColorBlue.Checked = False
MnuColorRed.Checked = False
MnuColorGreen.Checked = True
End Sub

Private Sub MnuColorRed_Click ()


lblname1.ForeColor = vbRed
lblname2.ForeColor = vbRed
MnuColorBlue.Checked = False
MnuColorRed.Checked = True
MnuColorGreen.Checked = False
End Sub

Private Sub mnuFileExit_Click ()


End
End Sub

Private Sub mnuFormatBold_Click ()


lblname1.FontBold = True
lblname2.FontBold = True
lblname1.FontItalic = False
lblname2.FontItalic = False
mnuFormatIttalic.Checked = False
mnuFormatBold.Checked = True
End Sub

Private Sub mnuFormatIttalic_Click()


lblname1.FontItalic = True
lblname2.FontItalic = True
lblname1.FontBold = False
lblname2.FontBold = False
mnuFormatIttalic.Checked = True
mnuFormatBold.Checked = False
End Sub
Private Sub cmdclear_Click()
txtmile.Text = ""
txtcenti.Text = ""
End Sub

Private Sub cmdconvert_Click()


txtcenti.Text = CInt(txtmile.Text) * 160934.4 & " CM "
End Sub

Private Sub cmdexit_Click()


Unload Me
End Sub
NAME:-Mohd Majid
CLASS: - B.Sc III
BATCH: - M2
DATE:-20-01-2008

Create Visual Basic Application Which Uses A Text Box To Display Mouse
Status When You Move Or Click A Mouse

Form 1

Form 2
Form 3

Visual Basic Code

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

txtPositionX.Text = X
txtPositionY.Text = Y

End Sub
NAME:-Mohd Majid
CLASS: - B.Sc III
BATCH: - M2
DATE:-20-01-2008

Create Visual Basic Application Using Magbox ( ) Function.


Form 1

Form 2
Form 3

Visual Basic Code

Dim n As Integer
Private Sub cmdlogin_Click ()
n=n+1
If (txtlogin.Text = "JAY GAJANAN") Then
MsgBox "CONGRAGULATION YOU CAN ACCESS THE SYSTEM",
vbOKOnly + vbExclamation, "WELCOME"
ElseIf (n < 3) Then
MsgBox "ENTER THE PASSWORD CORRECTLY ", vbOKOnly +
vbExclamation, "WELCOME"
txtlogin.Text = ""
Else
MsgBox "CONTACT YOUR ADMISTATOR YOU ARE NOT AUTHORISED
USER ", vbOKOnly + vbExclamation, "WRONG ACCESS"
Unload Me
End If
End Sub

Private Sub Form_Load()


n=0
End Sub
EXPERIMENT NO :-
EXPERIMENT :- Create Visual Basic Application To Find Number Of
Digit In given Digit.
NAME : - MOHD MAJID
CLASS : - B.Sc III
BATCH : - CEP

Private Sub cmdclear_Click()


txtnumber.Text = ""
txtconvert.Text = ""
End Sub
Private Sub cmdconvert_Click()
txtconvert.Text = Len(txtnumber.Text)
End Sub

Private Sub cmdexit_Click()


Unload Me
End Sub
EXPERIMENT NO :-
EXPERIMENT :- Create Visual Basic Application Using Option Button
NAME:-MOHD MAJID
CLASS: - B.Sc III
BATCH: - CEP
Private Sub chkbold_Click()
result1
End Sub

Private Sub chkita_Click()


result1
End Sub

Private Sub chkun_Click()


result1
End Sub

Private Sub Form_Load()


txtresult.Text = " THIS IS VISUAL BASIC EXPERIMENT USING OPTION & CHECH BOX "
End Sub

Private Sub optblue_Click()


result1
End Sub

Private Sub optgreen_Click()


result1
End Sub

Private Sub optred_Click()


result1
End Sub

Private Sub optyello_Click()


result1
End Sub

Private Sub result1()


If optyello.Value = True Then
txtresult.ForeColor = vbYellow
Else
If optgreen.Value = True Then
txtresult.ForeColor = vbGreen
Else
If optblue.Value = True Then
txtresult.ForeColor = vbBlue
Else
If optred.Value = True Then
txtresult.ForeColor = vbRed
End If
End If
End If
End If
If chkita.Value = 1 Then
txtresult.FontItalic = True
Else
txtresult.FontItalic = False
End If
If chkbold.Value = 1 Then
txtresult.FontBold = True
Else
txtresult.FontBold = False
End If
If chkun.Value = 1 Then
txtresult.FontUnderline = True
Else
txtresult.FontUnderline = False
End If
End Sub
EXPERIMENT NO :-
EXPERIMENT:- Create Visual Basic Application Which Uses a text box property to
request a password and display a graphical image after entering password successful.

NAME:-MOHD MAJID
CLASS: - B.Sc III
BATCH: - CEP

STARTING FORM 1

FORM WITH WRONG PASSWORD


FORM WITH CORRECT PASSWORD
CODE WINDOW :-

Dim n As Integer

Private Sub cmdok_Click ()


n=n+1
If (txtlogin.Text = "SHIVAJI AKOLA") Then
MsgBox "You Can Login the System", vbOKOnly + vbInformation, "LOGIN
SUCCESFULL"
img1.Visible = True
Unload Me
Else If (n < 3) Then
MsgBox "Enter the Correct Password ", vbOKOnly + vbInformation, "LOGIN
FAILED"
txtlogin.Text = ""
Else
MsgBox "Contact Your Adminstrator", vbOKOnly + vbCritical, "Admistrator"
End
End If
End Sub

Private Sub Form_Load ()


img1.Visible = False
n=0
End Sub
EXPERIMENT NO:-
PROGRAME: - Programe For Visual Basic Application Which Changes The Picture when
You Click On Command Button.

NAME :- MOHD MAJID


CLASS :- B.Sc III
BATCH :- CEP

Form 1

Output Form 1
Output form 2

Output Form To Quite Window


Visual Basic Code

Dim i, r, g, b As Integer

Private Sub cmdok_Click()


Form1.Height = 5430
Form1.Width = 8070
pb1 = imglst.ListImages.Count
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
i=i+1
If i > imglst.ListImages.Count Then
MsgBox "Slide Show Is Completed"
Timer1.Enabled = False
Else
Image1.Picture = imglst.ListImages(i).Picture
Me.BackColor = RGB(r, g, b)
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim reply As Integer
reply = MsgBox("DO You Want To Quite ?.... ", vbYesNo + vbCritical, "Exit Window")
If reply = vbYes Then
Unload Me
ElseIf reply = vbNo Then
Cancel = True
End If
End Sub
EXPERIMENT NO:-
PROGRAME :- PROGRME FOR REVERSE OF GIVEN NO.
NAME :- MOHD MAJID
CLASS :- B.Sc III
BATCH :- CEP
Private Sub cmdclear_Click()
txtno.Text = ""
txtreverse.Text = ""

End Sub

Private Sub cmdexit_Click()


Unload Me
End Sub

Private Sub cmdreverse_Click()


Dim n, r As Integer
n = Val(txtno.Text)
Do
r = n Mod 10
txtreverse.Text = txtreverse.Text & r
n = n \ 10
Loop Until n = 0

End Sub
EXPERIMENT NO:- 01
PROGRAME :- PROGRME FOR SIMPLE VB DOCUMENT
NAME :- MOHD MAJID
CLASS :- B.Sc III
BATCH :- CEP
Private Sub cmdok_Click()
lblname.Visible = True
End Sub

Private Sub Command2_Click()


lblname.Caption = ""
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


lblname.Visible = False
End Sub
EXPERIMENT NO :-
EXPERIMENT:- Create Visual Basic Application Using Tool from toolbox.
NAME:-MOHD MAJID
CLASS: - B.Sc III
BATCH: - CEP

Form 1

Form 2
Form 3

Form 4
VISUAL BASIC CODE
Private Sub MDIForm_Load()
Toolbar1.Buttons.Item(1).Enabled = False
Toolbar1.Buttons.Item(2).Enabled = False
Toolbar1.Buttons.Item(3).Enabled = False
End Sub

Private Sub MnuFileExit_Click()


Unload Me
End Sub

Private Sub MnuFileForm4_Click()


Toolbar1.Buttons.Item(1).Enabled = True
Toolbar1.Buttons.Item(2).Enabled = True
Toolbar1.Buttons.Item(3).Enabled = True
Form4.Show
End Sub
Private Sub MnuFileNew_Click()
Form4.Height = 5430
Form4.Width = 8025
Toolbar1.Buttons.Item(1).Enabled = True
Toolbar1.Buttons.Item(2).Enabled = True
Toolbar1.Buttons.Item(3).Enabled = True
End Sub

Private Sub MnuFileOpenOther_Click()


cd1.ShowOpen
End Sub

Private Sub MnuFileSave_Click()


cd1.ShowSave
MDIForm1.Caption = cd1.FileName
End Sub

Private Sub MnuHelpAboutUs_Click()


MsgBox " shivaji akola software limited .....", vbInformation, "About Us"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index()

Case 1: VB.Clipboard.SetText Form4.RTB1.SelText


Form4.RTB1.SelText = ""
Case 2: VB.Clipboard.SetText Form4.RTB1.SelText

Case 3: Form4.RTB1.SelText = VB.Clipboard.GetText

Case 5:
If Toolbar1.Buttons(5).Value = tbrUnpressed Then
Form4.RTB1.Font.Bold = False
Else
Form4.RTB1.Font.Bold = True
End If

Case 6:
If Toolbar1.Buttons(6).Value = tbrUnpressed Then
Form4.RTB1.Font.Italic = False
Else
Form4.RTB1.Font.Italic = True
End If

Case 7:
If Toolbar1.Buttons(7).Value = tbrUnpressed Then
Form4.RTB1.Font.Underline = False
Else
Form4.RTB1.Font.Underline = True
End If
End Select

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As


MSComctlLib.ButtonMenu)
Form4.RTB1.FontSize = ButtonMenu.Text

End Sub

You might also like