Jumat, 15 November 2013

Tugas Pemograman Visual

 Tugas Belajar Bahasa Pemograman


Ini adalah hasil output program nya


dan ini adalah coding program nya :

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111001")
        NPM.Items.Add("12111002")
        NPM.Items.Add("13110737")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        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
        Select Case NPM.Text
            Case "12111001"
                Nama.Text = "Bayu Walanda"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12111002"
                Nama.Text = "Candro S"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem informasi"
            Case "13110737"
                Nama.Text = "Sherin Dhini"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case Else
                Nama.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 "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran 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

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        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 "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class

Sumber : Pak Mesran S.Kom, M.Kom
Belajar Bahasa Pemograman

Jumat, 01 November 2013

cara mengembalikan data yang hilang karena virus

Ada beberapa cara yang bisa anda gunakan jika ingin Mengembalikan data flasdisk anda yang hilang, anda bisa gunakan bantuan smadav  atau dengan menggunakan cara manual. Nah, berikut ini langkah-langkah mudah mengembalikan data flasdisk yang hilang anda dengan cara manual (untuk semua OS, Yang penting inti langkah-langkahnya sama).

1. Jika anda menggunakan windows 7, coba anda cari menu Organize yang terletak pada sudut kiri atas windows explorer anda.
2. Klik, dan pilih menu Folder and Search Option.
3. Akan muncul tampilan Folder option, kemudian anda klik Tab View, hilang kan centang pada 3 pilihan
- Hide empty drives in the computer folder
- Hide Extensions for known file types
- Hide protected operating system files (recommended) untuk pilihan ini akan ada warning dari windows. tekan yes saja. Setelah itu pilih Show hidden files and Folders
4. Masuk ke Flasdisk anda, coba cek data milik anda apakah ada disana. Biasanya kalau data yang hilang karena virus, maka file atau folder anda akan terlihat buram-buram.
5. Langkah kelima ini merupakan langkah penting untuk mengembalikan data pada flasdisk anda.
- Tekan Win + R, untuk memunculkan kotak dialog run
- Ketik CMD pada kotak dialog run, kemudian enter untuk menampilkan comand prompt
- Sebelumnyaanda cari lokasi flasdisk anda Apakah drive letter nya di I ? di H ? atau di G ? nah, jika misalnya posisi flasdisk anda pada drive letter H, maka ketikan "H:" (tanpa tanda kutip) lalu enter.
- Kemudian masukan attribut "attrib -r -a -s -h *.* /s /d /l " (tanpa tanda kutip) lalu kemudian enter.
6. Jika file yang hilang itu banyak, maka akan membutuhkan loading beberapa menit. Jika sudah selesai dan file anda sudah kembali silahkan tutup comand prompt, kemudian kembalikan settingan pada langkah 3 seperti semula. Jika tidak anda kembalikan, maka akan banyak sekali file system yang aneh, khawatirnya nanti tanpa sengaja anda kemudian mendelet file tersebut.