1. Buka Microsoft Visual Studio 2008
Seperti gambar di bawah ini :
2. Klik => Create: Project
3. Ubah Project name dengan nama program yang akan anda buat dan klik OK
3. Ubah Project name dengan nama program yang akan anda buat dan klik OK
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
Dan jangan lupa menulis “name” sama “text”nya di properties yang ada di sebelah kanan layar anda
6.Sekarang kita masuk ke source kodenya
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
Call addNPM()
Call addkodedosen()
Call addkodematakuliah()
End Sub
Sub addNPM()
NPM.Items.Add("12110796")
NPM.Items.Add("12110760")
NPM.Items.Add("12110758")
End Sub
Sub addkodedosen()
kodedosen.Items.Add("KBTI4305")
kodedosen.Items.Add("KBTI4306")
End Sub
Sub addkodematakuliah()
kodematakuliah.Items.Add("0075")
kodematakuliah.Items.Add("0567")
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "12110796" Then
Nama.Text = "AHMAD RIYAN DAYANI"
jenjang.Text = "S1"
Jurusan.Text = "Teknologi Informasi & Networking"
ElseIf NPM.Text = "12110760" Then
Nama.Text = "SAHRUL"
jenjang.Text = "D3"
Jurusan.Text = "Manajemen Informatika"
ElseIf NPM.Text = "12110758" Then
Nama.Text = "ARDIANSYAH"
jenjang.Text = "D1"
Jurusan.Text = "Komputerisasi Akuntansi"
End If
End Sub
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVale As System.EventArgs) Handles kodedosen.SelectedIndexChanged
Select Case kodedosen.Text
Case "KBTI4305"
namadosen.Text = "Mesran,M.kom"
Case "KBTI4306"
namadosen.Text = "Yasir Hasan,S.kom"
End Select
End Sub
Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
If kodematakuliah.Text = "0075" Then
matakuliah.Text = "Pemograman Visual"
ElseIf kodematakuliah.Text = "0567" Then
matakuliah.Text = "Sistem Operasi"
End If
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnproses.Click
tn.Text = 0.1 * nt.Text + 0.15 * nm.Text + 0.35 * nuts.Text + 0.4 * nuas.Text
If tn.Text >= 80 Then
nh.Text = "A"
ElseIf tn.Text >= 70 Then
nh.Text = "B"
ElseIf tn.Text >= 60 Then
nh.Text = "C"
ElseIf tn.Text >= 50 Then
nh.Text = "D"
Else
nh.Text = "E"
End If
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnhapus.Click
NPM.Text = ""
Nama.Text = ""
jenjang.Text = ""
Jurusan.Text = ""
kodedosen.Text = ""
namadosen.Text = ""
kodematakuliah.Text = ""
matakuliah.Text = ""
nt.Text = ""
nm.Text = ""
nuts.Text = ""
nuas.Text = ""
tn.Text = ""
nh.Text = ""
NPM.Focus()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
End Class
hasilnya:
Catatan :
1.Nama, Jenjang, dan Jurusan akan muncul saat anda memilih NPM
2.Nama Dosen akan muncul saat anda memilih Kode Dosen
3.Mata kuliah akan muncul saat anda memilih Kode Mata Kuliah
3.Nilai Mid, Nilai Tugas, Nilai UTS, dan Nilai UAS anda input sendiri
4.kemudian klik proses maka Total Nilai dan Nilai Huruf akan muncul.
Tidak ada komentar:
Posting Komentar