Shane Partridge
Visual Basic 2013
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 Form41.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 Converts CHR Integer Value to a ASCII String Character Value.
and Re-Converts a ASCII String Character Value back to a CHR Integer Value.
The Code
Public Class Form43
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form41.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Chr1, Chr2, Chr3, Chr4, Chr5 As Integer
Dim Asc1, Asc2, Asc3, Asc4, Asc5 As String
Chr1 = TextBox1.Text : Label1.Text = Chr(Chr1)
Chr2 = TextBox2.Text : Label2.Text = Chr(Chr2)
Chr3 = TextBox3.Text : Label3.Text = Chr(Chr3)
Chr4 = TextBox4.Text : Label4.Text = Chr(Chr4)
Chr5 = TextBox5.Text : Label5.Text = Chr(Chr5)
Asc1 = TextBox6.Text : Label6.Text = Asc(Asc1)
Asc2 = TextBox7.Text : Label7.Text = Asc(Asc2)
Asc3 = TextBox8.Text : Label8.Text = Asc(Asc3)
Asc4 = TextBox9.Text : Label9.Text = Asc(Asc4)
Asc5 = TextBox10.Text : Label10.Text = Asc(Asc5)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = "" : Label1.Text = ""
TextBox2.Text = "" : Label2.Text = ""
TextBox3.Text = "" : Label3.Text = ""
TextBox4.Text = "" : Label4.Text = ""
TextBox5.Text = "" : Label5.Text = ""
TextBox6.Text = "" : Label6.Text = ""
TextBox7.Text = "" : Label7.Text = ""
TextBox8.Text = "" : Label8.Text = ""
TextBox9.Text = "" : Label9.Text = ""
TextBox10.Text = "" : Label10.Text = ""
End Sub
End Class
