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