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

Tugas Praktikum NILAI MAHASISWA

Public Class Form1

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

        Call buattable()

        MataKuliah.Items.Add("C Sharp")

        MataKuliah.Items.Add("VB.NET")

        MataKuliah.Items.Add("Basis Data")

        NPM.Items.Add("13110371")

        NPM.Items.Add("13202136")

        MataKuliah.Items.Add("Konsep Pemograman")

        MataKuliah.Items.Add("Teknik Digital")

        MataKuliah.Items.Add("Visual Basic")

        MataKuliah.Items.Add("Komunikasi Data")

    End Sub

    Sub buattable()

        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI UTS", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI UAS", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI Angka", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI Huruf", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(MataKuliah.Text)

        lst.SubItems.Add(NilaiUTS.Text)

        lst.SubItems.Add(NilaiUAS.Text)

        lst.SubItems.Add(NilaiAngka.Text)

        lst.SubItems.Add(NilaiHuruf.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Btnisilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnisilist.Click

        Call isitable()

        NPM.Text = ""

        Nama.Text = ""

    End Sub

    Private Sub Btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuslist.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btnnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnnpm.Click

        LV.Items.Remove(LV.SelectedItems(0))

    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 NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        If NPM.Text = "13110371" Then

            Nama.Text = "Romaida Tambunan"

        ElseIf NPM.Text = "13202136" Then

            Nama.Text = "Walmiron Tambunan"

        End If

    End Sub

    Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click

        NPM.Text = ""

        Nama.Text = ""

        MataKuliah.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        NilaiAngka.Text = ""

        NilaiHuruf.Text = ""

    End Sub

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

        NilaiUTS.Text = NilaiUTS.Text * "0.30"

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        NilaiAngka.Text = 0.4 * NilaiUTS.Text + Val(0.6 * NilaiUAS.Text)

        If NilaiAngka.Text >= 80 Then

            NilaiHuruf.Text = "A"

        ElseIf NilaiAngka.Text >= 70 Then

            NilaiHuruf.Text = "B"

        ElseIf NilaiAngka.Text > 60 Then

            NilaiHuruf.Text = "C"

        ElseIf NilaiAngka.Text > 50 Then

            NilaiHuruf.Text = "D"

        Else

            NilaiHuruf.Text = "E"

        End If

    End Sub

End Class

Tampilan Hasil

Demikilahlah postingan saya  Nama : (Romaida Tambunan)  NPM : (13110371)
Selamat Belajar Pemrograman VB NET

Cara membuat tema atau theme sendiri pada windows 7

Tema atau theme seringkali digunakan untuk mengganti dan merubah tampilan desktop komputer dalam operating system windows. Tampilan berupa wallpaper yang dalam rentang waktu tertentu berubah dan bergantian dengan gambar yang lain secara otomatis. Untuk mendapatkan theme windows 7, anda dapat dengan mudah mendapatkannya dengan download di internet. Banyak sekali situs yang menyediakan link download theme untuk windows 7.

Tips Mengatasi Memori Internal Low di Android

Mungkin pembaca Komputek sekalian ada yang  pernah mengalami masalah seperti ini pada perangkat Android kesayangan. Pada saat proses install aplikasi tiba-tiba malah muncul peringatan "kehabisan ruang penyimpanan" atau semacamnya. Padahal free memori internal pada HP android sobat masih lapang.