Siank sobat, masih semangat kan belajar visual basicnya, sekarang saya akan mengajak sobat untuk membuat aplikasi baru menggunakan visual basic...
gak jauh beda kok dengan postingan sebelumnya, yaitu membuat aplikasi rental mobil....
langsung aja ya sob ke Te Ka Pe...
dah mulai boring ne...!!!!! heeee biasa... capek kuliah..!
semangat ya........!
Langsung Buat format seperti gambar berikut ":
kemudian get code ===>
copy + paste kan aja ya sob :
Option Explicit
Dim hrgtutor As Long
Private Sub Command1_Click()
hrgtutor = 0
If Option1.Value = True Then
hrgtutor = 275000
End If
If Option2.Value = True Then
hrgtutor = 255000
End If
If Option3.Value = True Then
hrgtutor = 295000
End If
If Option4.Value = True Then
hrgtutor = 273000
End If
Text3.Text = hrgtutor
End Sub
Private Sub Form_Load()
cbokuliah.AddItem "Statistika"
cbokuliah.AddItem "Perpajakan"
cbokuliah.AddItem "Akuntansi BIaya"
cbokuliah.AddItem "Hukum BIsnis"
End Sub
Option Explicit
Dim hrgtutor As Long
Private Sub Command1_Click()
hrgtutor = 0
If Option1.Value = True Then
hrgtutor = 275000
End If
If Option2.Value = True Then
hrgtutor = 255000
End If
If Option3.Value = True Then
hrgtutor = 295000
End If
If Option4.Value = True Then
hrgtutor = 273000
End If
Text3.Text = hrgtutor
End Sub
Private Sub Form_Load()
cbokuliah.AddItem "Statistika"
cbokuliah.AddItem "Perpajakan"
cbokuliah.AddItem "Akuntansi BIaya"
cbokuliah.AddItem "Hukum BIsnis"
End Sub
klik F5, Lihat hasil nya :
![]() |
download file here |
Lanjut Membaca Artikel Tutorial Visual berikutnya ya sob :)
sukses ya sobat, jangan lupa di like dan share...!
semoga semua cita" kita tercapai, *amin*
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....!