1. Kinerja Memori  dengan permasalahan :

- Berapa cepat

- Berapa Banyak

-  Berapa Mahal

2. Perkembangan Peralatan eksternal komputer dengan permasalahan :

-  Perkembangan peralatan eksternal komputer sampai saat ini

-  Perkembangan peralatan eksternal komputer ke depan

3. Komputer masa depan dengan permasalahan :

-  Aritektur koputer masa depan

-  Organisasi Komputer masa depan

-   Cloud computing

Ditulis dalam kertas double folio, satu nomor  topik minimal 1 halaman

Harus disertakan sumber bacaan, minimal 3 sumber. Sumber harus jelas/lengkap

Apabila web. Disertakan tgl dipostingnya makalah tersebut.

TUGAS DI ATAS DAPAT DIGANTIKAN APABILA ANDA MEMPUNYAI VIDEO TENTANG KOMPUTER MASA DEPAN, DENGAN KETENTUAN :

1. KAPASITAS MINIMAL 10 MB,

2. ANDA BERHASIL MENGUNGGAH KE EMAIL : pilipustarigans@gmail.com

3. TELAH MENDAPAT KONFIRMASI DARI SAYA

APABILA KETENTUAN DI ATAS  TIDAK DAPAT TERLAKSANA, MAKA TUGAS SECARA TERTULIS TETAP DILAKUKAN.

PROGRAM PENCARIAN NILAI

Desain lah Form berikut 

 

Berikut Listing Programnya

Public Class Form1

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

        kd.Items.Add("001")

        kd.Items.Add("002")

        kd.Items.Add("003")

        kd.Items.Add("004")

        kmk.Items.Add("111")

        kmk.Items.Add("222")

        kmk.Items.Add("333")

        kmk.Items.Add("444")

        npm.Items.Add("12110983")

        npm.Items.Add("12110329")

        npm.Items.Add("12110003")

        npm.Items.Add("12110027")

        Dim x As Integer

        For x = 100 To 10 Step -5

            nh.Items.Add(x)

            nt.Items.Add(x)

            uts.Items.Add(x)

            uas.Items.Add(x)

        Next

    End Sub

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

        Select Case (npm.Text)

            Case "12110983"

                nama.Text = "Ebed Silaban"

                jr.Text = "Teknik informatika"

                jj.Text = "S1"

            Case "12110329"

                nama.Text = "Yanti Sari Utami"

                jr.Text = "Teknik Informatika"

                jj.Text = "S1"

            Case "12110003"

                nama.Text = "Iqwal Ramadhan"

                jr.Text = "Tekhnisi Komputer "

                jj.Text = "D1"

            Case "12110027"

                nama.Text = "Suef Aripin"

                jr.Text = "Manajemen Informatika"

                jj.Text = "D3"

        End Select

    End Sub

    Private Sub kmk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmk.SelectedIndexChanged

        Select Case (kmk.Text)

            Case "111"

                mk.Text = "Pemogramman Visual"

            Case "222"

                mk.Text = "Sistem Operasi"

            Case "333"

                mk.Text = "Arsitektur Komputer"

            Case "444"

                mk.Text = "Sistem Basis Data"

        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 "001"

                nd.Text = "Mesran S.Kom,M.Kom"

            Case "002"

                nd.Text = "Yasir Hasan S.Kom"

            Case "003"

                nd.Text = "Philipus Tarigan.S.Kom"

            Case "004"

                nd.Text = "Rivalri.M.Kom"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        na.Text = 0.1 * nh.Text + 0.15 * nt.Text + 0.35 * uts.Text + 0.4 * uas.Text

        If na.Text >= 50 Then

            ket.Text = "LULUS"

        Else

            ket.Text = "GAGAL"

        End If

        If na.Text >= 80 Then

            nhr.Text = "A"

        ElseIf na.Text >= 70 Then

            nhr.Text = "B"

        ElseIf na.Text >= 60 Then

            nhr.Text = "C"

        ElseIf na.Text >= 50 Then

            nhr.Text = "D"

        Else

            nhr.Text = "E"

        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 = ""

        mk.Text = ""

        kmk.Text = ""

        kd.Text = ""

        nd.Text = ""

        nt.Text = ""

        nh.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        nh.Text = ""

        ket.Text = ""

        jr.Text = ""

        jj.Text = ""

        nhr.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

 

Berikut Hasil Programnya