Dari desain form di atas kita bisa tau kita hanya mengunakan 4 tool yaitu label, textbox, combobox dan button.setelah di desain maka buatlah name dan text pada tool yang kita gunakan melalaui menu propertis yang biasanya terletak pada sebelah kanan bawah pada visual basic,buat berbeda juga tidak apa apa yang penting sahabat blogger mengerti apa yang telah diLAKUIN.
oke!!!!
Untuk penentuan Nama di ambil dari ketentuan NPM
Untuk penentuan Jenjang di ambil karakter yang ke tiga dari NPM
Untuk penentuan jurusan di ambil dua karakter dari tengah NPM
Untuk Penentuan Nama Dosen di tentukan berdasarkan Kode Dosen
Untuk penentuan Nama Matakuliah di tentukan berdasarkan Kode Matakuliah
Untuk penentuan Nilai akhir NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text
Untuk penentuan Nilai huruf
A = Jika Nilai akhir Lebih besar dari 80
B = Jika Nilai akhir Lebih besar dari 70
C = Jika Nilai akhir Lebih besar dari 60
D = Jika Nilai akhir Lebih besar dari 50
E = Jika Nilai akhir Lebih kecil dari 50
Untuk penentuan keterangan
Lulus jika Nilai akhir lebih besar dari 50
Tidak lulus jika Nilai akhir lebih kecil dari 50
nah,gimana..... pasti uda lumayan pahamkan....yaudah kita cobak aja deh!!!!!
TAPI INGAT!! KETIK MANUAL AJA DEH BIAR LEBIH PAHAM.....dan KETIK YANG WARNA BIRU AJA YA SAHABAT.... ("<.")
Public class form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12111046")
NPM.Items.Add("13111078")
NPM.Items.Add("12110733")
NPM.Items.Add("10110987")
KodeDosen.Items.Add("201")
KodeDosen.Items.Add("202")
KodeDosen.Items.Add("902")
KodeDosen.Items.Add("903")
KodeMatakuliah.Items.Add("A01")
KodeMatakuliah.Items.Add("A02")
KodeMatakuliah.Items.Add("A03")
KodeMatakuliah.Items.Add("A04")
KodeMatakuliah.Items.Add("A05")
Dim i As Byte
For i = 1 To 100
NilaiKehadiran.Items.Add(i)
NilaiTugas.Items.Add(i)
NilaiUTS.Items.Add(i)
NilaiUAS.Items.Add(i)
Next
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Dim x, y As String
x = Microsoft.VisualBasic.Left(NPM.Text, 3)
y = Microsoft.VisualBasic.Right(NPM.Text, 3)
Select Case NPM.Text
Case "12111046"
Nama.Text = "Febri Riswanda"
Case "13111078"
Nama.Text = "Jhonson"
Case "12110733"
Nama.Text = "Sharif"
Case "10110987"
Nama.Text = "Jayen"
End Select
Select Case x
Case "131"
Jenjang.Text = "S1"
Case "121"
Jenjang.Text = "DII"
Case "121"
Jenjang.Text = "S1"
Case "101"
Jenjang.Text = "DIII"
Case Else
Jenjang.Text = "_"
End Select
Select Case y
Case "046"
Jurusan.Text = "Teknik Informatika"
Case "078"
Jurusan.Text = "Managemen informatika"
Case "733"
Jurusan.Text = "Sistem Informasi"
Case "987"
Jurusan.Text = "Manajemen informatika"
Case Else
Jurusan.Text = "_"
End Select
End Sub
Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
Select Case KodeDosen.Text
Case "201"
NamaDosen.Text = "Abdul sani sembiring M.kom"
Case "202"
NamaDosen.Text = "Sinar sinurat ST,M.kom"
Case "902"
NamaDosen.Text = "M.Syahrizal, M.kom"
Case "903"
NamaDosen.Text = "Mesran S.Kom,M.Kom"
Case Else
NamaDosen.Text = "_"
End Select
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text
If NilaiAkhir.Text >= 80 Then
NilaiHuruf.Text = "A"
ElseIf NilaiAkhir.Text >= 70 Then
NilaiHuruf.Text = "B"
ElseIf NilaiAkhir.Text >= 60 Then
NilaiHuruf.Text = "C"
ElseIf NilaiAkhir.Text >= 50 Then
NilaiHuruf.Text = "D"
Else
NilaiHuruf.Text = "E"
End If
If NilaiAkhir.Text >= 50 Then
Keterangan.Text = "Lulus"
Else
Keterangan.Text = "Gagal"
End If
If Jenjang.Text = "1" Then
Jenjang.Text = "Diploma 1"
ElseIf Jenjang.Text = "3" Then
Jenjang.Text = "Diploma 3"
ElseIf Jenjang.Text = "4" Then
Jenjang.Text = "Strata 1"
End If
If Jurusan.Text = "01" Then
Jurusan.Text = "Manajemen Informatika"
ElseIf Jurusan.Text = "02" Then
Jurusan.Text = "Sistem Informatika"
ElseIf Jurusan.Text = "03" Then
Jurusan.Text = "Teknik komputer"
ElseIf Jurusan.Text = "04" Then
Jurusan.Text = "Akuntansi"
End If
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KodeDosen.Text = ""
NamaDosen.Text = ""
KodeMatakuliah.Text = ""
NamaMatakuliah.Text = ""
NilaiKehadiran.Text = ""
NilaiTugas.Text = ""
NilaiUTS.Text = ""
NilaiUAS.Text = ""
NilaiAkhir.Text = ""
NilaiHuruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Btnproses_Click(sender, e)
End If
End Sub
Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
Select Case KodeMatakuliah.Text
Case "A01"
NamaMatakuliah.Text = "Sistem operasi"
Case "A02"
NamaMatakuliah.Text = "Struktur Data"
Case "A03"
NamaMatakuliah.Text = "Programan visual"
Case "A04"
NamaMatakuliah.Text = "Teknik Informatika"
Case "A05"
NamaMatakuliah.Text = "Managemen Sistem"
Case Else
NamaMatakuliah.Text = "_"
End Select
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
gimana,gampangkan.....
selamat mencoba!!!!!!Belajar Bahasa Pemograman
Tidak ada komentar:
Posting Komentar