Siang sobat, gimana kabarnya ne...? masih semangat kan belajar visual basic...?
sekarang saya akan ajak sobat semua untuk membuat aplikasi rental mobil, mana tau ada diantara sobat punya niat mau buka usaha rental mobil atau udah buka, ada baiknya sobat coba ne aplikasi yang satu,
yaitu : Aplikasi rental mobil by adi. [heheheheeeeeeeee]
Gambar berikut adalah contoh sederhananya :
buat gambar sepeti ^ diatas,
kemudian ===> get code
Private Sub cmdok_Click()
If cbomobil.Text = "Xenia" Then
txtharga.Text = 300000
End If
If cbomobil.Text = "Avanza" Then txtharga.Text = 400000
End If
If cbomobil.Text = "Inova" Then txtharga.Text = 500000
End If
End Sub Private Sub Form_Load()
cbomobil.AddItem "Xenia"
cbomobil.AddItem "Avanza"
cbomobil.AddItem "Inova"
End Sub
If cbomobil.Text = "Xenia" Then
txtharga.Text = 300000
End If
If cbomobil.Text = "Avanza" Then txtharga.Text = 400000
End If
If cbomobil.Text = "Inova" Then txtharga.Text = 500000
End If
End Sub Private Sub Form_Load()
cbomobil.AddItem "Xenia"
cbomobil.AddItem "Avanza"
cbomobil.AddItem "Inova"
End Sub
keterangan : untuk warna masukkan jenis mobil sobat.
untuk warna masukkan harga yang sobat tawarkan.
klik F5 untuk jalankan program, kayaknya paten dang..!
klo berhasil, seperti ini tampilannya sobat :
heheheeee..... selamat mencoba sobat..!
 | ||||||||||||||||
| Download file here |
Lanjutkan Membaca Artikel Lainnya, diantaranya :
Artikel Umum .1
Artikel Pendidikan .2
Artikel Komputer .3
Artikel Visual Basic .4
Artikel Pribadi-ku .5
Artikel Religion .6
0 komentar:
Posting Komentar
Terimakasih atas Umpan baliknya, Good Lucky...!
GOD Bless Us....!