TUGAS PEMROGRAMAN VISUAL BASIC

Pemrograman Visual Basic

Langkah-langkahnya:

1. Buka program VB (Visual basic)

2. klik create: New Project

3.ubah Project dengan nama yang Anda inginkan

4. Setelah itu akan muncul form1 pada project kita

5. Desain form1 tersebut dengan pembuatan  Label, TextBox, Combobox, Button,dll.

Sekarang kita desain form seperti di bawah ini.

 

Listing programnya!!

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110495")
        NPM.Items.Add("12110677")
        NPM.Items.Add("12110434")
        NPM.Items.Add("12111012")
        NPM.Items.Add("12110460")

        KDosen.Items.Add("41432")
        KDosen.Items.Add("41433")
        KDosen.Items.Add("41434")
        KDosen.Items.Add("41435")
        KDosen.Items.Add("41436")

        Kdemtkul.Items.Add("KKTI4303")
        Kdemtkul.Items.Add("KBTI4306")
        Kdemtkul.Items.Add("KBTI4303")
        Kdemtkul.Items.Add("KBTI4305")
        Kdemtkul.Items.Add("KBTI4301")

        Dim x As Integer
        For x = 1 To 100
            Nhadir.Items.Add(x)
            Ntugas.Items.Add(x)
            Nuts.Items.Add(x)
            Nuas.Items.Add(x)
        Next x
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110495"
                Nama.Text = "Dessy Oktryana Sitorus"
            Case "12110677"
                Nama.Text = "Evi Rida Maha"
            Case "12110434"
                Nama.Text = "Devie Puspita"
            Case "12111012"
                Nama.Text = "Rizky Mawarni"
            Case "12110460"
                Nama.Text = "Vermina Marbun"
        End Select
        Jenjang.Text = "SI"
        jurusan.Text = "Teknik Informatika"
    End Sub

    Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "41432"
                NmDosen.Text = "Tonny Limbong,S.Kom,M.Kom"
            Case "41433"
                NmDosen.Text = "Alex Rikki,S.Kom,M.Kom"
            Case "41434"
                NmDosen.Text = "Yasir Hasan,S.Kom"
            Case "41435"
                NmDosen.Text = "Mesran,M.Kom"
            Case "41436"
                NmDosen.Text = "Pristiwanto,S.Kom"
        End Select
    End Sub

    Private Sub Kdemtkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdemtkul.SelectedIndexChanged
        Select Case Kdemtkul.Text
            Case "KBTI4303"
                Mkul.Text = "Sistem Basis Data"
            Case "KKTI4303"
                Mkul.Text = "Struktur Data"
            Case "KBTI4306"
                Mkul.Text = "Sistem Operasi"
            Case "KBTI4305"
                Mkul.Text = "Pemograman Visual"
            Case "KBTI4302"
                Mkul.Text = "Komunikasi 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 Nhadir_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nhadir.SelectedIndexChanged

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Nakhir.Text = 0.1 * Nhadir.Text + 0.15 * Ntugas.Text + 0.35 * Nuts.Text + 0.45 * Nuas.Text

        If Nakhir.Text >= 80 Then
            Nhuruf.Text = "A"
            Keterangan.Text = "LULUS"
        ElseIf Nakhir.Text >= 70 Then
            Nhuruf.Text = "B"
            Keterangan.Text = "LULUS"
        ElseIf Nakhir.Text >= 60 Then
            Nhuruf.Text = "C"
            Keterangan.Text = "LULUS"
        ElseIf Nakhir.Text >= 50 Then
            Nhuruf.Text = "D"
            Keterangan.Text = "GAGAL"
        Else
            Nhuruf.Text = "E"
            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 = ""
        KDosen.Text = ""
        NmDosen.Text = ""
        Kdemtkul.Text = ""
        Mkul.Text = ""
        Nhadir.Text = ""
        Ntugas.Text = ""
        Nuts.Text = ""
        Nuas.Text = ""
        Nakhir.Text = ""
        Nhuruf.Text = ""
        Keterangan.Text = ""
    End Sub

End Class

Setelah kita jalankan, hasilnya seperti berikut ini:

Tips Merawat Baterai Laptop Agar Tetap Tahan Lama

 

 

Di zaman digital ini, laptop dimiliki mulai dari pelajar hingga pebisnis. Di mana laptop di bawa ke mall, kafe, restoran hingga sekolah.

Mungkin Anda adalah salah satunya. Masalah laptop tidak selalu pada software, namun juga hardware.

Laptop biasanya menggunakan baterai Li-Ion yang mampu bertahan hingga 4-5 tahun. Namun bagaimana cara untuk mempertahankan performa baterai tersebut agar tetap dalam kondisi optimal?

Berikut ini adalah tips untuk menjaga peforma baterai laptop agar tetap tahan lama :

1. Letakkan pada tempat yang keras
Panas merupakan salah satu penyebabnya menurunnya performa baterai, menaruh laptop di tempat yang empuk seperti bantal dan tempat tidur dapat menutup aliran udara panas yang keluar dari laptop.

2. Jangan biarkan baterai dalam keadaan 0%
Laptop yang kehabisan daya dan mati sebenarnya menimbulkan efek yang kurang baik terhadap baterai (cycle count). Cas laptop Anda saat baterai sudah saat lebih kurang 15 %.

3. Tegangan listrik yang stabil
Ketika mencas baterai, perhatikan listrik yang masuk ke adaptor. Tegangan listrik yang tidak stabil akan membuat adaptor cepat rusak dan baterai akan drop.

4. Defrag Harddisk
Defrag harddisk secara rutin agar kinerja harddisk menjadi lebih baik serta mengurangi beban penggunaan baterai.

5. Hibernate dan Standby
Hibernate lebih irit listrik dibandingkan standyby, karena dalam hibernate beberapa servis akan dinonaktifkan.

6. Menggunakan Cooling Pad
Suhu sangat mempengaruhi baterai, karena panas merupakan musuh utama baterai. Gunakan cooling pad sehingga memudahkan sirkulasi udara serta mengurangi panas pada baterai.

7. Membersihkan Baterai
Rutin membersihkan baterai menggunakan kain yang dibasahi alkohol akan membuat transfer daya listrik lebih optimal.

8. External Device
External Device seperti hard disk eksternal, wifi, bluetooh dan lainnya akan menguras penggunaan baterai Anda. Jika tidak sedang digunakan, sebaiknya dilepas dari laptop.

9. RAM
Semakin besar kapasitas RAM maka semakin irit penggunaan baterai, karena performa laptop akan menjadi lebih ringan , sehingga penggunaan beban baterai berkurang.