Jangan Tanyakan Mengapa

BismillahiRRAHMANIRRAHIM
Pagi telah menyapa NI
NI membalas sapaan itu
Dengan rasa syukur kepada sang pemilik kehidupan

Membaca jadwal Kegiatan untuk hari ini
dan tersenyum manis
Dengan keyakinan yang ada
"I bELIEVE  I can"

Percaya dengan kemampuan yang di miliki
dapat di rasakan hasilnya
dengan Bangga Hati
memetik sebuah Pelajaran Hidup

Pemrograman Vb.Net 2008

Tugas  Belajar Bahasa Pemrograman

1.      Buka aplikasi Microsoft Visual Studio 2008

2.      Klik File, Pilih New Project.

3.      Buat nama file.

4.      Maka akan tampil lembar kerja Microsoft Visual Studio 2008

Desain dulu formnya seperti di bawah ini..

 Atur Settingan code nya seperti di bawah ini :


Public Class FormNilai

    Private Sub FormNilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110525")
        NPM.Items.Add("12110505")
        NPM.Items.Add("12110405")
        NPM.Items.Add("12110125")
        KD.Items.Add("01")
        KD.Items.Add("02")
        KD.Items.Add("03")
        KD.Items.Add("04")
        KM.Items.Add("KKTI4303")
        KM.Items.Add("KKTI4301")
        KM.Items.Add("KBTI4305")
        KM.Items.Add("KBTI4303")
        NA.Enabled = False

        Dim i As Integer
        For i = 100 To 1 Step -3
            NUTS.Items.Add(i)
            NUAS.Items.Add(i)
            NK.Items.Add(i)
            NT.Items.Add(i)
        Next i
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110525"
                Nama.Text = "Yunita Afrida"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12110505"
                Nama.Text = "Isra Elida Hayana"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110405"
                Nama.Text = "Malaris Pasaribu"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case Else
                Nama.Text = "Windi Pitaloka"
        End Select
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
        Select Case KD.Text
            Case "01"
                ND.Text = "Sinar Sinurat,ST,M.Kom"
            Case "02"
                ND.Text = "Pilipus Tarigan,S.T, M.Kom "
            Case "03"
                ND.Text = "Mesran,S.Kom, M.Kom"
            Case Else
                ND.Text = "Harvei D. Hutahaean M.Kom"
        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged
        Select Case KM.Text
            Case "KKTI4303"
                MK.Text = "Struktur Data"
            Case "KKTI4301"
                MK.Text = "Arsitektur dan organisasi"
            Case "KBTI4305"
                MK.Text = "Pemograman Visual"
            Case Else
                MK.Text = "Sistem Basis Data"
        End Select
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    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 = ""
        KD.Text = ""
        ND.Text = ""
        KM.Text = ""
        MK.Text = ""
        NK.Text = ""
        NT.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NA.Text = 0.1 * NK.Text + 0.15 * NT.Text + 0.3 * NUTS.Text + 0.45 * NUAS.Text
        If NT.Text >= 80 Then
            NH.Text = "A"
            Ket.Text = "Lulus"
        ElseIf NT.Text >= 70 Then
            NH.Text = "B"
            Ket.Text = "Lulus"
        ElseIf NT.Text >= 60 Then
            NH.Text = "C"
            Ket.Text = "Lulus"
        ElseIf NT.Text >= 50 Then
            NH.Text = "D"
            Ket.Text = "Gagal"
        Else
            NH.Text = "E"
            Ket.Text = "Gagal"
        End If
    End Sub
End Class


Maka,, Hasil Akhirnya ...

Sekian Postingan tugas dari saya..
Semoga bermanfaatt.. ^_^