Tahap-tahap Membuat Form 'Menghitung Rumus Kecepatan Menggunakan Visual Basic 2008"

Langkah Pertama :    Caranya Klik Start > All program > Microsoft Visual Studio 2008

Maka akan muncul tampilan pertama dari Microsoft Visual Studio 2008.

Apabila ingin membuat program  maka klik Create Project seperti gambar diatas.

Langkah Kedua : Kemudian Klik Windows Forms Application lalu pilih OK

Langkah Ketiga : Akan muncul tabel form kotak kecil seperti di atas yang akan kita isi dengan berbagai macam tombol nantinya.

Langkah Keempat : Dalam aplikasi ini kita membutuhkan tombol Label, Button dan TextBox tombol tersebut berada di sebelah kiri tab anda namanya ToolBox

Langkah Kelima : Untuk mengganti nama Text dan Name pada tombol Label, Button dan TextBox terdapat di Properties dengan mengklik mouse kanan

Langkah Keenam : Setalah mengubah di Properties akan muncul seperti gambar di atas

Langkah Ketujuh : Untuk membuat proses penghitungan kita harus membuat koding dengan mengklik 2X pada masing" tombol yaitu MULAI, HITUNG dan SELESAI 

Langkah Kedelapan : Untuk mendapatkan hasil dari codingan di atas kita klik tombol F5 pada keyboard anda, sebagai contoh masukan angka jarak = 8 waktu =2 kemudian klik Hitung

 Langkah Kesembilan : Setelah klik Hitung akan muncul hasilnya yaitu 4

Langkah Kesepuluh : Untuk tombol Mulai berfungsi untuk mengosongkan Tabel sehingga kembali seperti semula

Langkah Kesebelas : Gambar di atas jika mengklik tombol Selesai maka akan muncul tombol Yes/No

NP Source Kode untuk membuat aplikasi ini

Public Class Form1

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
    Txtkecepatan.Text = Txtjarak.Text / Txtwaktu.Text
    End Sub


Private Sub BtnMulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMulai.Click
       TxtJarak.Text = "" 'mengosongkan kotak input Jarak
       TxtWaktu.Text = "" 'mengosongkan kotak input waktu
       TxtKecepatan.Text = "" 'mengosongkan kotak kecepatan
       TxtJarak.Focus()

    End Sub

 Private Sub BtnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  BtnSelesai.Click
        Dim y As Integer
        y = MsgBox("yakin selesai?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
        If y = vbYes Then
            Me.Close()
        End If

    End Sub
End Class