MENGHITUNG NILAI MAHASISWA DENGAN VS.2008
Kepada Teman-teman sekalian..
di sini kita akan belajar bagaimana menghitung Nilai Mahasiswa dengan Microsoft Visual Studio 2008
bagi teman-teman yang ingin belajar...
Silahkan Ikuti Langkah-langkah di bawah ini ....
langsung ajah :
> langkah ke-1
Silahkah Anda Buat Form 1 melalui Create Project...
Kemudian Ambil Komponen-Komponen yang Di perlukan melalui Toolbox..
Seperti ini :
-label
-textbox
-combobox
-botton
setelah itu desain sesuai selera yang anda inginkan....
> langkah ke-2
setelah selesai mendisain ...
ubah nama dari ;
-textbox
-combobox,dan
- Tombol botton
menjadi nama sesuai pada label
contoh :
pada kotak label "nama"
pada kotak textbox ubah menjadi "nama" di (name) yg terdapat pada properties..
setelah selesai merubah semuanya ...
Sekarang saatnya kita memasukkan Perintah-Perintah...
> Langkah ke - 3
Double Klik sembarangan di Form 1..
dan yang perlu di perhatikan jangan di Klik di bagian label,textbox,combobox,dan lainnya...
Setelah di Double klik...
Silahkan Ketikkan Perintah Di bawah ini :di sini kita akan belajar bagaimana menghitung Nilai Mahasiswa dengan Microsoft Visual Studio 2008
bagi teman-teman yang ingin belajar...
Silahkan Ikuti Langkah-langkah di bawah ini ....
langsung ajah :
> langkah ke-1
Silahkah Anda Buat Form 1 melalui Create Project...
Kemudian Ambil Komponen-Komponen yang Di perlukan melalui Toolbox..
Seperti ini :
-label
-textbox
-combobox
-botton
setelah itu desain sesuai selera yang anda inginkan....
> langkah ke-2
setelah selesai mendisain ...
ubah nama dari ;
-textbox
-combobox,dan
- Tombol botton
menjadi nama sesuai pada label
contoh :
pada kotak label "nama"
pada kotak textbox ubah menjadi "nama" di (name) yg terdapat pada properties..
setelah selesai merubah semuanya ...
Sekarang saatnya kita memasukkan Perintah-Perintah...
> Langkah ke - 3
Double Klik sembarangan di Form 1..
dan yang perlu di perhatikan jangan di Klik di bagian label,textbox,combobox,dan lainnya...
Setelah di Double klik...
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110376")
npm.Items.Add("12110377")
npm.Items.Add("12110378")
npm.Items.Add("12110379")
npm.Items.Add("12110380")
npm.Items.Add("12110381")
npm.Items.Add("12110382")
Jenjang.Items.Add("S1")
Jenjang.Items.Add("D3")
Jenjang.Items.Add("D1")
Jurusan.Items.Add("Sistem Informasi")
Jurusan.Items.Add("Teknik Informatika")
Jurusan.Items.Add("Manajemen Informatika")
k_dosen.Items.Add("KKTI4301")
k_dosen.Items.Add("KKTI4302")
k_dosen.Items.Add("KKTI4303")
k_dosen.Items.Add("KBTI4303")
k_dosen.Items.Add("KBTI4302")
k_dosen.Items.Add("KBTI4306")
k_dosen.Items.Add("KBTI4305")
k_matakuliah.Items.Add("ADK01")
k_matakuliah.Items.Add("MTL02")
k_matakuliah.Items.Add("SBD03")
k_matakuliah.Items.Add("SD04")
k_matakuliah.Items.Add("KD05")
k_matakuliah.Items.Add("SO06")
k_matakuliah.Items.Add("PV07")
Dim i As Integer
For i = 1 To 100
N_kehadiran.Items.Add(i)
Next i
i = 1
Do While i <= 100
N_tugas.Items.Add(i)
i = i + 1
Loop
i = 100
Do Until i = 0
N_UTS.Items.Add(i)
i = i - 1
Loop
i = 1
While i <= 100
N_Uas.Items.Add(i)
i = i + 1
End While
End Sub
> Langkah ke-4
Setelah anda mengetikkan Perintah di atas tadi..
selanjutnya, anda kembali lagi ke tampilan Desain...
kemudian Double klik Button Keluar ...
Kemudian Ketikkan Perintah Di bawah ini .....
Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
Me.Close()
End Sub
> Langkah ke-5
Setelah anda mengetikkan Perintah di atas tadi..
Sama seperti Sebelumnya, anda kembali lagi ke tampilan Desain...
kemudian Double klik Button Hapus ...
Kemudian Ketikkan Perintah Di bawah ini .....
Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
k_dosen.Text = ""
nama_dosen.Text = ""
k_matakuliah.Text = ""
Nama_matakuliah.Text = ""
N_kehadiran.Text = ""
N_tugas.Text = ""
Nilai_Akhir.Text = ""
N_Uas.Text = ""
N_UTS.Text = ""
Nilai_huruf.Text = ""
Keterangan.Text = ""
npm.Focus()
End Sub
> Langkah ke-6
Setelah anda mengetikkan Perintah di atas tadi..
selanjutnya, anda kembali lagi ke tampilan Desain...
kemudian Double klik Combobox NPM ...
Kemudian Ketikkan Perintah Di bawah ini .....
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110376"
nama.Text = "Khairul Azmi"
Case "12110377"
nama.Text = "Khairul Bunaya"
Case "12110378"
nama.Text = "Elvita Khairani"
Case "12110379"
nama.Text = "Ahmad Khoiri"
Case "12110380"
nama.Text = "Muhammad Khoirullah"
Case "12110381"
nama.Text = "Nawawi"
Case "12110382"
nama.Text = "Engki Krisnanda"
End Select
End Sub
> Langkah ke-7
Setelah anda mengetikkan Perintah di atas tadi..
selanjutnya, anda kembali lagi ke tampilan Desain...
kemudian Double klik Combobox NPM ... ...
Kemudian Ketikkan Perintah Di bawah ini .....
Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_dosen.SelectedIndexChanged
Select Case k_dosen.Text
Case "KKTI4301"
nama_dosen.Text = "Pilipus Tarigan,ST,M.Kom"
Case "KKTI4302"
nama_dosen.Text = "Hery Sunandar,ST,M.Kom"
Case "KBTI4303"
nama_dosen.Text = "Tonny Limbong, S.Kom, M.Kom"
Case "KKTI4303"
nama_dosen.Text = "Marzuki Sinambela, MT"
Case "KBTI4302"
nama_dosen.Text = "Zekson Aritona Matondang M.Kom"
Case "KBTI4306"
nama_dosen.Text = "Yasir Hasan, S.Kom"
Case "KBTI4305"
nama_dosen.Text = "Mesran, S.Kom, M.Kom"
End Select
End Sub
> Langkah ke-8
Setelah anda mengetikkan Perintah di atas tadi..
selanjutnya, anda kembali lagi ke tampilan Desain...
kemudian Double klik Combobox Mata Kuliah ... ...
Kemudian Ketikkan Perintah Di bawah ini .....
Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_matakuliah.SelectedIndexChanged
Select Case k_matakuliah.Text
Case "ADK01"
Nama_matakuliah.Text = "Arsitektur dan Organisasi komputer"
Case "MTL02"
Nama_matakuliah.Text = "Matriks dan Transformasi linier"
Case "SBD03"
Nama_matakuliah.Text = "Sistem Basis Data"
Case "SD04"
Nama_matakuliah.Text = "Struktur Data"
Case "KD05"
Nama_matakuliah.Text = "Komunikasi Data"
Case "SO06"
Nama_matakuliah.Text = "Sistem Operasi"
Case "PV07"
Nama_matakuliah.Text = "Pemograman Visual"
End Select
End Sub
> Langkah ke-9
Setelah anda mengetikkan Perintah di atas tadi..
selanjutnya, anda kembali lagi ke tampilan Desain...
kemudian Double klik Button Process ... ...
Kemudian Ketikkan Perintah Di bawah ini .....
Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
Nilai_Akhir.Text = 0.1 * Val(N_kehadiran.Text) + 0.15 * Val(N_tugas.Text) + 0.35 * Val(N_UTS.Text) + 0.4 * Val(N_Uas.Text)
Select Case Nilai_Akhir.Text
Case Is >= 80
Nilai_huruf.Text = "A"
Keterangan.Text = "LULUS"
Case 70 To 79
Nilai_huruf.Text = "B"
Keterangan.Text = "LULUS"
Case 60 To 69
Nilai_huruf.Text = "C"
Keterangan.Text = "LULUS"
Case 50 To 59
Nilai_huruf.Text = "D"
Keterangan.Text = "GAGAL"
Case Is <= 49
Nilai_huruf.Text = "E"
Keterangan.Text = "GAGAL"
End Select
End Sub
End Class
Untuk Mengujinya...Silahkan Klik tombol Debug atau Bisa juga tekan Tombol F5...
Berikut Tampilan Hasil dari Perintah-perintah yang teman Ketik tadi..
semoga Bermanfaat bagi teman-teman semua..
jangan Lupa Mampir lagi ya.... Khairul azmi.net
Dan Bagi teman-teman yang ingin belajar Lebih lanjut..
Silahkan kunjungi blog Di bawah Ini :
TugasBelajar Bahasa Pemrograman
