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
Mengisi syntax di objek berikut ini :
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
+ comments + 1 comments
Terimakasih tutorial nya sangat membantu.
Jangan lupa kunjungi alamat kami.
My blog
Post a Comment