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

Program Konversi Suhu mengunakan Function VB.net

Program yang akan saya buat adalah program konversi terperatur dari 4 satuan temperatur yang berbeda, yaitu Celcius, Fahrenheit, Reamur dan Kelvin. Tampilan programini sangat sederhana yaitu dalam satu form terdapat 4 textbox yang masing-masing adalah textbox yang di gunakan untuk menginputkan nilai pada masing-masing satuan suhu yang akan dikonversi. Tidak ada fitur button pada program ini karena nilai temperatur akan langsung terkonversi bila kita memasukkan nilai berupa angka ke salah satu textbox dari satuan suhu yang ingin dikonversikan karena pada program ini menggunakan event keyup, yaitu event dimana nilai output akan ditampilkan atau dieksekusi setelah user selesai mnginputkan nilai angka, atau sesaat setelah keyboard di pencet akan keluar output konversi masing-masing suhu. Pada program ini digunakan fungsi, sungsi yang digunakan adalah fungsi yang tidak mengembalikan nilai. Berarti pada program ini digunakan Subroutine atau biasa ditulis dengan sub saja, ada 4 Subroutine di program ini antara lain  Subroutine yang berisi rumus-rumus untuk konversi temperatur Celcius, Fahrenheit, Reamur dan Kelvin. Pemanggilan Subroutine cukup dilakukan dengan call (nama Subroutine). Rumus yang digunakan pada program konversi suhu ini adalah perbandingan dari titik didih dan titik beku dari masing-masing suhu yaitu.

			titik beku	titik didih
Celcius			0	100
Rheamur			0	80
Fahrenheit			32	212
Kelvin			273.15	373.15

Dari perbedaan titik beku dan titik didih antara ke empat satuan suhu tersebut kita dapat membuat suatu rumus atau formula yang didasarkan pada perbandingan dari titik didih dan titik beku keempat satuan suhu yang berbeda itu. formula yang dapat kita buat antara lain adalah : 

Celcius	Reamur	Fahrenheit	Kelvin
5	4	9 + 32	1 + 273

                                                          

Bila dikelompokan formula konversi yang kita dapatkan dan akan kita gunakan pada program kita ialah seperti yang ada pada table berikut

	Celcius	Rheamur	Fahrenheit	Kelvin
Celcius	C	4/5*C	9/5*C+32	C + 273.15
Rheamur	5/4*R	R	9/4*R+32	5/4*R+273.15
Fahrenheit	(F-32)*5/9	(F-32)*4/9	F	(F-32)*5/9+273.15
Kelvin	K-273.15	(K-273.15)*4/5	(K-273.15)*9/5+32	K

Tampilan dari program tersebut adalah sebagai berikut

Source kode dari program tersebut adalah sebagai berikut

Public Class Form1
    Dim C2R, C2F, C2K, R2C, R2F, R2K, F2C, F2R, F2K, K2C, K2R, K2F, Cel, Rhe, Fah, Kel As Single
    Sub Celcius()

        Cel = Val(Text1.Text)
        C2R = 4 / 5 * Cel
        C2F = 9 / 5 * Cel + 32
        C2K = Cel + 273.15

    End Sub

    Sub Rheamur()

        Rhe = Val(Text2.Text)
        R2C = 5 / 4 * Rhe
        R2F = 9 / 4 * Rhe + 32
        R2K = 5 / 4 * Rhe + 273.15

    End Sub

    Sub Fahrenheit()

        Fah = Val(Text3.Text)
        F2C = (Fah - 32) * 5 / 9
        F2R = (Fah - 32) * 4 / 9
        F2K = (Fah + 459.67) * 5 / 9

    End Sub

    Private Sub Kelvin()

        Kel = Val(Text4.Text)
        K2C = Kel - 273.15
        K2R = (Kel - 273.15) * 4 / 5
        K2F = (Kel - 273.15) * 9 / 5 + 32

    End Sub
    Sub Form_Load()

        Call Celcius()
        Text2.Text = C2R
        Text3.Text = C2F
        Text4.Text = C2K

    End Sub

    Sub Text4_KeyUp()

        Call Kelvin()
        Text1.Text = K2C
        Text2.Text = K2R
        Text3.Text = K2F

    End Sub

    Private Sub Text1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Text1.KeyUp
        Call Celcius()
        Text2.Text = C2R
        Text3.Text = C2F
        Text4.Text = C2K
    End Sub

    Private Sub Text2_KeyUp()
        Call Rheamur()
        Text1.Text = R2C
        Text3.Text = R2F
        Text4.Text = R2K

    End Sub


    Private Sub Text3_KeyUp()

        Call Fahrenheit()
        Text1.Text = F2C
        Text2.Text = F2R
        Text4.Text = F2K

    End Sub



  
End Class

Untuk yang pengen project VB nya bisa langsung donload DISINI