VB Project

Hello Guys,
               Here is the link to download our VB Record project, please make use of it.

Vasanth's Project (E-Voting)  , File Size:2.04 MB

8 Queens of Death , File Size: 705.64 KB
(VB Game by K.Vasanth)

Sheela's Project (Employee Details) , File Size: 8.9 MB 

Dharani's Project ( Student Info. System) , File Size: 4.53 MB 

Bhargavi's Project (Stock Maintenance) , File Size: 56.27 MB





The Above given links are password protected, to unlock the password. Please click on the Download Tab and get the password.

Unit-II

4_PPT_WVP_5

Unit-II

4_PPT_WVP_4

Unit-II

4_PPT_WVP_3

Unit-II

4_PPT_WVP_2

UNIT-I(Lecture-1)

l1_introduction to Visual Programming

UNIT-I(Lecture-2)

l2_introduction to Visual Programming

UNIT-I(Lecture-3)

l3 Datatypes Variables Visual Programming

UNIT-I(Lecture-4)

L4 Resources

UNIT-I(Lecture-5)

L5_DeviceContext

UNIT-I(Lecture-6)

L6_DLL

Simple Calculator using control Array

Calculator form Design

 

Form Description

Source Code:


Option Explicit
Dim Operand1 As Double, Operand2 As Double
Dim Operator As String
Dim ClearDisplay As Boolean

Private Sub ClearBttn_Click()
    Display.Caption = ""
End Sub

Private Sub Digits_Click(Index As Integer)
    If ClearDisplay Then
        Display.Caption = ""
        ClearDisplay = False
    End If
    Display.Caption = Display.Caption + Digits(Index).Caption
End Sub

Private Sub Div_Click()
    Operand1 = Val(Display.Caption)
    Operator = "/"
    Display.Caption = ""
End Sub

Private Sub DotBttn_Click()
    If ClearDisplay Then
        Display.Caption = ""
        ClearDisplay = False
    End If
    If InStr(Display.Caption, ".") Then
        Exit Sub
    Else
        Display.Caption = Display.Caption + "."
    End If
End Sub

Private Sub Equals_Click()
Dim result As Double

On Error GoTo ErrorHandler
    Operand2 = Val(Display.Caption)
    If Operator = "+" Then result = Operand1 + Operand2
    If Operator = "-" Then result = Operand1 - Operand2
    If Operator = "*" Then result = Operand1 * Operand2
    If Operator = "/" And Operand2 <> "0" Then result = Operand1 / Operand2
    Display.Caption = result
    ClearDisplay = True
    Exit Sub
ErrorHandler:
    Dim intMsg As Integer
    intMsg = MsgBox("The operation resulted in the following error" _
    & vbCrLf & Err.Description, vbOKCancel)
   
    Display.Caption = "ERROR " & intMsg
    ClearDisplay = True
End Sub

Private Sub Minus_Click()
    Operand1 = Val(Display.Caption)
    Operator = "-"
    Display.Caption = ""
End Sub

Private Sub Over_Click()
    If Val(Display.Caption) <> 0 Then Display.Caption = 1 / Val(Display.Caption)
End Sub

Private Sub Plus_Click()
    Operand1 = Val(Display.Caption)
    Operator = "+"
    Display.Caption = ""
End Sub

Private Sub PlusMinus_Click()
    Display.Caption = -Val(Display.Caption)
End Sub

Private Sub Times_Click()
    Operand1 = Val(Display.Caption)
    Operator = "*"
    Display.Caption = ""
End Sub

The Windows XP Boot Process[ Which DLL File Needed to Boot Windows Xp]

The Windows XP Boot Process[ Which DLL File Needed to boot windows xp]

Make use of it.
-Regards
کเvαરαjαи.и

VB Tools, Properties, Commands, Methods

VB basic controls

Use of All Basic Controls@

VB ASSIGMENT

Windows Components and Difference Between Event Driven and Control driven

Make use of it.
-Regards
کเvαરαjαи.и,