top of page

OOP Language : Metres to Acres Conversion Chart

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 Form25.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 Metres to Acres and Acres to Metres.

​

​

      

​

​

​

​

​

​

​

​

​

Visual Basic 2013 Adobe-56.jpg

Public Class Form26

 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


        Form25.Show()
        Me.Hide()


    End Sub

​

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

​

        'Dimension Variables as Single Precision Accuracy 

        Dim Metre, Acre, ConMetre, ConAcre As Single
        Dim
CalMetre, CalAcre As Single

​

        ConMetre = 0.000247105            'Rate = (1 Metre) value in Acres
        ConAcre = 4046.856                  'Rate = (1 Acre) Value in Metres

​

        Acre = TextBox1.Text
        Metre = TextBox2.Text

​

        CalAcre = (Acre * ConMetre)       'Calculus for Acre(Rate) Conversion
        CalMetre = (Metre * ConAcre)     'Calculus for Metre(rate) Conversion

​

        Label1.Text = CalAcre             'Label1 = CalAcre Conversion
        Label2.Text = CalMetre           'Label2 = CalMetre Conversion

​

    End Sub

​

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

​

        'Clear Variables
       
TextBox1.Text = ""
       
TextBox2.Text = ""
       
Label1.Text = ""
       
Label2.Text = ""

​

    End Sub


End Class

​

   

bottom of page