Program Menghitung Gerak Parabola Dengan VB.net

Narasi Program

Program ini adalah program tentang menghitung komponen-komponen dari gerak melengkung atau yang lebih sering disebut dengan gerak peluru atau gerak parabola, input dari program ini adalah kecepatan awal (Vo), sudut elevansi, dan waktu. adapun pada program ini telah diisikan rumus-rumus dasar dari geral parabola, seperti rumus untuk mencari jarak maksimal, tinggi maksimal, Vx, Vx serta rumus-rumus dasar dari gerak parabola lainnya untuk mencari komponen-komponen gerak parabola. tampilan dari program-program ini sangat sederhana, hanya terdiri dari 1 form, sedangkan proses input dilakukan dengan mengisi textbox, output dari program ini berupa, komponen kecepatan di sumbu X atau disebut juga Vx, komponen kecepatan di Y atau disebut juga Vy, jarak X maksimum, Y maksimum, jarak yang ditempuh benda pada sumbu X, serta jarak yang ditempuh benda pada sumbu Y. output dari program ini sendiri juga ditampilan lewat textbox, dengan sebuah tombol disamping textbox di masing-masing komponen dimana tombol tersebut berguna untuk mengeksekusi input dengan rumus-rumus salah satu komponen gerak parabola, sehingga bola tombola tau button itu di klik maka akan tampil di textbox output dari komponen gerak parabola yang ingin kita hitung. Adapun rumus-rumus yang digunakan pada program ini antara lain adalah sebagai berikut :

Rumus disamping digunakan pada program ini untuk menhitung komponen gerak parabola yaitu, komponen kecepatan di sumbu x (Vx) dan jarak yang ditempuh benda pada sumbu X, dimana Vo, α dan t berturut-turut adalah kecepatan awal, atau kecepatan inisiasi, sudut elevansi serta waktu, dimana ketiga komponen itu kita gunakan sebagai input.

Rumus disamping digunakan pada program ini untuk menghitung komponen pada gerak parabola yaitu komponen kecepatan di sumbu y, serta jarak yang ditempuh benda pada sumbu Y, dimana Vo, α dan t berturut-turut adalah kecepatan awal, atau kecepatan inisiasi, sudut elevansi serta waktu, dimana ketiga komponen itu kita gunakan sebagai input. Sedangkan (g) adalah gaya grafitasi.

Rumus disamping adalah rumus untuk menghitung jarak maksimum benda di sumbu X, dimana Vo, α berturut-turut adalah kecepatan awal, atau kecepatan inisiasi, sudut elevansi, dimana ketiga komponen itu kita gunakan sebagai input. Sedangkan (g) adalah gaya grafitasi.

Rumus disamping adalah rumus untuk menghitung jarak maksimum benda di sumbu Y, dimana Vo, α berturut-turut adalah kecepatan awal, atau kecepatan inisiasi, sudut elevansi, dimana ketiga komponen itu kita gunakan sebagai input. Sedangkan (g) adalah gaya gravitasi.

Untuk tampilan program nya sendiri adalah sebagai berikut

 

Tampilan program tesebut terdiri dari 1 form, dimana komponen-komponen dari visual basic yang di gunakan adalah label, textbox, button, picturebox, serta groupbox. Textbox digunakan untuk melakukan input serta menampilkan output, sedangkan button digunakan untuk mengeksekusi rumus dari komponen gerak parabola yang dipilih. Sedangkan picture box digunakan untuk menampilkan gambar visualisasi dari gerak parabola, gambar itu hanyalah visualisasi saja atau hanya gambaran dari gerak parabola sehinggga tidak berpengaruh apapun pada program tersebut. 

untuk source code adalah sebegai berikut

Public Class Formss1

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

        Me.CenterToScreen()  “adalah code agar program tampil di tengah-tengah layar”

    End Sub

   

   

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

        TextBox6.Text = (TextBox1.Text * Math.Cos((TextBox2.Text / 360) * (2 * 3.14)))

        Format(TextBox6.Text, 3)

    End Sub

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

        TextBox4.Text = (TextBox1.Text * Math.Sin((TextBox2.Text / 360) * (2 * 3.14))) - ((9.8 * TextBox3.Text))

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox5.Text = ((TextBox1.Text ^ 2)) * (Math.Sin(((2 * TextBox2.Text) / 360) * (2 * 3.14))) / (9.8)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox7.Text = ((TextBox1.Text ^ 2)) * (Math.Sin((TextBox2.Text / 360) * (2 * 3.14))) ^ 2 / (2 * 9.8)

    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox8.Text = (TextBox1.Text * Math.Cos((TextBox2.Text / 360) * (2 * 3.14))) * (TextBox3.Text)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox9.Text = (TextBox1.Text * Math.Sin((TextBox2.Text / 360) * (2 * 3.14))) - ((9.8 * TextBox3.Text))

    End Sub

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

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox9.Text = ""

        TextBox8.Text = ""

        TextBox7.Text = ""

        TextBox6.Text = ""

        TextBox5.Text = ""

        TextBox4.Text = ""

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

End Class

Untuk project vb.net nya sendiri dapat di download DISINI