Untuk kita malam ini si pembuat blog membuat sebuah program
kecil untuk Pencarian Nilai dalam bahasa pemograman Visual Basic 2008, untuk
itu marilah si pengunjung memperhatikan langkah-langkah selanjut_Nya, Kalau mau
kenalan dengan si pemilik blog karna orang_Nya baik, jujur, silahkan kunjungi
Profil lengkap_Ku di sebelah kiri agar kalian tidak penasaran dengan aku.
Ok langsung ajha, untuk membuat sebuah program tentu mas bro
atau mbak bro sudah tw program apa yang di pake yaitu VB 2008, dan tentunya langkah
sebelumnya atau pengenalan tentang vb sudah kalian tw’ jadi....... langsung
ajha untuk mendesain form_Nya silahkan lihat gambar berikut :
Untik Listing Program silahkan ikuti tulisan di bawah :Public Class SISKA
Private
Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
KDosen.Items.Add("GL001")
KDosen.Items.Add("YY002")
KDosen.Items.Add("TL003")
npm.Items.Add("12110596")
npm.Items.Add("12110841")
npm.Items.Add("12110874")
KMKuliah.Items.Add("GL001")
KMKuliah.Items.Add("YY002")
KMKuliah.Items.Add("TL003")
Dim
x As Integer
For
x = 100 To 1 Step
-1
nilaihadir.Items.Add(x)
NTugas.Items.Add(x)
NUts.Items.Add(x)
NUas.Items.Add(x)
Next
x
End
Sub
Private
Sub npm_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case npm.Text
Case
"12110596"
Nama.Text = "SISKA VENTRIANI ZEGA"
Jurusan.Text = "Teknik Informatika"
Case
"12110841"
Nama.Text = "POLINUS LAIA"
Jurusan.Text = "Teknik Informatika"
Case
"12110874"
Nama.Text = "Fentris Yarif Laoly"
Jurusan.Text = "Sistem Informasi"
End
Select
Dim
x As String
x =
Microsoft.VisualBasic.Right(npm.Text, 2)
If
npm.Text = "12110596" Then
Jenjang.Text = "TI"
ElseIf
npm.Text = "12110841" Then
Jenjang.Text = "TI"
ElseIf
npm.Text = "12110874" Then
Jenjang.Text = "TI"
End
If
End
Sub
Private
Sub kodedo_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KDosen.SelectedIndexChanged
Select
Case KDosen.Text
Case
"GL001"
NDosen.Text = "MESRAN S.Kom, M.Kom"
Case
"YY002"
NDosen.Text = "RIVARY KRISTIANTO HONDRO, S.Kom"
Case
"TL003"
NDosen.Text = "Toni LImbong S.kom,M.Kom"
End
Select
End
Sub
Private
Sub komaku_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KMKuliah.SelectedIndexChanged
Select
Case KMKuliah.Text
Case
"GL001"
MKUliah.Text = "VISUAL BASIC"
Case "YY002"
MKUliah.Text = "Operasi Data"
Case
"TL003"
MKUliah.Text = "Sistem Basis Data"
End
Select
End
Sub
Private
Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
Nakhir.Text = 0.1 *
nilaihadir.Text + 0.15 * NTugas.Text + 0.35 * NUts.Text + 0.45 * NUas.Text
If
Nakhir.Text >= 50 Then
Ket.Text = "LULUS"
Else
Ket.Text = "GAGAL"
End
If
If
Nakhir.Text >= "80" Then
NHuruf.Text = "A"
ElseIf
Nakhir.Text >= "70" Then
NHuruf.Text = "B"
ElseIf
Nakhir.Text >= "60" Then
NHuruf.Text = "C"
ElseIf
Nakhir.Text >= "50" Then
NHuruf.Text = "D"
Else
NHuruf.Text = "E"
End
If
End
Sub
Private
Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
Nakhir.Text = ""
npm.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KDosen.Text = ""
NDosen.Text = ""
KMKuliah.Text = ""
MKUliah.Text = ""
nilaihadir.Text = ""
NTugas.Text = ""
NUts.Text = ""
NUas.Text = ""
NHuruf.Text = ""
Ket.Text = ""
End
Sub
Private
Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
End
End
Sub
End Class
Untuk melihat apakah program jalan atau tidak tinggal menekan F5 dan test
program apakah sudah jalan atau tidak, Jadi hasil jadi si pembuat silahkan
lihat gambar berikut :
Sampai disini postingan saya, salam buat
kalian semua’’’’’ heheheh :P
Tidak ada komentar:
Posting Komentar