Contoh Program Sederhana VB.NET 2008 Form Nilai

Assalamualaikum,,,

Blognya Igaph kembali mempostingkan Contoh Program VB NET 2008 yang sebelumnya mungkin pernah mempostingkan hal yang sama, tapi dengan pokok pembahasan yang berbeda.
Tapi kali ini Blognya Igaph selain membuat postingan ini sekaligus menyelesaikan Tugas Belajar Bahasa Pemrograman.

Nah, kali ini yang dibahas adalah Contoh Program Sederhana VB.NET 2008 Form Nilai.

Langsung aja ke TKP.

Pertama, Buka VB.Net 2008 sobat, dan desain form berikut keterangan name nya juga jangan lupa .

setelah di desain, kita gak bisa langsung kelisting programnya, kita harus tau dulu gmana cara kerja Contoh Program Sederhana VB NET 2008 Form Nilai ini.

Ketentuannya adalah :

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 2 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 90 maka nilai huruf = "A", keterangan = "LULUS"

    jika nilai akhir lebih dari 80 maka nilai huruf = "B", keterangan = "LULUS"

    jika nilai akhir lebih dari 70 maka nilai huruf = "C", keterangan = "LULUS"

    jika nilai akhir lebih dari 60 maka nilai huruf = "D", keterangan = "LULUS"

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

ini dia listing Contoh Program Sederhana VB NET 2008 Form Nilai.

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

        NPM.Items.Add("12110102")

        NPM.Items.Add("12120244")

        NPM.Items.Add("12130346")

        NPM.Items.Add("12110496")

        NPM.Items.Add("12130557")

        kddosen.Items.Add("lab01")

        kddosen.Items.Add("lab02")

        kddosen.Items.Add("lab03")

        kddosen.Items.Add("lab04")

        kddosen.Items.Add("lab05")

        kdmakul.Items.Add("K01")

        kdmakul.Items.Add("K02")

        kdmakul.Items.Add("K03")

        kdmakul.Items.Add("K04")

        kdmakul.Items.Add("K05")

        Dim x As Integer

        For x = 100 To 1 Step -3

            nkehadiran.Items.Add(x)

            ntugas.Items.Add(x)

            nUTS.Items.Add(x)

            nUAS.Items.Add(x)

        Next

        nakhir.Enabled = False

        nhuruf.Enabled = False

        keterangan.Enabled = False

    End Sub

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

        Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

        Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)

        If NPM.Text = "12110102" Then

            nama.Text = "Jailamm Igaph S"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12120244" Then

            nama.Text = "Chanif Arvani"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12130346" Then

            nama.Text = "Agus Setiawan"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12110496" Then

            nama.Text = "Reza Aryansyah"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        ElseIf NPM.Text = "12130557" Then

            nama.Text = "Lia Syafitri"

            If jen = "11" Then

                jenjang.Text = "S1"

            ElseIf jen = "12" Then

                jenjang.Text = "D3"

            ElseIf jen = "13" Then

                jenjang.Text = "D1"

            End If

            If jur = "01" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf jur = "02" Then

                jurusan.Text = "Sistem Informatika"

            ElseIf jur = "03" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf jur = "04" Then

                jurusan.Text = "Komputerisasi Akuntansi"

            ElseIf jur = "05" Then

                jurusan.Text = "Desain Grafis"

            End If

        End If

    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged

        If kddosen.Text = "lab01" Then

            namadosen.Text = "Mesran, M.Kom"

        ElseIf kddosen.Text = "lab02" Then

            namadosen.Text = "Nelly Astuti Hsb, M.Kom"

        ElseIf kddosen.Text = "lab03" Then

            namadosen.Text = "Surya Darma Nst, M.Kom"

        ElseIf kddosen.Text = "lab04" Then

            namadosen.Text = "Guidio, M.Kom"

        ElseIf kddosen.Text = "lab05" Then

            namadosen.Text = "Efori Bu'ulolo, M.Kom"

        End If

    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged

        If kdmakul.Text = "K01" Then

            namamakul.Text = "Pemrograman Visual I"

        ElseIf kdmakul.Text = "K02" Then

            namamakul.Text = "Sistem Basis Data"

        ElseIf kdmakul.Text = "K03" Then

            namamakul.Text = "Arsitektur Data"

        ElseIf kdmakul.Text = "K04" Then

            namamakul.Text = "Sistem Operasi"

        ElseIf kdmakul.Text = "K05" Then

            namamakul.Text = "Algoritma"

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text

        If nakhir.Text >= 90 Then

            nhuruf.Text = "A"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text >= 80 Then

            nhuruf.Text = "B"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text >= 70 Then

            nhuruf.Text = "C"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text >= 60 Then

            nhuruf.Text = "D"

            keterangan.Text = "LULUS"

        ElseIf nakhir.Text <= 50 Then

            nhuruf.Text = "E"

            keterangan.Text = "GAGAL"

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NPM.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kddosen.Text = ""

        namadosen.Text = ""

        kdmakul.Text = ""

        namamakul.Text = ""

        nkehadiran.Text = ""

        ntugas.Text = ""

        nUTS.Text = ""

        nUAS.Text = ""

        nakhir.Text = ""

        nhuruf.Text = ""

        keterangan.Text = ""

        NPM.Focus()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

Dan Jika Contoh Program Sederhana VB NET 2008 Form Nilai ini di jalan akan menjadi seperti ini,

Nah sekianlah postingan Contoh Program Sederhana VB NET 2008 Form Nilai ini, semoga dapat bermanfaat untuk sahabat semua. Terima kasih.

Diposting oleh Unknown 00.04 0 komentar

Cara Membuat Form Login Menggunakan VB Net 2008

Assalamualaikum,,,

salam blogger,,

kali ini saya akan posting kan apa yang baru saja saya tau yaitu mengenai Cara Membuat Form Login Sederhana menggunakan VB Net 2008   dan ini cocok untuk pemula atau dasar,

Ok langsung aja pertama kali yang di lakukan ya,,, kita buka VB.Net 2008, lalu desain formnya seperti berikut ;

setelah kita desai formnya, lalu ini lah listing program Cara Membuat Form Login menggunakan VB Net 2008 :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            Form1.Show()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Username.Text = "Igaph" And Password.Text = "1234" Then
            Timer1.Start()
        Else
            MsgBox("Username dan password Anda Salah")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim q As Integer
        q = MsgBox("Apakah Anda ingin Keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Data Penjualan")
        If q = vbYes Then
            Close()
        End If
    End Sub

    Private Sub Password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
        Dim t As Integer = Asc(e.KeyChar)
        If t = 13 Then
            If Username.Text = "Igaph" And Password.Text = "1234" Then
                Timer1.Start()
            Else
                MsgBox("Username dan password Anda Salah")
                Username.Text = ""
                Password.Text = ""
            End If
        End If
    End Sub


Demikianlah postingan mengenai Cara Membuat Form Login Menggunakan VB Net 2008,,
jika terdapat kesulitan, anda bisa koment di bawah,, :D
saya akhiri Assalamualaikum,,, :D

Diposting oleh Unknown 22.34 1 komentar

Contoh Kalkulator Dari VB.NET

Assalamualaikum wr. wb

haddeeehh,, akhirnya selesai juga ne,,,

buat temen yang hobi belajaar program, kali ini saya postingkan gmana caranya kita buat program kalkulator sendiri dari VB.Net 2008. Nah, untuk itu mari kita lihat dan pahami bagaimana cara buatnya,,

pertama buka VB.Net 2008 dan desain seperti form berikut :

listing programmnya mau kan,,
ini dia listing Program Kalkulator dari VB.Net 2008, cekidott,,,

1. Double klik pada form lalu masukkan kode berikut :

    Public Class Form1

    Dim operand1 As Double
    Dim [operator] As String
    Dim baru As Boolean = True
    Dim temp As Double
    Dim operand2 As Double

2. Double klik pada button 0 ketikkan kode

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
    
    TextBox1.Text = TextBox1.Text & sender.text
    End Sub

3. Masukkan kode berikut pada button Tambah

    Private Sub btntmbh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntmbh.Click
       
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "+"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
            
        End If

        baru = False

    End Sub

4. Masukkan Kode Berikut Pada Button Kurang

    Private Sub btnkrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkrg.Click


        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "-"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            End If

        End If

        baru = False

    End Sub

5. Kode Berikut pada button Kali

    Private Sub Btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
  
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "x"
        ElseIf baru = False Then

            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = ";" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            End If
     
        End If

        baru = False

    End Sub

6. Kode Berikut Pada button Bagi

      Private Sub Btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = ":"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            End If

        End If

        baru = False
     
     End Sub

7. Kode berikut pada button hasil

      Dim hasil As Double
        operand2 = Val(TextBox1.Text)

        Select Case [operator]

            Case "+"
                hasil = operand1 + operand2
                TextBox1.Text = hasil.ToString
                baru = True
            Case "-"
                hasil = operand1 - operand2
                TextBox1.Text = hasil.ToString
            Case ":"
                hasil = operand1 / operand2
                TextBox1.Text = hasil.ToString
            Case "x"
                hasil = operand1 * operand2
                TextBox1.Text = hasil.ToString
                baru = True
        End Select

        TextBox1.Text = hasil.ToString

8. Kode berikut pada button titik

      Private Sub btntitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntitik.Click

        If InStr(TextBox1.Text, ".") > 0 Then
            Exit Sub
        Else
            TextBox1.Text = TextBox1.Text & "."
        End If
      End Sub

9. Dan terakhir pada button Clear

      Private Sub btnclr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclr.Click

        TextBox1.Text = ""
        operand1 = 0
        temp = 0
        baru = True
     End Sub 


Nah, itulah contoh Program Kalkulator menggunakan VB.Net yang saya buat, semoga bermanfaat..
Wassalamualaikum,,,,

Diposting oleh Unknown 12.27 0 komentar

Pengertian Virus, Worm Dan Trojan Serta Cara Mengatasinya

Virus adalah program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. tentu kita sangat terganggu saat komputer atau bahkan data data kerja kita terserang atau bahkan rusak karena virus. . Penyebaran virus biasanya melalui media luar seperti flasdisk, tapi di jaman ini virus pada umumnya memanfaatkan teknologi internet untuk menyebar luas. Cara masuknya bisa melalui E-mail (attachment), mirc, messenger (kirim/download file), download dari situs  atau bahkan memanfaatkan kelemahan dari sistem browser kita. Banyak cara pembuat virus untuk menjebak orang supaya tertarik untuk men-download dan membuka file yang ber-virus, antara lain dengan gambar lucu, tools yang berguna buat anda, cara dapat uang, games bagus, hingga yang baru-baru ada pesan dr FBI/CIA untuk anda. Saat komputer terjangkit virus, antivirus tentu menjadi jawaban yang paling tepat untuk menghilangkannya. Namun, tahukah Anda bahwa virus komputer juga bisa dilenyapkan tanpa menggunakan antivirus? Trik membersihkan virus tanpa antivirus ini bertujuan membasmi virus-virus baru dan virus lokal yang kebanyakan tidak dapat dideteksi oleh antivirus. Sebelum membahas cara membasmi virus kita atkan memabahas tentang virus, worm, dan trojan.

Perbedaan Virus, Worm Dan Trojan

Virus sebenarnya lain dengan trojan atau worm, tapi penyebarannya virus banyak di maanfaatkan oleh program worm dan trojan. Trojan adalah sebuah program yang dapat dijalankan (biasanya ber-ekstension EXE) oleh pengguna komputer dan ketika program tersebut dijalankan, dia akan merubah sesuatu dari sistem komputer kita (pada umumnya registri windows yang diubah). Nah kalau virus itu residen di memori dan dia akan merubah file yang biasanya ber-ekstension EXE atau COM dan kadang-kadang file tersebut menjadi rusak. Kalau worm (cacing) merupakan program kecil yang berupa script yang bisa nempel di mana aja, bahkan bisa nempel di html file (file website).

Cara Kerja Virus

Program antivirus pada umumnya menggabungkan semua worm dan trojan dalam kategori VIRUS, cuma mungkin dikasih kode virusnya contoh yang worm di kasih kode W depannya baru nama worm tersebut (contoh: w32/sober) dan kita juga akan menggangapnya sama karena semua itu merusak sistem file komputer. Intinya virus bisa berupa atau berfungsi seperti trojan/worm dan sebaliknya juga, apalagi kalau file tersebut telah ter-infeksi, otomatis akan menjadi file trojan/worm juga, karena kalau pengguna membukanya akan meng-infeksi file-file lainnya.

Cara Mengatasi Virus Komputer

1. Buka MS config di kotak run windows.

2. Klik tab start up. Di startup windows akan terlihat file yang dapat membangkitkan virus copy shorcut ini
    tetap eksis dan tidak dapat dihapus.

3. Coba anda hilangkan centang file virus tersebut dan klik apply maka centang tadi tidak hilang dan tetap
    tercentang. Virus tidak dapat anda hentikan.

4. Silahkan anda catat di kertas lokasi virus tersebut. Pengalaman penulis pembangkit virus copy shorcut
    berada di C: \Users \ User \AppData \Roaming \Microsoft \Windows \StartMenu\Programs\StartUp\file
    pembangkit virus.exe

5. Menghapus virus dengan cmd pada windows normal tidak akan berhasil karena ketika kita menghapus file
    virus di flasdisk dengan cmd sekalipun virus akan tetap muncul karena pembangkit virus di lokasi sistem
    akan memberi command untuk membuat virus itu lagi. Cara yang paling ampuh dan efektif adalah dengan
    mode safe mode with command prompt(cmd).

6. Silahkan anda restart computer anda dan masuk ke safe mode with command prompt dengan menekan
    F8. Highlight atau pilih windows dengan mode safe mode with command pormpt.

7. Setelah anda berada di safe mode with command prompt silahkan anda copy paste atau ketikkan file yang
    membuat virus copy shortcut selalu dapat mengaktifkan dirinya di lokasi tadi yang sudah anda catat atau di
    copas (C: \Users\ User \ AppData \ Roaming \ Microsoft \ Windows \ StartMenu \ Programs\ StartUp\file
    pembangkit virus.exe).

8. Hapus virus tersebut dengan perintah del nama virus.exe (catatan : anda harus masuk ke dalam folder
    tersebut sampai anda dibawa ke lokasi file tersebut baru anda dapat menghapus file virus tersebut.).

9. Setelah anda menghapus file pembangkit virus copy shortcut tersebut kini saatnya anda menghapus virus
    copy shortcut tersebut. Sebelumnya gunakan perintah attrib –r –s –h /s /d untuk memunculkan virus-virus
    yang mungkin masih tersembunyi selanjutnya silahkan anda gunakan perintah del nama virus shorcut 1, 2,
    3, dan 4. Kemudian dilanjutkan menghapus folder Recycler dengan menggunakan perintah RD Recycler /s
    tekan enter atau juga bisa dengan RMDIR Recycler /s.

10. Untuk mengantisipasi silahkan hapus juga file autorun.inf kalau ada. Selesai anda membersihkan virus
      dengan sempurna. Silahkan restart komputer anda ke windows mode normal.

Selamat mencoba semoga bermanfaat Pengertian Virus dan Cara Mengatasinya

Diposting oleh Unknown 20.35 0 komentar

Program Pohon (Tree) Dinamis

Program ini saya posting kan karna saya mendapat tugas dari dari dosen saya,
dan Alhamdulillah saya bisa menyelesaikan Program Pohon (Tree) Dinamis  ini.
Berikut ini adalah script programmnya menggunakan turbo pascal :

uses wincrt; 

Type pohon=^node; 
node=record 
data:integer; 
kiri,kanan:pohon; 
     end; 
var  
     T:pohon; 
     info:integer; 
{--------------------------------------------------------------------}
Procedure Buat_BST(info :integer;var T:pohon); 
var 
     b:pohon; 
begin 
if T=nil then 
begin 
new(b);b^.data:=info;b^.kiri:=nil;b^.kanan:=nil; 
T:=b; 
end 
else 
begin 
if T^.data<info then 
   Buat_Bst(info,T^.kanan); 
if T^.data>info then 
   Buat_Bst(info,T^.kiri); 
end; 
end; 
{--------------------------------------------------------------------}
Procedure Baca_BST_pre(b:pohon); 
begin 
if (b<>nil) then 
begin 
write(b^.data); 
Baca_BST_pre(b^.kiri); 
Baca_BST_pre(b^.kanan); 
end; 
end; 
{--------------------------------------------------------------------}
Procedure Baca_BST_in(b:pohon); 
begin 
if (b<>nil) then 
begin 
Baca_BST_in(b^.kiri); 
write(b^.data); 
Baca_BST_in(b^.kanan); 
end; 
end; 
{--------------------------------------------------------------------} 
Procedure Baca_BST_post(b:pohon); 
begin 
if (b<>nil) then 
begin 
Baca_BST_post(b^.kiri); 
Baca_BST_post(b^.kanan); 
write(b^.data); 
end; 
end; 
{--------------------------------------------------------------------}
begin 
clrscr; 
new(T);T^.kiri:=nil;T^.kanan:=nil; 
writeln('Memasukkan data ke dalam tree'); 
repeat 
write('Nilai data : ');readln(info); 
if info<>0 then Buat_BST(info,T); 
until info=0; 

writeln; 
readln; 
writeln('Pembacaan secara Pre order'); 
baca_BST_pre(T); 
writeln; 
readln; 
writeln('Pembacaan secara In order'); 
baca_BST_in(T);
writeln; 
readln; 
writeln('Pembacaan secara Post order'); 
baca_BST_post(T); 
end.

Semoga Program Pohon (Tree) Dinamis  ini dapat bermanfaat,

Diposting oleh Unknown 19.23 0 komentar

PERINTAH DATABASE SQL SERVER

Dipagi ini saya sempatkan untuk berbagi sedikit tentang Perintah Database SQL Server,
karena sedikit banyaknya Perintah Database SQL Server ini akan berguna, khususnya bagi pemula yang ingin membuat program berbasis Database menggunakan SQL Server.

Berikut ini perintah-perintah SQL pada Database SQL Server. Materi pelatihan berupa contoh-contoh perintah SQL dasar mulai dari CREATE, SELECT, UPDATE, DELETE, sampai PROCEDURE dan TRIGGER.


Membuat Database
CREATE DATABASE rumahsakit

Menghapus Database
DROP DATABASE rumahsakit

Menggunakan Database
USE rumahsakit

Membuat Tabel
CREATE TABLE dokter(
nip nvarchar(50) NOT NULL,
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL,
PRIMARY KEY (nip))

CREATE TABLE jabatan(
idjabatan nvarchar(50) NOT NULL PRIMARY KEY,
namajabatan nvarchar(200) NULL)

Menambah Kolom pada Tabel
ALTER TABLE dokter ADD idjabatan nvarchar(50) NULL

Menambah Data
INSERT INTO dokter (nip, nama, alamat, tgllahir, tunjangan) VALUES ('222', 'Dr. Dewi', 'Solo', '1983-02-20', 1500000);

Mengupdate Data
UPDATE dokter SET nip = '333', nama = 'Dr. Asri', alamat = 'Jogja', tgllahir = '1984-03-14', tunjangan = 2000000 WHERE nip = '444'

Menghapus Data
DELETE FROM dokter WHERE nip = '111'

Memfilter Data dengan Klausa WHERE
SELECT * FROM dokter WHERE nip = '111'
SELECT * FROM dokter WHERE nama = 'Dr. Andi Irmawan'
SELECT * FROM dokter WHERE nama LIKE '%Andi%'
SELECT * FROM dokter WHERE tunjangan = 1000000
SELECT * FROM dokter WHERE tunjangan <= 1000000
SELECT * FROM dokter WHERE tunjangan <> 1000000
SELECT * FROM dokter WHERE tunjangan IS NULL
SELECT * FROM dokter WHERE NOT tunjangan IS NULL
SELECT * FROM dokter WHERE tunjangan > 10000 AND alamat LIKE '%Yogya%'
SELECT * FROM dokter WHERE tgllahir > '1980-12-27'

Fungsi Menambah Tanggal atau Mengurangi Tanggal dengan Hari, Bulan, atau Tahun
SELECT nip,DATEADD(day,30,TglLahir) AS Kadaluarsa FROM dokter
SELECT nip,DATEADD(day,-30,TglLahir) AS Kadaluarsa FROM dokter
SELECT nip,nama,DATEADD(year,60,TglLahir) AS Pensiun FROM dokter
SELECT nip,nama,tgllahir FROM dokter WHERE GETDATE() > DATEADD(day,30,tgllahir)

Menggabungkan Dua Buah Tabel dengan Penggabungan Biasa
SELECT * FROM dokter, jabatan WHERE dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan JOIN
SELECT * FROM dokter JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan LEFT JOIN
SELECT * FROM dokter LEFT JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan RIGHT JOIN
SELECT * FROM dokter RIGHT JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan FULL JOIN
SELECT * FROM dokter FULL JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menghapus Kolom dalam suatu Tabel
ALTER TABLE dokter DROP COLUMN idjabatan

Membuat Tabel dengan Foreign Key
CREATE TABLE dokter(
nip nvarchar(50) NOT NULL,
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL,
PRIMARY KEY (nip) ,
CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan))

Mengubah kolom Tabel dan menambahkan Foreign Key setelah Tabel dibuat.
ALTER TABLE dokter ADD idjabatan nvarchar(50)
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan)

Mengetes Foreign Key sudah Bekerja atau Belum
UPDATE dokter SET idjabatan = 'KEP' WHERE nip = '111'
UPDATE dokter SET idjabatan = 'MANN' WHERE nip = '222'
UPDATE dokter SET idjabatan = NULL WHERE nip = '111'
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP'
UPDATE jabatan SET idjabatan = 'STF' WHERE idjabatan = 'STA'
Msg 547, Level 16, State 0, Line 1
The UPDATE statement conflicted with the FOREIGN KEY constraint "fk_dokjab". The conflict occurred in database "rumahsakit", table "dbo.jabatan", column 'idjabatan'.
The statement has been terminated.

Menghapus Foreign Key
ALTER TABLE dokter DROP CONSTRAINT fk_dokjab

Menambah Foreign Key dengan On Update Cascade
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan) ON UPDATE CASCADE

Mengetes Foreign Key dengan Cascade Update
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP'

Menghapus Foreign Key
ALTER TABLE dokter DROP CONSTRAINT fk_dokjab

Menambah Foreign Key dengan On Delete Cascade
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan) ON DELETE CASCADE

Mengetes Foreign Key dengan Cascade Delete
DELETE jabatan WHERE idjabatan = 'KPL'

Menambah Foreign Key dengan Cascade Delete dan Cascade Update
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan) ON UPDATE CASCADE ON DELETE CASCADE

Mengetes Foreign Key dengan Cascade Delete dan Cascade Update
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP'
DELETE jabatan WHERE idjabatan = 'KPL'

Membuat Tabel Baru Untuk Mempraktekkan Gabungan Join 3 Tabel
CREATE TABLE spesialis(
idspesialis nvarchar(50) NOT NULL PRIMARY KEY,
namaspesialis nvarchar(200) NULL)

Menambahkan Kolom pada Tabel
ALTER TABLE dokter ADD idspesialis nvarchar(50) NULL

Gabungan Join 3 Tabel dengan Cara Sederhana
SELECT * FROM dokter, jabatan, spesialis WHERE dokter.idjabatan = jabatan.idjabatan AND dokter.idspesialis = spesialis.idspesialis

Join Penggabungan 3 Tabel dengan JOIN
SELECT * FROM dokter JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan JOIN spesialis ON dokter.idspesialis = spesialis.idspesialis

Menghapus Kolom pada suatu Tabel
ALTER TABLE dokter DELETE COLUMN idspesialis

Mengubah Tipe data dari suatu Kolom pada Tabel
ALTER TABLE dokter ALTER COLUMN idspesialis nvarchar(50) NULL

Agregat Penjumlahan, Hitung Baris, Maksimum, Minimum, dan Rata-rata
SELECT SUM(tunjangan), MIN(tunjangan), MAX(tunjangan), COUNT(nip), AVG(tunjangan) FROM dokter

Memberi Nama Kolom dengan Klausa AS
SELECT SUM(tunjangan) as total FROM dokter

Menjumlahkan Tunjangan Per Jabatan
SELECT idjabatan, SUM(tunjangan) as total FROM dokter GROUP BY idjabatan

Menampilkan Tunjangan dan Total Semua Tunjangan Dokter dengan SubQuery
SELECT nip, tunjangan, (SELECT SUM(tunjangan) as total FROM dokter WHERE idjabatan = d.idjabatan) FROM dokter d

Menampilkan Tunjangan dan Persentase terhadap Total Semua Tunjangan Dokter dengan SubQuery
SELECT nip, (tunjangan/(SELECT SUM(tunjangan) FROM dokter WHERE idjabatan = d.idjabatan))*100 as persentase FROM dokter d

Menampilkan Dokter dengan Persentase terhadap Total Semua Tunjangan Dokter yang lebih dari 30% per Jabatan dengan SubQuery
SELECT nip FROM dokter d WHERE (tunjangan/(SELECT SUM(tunjangan) FROM dokter WHERE idjabatan = d.idjabatan))*100 > 30

Menampilkan Beberapa Dokter dengan Klausa IN
SELECT nip, nama FROM dokter d WHERE nip IN (‘001’,’002’,’003’)

Menampilkan Dokter dengan Tunjangan Terbesar dengan IN
SELECT nip, nama FROM dokter d WHERE nip IN (SELECT TOP 3 * FROM dokter ORDER BY tunjangan DESC)

Daftar Semua Teman dokter sama spesialis dari 2 orang dokter spesialis yg mempunyai tunjangan terbesar
SELECT nip, nama FROM dokter WHERE idspesialis IN (SELECT TOP 2 idspesialis FROM dokter ORDER BY tunjangan DESC)
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM dokter)) * 100 AS persentase, tunjangan FROM dokter
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM dokter)) * 100 AS persentase, tunjangan FROM dokter WHERE ((tunjangan / (SELECT SUM(tunjangan) FROM dokter)) * 100) > 30

Contoh lain SubQuery Berlapis-lapis
SELECT * FROM (SELECT nip, nama, (tunjangan/(SELECT SUM(tunjangan) FROM dokter)) * 100 AS persentase, tunjangan FROM dokter) d WHERE d.persentase > 30
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM dokter) WHERE idspesialis = d.idspesialis) * 100 AS persentase, tunjangan FROM dokter d

Mengkopi suatu Tabel ke Tabel lain atau Memasukkan hasil Query menjadi sebuat Tabel Temporary
SELECT *
INTO backupdokter
FROM dokter
SELECT * FROM backupdokter
DROP TABLE backupdokter

Membuat Tabel untuk Backup Data
CREATE TABLE backupdokter(
id int NOT NULL PRIMARY KEY IDENTITY,
waktu datetime NULL,
nip nvarchar(50) NULL,
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL)

Mengkopi Tabel ke Tabel Backup atau Memasukkan hasil sebuah Query ke Tabel Backup
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM dokter
SELECT * FROM backupdokter

Membuat Stored Procedure
CREATE PROCEDURE sp_totaltunjangan
AS
SELECT SUM(tunjangan) AS total
FROM dokter

Menjalankan Stored Procedure
EXECUTE sp_totaltunjangan

Membuat Stored Procedure dengan Parameter Masukan
CREATE PROCEDURE sp_totaljabatan
@idjab nvarchar(50)
AS
SELECT SUM(tunjangan) AS total
FROM dokter
WHERE idjabatan = @idjab

Menjalankan Stored Procedure dengan Parameter Input
EXECUTE sp_totaljabatan 'KEP'

Membuat Stored Procedure dengan Parameter Input dan Output
CREATE PROCEDURE tertinggiterendah
@idjab varchar(10),
@tunjtertinggi float OUTPUT,
@tunjterendah float OUTPUT
AS
 SELECT @tunjtertinggi=(SELECT MAX(tunjangan) FROM dokter WHERE idjabatan = @idjab)
 SELECT @tunjterendah=(SELECT MIN(tunjangan) FROM dokter WHERE idjabatan = @idjab)

Menyiapkan Parameter dan Memanggil Stored Procedure yang Menggunakan Parameter Input Output
----
DECLARE @idjabcari varchar(10);
DECLARE @hsltertinggi float;
DECLARE @hslterendah float;
SET @idjabcari='MAN'
EXECUTE tertinggiterendah @idjab=@idjabcari, @tunjtertinggi=@hsltertinggi OUTPUT, @tunjterendah=@hslterendah OUTPUT
SELECT @hsltertinggi AS "tertinggi", @hslterendah AS "terendah"
---

Menambah Kolom pada Tabel untuk mempraktekkan Trigger
ALTER TABLE jabatan ADD totaltunjangan float NULL;

Mengetes perintah SUM
SELECT SUM(tunjangan) FROM dokter WHERE idjabatan = ‘MAN’

Mengetes perintah SubQuery untuk Mengupdate Semua Baris dalam Suatu Tabel
UPDATE jabatan SET totaltunjangan = (SELECT SUM(tunjangan) FROM dokter d WHERE d.idjabatan = jabatan.idjabatan)
SELECT * FROM jabatan

Membuat Trigger untuk Mengupdate Total Tunjangan ketika Ada Tunjangan Diubah, Ditambah atau Dihapus
CREATE TRIGGER updatetotaltunjangan
ON dokter
AFTER INSERT, UPDATE, DELETE
AS
BEGIN
UPDATE jabatan SET totaltunjangan = (SELECT SUM(tunjangan) FROM dokter d WHERE d.idjabatan = jabatan.idjabatan)
END;

Mengubah kolom bertipe TEXT menjadi bertipe NVARCHAR agar bisa dipakai di Trigger
ALTER TABLE dokter ALTER COLUMN alamat nvarchar(1000) NULL
ALTER TABLE backupdokter ALTER COLUMN alamat nvarchar(1000) NULL

Membuat Trigger untuk Membackup Data yang Dihapus (Deleted)
CREATE TRIGGER backupdelete
ON dokter
AFTER DELETE
AS
BEGIN
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM deleted;
END;

Mengetes Trigger untuk Membackup Data yang Dihapus (Deleted)
SELECT * FROM dokter;
DELETE FROM dokter WHERE nip='444';
SELECT * FROM backupdokter;

Mengembalikan Data Dokter yang Telah Dihapus
INSERT INTO dokter (nip, nama, alamat, tgllahir, tunjangan) SELECT TOP 1 nip, nama, alamat, tgllahir, tunjangan FROM backupdokter WHERE nip='444' ORDER BY waktu DESC

Membuat Trigger untuk Membackup Data yang Diedit (Updated)
CREATE TRIGGER backupupdate
ON dokter
AFTER UPDATE
AS
BEGIN
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM updated;
END;

Membuat Trigger untuk Membackup Data yang Ditambahkan (Inserted)
CREATE TRIGGER backupinsert
ON dokter
AFTER INSERT
AS
BEGIN
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM inserted;
END;

Semoga  postingan saya mengenai Perintah Database SQL Server  dapat bermanfaat.

Diposting oleh Unknown 02.43