My Profile
Active Members
TodayLast 7 Days
more...
Awards & Gifts
Online Exams
Fresher Jobs
Our fresher job section is exclusively for fresh graduates! Find jobs for freshers in major Indian
cities including Bangalore, Chennai, Hyderabad, Pune or Kochi
Resources
Find educational articles, blogs, discussion threads and other resources.
Colleges
Find details about any college in India or search for courses.
|
Scientific Calculator
Posted Date:
Total Responses: 0
Posted By: Saravanakumar V Member Level: Gold Points/Cash: 10
|
frmCalculator.frm
VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "Calculator"
ClientHeight = 4110
ClientLeft = 150
ClientTop = 540
ClientWidth = 5115
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4110
ScaleWidth = 5115
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 360
Locked = -1 'True
TabIndex = 21
Top = 360
Width = 4335
End
Begin VB.CommandButton Command22
BackColor = &H0000C000&
Caption = "="
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
Style = 1 'Graphical
TabIndex = 20
Top = 3000
Width = 615
End
Begin VB.CommandButton Command21
BackColor = &H0000C000&
Caption = "+/-"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
Style = 1 'Graphical
TabIndex = 19
Top = 3000
Width = 615
End
Begin VB.Frame Frame1
BackColor = &H00404040&
BorderStyle = 0 'None
Height = 4095
Left = 0
TabIndex = 0
Top = 0
Width = 5055
Begin VB.Timer Timer1
Interval = 500
Left = 120
Top = 840
End
Begin VB.CommandButton Command19
BackColor = &H0000C000&
Caption = "-"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
Style = 1 'Graphical
TabIndex = 18
Top = 1800
Width = 615
End
Begin VB.CommandButton Command18
BackColor = &H0000C000&
Caption = "x"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
Style = 1 'Graphical
TabIndex = 17
Top = 2400
Width = 615
End
Begin VB.CommandButton Command17
BackColor = &H0000C000&
Caption = "/"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
Style = 1 'Graphical
TabIndex = 16
Top = 2400
Width = 615
End
Begin VB.CommandButton Command16
BackColor = &H0000C000&
Caption = "Del"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
Style = 1 'Graphical
TabIndex = 15
Top = 1200
Width = 615
End
Begin VB.CommandButton Command15
BackColor = &H0000C000&
Caption = "CE"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
Style = 1 'Graphical
TabIndex = 14
Top = 1200
Width = 615
End
Begin VB.CommandButton Command14
BackColor = &H0000C000&
Caption = "+"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
Style = 1 'Graphical
TabIndex = 13
Top = 1800
Width = 615
End
Begin VB.CommandButton Command13
BackColor = &H00C0C0FF&
Caption = "."
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
Style = 1 'Graphical
TabIndex = 12
Top = 3000
Width = 615
End
Begin VB.CommandButton Command12
BackColor = &H00C0C0FF&
Caption = "00"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
Style = 1 'Graphical
TabIndex = 11
Top = 3000
Width = 615
End
Begin VB.CommandButton Command11
BackColor = &H00C0C0FF&
Caption = "0"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
Style = 1 'Graphical
TabIndex = 10
Top = 3000
Width = 615
End
Begin VB.CommandButton Command10
BackColor = &H00C0C0FF&
Caption = "3"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
Style = 1 'Graphical
TabIndex = 9
Top = 2400
Width = 615
End
Begin VB.CommandButton Command9
BackColor = &H00C0C0FF&
Caption = "2"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
Style = 1 'Graphical
TabIndex = 8
Top = 2400
Width = 615
End
Begin VB.CommandButton Command8
BackColor = &H00C0C0FF&
Caption = "1"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
Style = 1 'Graphical
TabIndex = 7
Top = 2400
Width = 615
End
Begin VB.CommandButton Command7
BackColor = &H00C0C0FF&
Caption = "6"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
Style = 1 'Graphical
TabIndex = 6
Top = 1800
Width = 615
End
Begin VB.CommandButton Command6
BackColor = &H00C0C0FF&
Caption = "5"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
Style = 1 'Graphical
TabIndex = 5
Top = 1800
Width = 615
End
Begin VB.CommandButton Command5
BackColor = &H00C0C0FF&
Caption = "4"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
Style = 1 'Graphical
TabIndex = 4
Top = 1800
Width = 615
End
Begin VB.CommandButton Command4
BackColor = &H00C0C0FF&
Caption = "9"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
Style = 1 'Graphical
TabIndex = 3
Top = 1200
Width = 615
End
Begin VB.CommandButton Command3
BackColor = &H00C0C0FF&
Caption = "8"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
Style = 1 'Graphical
TabIndex = 2
Top = 1200
Width = 615
End
Begin VB.CommandButton Command2
BackColor = &H00C0C0FF&
Caption = "7"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
Style = 1 'Graphical
TabIndex = 1
Top = 1200
Width = 615
End
Begin VB.Shape Shape2
BackColor = &H008080FF&
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
Height = 2655
Left = 3000
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 1575
End
Begin VB.Shape Shape1
BackColor = &H00FFC0FF&
BackStyle = 1 'Opaque
BorderColor = &H0000C000&
BorderWidth = 2
Height = 2655
Left = 360
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 2295
End
Begin VB.Shape Shape5
BackColor = &H8000000D&
BackStyle = 1 'Opaque
BorderColor = &H00008000&
BorderWidth = 3
Height = 3855
Left = 120
Shape = 4 'Rounded Rectangle
Top = 120
Width = 4815
End
End
Begin VB.Frame Frame3
BackColor = &H00404040&
BorderStyle = 0 'None
Height = 4095
Left = 5040
TabIndex = 22
Top = 0
Width = 5055
Begin VB.Frame Frame9
BackColor = &H00FFC0C0&
Caption = "Calculation"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 2280
TabIndex = 37
Top = 2880
Width = 2535
Begin VB.CommandButton Command1
BackColor = &H008080FF&
Caption = "%"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1680
Style = 1 'Graphical
TabIndex = 47
Top = 360
Width = 495
End
Begin VB.CommandButton Command53
BackColor = &H008080FF&
Caption = "1/x"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
Style = 1 'Graphical
TabIndex = 44
Top = 360
Width = 495
End
Begin VB.CommandButton Command56
BackColor = &H008080FF&
Caption = "p"
BeginProperty Font
Name = "Symbol"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
Style = 1 'Graphical
TabIndex = 38
Top = 360
Width = 495
End
End
Begin VB.Frame Frame8
BackColor = &H00FFC0C0&
Caption = "Log Function"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 360
TabIndex = 36
Top = 2880
Width = 1935
Begin VB.CommandButton Command20
BackColor = &H008080FF&
Caption = "Exp"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1320
Style = 1 'Graphical
TabIndex = 49
Top = 360
Width = 495
End
Begin VB.CommandButton Command55
BackColor = &H008080FF&
Caption = "Log"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
Style = 1 'Graphical
TabIndex = 46
Top = 360
Width = 495
End
Begin VB.CommandButton Command54
BackColor = &H008080FF&
Caption = "ln"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
Style = 1 'Graphical
TabIndex = 45
Top = 360
Width = 495
End
End
Begin VB.CommandButton Command50
BackColor = &H008080FF&
Caption = "Tan"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
Style = 1 'Graphical
TabIndex = 31
Top = 1440
Width = 615
End
Begin VB.CommandButton Command49
BackColor = &H008080FF&
Caption = "MC"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
Style = 1 'Graphical
TabIndex = 30
Top = 840
Width = 615
End
Begin VB.CommandButton Command48
BackColor = &H008080FF&
Caption = "x^y"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1440
Style = 1 'Graphical
TabIndex = 29
Top = 1440
Width = 615
End
Begin VB.CommandButton Command47
BackColor = &H008080FF&
Caption = "Mod"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
Style = 1 'Graphical
TabIndex = 28
Top = 2040
Width = 615
End
Begin VB.CommandButton Command46
BackColor = &H008080FF&
Caption = "sqrt"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
Style = 1 'Graphical
TabIndex = 27
Top = 1440
Width = 615
End
Begin VB.CommandButton Command45
BackColor = &H008080FF&
Caption = "Sin"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4080
Style = 1 'Graphical
TabIndex = 26
Top = 840
Width = 615
End
Begin VB.CommandButton Command44
BackColor = &H008080FF&
Caption = "MS"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
Style = 1 'Graphical
TabIndex = 25
Top = 1440
Width = 615
End
Begin VB.CommandButton Command43
BackColor = &H008080FF&
Caption = "x^2"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1440
Style = 1 'Graphical
TabIndex = 24
Top = 840
Width = 615
End
Begin VB.CommandButton Command42
BackColor = &H008080FF&
Caption = "x^3"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1440
Style = 1 'Graphical
TabIndex = 23
Top = 2040
Width = 615
End
Begin VB.Frame Frame4
BackColor = &H00FFC0C0&
Caption = "Value"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 360
TabIndex = 32
Top = 360
Width = 855
Begin VB.CommandButton Command24
BackColor = &H008080FF&
Caption = "n!"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
Style = 1 'Graphical
TabIndex = 50
Top = 480
Width = 615
End
End
Begin VB.Frame Frame5
BackColor = &H00FFC0C0&
Caption = "Power"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 1320
TabIndex = 33
Top = 360
Width = 855
End
Begin VB.Frame Frame6
BackColor = &H00FFC0C0&
Caption = "Memo"
ClipControls = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 2280
TabIndex = 34
Top = 360
Width = 855
Begin VB.TextBox memory
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 0
Locked = -1 'True
TabIndex = 48
Top = 0
Width = 855
End
Begin VB.CommandButton Command51
BackColor = &H008080FF&
Caption = "MR"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
Style = 1 'Graphical
TabIndex = 42
Top = 1680
Width = 615
End
End
Begin VB.Frame Frame7
BackColor = &H00FFC0C0&
Caption = "Trigonometric"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 3240
TabIndex = 35
Top = 360
Width = 1575
Begin VB.CommandButton Command52
BackColor = &H008080FF&
Caption = "Cos"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
Style = 1 'Graphical
TabIndex = 43
Top = 480
Width = 615
End
Begin VB.CommandButton Command59
BackColor = &H008080FF&
Caption = "Csc"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
Style = 1 'Graphical
TabIndex = 41
Top = 1680
Width = 615
End
Begin VB.CommandButton Command58
BackColor = &H008080FF&
Caption = "Sec"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
Style = 1 'Graphical
TabIndex = 40
Top = 1680
Width = 615
End
Begin VB.CommandButton Command57
BackColor = &H008080FF&
Caption = "Cot"
BeginProperty Font
Name = "Goudy Old Style"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
Style = 1 'Graphical
TabIndex = 39
Top = 1080
Width = 615
End
End
Begin VB.Shape Shape3
BackColor = &H00FF8080&
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderWidth = 2
Height = 3975
Left = 240
Shape = 4 'Rounded Rectangle
Top = 120
Width = 4695
End
End
Begin VB.Menu mnuFile
Caption = "File"
Begin VB.Menu mnuAuthor
Caption = "About Author"
Shortcut = ^H
End
Begin VB.Menu k
Caption = "-"
End
Begin VB.Menu mnuexit
Caption = "Exit"
Shortcut = ^W
End
End
Begin VB.Menu mnuEdit
Caption = "Edit"
Begin VB.Menu mnucopy
Caption = "Copy"
Shortcut = ^C
End
Begin VB.Menu mnupaSTE
Caption = "Paste"
Enabled = 0 'False
Shortcut = ^V
End
End
Begin VB.Menu mnuview
Caption = "View"
Begin VB.Menu mnuStandard
Caption = "Standard"
Checked = -1 'True
Shortcut = ^A
End
Begin VB.Menu b
Caption = "-"
End
Begin VB.Menu mnuScientific
Caption = "Scientific"
Shortcut = ^B
End
Begin VB.Menu mnucall
Caption = "Cal XP Calculator"
Shortcut = ^O
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mark, hiolin As Boolean
Dim first As Single
Dim second As Single
Dim operation, joean As String
Dim answer As Single
Dim mem As String
Dim no, count1 As Integer
Dim ans, no1, operand1 As Double
Function Factorial(NUM As Double) As Double
On Error Resume Next
If NUM = 1 Then
Factorial = NUM
Else
Factorial = NUM * Factorial(NUM - 1)
End If
End Function
Private Sub Command1_Click()
On Error GoTo hell
Dim a As String
Text1.Text = Val(a) * Text1.Text / 100
Exit Sub
hell:
MsgBox "Math Error", vbCritical
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & "3"
End Sub
Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command10.BackColor = &HFFFF00
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text & "0"
End Sub
Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command11.BackColor = &HFFFF00
End Sub
Private Sub Command12_Click()
Text1.Text = Text1.Text & "00"
End Sub
Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command12.BackColor = &HFFFF00
End Sub
Private Sub Command13_Click()
If InStr(Text1.Text, ".") Then
Exit Sub
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command13.BackColor = &HFFFF00
End Sub
Private Sub Command14_Click()
first = Val(Text1.Text)
Text1.Text = ""
operation = "+"
End Sub
Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command14.BackColor = &HFFFF00
End Sub
Private Sub Command15_Click()
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command15.BackColor = &HFFFF00
End Sub
Private Sub Command16_Click()
Dim s, c As Integer
s = Text1.Text
c = Len(s)
If c = 0 Then
Text1.Text = ""
Else
c = c - 1
Text1.Text = Left(s, c)
End If
End Sub
Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command16.BackColor = &HFFFF00
End Sub
Private Sub Command17_Click()
first = Val(Text1.Text)
Text1.Text = ""
operation = "/"
End Sub
Private Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command17.BackColor = &HFFFF00
End Sub
Private Sub Command18_Click()
first = Val(Text1.Text)
Text1.Text = ""
operation = "*"
End Sub
Private Sub Command18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command18.BackColor = &HFFFF00
End Sub
Private Sub Command19_Click()
first = Val(Text1.Text)
Text1.Text = ""
operation = "-"
End Sub
Private Sub Command19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command19.BackColor = &HFFFF00
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & "7"
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.BackColor = &HFFFF00
End Sub
Private Sub Command20_Click()
On Error Resume Next
no = Text1.Text
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbInformation
Else
ans = Exp(no)
End If
Text1.Text = ans
End Sub
Private Sub Command21_Click()
Text1.Text = -Val(Text1.Text)
End Sub
Private Sub Command21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command21.BackColor = &HFFFF00
End Sub
Private Sub Command22_Click()
On Error GoTo hell
second = Val(Text1.Text)
If operation = "+" Then
answer = first + second
ElseIf operation = "-" Then
answer = first - second
ElseIf operation = "*" Then
answer = first * second
ElseIf operation = "/" Then
answer = first / second
End If
Text1.Text = answer
Exit Sub
hell:
MsgBox "Math Error", vbCritical
End Sub
Private Sub Command22_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command22.BackColor = &HFFFF00
End Sub
Private Sub Command24_Click()
mark = False
joean = ""
hiolin = True
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbInformation
Text1.SetFocus
Exit Sub
End If
If Val(Text1.Text) > 170 Or Val(Text1.Text) <= 0 Then
MsgBox "Factorial of numbers only between 1 & 170", vbCritical
Exit Sub
End If
Text1.Text = Factorial(Val(Text1.Text))
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & "8"
End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.BackColor = &HFFFF00
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & "9"
End Sub
Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command4.BackColor = &HFFFF00
End Sub
Private Sub Command41_Click()
End Sub
Private Sub Command42_Click()
On Error GoTo hell
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Exit Sub
End If
Text1 = Text1 ^ 3
Exit Sub
hell:
MsgBox "Over Flow", vbCritical
End Sub
Private Sub Command43_Click()
On Error GoTo hell
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbInformation
Exit Sub
End If
Text1 = Text1 ^ 2
Exit Sub
hell:
MsgBox "Over Flow", vbCritical
End Sub
Private Sub Command44_Click()
memory.Visible = True
mem = Text1.Text
memory.Text = " M"
End Sub
Private Sub Command45_Click()
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = (Text1.Text * 3.14) / 180
Text1.Text = Math.Sin(Val(Text1.Text))
count1 = 0
End Sub
Private Sub Command46_Click()
On Error GoTo hell
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = Sqr(Text1.Text)
Exit Sub
hell:
MsgBox "Math Error", vbCritical
End Sub
Private Sub Command47_Click()
mark = True
operand1 = Val(Text1.Text)
joean = "mod"
End Sub
Private Sub Command48_Click()
mark = True
operand1 = Val(Text1.Text)
joean = "^"
End Sub
Private Sub Command49_Click()
memory.Visible = True
memory.Text = ""
mem = "0"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & "4"
End Sub
Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.BackColor = &HFFFF00
End Sub
Private Sub Command50_Click()
If Text1.Text = "" Then
MsgBox "Please enter value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = (Text1.Text * 3.14) / 180
Text1.Text = Math.Tan(Val(Text1.Text))
count1 = 0
'Dim rad3
'first = Val(Text1.Text)
'answer = Tan(Text1.Text)
'Text1.Text = answer
'rad3 = Text1 * (3.14059265358979 / 180)
'Text1 = Tan(rad3)
End Sub
Private Sub Command51_Click()
memory.Visible = True
Text1.Text = mem
End Sub
Private Sub Command52_Click()
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = (Text1.Text * 3.14) / 180
Text1.Text = Math.Cos(Val(Text1.Text))
count1 = 0
'Dim rad2
'rad2 = Text1 * (3.14059265358979 / 180)
'Text1 = Cos(rad2)
End Sub
Private Sub Command53_Click()
On Error GoTo hell
If Text1.Text = "" Then
MsgBox "Please enter value", vbInformation
Exit Sub
End If
If Text1.Text = "0" Then
Text1.Text = "Cant divided by zero"
Else
Text1.Text = 1 / Val(Text1.Text)
End If
Exit Sub
hell:
MsgBox "Math Error!", vbCritical
End Sub
Private Sub Command54_Click()
On Error GoTo hell
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbInformation
Text1.SetFocus
Exit Sub
End If
no = Text1.Text
If no = "0" Then
MsgBox "Math Error", vbCritical
Else
ans = Log(no)
End If
Text1.Text = ans
Exit Sub
hell:
MsgBox "Math Error", vbCritical
End Sub
Private Sub Command55_Click()
On Error GoTo hell
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbInformation
Exit Sub
End If
Dim logmark As Double
logmark = Log(Val(Text1.Text)) / Log(10)
Text1.Text = Str$(logmark)
Exit Sub
hell:
MsgBox "Math Error", vbCritical
End Sub
Private Sub Command56_Click()
Dim Pi
Pi = 4 * Atn(1)
Text1 = Pi
End Sub
Private Sub Command57_Click()
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = (Text1.Text * 3.14) / 180
Text1.Text = Math.Cos(Val(Text1.Text)) / Math.Sin(Val(Text1.Text))
count1 = 0
'first = Val(Text1.Text)
'answer = Cos(Text1.Text) / Sin(Text1.Text)
'Text1.Text = answer
End Sub
Private Sub Command58_Click()
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = (Text1.Text * 3.14) / 180
Text1.Text = 1 / Math.Cos(Val(Text1.Text))
count1 = 0
End Sub
Private Sub Command59_Click()
If Text1.Text = "" Then
MsgBox "Please Enter Value", vbCritical
Text1.SetFocus
Exit Sub
End If
Text1.Text = (Text1.Text * 3.14) / 180
Text1.Text = 1 / Math.Sin(Val(Text1.Text))
count1 = 0
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & "5"
End Sub
Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command6.BackColor = &HFFFF00
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & "6"
End Sub
Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command7.BackColor = &HFFFF00
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & "1"
End Sub
Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command8.BackColor = &HFFFF00
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & "2"
End Sub
Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command9.BackColor = &HFFFF00
End Sub
Private Sub Form_Load()
Frame3.Visible = False
memory.Visible = False
End Sub
Private Sub mnuAuthor_Click()
Form2.Show
Form1.Enabled = False
End Sub
Private Sub mnucall_Click()
Shell "calc.exe"
End Sub
Private Sub mnucopy_Click()
mnupaSTE.Enabled = True
Clipboard.SetText Text1.Text
End Sub
Private Sub mnuexit_Click()
Dim a
a = MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion)
If a = vbYes Then
End
End If
End Sub
Private Sub mnupaSTE_Click()
Text1.Text = Clipboard.GetText
End Sub
Private Sub mnuScientific_Click()
Form1.Height = 4905
Form1.Width = 10230
Frame3.Visible = True
mnuScientific.Checked = True
mnuStandard.Checked = False
Text1.SetFocus
End Sub
Private Sub mnuStandard_Click()
Form1.Width = 5175
Form1.Height = 5010
Command21.Visible = True
Command22.Visible = True
Frame1.Visible = True
Text1.Visible = True
memory.Visible = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub
Private Sub Timer1_Timer()
Command2.BackColor = &HC0C0FF
Command3.BackColor = &HC0C0FF
Command4.BackColor = &HC0C0FF
Command5.BackColor = &HC0C0FF
Command6.BackColor = &HC0C0FF
Command7.BackColor = &HC0C0FF
Command8.BackColor = &HC0C0FF
Command9.BackColor = &HC0C0FF
Command10.BackColor = &HC0C0FF
Command11.BackColor = &HC0C0FF
Command12.BackColor = &HC0C0FF
Command13.BackColor = &HC0C0FF
Command14.BackColor = &HC000&
Command16.BackColor = &HC000&
Command15.BackColor = &HC000&
Command17.BackColor = &HC000&
Command18.BackColor = &HC000&
Command19.BackColor = &HC000&
Command21.BackColor = &HC000&
Command22.BackColor = &HC000&
End Sub
Form2.frm
VERSION 5.00
Begin VB.Form Form2
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "About Author"
ClientHeight = 3930
ClientLeft = 45
ClientTop = 435
ClientWidth = 3900
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 3930
ScaleWidth = 3900
StartUpPosition = 1 'CenterOwner
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "+639191740414"
ForeColor = &H0000FFFF&
Height = 255
Left = 960
TabIndex = 2
Top = 3480
Width = 2055
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Zone III Cawit Zamboanga City Philippines"
ForeColor = &H0000FFFF&
Height = 255
Left = 480
TabIndex = 1
Top = 3240
Width = 3255
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Joean Mark Hiolin"
ForeColor = &H0000FFFF&
Height = 375
Left = 240
TabIndex = 0
Top = 3000
Width = 3495
End
Begin VB.Image Image1
Height = 2655
Left = 600
Picture = "Form2.frx":0000
Stretch = -1 'True
Top = 240
Width = 2775
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
Form1.Enabled = True
End Sub
|
Project Feedbacks
|
No feedbacks found. Be the first to respond and make money from revenue sharing program.
|
|
|
| Post Feedback |
|
|
You must Sign In to post a feedback.
|
|
|
|
|
Advertise Here
|