Cari di Blog Ini

Sabtu, 06 Desember 2014

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikan Kasus Berikut:
Nilai Mahasiswa (Pelajaran Dikelas)


Berikut Jawaban Program:



Berikut Coding Programnya:


Public Class Form1
    Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Asc(e.KeyChar) = 13 Then
            tahnmasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
            jenjang.Text = "S1"
        ElseIf npm.Text = "0" Then
            jenjang.Text = "D3"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub nilaiangka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nilaiangka.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If nilaiangka.Text >= 90 Then
                nilaihuruf.Text = "A"
            ElseIf nilaiangka.Text >= 80 Then
                nilaihuruf.Text = "B+"
            ElseIf nilaiangka.Text >= 70 Then
                nilaihuruf.Text = "B"
            ElseIf nilaiangka.Text >= 60 Then
                nilaihuruf.Text = "C+"
            ElseIf nilaiangka.Text >= 50 Then
                nilaihuruf.Text = "C"
            ElseIf nilaiangka.Text >= 40 Then
                nilaihuruf.Text = "D"
            ElseIf nilaiangka.Text < 40 Then
                nilaihuruf.Text = "E"

            End If
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        npm.Items.Add("13110974")

    End Sub
End Class
dan hasilnya:
 

Demikian Postingan Saya
Nama: Muhammad Yogie
Npm: 13110974
kelas: TI-P1320
 Selamat Belajar Pemrograman VB NEt

Tidak ada komentar:

Posting Komentar