Tugas
Belajar bahasa pemrograman visual dari pak
mesran.
Hasil outputnya.
Codingnya sebagai berikut.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call CekNpm()
Call CekKodeDosen()
Call Cek_nilai()
Call CekKodeMatakuliah()
End Sub
Sub CekNpm()
NPM.Items.Add("12110385")
NPM.Items.Add("12021020")
NPM.Items.Add("12110157")
End Sub
Sub CekKodeDosen()
For i = 1 To 3
KdeDosen.Items.Add("NIDN00" & i)
Next
End Sub
Sub Cek_nilai()
' Dim x As Integer
For x = 1 To 100
Nhadir.Items.Add(x)
Ntugas.Items.Add(x)
NUts.Items.Add(x)
NUas.Items.Add(x)
Next
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12110385"
Nama.Text = "Rahma"
Case "12021020"
Nama.Text = "Nisa"
Case "12110157"
Nama.Text = "Risty"
End Select
Dim x As Integer
x = Strings.Mid(NPM.Text, 3, 2)
Select Case x
Case "11"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "02"
Jenjang.Text = "D3"
Jurusan.Text = "Manajemen Informatika"
End Select
End Sub
Private Sub KdeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdeDosen.SelectedIndexChanged
Select Case KdeDosen.Text
Case "NIDN001"
NmaDosen.Text = "Mesran,Mkom"
Case "NIDN002"
NmaDosen.Text = "Tonni Limbong,Mkom"
Case "NIDN003"
NmaDosen.Text = "Sinar Sinurat,Mkom"
End Select
End Sub
Sub CekKodeMatakuliah()
For y = 1 To 3
KdeMatakuliah.Items.Add("MKO" & y)
Next
End Sub
Private Sub KdeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdeMatakuliah.SelectedIndexChanged
Select Case KdeMatakuliah.Text
Case "MKO1"
NmaMatakuliah.Text = "Pemograman Visual"
Case "MKO2"
NmaMatakuliah.Text = "Konsep Pemograman"
Case "MKO3"
NmaMatakuliah.Text = "Pemograman Html"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If Nhadir.Text = "" Or Ntugas.Text = "" Or NUts.Text = "" Or NUas.Text = "" Then
MsgBox("Nilai Ada yang belum di input")
Else
Dim a, b, c, d As String
a = 0.1 * Nhadir.Text
b = 0.15 * Ntugas.Text
c = 0.3 * NUts.Text
d = 0.35 * NUas.Text
Nakhir.Text = Val(a) + Val(b) + Val(c) + Val(d)
If Nakhir.Text >= 80 Then
Nhuruf.Text = "A"
Keterangan.Text = "Dengan Pujian"
ElseIf Nakhir.Text >= 75 Then
Nhuruf.Text = "B+"
Keterangan.Text = "Dengan Pujian"
ElseIf Nakhir.Text >= 70 Then
Nhuruf.Text = "B"
Keterangan.Text = "Pujian"
ElseIf Nakhir.Text >= 65 Then
Nhuruf.Text = "C+"
Keterangan.Text = "Sangat Memuaskan"
ElseIf Nakhir.Text >= 60 Then
Nhuruf.Text = "C"
Keterangan.Text = "Memuaskan"
ElseIf Nakhir.Text <= 60 Then
Nhuruf.Text = "D"
Keterangan.Text = "Anda Gagal"
End If
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 = ""
KdeDosen.Text = ""
NmaDosen.Text = ""
KdeMatakuliah.Text = ""
NmaMatakuliah.Text = ""
Nhadir.Text = ""
Ntugas.Text = ""
NUts.Text = ""
NUas.Text = ""
Nakhir.Text = ""
Nhuruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
Close()
End Sub
End Class
Korea
Selatan hampir selalu menempati posisi tertinggi negara dengan koneksi
internet tercepat. Seperti dalam sebuah penelitian terbaru oleh Akamai,
Korsel dinobatkan punya internet rata-rata terkencang, 14,2 Mbps. Apa
rahasia mereka?
.jpg)
