Shane Partridge
Visual Basic 2013
The Code
Event Driven Programming Language
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 into the Picture Box
​
6. Graphic Template below highlights the Positions of TextBox and Label Entries from Tool Box.
There are Two TextBoxes and Eight LabelBoxes for Entry.
​
7. Changing TextBox and LabelBox Configuration in Properties Windows.
​
TextBox Configuration
​
TextBox1 and TextBox2
Alter set Parameters to :
Name of TextBox1 = TxtPercentValue
Name of TextBox2 = TxtDecreasedResult
​
8. Alter Font Parameters on TextBoxes =
BackColor = Silver
San Serif = 20pt
ForColor = Blue
Text Align = Center
​
9. Alter Font Parameters on LabelBoxes =
​
LabelBox Configuration
​
Alter Set Parameters to :
Name of LabelBox1 = LblPercentValue
Name of LabelBox2 = LblDecreasedValue
Name of LabelBox3 = LblDecreasedDivision
Name of LabelBox4 = LblPercentDivision
Name of LabelBox5 = LblOriginalResult
Name of LabelBox6 = LblMultiplyPercent
Name of LabelBox7 = LblOriginalMultiply
Name of LabelBox8 = LblMultiplyResult
​
10. Alter Font Parameters on TextBoxes =
BackColor = Silver
San Serif = 20pt
ForColor = Blue
Text Align = Center
​
​
​
​
​
​
​
​
​
​
​
​
​
​
Positioning Template Graph
TextBox & LabelBox Graphic Locations
3 Buttons inserted into Graphic Display
Alter in Property Windows
​
Button1 : Text = Calculate
Name = Percent_Decrement
​
Button2 : Text = Clear
Name = ClearBtn
​
Button3 : Text = Close
Name = CloseBtn
​
​
Load Template Design into PictureBox
Use above template to Align Text, Buttons & LabelBoxes
Once Buttons are Inserted
In Form.VB Design Mode double Left Click on each Button
to add the Code associated with each Field.
In Form.VB Mode : [1] Press on Project at Menu Headings.
[2] Press the [Add Class] Module.
[3] Name Class Module - MyClassFindOriginal_PercentageValue
[4] Copy Code below into Class Module
​
The Code
​
Public Class MyClassFindOriginal_PercentageDecrementValue
​
'## ======================================================== ##
'## Percentage Decrement MyClassFindOriginal_PercentageDecrement-------------------##
'## [1]Encapsulation - Self Contained Modules -----------------------------------------##
'## [2]Inheritance - Structured Class to be passed by Hierarchy Inheritance ---------------##
'## [3]Polymorphism - Modules represent Real World Objects known as Classes-----------##
'## Set Decimal Place to n2 Places ----------------------------------------------------##
Dim DecimalPlace As String = "n2"
​
Public Function Original_PercentValue(ByVal DecreasedValue As Single, ByVal DecimalPercentDecreased As Single)
​
'## Original_PercentValue = Mathematical Configuration ----------------------------------------------##
'## Original_PercentValue = (Value / ((100 - DecimalPercentDecrease) / 100))-----------------------------##
'## Hierarchal Parentheses Calculus (Percentage Decrement) --------------------------------------------##
Original_PercentValue = (DecreasedValue / ((100 - DecimalPercentDecreased) / 100)).ToString(DecimalPlace)
​
'## ===================================================================##
​
End Function
​
End Class
Public Class Form104
​
​
Private Sub Percent_Decrement_Click(sender As Object, e As EventArgs) Handles Percent_Decrement.Click
​
​
​
'##=================Dimension Objects & Variables========================##
'## Dimension MyPercentage_OriginalValue as Object ---------------------------------------##
Dim MyPercentage_OriginalValue As Object
​
'## MyPercent_OriginalValue = MyClassFindOriginal_PercentageDecrementValue()--------------##
MyPercentage_OriginalValue = New MyClassFindOriginal_PercentageDecrementValue()
​
'## Dimension DecreaseValue, DecimalPercentDecrease as Single Precision ---------------------##
Dim DecreasedValue, DecimalPercentDecrease As Single
'##=============================================================##
​
​
​
​
'## ========== Assign Label Error Format =================================##
'## Reset Lbl_Answer.Text Forecolor to Blue -------------------------------------------------##
LblPercentValue.ForeColor = Color.Blue
LblDecreasedValue.ForeColor = Color.Blue
LblDecreasedDivision.ForeColor = Color.Blue
LblPercentDivision.ForeColor = Color.Blue
LblOriginalResult.ForeColor = Color.Blue
LblMultiplyPercent.ForeColor = Color.Blue
LblOriginalMultiply.ForeColor = Color.Blue
LblMultiplyResult.ForeColor = Color.Blue
'## =============================================================##
​
​
​
​
'##============== Assign Error HANDLING ================================##
'## Try... Catch... End Try... Structure ----------------------------------------------------------##
'## Error Handling Routine ------------------------------------------------------------------##
Try
'##============================================================##
​
​
​
'##============= Assign Numeric TextBox Values ==========================##
'## ------------ Arithmetic Format Forms -------------------------------------------------##
'## Assign Numeric Values to Variables ----------------------------------------------------##
DecimalPercentDecrease = TxtPercentValue.Text
DecreasedValue = TxtDecreasedResult.Text
​
'## Assign Values to Label.Text Boxes ------------------------------------------------------##
'## Hierarchal Parentheses Calculus (Pecentage Decrement as Decimal Value) -------------------##
LblPercentValue.Text = ((100 - DecimalPercentDecrease) / 100)
LblDecreasedValue.Text = DecreasedValue
​
'## Assign Values to Label.Text Arithmetic Divisional Boxes-----------------------------------##
LblDecreasedDivision.Text = DecreasedValue
'## Hierarchal Parentheses Calculus (Pecentage Decrement as Decimal Value) -------------------##
LblPercentDivision.Text = ((100 - DecimalPercentDecrease) / 100)
LblOriginalResult.Text = (MyPercentage_OriginalValue.Original_PercentValue(DecreasedValue, DecimalPercentDecrease))
​
'## Assign Values to Label.Text Arithmetic Multiplication Boxes ---------------------------------------------------##
'## Hierarchal Parentheses Calculus (Pecentage Decrement as Decimal Value) -------------------##
LblMultiplyPercent.Text = ((100 - DecimalPercentDecrease) / 100)
LblOriginalMultiply.Text = (MyPercentage_OriginalValue.Original_PercentValue(DecreasedValue, DecimalPercentDecrease))
LblMultiplyResult.Text = DecreasedValue
'##==========================================================================##
​
​
​
​
'##====================Catch Non_Numeric Exception==================================##
'## Try... Catch... End Try... Structure Non_NumericInput As Exception----------------------------------------------##
Catch Non_NumericInput As Exception
'##==========================================================================##
​
​
​
'##=================Program Flow SubRoutine Error Handling===============================##
'## Catch Non Numeric Input as Error --------------------------------------------------------------------------##
NonNumericInput()
'##==========================================================================##
​
​
​
​
'##======================== End Try [Error Handling] ==================================##
End Try
'##============================================================================##
​
​
​
​
End Sub
​
​
​
​
'## =================== Error Handling Subroutine =========================================##
'## Sub[1] ---------------------------------------------------------------------------------------------------------##
'## Error Handling Message Routine ---------------------------------------------------------------------------------##
Sub NonNumericInput()
LblPercentValue.ForeColor = Color.Red
LblDecreasedValue.ForeColor = Color.Red
LblDecreasedDivision.ForeColor = Color.Red
LblPercentDivision.ForeColor = Color.Red
LblOriginalResult.ForeColor = Color.Red
LblMultiplyPercent.ForeColor = Color.Red
LblOriginalMultiply.ForeColor = Color.Red
LblMultiplyResult.ForeColor = Color.Red
LblPercentValue.Text = "Error"
LblDecreasedValue.Text = "Error"
LblDecreasedDivision.Text = "Error"
LblPercentDivision.Text = "Error"
LblOriginalResult.Text = "Error"
LblMultiplyPercent.Text = "Error"
LblOriginalMultiply.Text = "Error"
LblMultiplyResult.Text = "Error"
'## ============================================================================##
​
​
​
​
End Sub
​
​
​
Private Sub ClearBtn_Click(sender As Object, e As EventArgs) Handles ClearBtn.Click
​
​
'## ============= Clear Text & Label Boxes ===============================================##
'## Clear Text and Label Boxes for Re-Evaluation --------------------------------------------------------------------##
TxtPercentValue.Text = ""
TxtDecreasedResult.Text = ""
LblPercentValue.Text = ""
LblDecreasedValue.Text = ""
LblDecreasedDivision.Text = ""
LblPercentDivision.Text = ""
LblOriginalResult.Text = ""
LblMultiplyPercent.Text = ""
LblOriginalMultiply.Text = ""
LblMultiplyResult.Text = ""
'## ============================================================================##
​
​
End Sub
​
​
​
Private Sub Form104_Load(sender As Object, e As EventArgs) Handles MyBase.Load
​
​
'## ====== Delete Label Box Names at Start up Procedure ==============================##
LblPercentValue.Text = ""
LblDecreasedValue.Text = ""
LblDecreasedDivision.Text = ""
LblPercentDivision.Text = ""
LblOriginalResult.Text = ""
LblMultiplyPercent.Text = ""
LblOriginalMultiply.Text = ""
LblMultiplyResult.Text = ""
'## ===================================================================##
​
​
End Sub
​
Private Sub IndexBtn_Click(sender As Object, e As EventArgs) Handles IndexBtn.Click
​
'## Programs using only [1] Form ============##
'## Change below to Me.Close() =============##
​
'## ====== Go To Menu 97 ===============##
Form97.Show()
Me.Hide()
'## ================================##
​
End Sub
​
​
End Class
​
​