Cara membuat Aplikasi Rental mobil Sederhana di Visual Basic 2008

Pembahasan ane kali ini adalah tentang membuat aplikasi rental MOBIL di Visual basic 2008,langsung saja kita bahas langkah langkah nya.
pertama kali klik file pilih new dan windows form aplication ,berinama atur lokasi project nya dan rekan enter.setelah selesai kita akan membuat objek yang dibutuhkan untuk pembuatan aplikasi rental mobil Sederhana.Perhatikan gambar di bawah ini :

Setelah tampil form nya,,,
masukkan Objek label untuk memberi nama aplikasi tersebut.
sekarang kita ingin membuat text  di label tersebut berjalan dari kanan kekiri,dengan menggunakan Timer di bawah ini akan di bahas cara nya.









Membuat text berjalan di label

Pertama kali klik di componens
setelah itu pilih dan klik double Timer setelah itu otomatis akan muncul timer di bawah form.
double klik di Timer tersebut dan isi syntax nya ,perhatikan gambar di bawah ini :

Syntax Timer text berjalan di label

Public Class Rental_Mobil

    Dim vtarif As Double

      Dim vjumlah As Double

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Left = Label1.Left - 10

        If (Label1.Left + Label1.Width) <= 0 Then

            Label8.Left = Me.Width

        End If

    End Sub

 

Jika syntax sudah diisi namun text tidak mau berjalan alias diam saja jangan kuatir perhatikan cara  berikut :

Klik Timer ,Di jendela Properties Timer ubah di bagian enable menjadi true,untuk interval nya atau kecepatan berjalan text bisa di ubah nilai kecepatan sesuai dengan keinginan.

Untuk lebih jelas perhatikan gambar properties berikut :

Objek objek yang diperlukan untuk membuat Aplikasi RENTAL Mobil

Setelah Tool yang diperlukan dibuat kita akan mengatur format tanggalnya untuk lebih jelas perhatikan beberapa gambar dibawah ini :

Mengisi syntax di objek berikut ini :

Gambar form Rental Mobil

  Isi Syntax dibwah ini :

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

        Cbo_Merk.Items.Clear()

        Cbo_Merk.Items.Add("Toyota")

        Cbo_Merk.Items.Add("Honda")

        Cbo_Merk.Items.Add("Suzuki")

    End Sub

 Setelah selesai kita akan mengisi syntax Merk (Cbo_Merk) :

Private Sub Cbo_Merk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbo_Merk.SelectedIndexChanged

        Select Case Cbo_Merk.Text

            Case Is = "Toyota"

                Cbo_Tipe.Items.Add("Avanza")

                Cbo_Tipe.Items.Add("Innova")

                Cbo_Tipe.Items.Add("Alphard")

            Case Is = "Honda"

                Cbo_Tipe.Items.Add("Jazz")

                Cbo_Tipe.Items.Add("Crv")

                Cbo_Tipe.Items.Add("Freed")

            Case Is = "Suzuki"

                Cbo_Tipe.Items.Add("Ertiga")

                Cbo_Tipe.Items.Add("Apv")

                Cbo_Tipe.Items.Add("Swift")

        End Select

    End Sub

  Mengisi syntax Tipe (Cbo_Tipe) :

    Private Sub Cbo_Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbo_Tipe.SelectedIndexChanged

        If Cbo_Tipe.Text = "Avanza" Then

            vtarif = 250000

        ElseIf Cbo_Tipe.Text = "Innova" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Alphard" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Jazz" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Crv" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Freed" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Ertiga" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Apv" Then

            vtarif = 300000

        ElseIf Cbo_Tipe.Text = "Swift" Then

            vtarif = 300000

        End If

        txt_Tarif.Text = FormatNumber(vtarif, 0, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault)

    End Sub

Penjelasan Singkat Syntax Berikut Ini:

txt_Tarif.Text = FormatNumber(vtarif, 0, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault)

    End Sub

 Tampilan Aplikasi Rental Mobil

Untuk mendownload file PDF nya Klik disini