Shane Partridge
Visual Basic 2013
OOP Language : Pythagoras Theorem Calculus.
Visual Basic - An Event Driven Programming Language
Building the GUI-Based Programming Language
by Inserting Controls from the Tool Box.
1. Right Click on Graphics Template Image : Then Press Save Image as to Folder
- The Graphics Template Chart below corresponds to the Tool Box Controls
- Making Graphic User Interface [GUI] Easier to Build.
2. Copy Coding onto Forms VB for Program Execution.
3. In VB Design Mode : Drag Picture Box from Tool Box.
4. Set Picture Box Size Mode to Stretch Image.
In Forms Design Mode - Properties set Size to (1069,805)
In PictureBox Properties - Set Size to (1012,726)
5. Download Graphic Template Image below from allocated Folder.
In Private Sub Button_1 if only 1 Form is being used.
Terminate Form9.Show()
Me.Hide()
Then add Me.Close() ' To Close Program.
Follow and Insert the TextBox, LabelBox and Button Controls from ToolBox
and allocate them on the Graphics.
The Program Calculates the Hypotenuse Length using Pythagoras Theorem.
Public Class Form16
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Dimension Variables
Dim a, b, c As Double 'Double Precision Accuracy
Dim n As String = "n4" 'String Decimal No. Decimal Placing
a = TextBox1.Text
b = TextBox2.Text
'Pythagoras Formula
c = (a ^ 2 + b ^ 2) ^ (1 / 2)
Label1.Text = c.ToString(n) 'n = No. of Decimal Placings
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form9.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'Clear TextBox & Label Box
TextBox1.Text = ""
TextBox2.Text = ""
Label1.Text = ""
End Sub
End Class