Review Mesran[dot]Net Website Belajar Program

Assalamualaikum,,

Blognya Igaph datang lagi dengan membawa info yang berbeda, kali ini Blognya Igaph tentang sebuah Website, yaitu website seseorang yang bisa dibilang orang yang menginspirasi saya dalam belajar program.

Mesran[dot]net, ya itu dia websitenya,, Ada banyak info disini, apalagi mengenai kalau belajar program, sahabat mau belajar apa,, pasti ada, seperti belajar Visual Basic Net, Visual Basic, Visual C#, Pascal, C++, Algoritma, Bahkan PHP juga ada,,,

 Nah kalau kita bosan belajar program, kita juga bisa refresing dengan membaca berita foto bugil Ayu ting-ting, dan download video mesum anggota DPRD di Wesite Mesran[dot]net. tapi setelah selesai refreshing kembali lagi lah belajar programnya,,

OK. Cukup sekian review mengenai Website Mesran[dot]net. Semoga ini juga bisa menjadi refrensi tambahan buat sahabat sekalian.

Diposting oleh Unknown 01.04 0 komentar

Contoh Program Sederhana VB.NET 2008 Form Nilai

Assalamualaikum,,,

Blognya Igaph kembali mempostingkan Contoh Program VB NET 2008 yang sebelumnya mungkin pernah mempostingkan hal yang sama, tapi dengan pokok pembahasan yang berbeda.
Tapi kali ini Blognya Igaph selain membuat postingan ini sekaligus menyelesaikan Tugas Belajar Bahasa Pemrograman.

Nah, kali ini yang dibahas adalah Contoh Program Sederhana VB.NET 2008 Form Nilai.

Langsung aja ke TKP.

Pertama, Buka VB.Net 2008 sobat, dan desain form berikut keterangan name nya juga jangan lupa .

setelah di desain, kita gak bisa langsung kelisting programnya, kita harus tau dulu gmana cara kerja Contoh Program Sederhana VB NET 2008 Form Nilai ini.

Ketentuannya adalah :

1. Untuk nama, jenjang, dan jurusan ditentukan oleh NPM, hanya saja;

   -  pada jenjang diambil dari nilai tengah yang dimulai dari 3 karakter pertama sebanyak 2 karater

   -  jurusan diambil dari nilai tengah yang dimulai dari 5 karakter pertama sebanyak 2 karater.

2. Nama dosen ditentukan oleh Kode dosen.

3. Mata kuliah di tentukan oleh kode mata kuliah

4. Nilai kehadiran, nilai tugas, nilai UTS, nilai UAS menggunakan perulangan dari 100 sampai 1 dan di kelang 3 digit.

5. nilai akhir = 10% * nilai kehadiran + 15 % * nilai tugas + 30% * nilai UTS + 45% * nilai UAS

6. jika nilai akhir lebih dari 90 maka nilai huruf = "A", keterangan = "LULUS"

    jika nilai akhir lebih dari 80 maka nilai huruf = "B", keterangan = "LULUS"

    jika nilai akhir lebih dari 70 maka nilai huruf = "C", keterangan = "LULUS"

    jika nilai akhir lebih dari 60 maka nilai huruf = "D", keterangan = "LULUS"

    jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL"

ini dia listing Contoh Program Sederhana VB NET 2008 Form Nilai.

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

        NPM.Items.Add("12110102")

        NPM.Items.Add("12120244")

        NPM.Items.Add("12130346")

        NPM.Items.Add("12110496")

        NPM.Items.Add("12130557")

        kddosen.Items.Add("lab01")

        kddosen.Items.Add("lab02")

        kddosen.Items.Add("lab03")

        kddosen.Items.Add("lab04")

        kddosen.Items.Add("lab05")

        kdmakul.Items.Add("K01")

        kdmakul.Items.Add("K02")

        kdmakul.Items.Add("K03")

        kdmakul.Items.Add("K04")

        kdmakul.Items.Add("K05")

        Dim x As Integer

        For x = 100 To 1 Step -3

            nkehadiran.Items.Add(x)

            ntugas.Items.Add(x)

            nUTS.Items.Add(x)

            nUAS.Items.Add(x)

        Next

        nakhir.Enabled = False

        nhuruf.Enabled = False

        keterangan.Enabled = False

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

        Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)

        If NPM.Text = "12110102" Then

            nama.Text = "Jailamm Igaph S"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12120244" Then

            nama.Text = "Chanif Arvani"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12130346" Then

            nama.Text = "Agus Setiawan"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12110496" Then

            nama.Text = "Reza Aryansyah"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12130557" Then

            nama.Text = "Lia Syafitri"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        End If

    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged

        If kddosen.Text = "lab01" Then

            namadosen.Text = "Mesran, M.Kom"

        ElseIf kddosen.Text = "lab02" Then

            namadosen.Text = "Nelly Astuti Hsb, M.Kom"

        ElseIf kddosen.Text = "lab03" Then

            namadosen.Text = "Surya Darma Nst, M.Kom"

        ElseIf kddosen.Text = "lab04" Then

            namadosen.Text = "Guidio, M.Kom"

        ElseIf kddosen.Text = "lab05" Then

            namadosen.Text = "Efori Bu'ulolo, M.Kom"

        End If

    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged

        If kdmakul.Text = "K01" Then

            namamakul.Text = "Pemrograman Visual I"

        ElseIf kdmakul.Text = "K02" Then

            namamakul.Text = "Sistem Basis Data"

        ElseIf kdmakul.Text = "K03" Then

            namamakul.Text = "Arsitektur Data"

        ElseIf kdmakul.Text = "K04" Then

            namamakul.Text = "Sistem Operasi"

        ElseIf kdmakul.Text = "K05" Then

            namamakul.Text = "Algoritma"

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text

        If nakhir.Text >= 90 Then

            nhuruf.Text = "A"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text >= 80 Then

            nhuruf.Text = "B"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text >= 70 Then

            nhuruf.Text = "C"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text >= 60 Then

            nhuruf.Text = "D"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text <= 50 Then

            nhuruf.Text = "E"

            keterangan.Text = "GAGAL"

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NPM.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kddosen.Text = ""

        namadosen.Text = ""

        kdmakul.Text = ""

        namamakul.Text = ""

        nkehadiran.Text = ""

        ntugas.Text = ""

        nUTS.Text = ""

        nUAS.Text = ""

        nakhir.Text = ""

        nhuruf.Text = ""

        keterangan.Text = ""

        NPM.Focus()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

Dan Jika Contoh Program Sederhana VB NET 2008 Form Nilai ini di jalan akan menjadi seperti ini,

Nah sekianlah postingan Contoh Program Sederhana VB NET 2008 Form Nilai ini, semoga dapat bermanfaat untuk sahabat semua. Terima kasih.

Diposting oleh Unknown 00.04 0 komentar