Thursday, June 27, 2013

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