MENGHITUNG NILAI MAHASISWA DENGAN VS.2008

Disini saya akan menampilkan bagaimana cara mendesain FORM untuk NILAI  MAHASISWA seperti dibawah ini..

Langkah 1

Ambil komponen-komppnen berikut dari  TOOLBOX, seperti :
- label
- textbox
- combobox
- botton

Langkah 2

Kemudian desain lah Form sesuai dengan kebutuhan anda. Setelah selesai  mendesain ...
ubah nama dari ;
- textbox
- combobox

- botton

menjadi nama sesuai pada label
contoh :
pada kotak label "NAMA"
pada kotak textbox ubah menjadi "nama" di (name) yg terdapat pada properties

Langkah 3

o   Double klik pada Form 1

o   Kemudian ketiklah algoritma seperti dibawah ini..

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         npm.Items.Add("12110111")         npm.Items.Add("12110112")         npm.Items.Add("12110113")         npm.Items.Add("12110114")         npm.Items.Add("12110115")         kdosen.Items.Add("D-01")         kdosen.Items.Add("D-02")         kdosen.Items.Add("D-03")         kdosen.Items.Add("D-04")         kdosen.Items.Add("D-05")         kodeMT.Items.Add("MT-001")         kodeMT.Items.Add("MT-002")         kodeMT.Items.Add("MT-003")         kodeMT.Items.Add("MT-004")         kodeMT.Items.Add("MT-005")         Dim i As Integer         For i = 1 To 100             Nkehadiran.Items.Add(i)         Next i         i = 1         Do While i <= 100             Ntugas.Items.Add(i)             i = i + 1         Loop         i = 100         Do Until i = 0             Nuts.Items.Add(i)             i = i - 1         Loop         i = 100         While i >= 1             Nuas.Items.Add(i)             i = i - 1         End While     End Sub

 

Langkah 4

o   Kemudian kembali  pada Form1.vb [Desain]

o   Double klik pada Combobox NPM

o   Ketikkan Algoritma seperti dibawah ini..

Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged         Select Case npm.Text             Case "12110111"                 nama.Text = "ARI IRAWAN"             Case "12110112"                 nama.Text = "SITI NURUL KHALISAH"             Case "12110113"                 nama.Text = "IKKE WIWIK NURJANNAH"             Case "12110114"                 nama.Text = "NOVI ANDRIANI"             Case "12110115"                 nama.Text = "IRMA SUSANTI"             Case Else                 nama.Text = "-"         End Select         Dim x As String         x = Microsoft.VisualBasic.Right(npm.Text, 3)         Select Case x             Case "111"                 jenjang.Text = "S1"                 jurusan.Text = "Sistem Informasi"             Case "112"                 jenjang.Text = "D3"                 jurusan.Text = "Teknik Informatika"             Case "113"                 jenjang.Text = "S1"                 jurusan.Text = "Sistem Informasi"             Case "114"                 jenjang.Text = "D3"                 jurusan.Text = "Teknik Informatika"             Case "115"                 jenjang.Text = "D1"                 jurusan.Text = "Desain Grafis"         End Select     End Sub

 Langkah 5 :

o   Kemudian kembali  pada Form1.vb [Desain]

o   Double klik pada Combobox KODE DOSEN

o   Ketikkan Algoritma seperti dibawah ini.

.

Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged         Select Case kdosen.Text             Case "D-01"                 ndosen.Text = "PURNAWAN ABADI S.KOM"             Case "D-02"                 ndosen.Text = "SETIAWAN WIJAYA M.KOM"             Case "D-03"                 ndosen.Text = "MAHARANI PUTRI S.KOM"             Case "D-04"                 ndosen.Text = "PUTRA SINAGA M.KOM"             Case "D-05"                 ndosen.Text = "REZA BAMBANG M.KOM"         End Select     End Sub

 Langkah 6 :

o   Kemudian kembali  pada Form1.vb [Desain]

o   Double klik pada Combobox  KODE MATA KULIAH

o    Ketikkan Algoritma seperti dibawah ini..

Private Sub kodeMT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodeMT.SelectedIndexChanged         Select Case kodeMT.Text             Case "MT-001"                 MT.Text = "AGAMA ISLAM"             Case "MT-002"                 MT.Text = "BAHASA INGGRIS"             Case "MT-003"                 MT.Text = "PEMPROGRAMAN WEB"             Case "MT-004"                 MT.Text = "STRUKTUR DATA"             Case "MT-005"                 MT.Text = "JARINGAN WEB"         End Select     End Sub

     Langkah 7 :

o  ini Kemudian kembali  pada Form1.vb [Desain]

o   Double klik pada Button PROSES

o   Ketikkan Algoritma seperti dibawah

Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click         Nakhir.Text = (0.1 * Val(Nkehadiran.Text)) + (0.15 * Val(Ntugas.Text)) + (0.35 * Val(Nuts.Text)) + (0.4 * Val(Nuas.Text))         Select Case Nakhir.Text             Case Is >= 80                 Nhuruf.Text = "A"                 KET.Text = "Lulus"             Case 70 To 79                 Nhuruf.Text = "B"                 KET.Text = "Lulus"             Case 60 To 69                 Nhuruf.Text = "C"                 KET.Text = "Lulus"             Case 50 To 59                 Nhuruf.Text = "D"                 KET.Text = "Gagal"             Case Is <= 49                 Nhuruf.Text = "E"                 KET.Text = "Gagal"         End Select     End Sub

.

   Langkah 8 :

o    Kemudian kembali  pada Form1.vb [Desain]

o   Double klik pada Button HAPUS

o   Ketikkan Algoritma seperti dibawah 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 = ""         kdosen.Text = ""         ndosen.Text = ""         kodeMT.Text = ""         MT.Text = ""         Nkehadiran.Text = ""         Ntugas.Text = ""         Nakhir.Text = ""         Nuas.Text = ""         Nuts.Text = ""         Nhuruf.Text = ""         KET.Text = ""         npm.Focus()     End Sub

 

    Langkah 9 :

o   Kemudian kembali  pada Form1.vb [Desain]

o   Double klik pada Button KELUAR

o   Ketikkan Algoritma seperti dibawah ini..

Private Sub btn_keluar_Click(ByVal sender As System.Object,      ByVal e As System.EventArgs) Handles btn_keluar.Click         End     End Sub

 

Langkah 10 :

o   Setelah selesai melakukan penginputan  Algoritma seperti yang diatas..

o   Kemudian tekan tombol F5 pada keyboard..

o   Maka akan tampil hasil nya seperti berikut ini,,