VB6 - 003 - My calculator (01)

VB6 -     003 - My calculator (01)

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   4335
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   13215
   LinkTopic       =   "Form1"
   ScaleHeight     =   4335
   ScaleWidth      =   13215
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cc4
      Caption         =   "a/b"
      Height          =   375
      Left            =   11400
      TabIndex        =   8
      Top             =   960
      Width           =   615
   End
   Begin VB.CommandButton cc5
      Caption         =   "a^b"
      Height          =   375
      Left            =   12000
      TabIndex        =   7
      Top             =   960
      Width           =   615
   End
   Begin VB.CommandButton cc6
      Caption         =   "a^(1/b)"
      Height          =   375
      Left            =   11400
      TabIndex        =   6
      Top             =   480
      Width           =   1215
   End
   Begin VB.CommandButton cc2
      Caption         =   "a-b"
      Height          =   375
      Left            =   9960
      TabIndex        =   5
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton cc1
      Caption         =   "a+b"
      Height          =   375
      Left            =   9240
      TabIndex        =   4
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton cc3
      Caption         =   "a*b"
      Height          =   375
      Left            =   10680
      TabIndex        =   3
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton c1
      Caption         =   "calculate all"
      Height          =   375
      Left            =   9240
      TabIndex        =   2
      Top             =   480
      Width           =   2175
   End
   Begin VB.TextBox t2
      Height          =   375
      Left            =   600
      TabIndex        =   1
      Text            =   "3"
      Top             =   960
      Width           =   8535
   End
   Begin VB.TextBox t1
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Text            =   "8"
      Top             =   480
      Width           =   8535
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub c1_Click()

Cls

Dim a, b, r1, r2, r3, r4, r5, r6 As Single

a = Val(t1)
b = Val(t2)

lr1 = Len(r1)
lr2 = Len(r2)
lr3 = Len(r3)
lr4 = Len(r4)
lr5 = Len(r5)
lr6 = Len(r6)

If lr1 > 100 Then
r1 = "?"
Else: r1 = a + b
End If

If lr2 > 100 Then
r2 = "?"
Else: r2 = a - b
End If


If lr3 > 100 Then
r3 = "?"
Else: r3 = a * b
End If


If lr4 > 100 Then
r4 = "?"
Else: r4 = a / b
End If


If lr5 > 100 Then
r5 = "?"
Else: r5 = a ^ b
End If


If lr6 > 100 Then
r6 = "?"
Else: r6 = a ^ (1 / b)
End If


Print: Print: Print: Print: Print: Print: Print: Print: Print
Print Tab(9); "a + b            =   " & r1
Print
Print Tab(9); "a - b             =   " & r2
Print
Print Tab(9); "a * b            =   " & r3
Print
Print Tab(9); "a / b            =   " & r4
Print
Print Tab(9); "a ^ b            =   " & r5
Print
Print Tab(9); "a ^ (1 / b)    =   " & r6




End Sub

Private Sub cc1_Click()

Cls

Dim a, b, r1, r2, r3, r4, r5, r6 As Single

a = Val(t1)
b = Val(t2)

lr1 = Len(r1) '

If lr1 > 100 Then '
r1 = "?"
Else: r1 = a + b
End If


Print: Print: Print: Print: Print: Print: Print: Print
Print 'start
Print Tab(9); "a + b            =   " & r1
Print: Print: Print: Print: Print: Print: Print: Print: Print: Print


End Sub

Private Sub cc2_Click()
Cls

Dim a, b, r1, r2, r3, r4, r5, r6 As Single

a = Val(t1)
b = Val(t2)

lr2 = Len(r2) '

If lr2 > 100 Then '
r2 = "?"
Else: r2 = a - b
End If


Print: Print: Print: Print: Print: Print: Print: Print
Print 'start
Print: Print
Print Tab(9); "a - b             =   " & r2
Print: Print: Print: Print: Print: Print: Print: Print



End Sub

Private Sub cc3_Click()

Cls

Dim a, b, r1, r2, r3, r4, r5, r6 As Single

a = Val(t1)
b = Val(t2)

lr3 = Len(r3) '

If lr3 > 100 Then '
r3 = "?"
Else: r3 = a * b
End If


Print: Print: Print: Print: Print: Print: Print: Print
Print 'start
Print: Print: Print: Print
Print Tab(9); "a * b            =   " & r3
Print: Print: Print: Print: Print: Print



End Sub

Private Sub cc4_Click()

Cls

Dim a, b, r1, r2, r3, r4, r5, r6 As Single

a = Val(t1)
b = Val(t2)

lr4 = Len(r4) '

If lr4 > 100 Or b = 0 Then '
r4 = "?"
Else: r4 = a / b
End If


Print: Print: Print: Print: Print: Print: Print: Print
Print 'start
Print: Print: Print: Print: Print: Print
Print Tab(9); "a / b            =   " & r4
Print: Print: Print: Print



End Sub

Private Sub cc5_Click()

Cls

Dim a, b, r1, r2, r3, r4, r5, r6 As Single

a = Val(t1)
b = Val(t2)

lr5 = Len(r5) '

If lr5 > 100 Then '
r5 = "?"
Else: r5 = a ^ b
End If


Print: Print: Print: Print: Print: Print: Print: Print
Print 'start
Print: Print: Print: Print: Print: Print: Print: Print
Print Tab(9); "a ^ b            =   " & r5
Print
Print '



End Sub

Private Sub cc6_Click()

Cls

Dim a, b, r1, r2, r3, r4, r5 As Single

a = Val(t1)
b = Val(t2)

lr6 = Len(r1) '

If b = 0 Or lr6 > 100 Then '
r6 = "?"
Else:
If a < 0 Then
r6 = -((-a) ^ (1 / b))
Else: r6 = (a) ^ (1 / b)
End If

End If


Print: Print: Print: Print: Print: Print: Print: Print
Print 'start
Print: Print: Print: Print: Print: Print: Print: Print: Print: Print
Print Tab(9); "a ^ (1 / b)    =   " & r6



End Sub