Scour World

Home Blogs Videos Music Diary Files Friends Programming Books Store

Notepad Coder IDE: Distance Formula Computation

June 27, 2022

Notepad Coder 6.0 IDE: Download

Code File: 105.zip

Notepad Coder lets you master coding of Visual Basic .NET, the very first 64-bit compiler functionality now here. Lets create Distance Computation using Windows Forms.

Notepad Coder IDE

1. Press the New Button to create Visual Basic Project Files (.vbproj )

Project Name: DistanceComputation

2. Click the Project Button >> Highlight All >> Insert Button for Project Properties and Lets Edit the Fields

<PropertyGroup>

    <AssemblyName>DistanceComputation</AssemblyName>

    <Version>1.0.0.0</Version>

    <Authors>Lawrence Albert Pardo-Ilao</Authors>

    <Company>Company Unlock For Us</Company>

    <Product>Distance Computation</Product>

    <AssemblyVersion>2.0.0.0</AssemblyVersion>

    <FileVersion>1.0.0.0</FileVersion>

    <NeutralLanguage>en</NeutralLanguage>

    <Description>Distance Calculator using Computers</Description>

    <Copyright>Copyright @ 2022 All rights will be served</Copyright>


3. Form1 Sheet >> Lets make a one Class Form1

Public Class Form1

  Inherits System.Windows.Forms.Form


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


  End Sub

End If


End Class


Lets start designing using the Code Gen Button

Notepad Coder IDE

At the Designer Code, you'll see the InitializeComponent() Procedure Function:

  Private Sub InitializeComponent()

    components = New System.ComponentModel.Container()


    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

    Me.ClientSize = New System.Drawing.Size(800, 450)

    Me.Text = "Form1"

    'And many more code


Click the Form1 Button and use the compiled code below:

Public Class Form1

  Inherits System.Windows.Forms.Form


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


  End Sub


  Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

      Dim rate as Double = Double.Parse(Text0.Text)

      Dim rtime as Double = Double.Parse(Text1.Text)


      Lbl4.Text = Distance.ToString()

  End Sub

End Class



DOWNLOAD NOW: 105.zip






Visitors: 5775


Copyright @2022, All rights will be served.