Simple Pythagoras

Category:

Office/VBA

Type:

Applications

Difficulty:

Beginning

Author: Craig

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This program will: Ask the user to enter the length of side A Ask the user to enter the length of side B Calculate the length of side C

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Dim SideA As Single Dim SideB As Single Dim SideC As Single Dim Value As Single ' Simple Pythagoras ' $D$2 (http://www.tvtray.uni.cc) 'REQUIREMENTS: '3 text boxes; txtA - txtB - txtC '2 command buttons; cmbStart - cmbGo '1 combobox; cmb1 'You can decorate the form anyway you like. 'Please note that if you are using the code, 'please leave a link to tvTvray.uni.cc

Code:

Option Explicit
'Declare variables
Dim SideA As Single
Dim SideB As Single
Dim SideC As Single
Dim Value As Single

Private Sub cmdGo_Click()
'If combobox one contains clear then clear all text boxes
    If cmb1 = "Clear" Then
        txtC.Text = ""
        txtA.Text = ""
        txtB.Text = ""
'Set the focus to text box A
            txtA.SetFocus
    End If
'If combobox one contains exit then end program
    If cmb1 = "Exit" Then
        End
    End If
End Sub

Private Sub cmdStart_Click()
'Get and store the values for side A and B
SideA = Val(txtA.Text)
SideB = Val(txtB.Text)
'If either side A or side B text boxes have a zero value then error box
    If SideA = 0 Or SideB = 0 Then
        MsgBox "Please enter two numbers", vbApplicationModal, "Simple Pythagoras"
        txtA.Text = ""
        txtB.Text = ""
        txtC = ""
'After clearing the text boxes, set the focus to text box A
            txtA.SetFocus
    Else
'Side C equals SideA squared plus SideB squared
        SideC = SideA ^ 2 + SideB ^ 2
'Square root  side C and pass the value to the Value variable
        Value = Sqr(SideC)
        txtC = Value
    End If
End Sub

Private Sub Form_Load()
'Add the contents to the combobox
cmb1.AddItem "Clear"
cmb1.AddItem "Exit"
End Sub