Visual Programming: Practical File
Visual Programming: Practical File
PRACTICAL FILE
SUBMITTED BY:
Mukesh Kumar
ROLL NO. : - 11003148
Mukesh Kumar
11003148
INDEX
1. LOAN CALCULATOR
2. STOP WATCH
3. NOTEPAD
4. STUDENTS LETTER GRADE
5. COLLECTIONS
6. THE USE OF FILE CONTROLS
7. MATHEMATICS CALCULATOR
8. TO DRAW DIRECTLY ON A FORM
9. TILLING PICTURE
10. GENERIC CONTROL
11. MDI
12. DATA PROJECT
Mukesh Kumar
11003148
LOAN CALCULATOR
Dim P As Single
Dim R As Single
Dim T As Single
Private Sub Command1_ Click ()
P = Val(Text1.Text)
R = Val(Text2.Text)
T = Val(Text3.Text)
Text4.Text = (P * R * T) / 100
Text5.Text = P + ((P * R * T) / 100)
End Sub
Private Sub Command2_ Click ()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Command3_ Click ()
Unload Me
End Sub
DESIGN TIME
Mukesh Kumar
RUN TIME
11003148
Mukesh Kumar
11003148
STOP WATCH
Dim M As Integer
Dim S As Integer
Dim T As Integer
Private Sub Command1_Click()
If Command1.Caption = "STOP" Then
Command1.Caption = "START"
Timer1.Enabled = False
Else
Command1.Caption = "STOP"
Timer1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Caption = "START"
Text4.Text = Text4.Text & Text1.Text & ":" & Text2.Text & ":" & Text3.Text & vbCrLf
T=0
M=0
S=0
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
T=T+1
If T = 99 Then
S=S+1
T=0
End If
Mukesh Kumar
If S = 59 Then
M=M+1
S=0
End If
Text1.Text = M
Text2.Text = S
Text3.Text = T
End Sub
DESIGN TIME
11003148
Mukesh Kumar
RUN TIME
11003148
Mukesh Kumar
11003148
NOTEPAD
Mukesh Kumar
FORM 1
Private Sub COLOURMENU_Click()
CMD.ShowColor
Text1.SelColor = CMD.Color
End Sub
11003148
Mukesh Kumar
End Sub
11003148
Mukesh Kumar
11003148
FORM 2
Dim START As Integer
Private Sub Command1_Click(Index As Integer)
START = Form1.Text1.SelStart + Form1.Text1.SelLength + 1
Form1.Text1.SelStart = InStr(START, Form1.Text1.Text, Form2.Text1.Text) - 1
If Form1.Text1.SelStart = -1 Then
MsgBox "NOT FOUND"
End If
Form1.Text1.SelLength = Len(Form2.Text1)
Form1.Text1.SetFocus
End Sub
Private Sub Command2_Click(Index As Integer)
Form1.Text1.SelText = Text2.Text
End Sub
Private Sub DONE_Click(Index As Integer)
Form1.SetFocus
Unload Me
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Mukesh Kumar
START = 1
End Sub
11003148
Mukesh Kumar
11003148
Mukesh Kumar
RUN TIME
11003148
Mukesh Kumar
11003148
Mukesh Kumar
11003148
Mukesh Kumar
11003148
DESIGN TIME
Mukesh Kumar
11003148
RUNTIME
COLLECTIONS
Mukesh Kumar
Dim S As String
Dim TEMP As New Collection
Dim A As Integer
Private Sub Command1_Click()
On Error GoTo NOTFOUND:
S = InputBox("ENTER THE CITY ")
A = TEMP.Item(S)
MsgBox " THE TEMPERATURE OF THE CITY ENTERED IS" & A
Exit Sub
NOTFOUND:
MsgBox " CITY NOT FOUND"
End Sub
Private Sub Command2_Click()
For Each CITY In TEMP
TOTAL = TOTAL + CITY
Next
AVERAGE = TOTAL / TEMP.Count
MsgBox ("THE AVERAGE TEMPERATURE IS" & AVERAGE)
End Sub
Private Sub Form_Load()
TEMP.Add 34, "DELHI"
TEMP.Add 39, "KOKATTA"
TEMP.Add 30, "MUMBAI"
TEMP.Add 27, "CHENNAI"
End Sub
DESIGN TIME
11003148
Mukesh Kumar
RUNTIME
11003148
Mukesh Kumar
11003148
DESIGN TIME
Mukesh Kumar
RUNTIME
11003148
Mukesh Kumar
MATHEMATICS CALCULATOR
Dim A As Single
Dim B As Single
Dim OP As String
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
End Sub
Private Sub Command2_Click(Index As Integer)
Text1.SelStart = Text1.MaxLength - 2
Text1.SelLength = Len("1")
Text1.SetFocus
Text1.SelText = ""
End Sub
Private Sub Command3_Click(Index As Integer)
A = Val(Text1.Text)
OP = Command3(Index).Caption
Text1.Text = ""
End Sub
Private Sub Command4_Click(Index As Integer)
B = Val(Text1.Text)
If OP = "+" Then Text1.Text = A + B
If OP = "-" Then Text1.Text = A - B
If OP = "*" Then Text1.Text = A * B
If OP = "/" Then
If B = 0 Then
Text1.Text = "CANT DEVIDE BY0"
Exit Sub
End If
Text1.Text = A / B
11003148
Mukesh Kumar
End If
End Sub
Private Sub Command5_Click(Index As Integer)
If InStr(Text1.Text, ".") Then
Exit Sub
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub Command6_Click(Index As Integer)
A=0
B=0
Text1.Text = ""
End Sub
Private Sub Text1_Change()
Text1.MaxLength = Len(Text1.Text) + 1
End Sub
DESIGN TIME
11003148
Mukesh Kumar
RUNTIME
11003148
Mukesh Kumar
11003148
Mukesh Kumar
End If
Form1.MousePointer = 0
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Form1.Cls
End If
End Sub
DESIGN TIME
11003148
Mukesh Kumar
RUN TIME
11003148
Mukesh Kumar
11003148
DESIGN TIME
Mukesh Kumar
RUN TIME
11003148
Mukesh Kumar
GENERIC CONTROLS
CODING
1.FORM
Private Sub Command1_Click()
UserControl11.title = "fdnfkdfjdsfk"
End Sub
2.USER CONTROL
Private m_title As String
Const m_def_title = "genric control"
11003148
Mukesh Kumar
11003148
title = "dfsds"
End Sub
Private Sub UserControl_Initialize()
m_title = m_def_title
End Sub
Private Sub
UserControl_WriteProperties(PropBag As
PropertyBag)
Call PropBag.WriteProperty("title", m_title,
m_def_title)
End Sub
Mukesh Kumar
DESIGN
1.FORM
11003148
Mukesh Kumar
2. USERCONTROL
11003148
Mukesh Kumar
RUNTIME
11003148
Mukesh Kumar
11003148
M.D.I FORM
CODING
1.FORM 1
Dim i As Integer
Private Sub Command1_Click()
Load Form2
Form2.Show
End Sub
2.FORM2
Private Sub Form_Load()
Load Form3
Form3.Show
End Sub
Mukesh Kumar
DESIGN
FORM1
11003148
Mukesh Kumar
FORM2
11003148
Mukesh Kumar
M.D.I FORM 1
RUNTIME
11003148
Mukesh Kumar
11003148
DATA PROJECT
Mukesh Kumar
11003148
CODING
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
End Sub
Mukesh Kumar
DataEnvironment1.rsCommand1.MoveLast
End Sub
End Sub
End Sub
End Sub
11003148
Mukesh Kumar
End Sub
End Sub
11003148
Mukesh Kumar
11003148
Print f.Name
Next
End Sub
Mukesh Kumar
11003148
Mukesh Kumar
Adodc1.Recordset.MoveLast
End Sub
DESIGN
11003148
Mukesh Kumar
RUNTIME
11003148
Mukesh Kumar
11003148