hai teman* semua ,
kali ini saya akan membagi informasi bagaimana cara membuat form niali bagi mahasiswa .
langsung saja saya bahas .
pertama teman* harus membuat bagan nya dahulu seperti ini ..
langkah selanjutnya ,silahkan double klik pada form nya .lalu silahkan isi code dibawah ini .
form class 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add(12110852)
npm.Items.Add(12110487)
npm.Items.Add(12111010)
kodedosen.Items.Add(111)
kodedosen.Items.Add(122)
kodedosen.Items.Add(133)
kodemtkul.Items.Add(4305)
kodemtkul.Items.Add(4301)
kodemtkul.Items.Add(4303)
Dim i As Integer
For i = 1 To 100
nkehadiran.Items.Add(i)
Next
For i = 1 To 100
ntugas.Items.Add(i)
Next
For i = 1 To 100
nuts.Items.Add(i)
Next
For i = 1 To 100
nuas.Items.Add(i)
Next
End Sub
langkah berikutnya ,double klik pada combobox npm dan isikan codenya seperyi dibawah ini ,
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110852"
nama.Text = "iwan setia budi "
Case "12110487"
nama.Text = "halimatunsakdiah simanjuntak"
Case "12111010"
nama.Text = "m.dizki"
Case Else
nama.Text = "m.dizki"
End Select
Dim x As Integer
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If x = "11" Then
jenjang.Text = "SI"
jurusan.Text = " sistem informasi "
ElseIf x = "12" Then
jenjang.Text = "D I"
jurusan.Text = "manajemen akuntansi"
ElseIf x = "13" Then
jenjang.Text = "D III"
jurusan.Text = "teknik informasi"
End If
End Sub
selanjutnya,double klik pada combobox kode dosen dan isikan codenya seperti ini .
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
Select Case kodedosen.Text
Case "111"
namadosen.Text = "mesran M.kom"
Case "122"
namadosen.Text = "pilipus tarigan,ST,M.kom"
Case "133"
namadosen.Text = "m.syahrizal,S.kom,M.kom"
Case Else
namadosen.Text = "m.syahrizal,S.kom,M.kom"
End Select
End Sub
selanjutnya,duoble klik pada combobox matakuliah dan isikan codenya seperti ini .
Private Sub kodemtkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodemtkul.SelectedIndexChanged
Select Case kodemtkul.Text
Case "4305"
namamtkul.Text = "pemograman visual"
Case "4301"
namamtkul.Text = "arsitektur dan orgaenisasi"
Case "4303"
namamtkul.Text = "struktur data"
Case Else
namamtkul.Text = "struktur data"
End Select
End Sub
setelah kita selesai mengisi semuanya ,sekarang kita masuk keprosesnya untuk mencari hasil nilai akhir .
caranya double klik pada proses lalu masukan rumus dan codenya seperti dibwah ini ,
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
na.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
If na.Text >= 80 Then
nhuruf.Text = "A"
ElseIf na.Text >= 70 Then
nhuruf.Text = "B"
ElseIf na.Text >= 60 Then
nhuruf.Text = "C"
ElseIf na.Text >= 50 Then
nhuruf.Text = "D"
Else
nhuruf.Text = "E"
End If
If CDbl(na.Text) >= 50 Then
ket.Text = "lulus"
Else
ket.Text = "gagal"
End If
End Sub
setelah itu ,untuk menghapus hasil program yang sudah jalan .kita double klik lagi pada hapus dan isikan codenya .
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 = ""
kodemtkul.Text = ""
namamtkul.Text = ""
nkehadiran.Text = ""
ntugas.Text = ""
nuts.Text = ""
nuas.Text = ""
na.Text = ""
nhuruf.Text = ""
ket.Text = ""
End Sub
Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
End
End Sub
End Class
setelah semuanya sudah teman* isi ,maka hasilnya seperti ini .
sampai sinilah hasil postingan saya ,smoga bermanfaat bagi kita semua ,.
