25703.zip - Form1.frm - A simple VB calculator 1.1

Current area: HOME ->
Zip File view

A simple VB calculator 1.1

This page allows you to view the contents of a file contained inside a ZIP archive available at Programmer's Heaven. This means you can view the code and find what you need from it without having to download the ZIP file first. If the file contains source code for a language we recognize, we have syntax highlighted it.

Filename displayed: Form1.frm
Found in file: 25703.zip

VERSION 5.00
Begin VB.Form Form1
BackColor = &H00000000&
Caption = "VB Calculator by Tizzi"
ClientHeight = 4215
ClientLeft = 60
ClientTop = 345
ClientWidth = 6210
LinkTopic = "Form1"
ScaleHeight = 4215
ScaleWidth = 6210
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton clearbar
BackColor = &H00FFFFFF&
Height = 4335
Left = 6240
Style = 1 'Graphical
TabIndex = 8
Top = 0
Width = 375
End
Begin VB.Timer clearbartrm
Enabled = 0 'False
Interval = 10
Left = 120
Top = 120
End
Begin VB.CommandButton clear
Caption = "Clear"
Height = 615
Left = 960
TabIndex = 7
Top = 1080
Width = 615
End
Begin VB.CommandButton Command4
Caption = "divide"
Height = 1095
Left = 1320
TabIndex = 6
Top = 1440
Width = 975
End
Begin VB.CommandButton Command3
Caption = "subtract"
Height = 1095
Left = 240
TabIndex = 5
Top = 1440
Width = 975
End
Begin VB.CommandButton Command2
Caption = "multiply"
Height = 1095
Left = 1320
TabIndex = 4
Top = 240
Width = 975
End
Begin VB.CommandButton Command1
Caption = "add"
Height = 1095
Left = 240
TabIndex = 3
Top = 240
Width = 975
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00000000&
BeginProperty Font
Name = "Comic Sans MS"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 975
Left = 360
Locked = -1 'True
MaxLength = 255
TabIndex = 2
Top = 3120
Width = 5535
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00000000&
BeginProperty Font
Name = "Comic Sans MS"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 525
Left = 3120
TabIndex = 1
Top = 1920
Width = 2775
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00000000&
BeginProperty Font
Name = "Comic Sans MS"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 525
Left = 3120
TabIndex = 0
Top = 600
Width = 2775
End
Begin VB.Shape Shape2
Height = 4215
Left = 6000
Top = 0
Width = 15
End
Begin VB.Image Image3
Height = 660
Left = 2400
Picture = "Form1.frx":0000
Top = 480
Width = 690
End
Begin VB.Image Image1
Height = 660
Left = 2400
Picture = "Form1.frx":1852
Top = 1800
Width = 690
End
Begin VB.Image Image2
Height = 375
Left = 240
Top = 600
Width = 735
End
Begin VB.Shape Shape1
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 360
Top = 2760
Width = 5535
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 num1 As Double
Dim num2 As Double
Dim answer As Double
Private Sub clear_Click()
clearbartrm.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub clearbartrm_Timer()
clearbar.Left = clearbar.Left - 100

If clearbar.Left <= -120 Then
clearbartrm.Enabled = False
clearbar.Left = 6240
End If
End Sub

Private Sub Command1_Click()
On Error Resume Next
num1 = Text1.Text
num2 = Text2.Text
answer = num1 + num2
Text3.Text = answer
End Sub

Private Sub Command2_Click()
On Error Resume Next
num1 = Text1.Text
num2 = Text2.Text
answer = num1 * num2
Text3.Text = answer
End Sub

Private Sub Command3_Click()
On Error Resume Next
num1 = Text1.Text
num2 = Text2.Text
answer = num1 - num2
Text3.Text = answer
End Sub

Private Sub Command4_Click()
On Error Resume Next
num1 = Text1.Text
num2 = Text2.Text
answer = num1 / num2
Text3.Text = answer
End Sub

BKUP Version 4.2 This program is written entirely in system-rpl and is intended to make a backup of any port(s) the user specifies.	3ds Animation exporter, for c, c++ and asm Well its a script for those of u that want to get the 3dstudios animations and dont want to make strange .3ds readers, and i have been told that this will be almost 3ds MAX compatible :-)	Cartridge Identifier v2.05 [PC]

Zip File view

A simple VB calculator 1.1

Sponsored links