21/11/16

Cara Menginput Data Mahasiswa melalui Visual Basic Studio

Langkah pertama yaitu kita buka aplikasi visual basic studio kemudian desain form. Klik Label untuk membuat judul "Data Mahasiswa". Lalu buat NIM, Nama Mahasiswa, Program Studi, Jurusan, Biaya Kuliah, Discount, Angsuran, Sisa Pembayaran dengan menggunakan Label. Selanjutnya buat kotak Pembayaran dengan menggunakan GroupBox. Di dalam GroupBox Pembayaran isi dengan Cash dan Cicil menggunakan RadioButton. Setelah itu setiap Label diberikan TextBox kecuali untuk Program Studi menggunakan Combobox. Berikutnya kita masukkan Button Proses, Input, dan Exit menggunakan Button. Desain Form yang telah saya buat seperti dibawah ini.


Langkah berikutnya yaitu kita masukkan codingan programnya.
1. Combobox1
if combobox1. text = "D3 MI" then textbox3.text = "D3 Manajemen Informatika"
if combobox1. text = "S1 SI" then textbox3.text = "S1 Sistem Informasi"
if combobox1. text = "S1 TI" then textbox3.text = "S1 Teknik Informatika"
if combobox1. text = "D3 MI" then textbox4.text = "3850000"
if combobox1. text = "S1 SI" then textbox4.text = "4250000"
if combobox1. text = "S1 TI" then textbox4.text = "5000000"
end sub

2. Button Exit
Close()
end sub

3. Button Input
text.box1.text = ""
textbox2.text = ""
textbox3.text = ""
textbox4,text = ""
textbox5.text = ""
textbox6.text = ""
textbox7.text = ""
combobox1.text = ""
radiobutton1.checked = false
radiobutton2.checked = false
end sub

4. RadioButton1
if radiobutton1.checked then
textbox5.text = 0.1 * textbox4.text
textbox7.text = 0
end if
end sub

5. RadioButton2
if radiobutton2.checked then
textbox7.text = textbox4.text / 6
textbox5.text = 0
end if
end sub

6. Button Proses
dim bkuliah As New Integer
dim discount As New Integer
dim angsuran As New Integer
dim spembayaran As New Integer

bkuliah = textbox4.text
discount = textbox5.text
angsuran = textbox7.text

spembayaran = bkuliah - discount - angsuran
textbox6.text = spembayaran
end sub

Sekian penjelasan mengenai Cara Menginput Data Mahasiswa Menggunakan Visual Basic Studio, semoga dapat membantu teman-teman semua. Terima kasih.





1 komentar:

Popular Posts

Unordered List

Text Widget