Membuat Contoh Program sederhana Tentang Nilai Mahasiswa menggunakan VB.Net 2008

Hai sahabat blogger kali ini saya akan membagi sedikit ilmu tentang belajar Program Menggunakan VB.Net 2008..
Program yg saya post kali  ini tentang belajar vb.net dengan menggunakan case,if jamak,if ganda,dan if tunggal..dan juga menambahkan sebuah program dengan keychar yg gunanya untuk mempermudah kita dalam memproses tanpa menekan tombol proses.

Sebelum dijalankan programnya seperti tampilan dibawah ini..

Baik,saya langsung saja memberikan listing programnya..

Ketentuan soal sebagai berikut  :

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 1 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 atau sama dengan 80 maka nilai huruf = "A", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 70 maka nilai huruf = "B", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 60 maka nilai huruf = "C", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama 50 maka nilai huruf = "D", keterangan = "LULUS"

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

Ini coding programnya:

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111003")
        NPM.Items.Add("13100987")
        NPM.Items.Add("12072133")
        NPM.Items.Add("12072240")
        NPM.Items.Add("12114311")

        KodeDosen.Items.Add("700")
        KodeDosen.Items.Add("703")
        KodeDosen.Items.Add("305")

        KodeMatakuliah.Items.Add("C11")
        KodeMatakuliah.Items.Add("C12")
        KodeMatakuliah.Items.Add("C13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

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

        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

        Select Case NPM.Text
            Case "12111003"
                Nama.Text = "Rahmat Hidayat"
            Case "13100987"
                Nama.Text = "Sherin Dini"
            Case "12072133"
                Nama.Text = "Tini Anggraini"
            Case "12072240"
                Nama.Text = "Putri Hamdani"
            Case "12114311"
                Nama.Text = "Febri Riswanda"
            Case Else
                Nama.Text = "_"
        End Select

        Select Case x
            Case "11"
                Jenjang.Text = "Strata 1"
            Case "10"
                Jenjang.Text = "DIII"
            Case "07"
                Jenjang.Text = "DI"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "1"
                Jurusan.Text = "Teknik Informatika"
            Case "4"
                Jurusan.Text = "Sistem Informasi"
            Case "0"
                Jurusan.Text = "Manajemen Informatika"
            Case "2"
                Jurusan.Text = "Akutansi"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "700"
                NamaDosen.Text = "Hery Sunandar, ST, M.kom"
            Case "703"
                NamaDosen.Text = "Harvei D.Hutahaean, Mkom"
            Case "705"
                NamaDosen.Text = "Guidio L Ginting S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        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 = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "C11"
                NamaMatakuliah.Text = "Matriks dan Transpormasi Linear"
            Case "C12"
                NamaMatakuliah.Text = "Sistem Basis Data"
            Case "C13"
                NamaMatakuliah.Text = "Komunikasi Data"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class

Dan setelah codingnya dijalankan maka tampilan program seperti di bawah ini.

Belajar Bahasa Pemograman

Berbagi Pengetahuan

Belajar HTML Dasar Basic, Struktur Dasar Dokumen HTML

Belajar HTML (Hypertext Markup Language) Anda harus tahu struktur dasar dokumen atau halaman html yang dapat digunakan agar running di internet, sebelum live koneksi dengan internet perlu yang namanya tes atau uji coba bisa menggunakan notepad atau notepad++ dengan format file yang disimpan adalah dot HTML. Dokumen HTML yang terbentuk berupa halaman internet pada dasarnya di simpan pada format teks reguler atau teratur, tetap yang sudah disepakati serta mengandung berbagai Tag-Tag Dasar HTML guna web browser dapat membaca kemudian di eksekusi sesuai perintah berdasarkan spesifikasi kebutuhan.

Struktur Dasar Dokumen HTML bisa lihat sebagai berikut.

<html>
<head>
<title>Disini Judul Dokumen HTML</title>
</head>
<body>
   <p>Disini penulisan isi informasi Web</p>
</body>
</html>

Dari kode HTML dasar diatas dapat dilihat terdapat dua bagian struktur dasar yang digunakan, diantara penjelasan 2 bagian itu adalah sebagai berikut:

Tag
Tag merupakan teks khusus (markup) berfungsi untuk mendeklarasikan sesuatu ringkas dan jelas tapi tidak ditampilkan, hanya sebatas memberitahukan kepada apl browser yang digunakan agar tampil pada halaman internet yakni website, memiliki 2 karakter penulisan "<" dan ">" maksud tag pembuka dan tag penutup. Contoh Tag HTML; <head> <title> dan <body> akan ditutup menjadi </head> </title> dan </body>

Element
Element HTML adalah definisi dari kode HTML yang memiliki Element HTML/ HTML Elements, apa-apa yang terdapat diantara kode HTML dimulai dari start tag, isi dokumen dan, end tag.

Attribute
Satu lagi struktus dasar yang harus diketahui adalah Attribute merupakan sebuah fungsi yang terdapat didalam tag HTML. Disini Anda sudah dikenalkan masuk dalam kategori tema untuk mempercantik element isi dokumen teks menggunakan sedikit sentuhan CSS. Contoh;

Hallo Sahabat Blogger!

Dengan penulisan kode;

<b style="color: blue; font-size: large;">Hallo Sahabat Blogger!</b>

HTML adalah bahasa pemrograman basic masih terbilang mudah, jadi bagi Anda yang ingin belajar HTML jangan takut gak bisa kalo belum coba dan diperaktekan, yuk langsung latihan saja untuk pembelajaran basic dan singkat kali ini,

Siapkan notepad/ notepad++, simpan file Latihan1 berikut dengan format index.html

<html>
<head>
<title>Latihan Satu</title>
</head>
<body>
   <b style="color: blue; font-size: large;">Hallo Sahabat Blogger!</b>
</body>
</html>

Tag title dengan teks Latihan Satu menunjukan judul halaman atau, webiste jika sudah terkoneksi dengan internet nantinya, dan isi dari dokumen adalah Hallo Sahabat Blogger!, sedangkan tag-tag yang terpasang tidak tampil. Simple, mudah bukankan? Masih basic jadi gak usah buru-buru ya..?? ditunggu saja artikel terkait HTML Basic pada latihan 2, 3 dan seterusnya dijamin bakal menarik sampai tiba saatnya kita belajar PHP, sekian dulu dan terima kasih salam.