Blognya Igaph

Review Mesran[dot]Net Website Belajar Program

Assalamualaikum,,

Blognya Igaph datang lagi dengan membawa info yang berbeda, kali ini Blognya Igaph tentang sebuah Website, yaitu website seseorang yang bisa dibilang orang yang menginspirasi saya dalam belajar program.

Mesran[dot]net, ya itu dia websitenya,, Ada banyak info disini, apalagi mengenai kalau belajar program, sahabat mau belajar apa,, pasti ada, seperti belajar Visual Basic Net, Visual Basic, Visual C#, Pascal, C++, Algoritma, Bahkan PHP juga ada,,,

Nah kalau kita bosan belajar program, kita juga bisa refresing dengan membaca berita foto bugil Ayu ting-ting, dan download video mesum anggota DPRD di Wesite Mesran[dot]net. tapi setelah selesai refreshing kembali lagi lah belajar programnya,,

OK. Cukup sekian review mengenai Website Mesran[dot]net. Semoga ini juga bisa menjadi refrensi tambahan buat sahabat sekalian.

Diposting oleh Unknown 01.04 0 komentar

VB.NET

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)

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

VB.NET

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

VB.NET

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

Komputer

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

Turbo Pascal

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

Blognya Igaph

Review Mesran[dot]Net Website Belajar Program

Contoh Program Sederhana VB.NET 2008 Form Nilai

Cara Membuat Form Login Menggunakan VB Net 2008

Contoh Kalkulator Dari VB.NET

Pengertian Virus, Worm Dan Trojan Serta Cara Mengatasinya

Perbedaan Virus, Worm Dan Trojan

Program Pohon (Tree) Dinamis

Translate

Sahabat Igaph

Arsip Blog

Popular post

INFO BLOG