Program Gerak Lurus Beraturan menggunakan VB.Net

Oleh Alfian Nur Muhammad(2412100037)

GLB atau gerak lurus beraturan merupakan materi yang telah kita dapatkan semenjak SMP(Sekolah Menengan Pertama) bahkan ada yang mulai SD(Sekolah Dasar). Akan tetapi itu masih sekedar teori hitung-hitngan saja. Nah, di web Saya akan memberikan simulai GLB pada VB.Net. Untuk programnya harus menggunakan Visual Studio 2008 atau yang lebih baru ya…
Dibutuhkan tiga buah texbox (untuk tempat kecepatan, jarak, dan waktunya), kemudian tiga buah button (satu saja juga cukup sebenarnya untuk menjalankan program), dan untuk mobil yang bergerak silakan pakai picture box, dan terakhir sebuah timer. Tentang labelnya tidak dikasi juga tidak apa-apa. Dan berikut syntaxnya:

Public Class Form1
    Dim alm As Date '(deklarasi untuk waktu)
    Dim kec As Integer '(deklarasi untuk kecepatan)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim v, s, t As Double
        t = Val(TextBox1.Text)
        s = Val(TextBox2.Text)
        v = Val(TextBox3.Text)

'(oia dalam program ini juga fleksibel, jika yang diketahui jarak dan waktu maka hasilnya adalah kecepatan, jika yang diketahui kecepatan dan waktu maka yang keluar adalah jarak dan seterusnya)
        If TextBox3.Text = "" Then
            v = s / t
            TextBox3.Text = v.ToString     '(mengisi textbox3 dengan v)
        ElseIf TextBox1.Text = "" Then
            t = s / v
            TextBox1.Text = t.ToString      '(mengisi textbox2 dengan t)
        ElseIf TextBox2.Text = "" Then
            s = v * t
            TextBox2.Text = s.ToString     '(mengisi textbox1 dengan s)
        End If
        Dim ccc As Integer
        ccc = Val(TextBox1.Text)
        alm = Date.Now.AddSeconds(ccc) '(timer diisi waktu ccc)
        Timer1.Start()
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        mobil11.Left += kec '(mobil bergerak sesuai kecepatan yang diinputkan atau dihasilkan)
        kec = Val(TextBox3.Text)
        If alm < Date.Now Then
            Timer1.Stop()
        Else
            Dim remainingTime As TimeSpan = Me.alm.Subtract(Date.Now)
        End If

    End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Process.Start(Application.ExecutablePath) '(syntax untuk merestart program)
        Me.Close()
    End Sub
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close() '(menutup program)
    End Sub
End Class

Silakan download filenya di 4shared.com. Atau biar cepet klik link ini.

http://www.4shared.com/rar/N2OyyYpW/glb.html
Semoga bermanfaat