Media Programer

Trik VB menutup semua Program

noreply@blogger.com (Anonymous) — Mon, 25 Feb 2013 07:10:00 -0800

Hallo Kawan Semua masih Bersama rizki ada sedikit Trik Buat Kawan kawan semua trik yang kali ini rizki Bagikan adalah Bagaimana kita menutup semua Program dengan hanya satu kali klik dengan pemrograman vb nah trik nie cukup berguna karna Instant kita gak perlu menuup satu persatu program yang kita jalankan tapi cukup dengan hanya satu tombol saja.

nah kewan eeh salah maksd aku kawan sebelum memulai alangkah baiknya membuat dulu sebuah form dan tambahkanlah 1 command button gunkan lah nama "Tutup Semua Program"

From Declaration

Private Declare Function BroadcastSystemMessage _

Lib "user32" (ByVal dw As Long, pdw As Long, _

ByVal un As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long

Pendeklarasian variabel yang diperlukan

Const BSF_POSTMESSAGE = &H10

Const BSM_APPLICATIONS = &H8

Const WM_SYSCOMMAnd = &H112

Menutup aplikasi ketika Command1 di klik

Private Sub Command1_Click()

BroadcastSystemMessage BSF_POSTMESSAGE, _

BSM_APPLICATIONS, WM_SYSCOMMAnd, &HF060&, ByVal 0&

End Sub

nah kalo belajar kawan tinggal copy paste sintak siatas semoga trik dari bejo kali ini bermanfaat

(Peringatan Bila terjadi Debug Hubungi Rumah sakit Terdekat) heheehe

Fungsi-Fungsi Angka VB

noreply@blogger.com (Anonymous) — Sun, 10 Feb 2013 22:26:00 -0800

Mas rizki-Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya khusus untuk VB .NET, ketikkan kode berikut dibagian paling atas dari jendela kode dari Form.

Abs(n), digunakan untuk mencari nilai absolut dari n. Contoh :
a = Abs(5) , nilai a adalah 5
a = Abs(-5) , nilai a adalah 5

CInt(n) dan Int(n), digunakan untuk mengubah nilai n menjadi nilai bertipe integer / bulat. Perbedaannya adalah jika CInt bila desimalnya bernilai lebih besar dari 0,5 , maka nilai akan dibulatkan 1 ke atas. Sedangkan Int tidak. Contoh :
a = CInt(3.4) , nilai a adalah 3
a = CInt(3.6) , nilai a adalah 4
a = Int(3.4) , nilai a adalah 3
a = Int(3.6) , nilai a adalah 3

CDbl(n) dan Val(n), digunakan untuk menkonversi nilai n yang bertipe string ke nilai bertipe double / angka. Perbedaannya adalah jika Val nilai n harus berformat Inggris (karakter desimal adalah tanda titik), sehingga muncul permasalahan jika settingan komputer menggunakan format Indonesia (karakter desimal adalah tanda koma) yang akan menghasilkan nilai berbeda. Sedangkan bila CDbl mampu menyesuaikan nilai sesuai dengan setting format komputer.
Berikut contoh yang diterapkan di komputer dengan setting format Indonesia.
a = Val("2,5") , nilai a adalah 2
a = CDbl("2,5") , nilai a adalah 2,5

Randomize dan Rnd() * n, kedua fungsi ini sering dikombinasikan untuk mencari angka acak antara 0 sampai dengan n. Contoh :

Randomize
a = Rnd() * 4
nilai a bisa bernilai antara 0 sampai dengan 4

Namun jika Anda ingin angka bertipe bulat saja, berikut contohnya :

Randomize
a = CInt(Rnd() * 4)

Dan jika Anda menginginkan acak dalam tipe boolean (True atau False),
berikut contohnya :

Randomize
a = CBool(CInt(Rnd() * 1))
nilai a bisa bernilai True atau False

Log(n), digunakan untuk mencari nilai logaritma natural dari n. Contoh :
a = Log(5) , nilai a adalah 1,60943791243
Jika Anda ingin mencari nilai logaritma standar dari n gunakan fungsi berikut :
VB 6.0 a = Log(n) / Log(10)
VB .NET a = Log10(n)

Exp(n), merupakan fungsi kebalikan dari Log(n). Contoh :
a = Exp(1,60943791243) , nilai a adalah 5

Round(n, x), digunakan untuk menyesuaikan jumlah angka desimal dari n sebanyak x. Contoh :
a = Round(5.3784, 2) , nilai a adalah 5,38

Sgn(n), digunakan untuk mencari tanda angka dari n. Fungsi ini menghasilkan nilai 1 jika n adalah positif, nilai -1 jika n adalah negatif, dan nilai 0 jika n adalah nol. Contoh:
VB 6.0 a = Sgn(-9)
VB .NET a = Sign(-9)
nilai a adalah -1

Sqr(n), digunakan untuk mencari akar kuadrat dari n. Contoh :
VB 6.0 a = Sqr(9)
VB .NET a = Sqrt(9)
nilai a adalah 3

Sin, Cos, Tan
VB 6.0

Nama	Fungsi
Sin	`a = Sin(n * Angle)`
Cosin	`a = Cos(n * Angle)`
Tangen	`a = Tan(n * Angle)`
Inv. Sin	`a = Atn(n / Sqr(-n * n + 1)) / Angle`
Inv. Cosin	`a = (Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)) / Angle`
Inv. Tangen	`a = Atn(n) / Angle`
Sin Hyp.	`a = (Exp(n) - Exp(-n)) / 2`
Cosin Hyp.	`a = (Exp(n) + Exp(-n)) / 2`
Tangen Hyp.	`a = (Exp(n) - Exp(-n)) / (Exp(n) + Exp(-n))`
Inv. Sin Hyp.	`a = Log(n + Sqr(n * n + 1))`
Inv. Cosin Hyp.	`a = Log(n + Sqr(n * n - 1))`
Inv. Tangen Hyp.	`a = Log((1 + n) / (1 - n)) / 2`

VB NET

Nama	Fungsi
Sin	`a = Sin(n * Angle)`
Cosin	`a = Cos(n * Angle)`
Tangen	`a = Tan(n * Angle)`
Inv. Sin	`a = Asin(n) / Angle`
Inv. Cosin	`a = Acos(n) / Angle`
Inv. Tangen	`a = Atan(n) / Angle`
Sin Hyp.	`a = Sinh(n)`
Cosin Hyp.	`a = Cosh(n)`
Tangen Hyp.	`a = Tanh(n)`
Inv. Sin Hyp.	`a = Log(n + Sqrt(n * n + 1))`
Inv. Cosin Hyp.	`a = Log(n + Sqrt(n * n - 1))`
Inv. Tangen Hyp.	`a = Log((1 + n) / (1 - n)) / 2`

Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :
Degress (DEG), gantikan dengan (3.14159265358979 / 180)
Radians (RAD), gantikan dengan 1
Grads (GRAD), gantikan dengan (3.14159265358979 / 200)
Contoh menghitung Sin dari 5 dengan ukuran DEG :
a = Sin(5 * (3.14159265358979 / 180))

Contoh program absen sederhana

noreply@blogger.com (Anonymous) — Sat, 9 Feb 2013 18:04:00 -0800

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb
Nama Tabel : Absen

Field	Data Type	Size
NRP	Text	10
Nama	Text	35
Jurusan	Text	50
Matkul	Text	50
Masuk	Byte
Sakit	Byte
Izin	Byte
Alpa	Byte
Total	Byte

Setelah membuat database selesai, lalu buat desain form absen seperti ini :
Componen tambahan pada Toolbox :
Adodc dan DataGrid

Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :


Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset


Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form


Private Sub Form_Activate()


Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
Adodc1.RecordSource = "absen"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub


Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Sistem Informasi"
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akuntansi"
Combo2.AddItem "Pemprograman Visual I"
Combo2.AddItem "Pemprograman Visual II"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :


Function CariData()
    Call koneksi
    RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function


Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub






Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :


Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
        If Not RsAbsen.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            MsgBox "NRP Sudah Ada"
            Command1.Enabled = False
        End If
End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :


Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :


Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub


Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub


Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :


Private Sub Command1_Click()   'Kode Perintah Untuk tombol Simpan
Dim SQLSimpan As String
            SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
            ConN.Execute SQLSimpan
            Form_Activate
            Call kosong
End Sub




Private Sub Command2_Click()     ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
Command2.Caption = "Edit"
Else


Dim SQLAbsen As String
            SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
            Command2.Caption = "Edit Data"
            End If
End Sub


Private Sub Command3_Click()   'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
            SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
End Sub


Private Sub Command4_Click()    'KOde Perintah Untuk Tombol Hapus
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub


Private Sub Command5_Click()    'Kode Perintah Untuk Tombol Selesai
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub


Private Sub Command6_Click()   'Kode Perintah Untuk Tombol Isi Data
Text1.Enabled = True
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            Text1.SetFocus
End Sub

Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,

Selamat Mencoba ^_^

Cara Memperpendek Url

noreply@blogger.com (Anonymous) — Fri, 8 Feb 2013 19:37:00 -0800

- Cara Memperpendek URL Agar URL Lebih Singkat. Mungkin sebagian dari kita sudah tidak asing lagi dengan istilah URL Shortener, yaitu layanan untuk mempersingkat URL. Tujuannya? Youpz, jelas tujuannya untuk mempersingkat/memperpendek URL/alamat web maupun blog yang dirasa harus dipersingkat, mungkin dikarekan terlalu panjang atau sukar diingat. Di internet kita bisa mendapatkan layanan tersebut secara cuma-cuma, selain gratis - layanan seperti ini memang benar-benar sudah banyak bermunculan di internet, namun sesuai dengan judul postingan kali ini kita akan membahas tentang layanan Google URL Shortener, Goo.gl

Goo.gl adalah layanan gratis yang telah disediakan oleh mbah google buat mempersingkat URL atau alamat web/blognya agan-agan. Jadi bagi yang suka dengan yang pendek2 alias singkat-singkat, maka tak ada salahnya untuk mencoba layanan yang satu ini.

Cara menggunakan layanan ini cukup mudah, gampang, dan tidak sulit. Silahkan sobat-sobat berkunjung ke situs Google URL shortener, goo.gl
1. Nah, setelah ngeklik link di atas nantikan yang tampil seperti berikut ini

Sekarang silahkan untuk mengisi pada kolom yang ada tulisan merah dengan URL panjang atau URL yang memang dirasa perlu tuk disingkat, lalu kliklah tombol "Shorten".

2. Sekarang, URL goo.gl-nya pasti sudah jadi. Cobalah untuk menengok ke sebelah kanan tombol "shortner", nah...itulah hasilnya. Ini contohnya => goo.gl/foAE6 (diklik ya, biar tahu hasilnya) => maka akan mengarah ke alamat blog ini (chyberart.blogspot)

BERHASIL!!!

Sekarang bagi teman-teman yang ingin mengetahui jumlah klik dari setiap link/URL yang telah dipersingkat. Sejujurnya, ini bagus juga bagi sobat-sobat yang memang ingin tahu jumlah klik link-nya, mungkin untuk keperluan data peningkatan trafik maupun bisnis online agan2 (singkatnya bisa mengetahui statistik jumlah klik link). Caranya gampang sekali:

1. Loginlah ke akun blogger maupun akun Google lainnya (termasuk Gmail), lalu kunjungi situs Google URL shortener, goo.gl

2. Silahkan untuk mempersingkat URL mana saja yang anda inginkan (caranya sama seperti tadi), maka otomatis data-data untuk URL tadi telah tersimpan dalam akun anda. Untuk mengecek statistik jumlah klik link, maka bisa login ke akun Goo.gl anda seperti biasa, gampang kan? Hahai...

Inilah contohnya: nanti teman2 bisa melihat statistik URL yang telah disingkat

Dah, itu aja dulu buat pembahasan Goo.gl-nya. Tapi nih buat sekedar tambahan aja ya, Kumpulan situs-situs yang menyediakan layanan mempersingkat URL agar URL panjang jadi pendek:

1. Pendek.in "Nih kelihatannya asli karya anak bangsa euy!!!", jadi bangga^
2. Tinyurl.com, kalau ini sudah nggak asing lagi...banyak digunakan oleh para iklaners di situs iklan baries graties
3. Lalu Bit.ly, hehe pandek sekali ya
4. Lalu yang ini lebih pendek lagi Is.gd, keliatannya singkatan dari IS GOOD yak? Benarkah ini yang paling pendek? Tunggu dulu...!!!
5. Ini nih yang lebih pendek lagi J.mp, waduh-waduh bisa-bisa aja ya...pendek skali!!!
6. Adf.ly, kalau yang ini cocok buat teman-teman yang punya hobi mengumpulkan receh dollar dari internet, hehe...(seperti saya)

Cara Membersihkan RAM tanpa restart windows

noreply@blogger.com (Anonymous) — Wed, 6 Feb 2013 20:52:00 -0800

Tips membersihkan RAM atau mempercepat RAM komputer tanpa restart windows.

Mungkin bagi para master merupakan hal yang biasa, jadi tips ini buat yang belum biasa aja dech he..he..

Terkadang, komputer kita bakal menjadi lambat setelah beberapa lama dipakai. Apalagi kalo kita banyak menggunakan software yang berat2 seperti Adobe Photoshop, Corel Draw, Sony Soundforge dsb.

Biasanya setelah kita pakai aplikasi tersebut, komputer kita terasa lambat. Kemungkinan itu terjadi karena masih ada bekas data yang tersimpan dalam RAM, sehingga komputer kita pun jadi lambat. Salah satu cara untuk membersihkan RAM adalah dengan merestart komputer terlebih dahulu. Tapi kayanya ribet banget ya?

Gue punya cara yang lebih simpel yang bisa dilakuin oleh semua kalangan, awam maupun mahir. Perhatikan caranya di bawah ini:
1. Klik kanan mouse di desktop, pilih New - Shortcut.

2. Ketik %windir%\system32\rundll32.exe advapi32.dll,ProcessIdleTasks pada kolom isian yang muncul.

3. Klik Next.

4. Beri nama shortcut tadi, nama yang dapat diberikan bebas sesuai keinginan kamu, atau kamu lewat aja, namanya otomatis jadi rundll32.exe.

5. Klik Finish.
Kapan aja komputer kamu terasa lambat, klik shortcut yang udah kamu buat tadi untuk membersihkan RAM. Sebetulnya prinsip kerjanya mungkin sama aja kaya RAM Booster atau aplikasi sejenisnya, tapi ga kalah ko seperti software2 lainnya. Selamat mencoba, semoga bermanfaat.

maap kalo repost gan...

jangan lupa kasih CENDOL ya... hehehehe...

Melacak laptop yang dicuri maling

noreply@blogger.com (Anonymous) — Sun, 3 Feb 2013 19:41:00 -0800

Di jaman yang modern dan seba mahal ini banyak sekali maling-maling berkeliyaran karena terdesak kebutuhan ekonomi. dan tak jarang laptop pun menjadi target pencurian para maling-maling tersebut. jika laptop atau komputer anda telah beralih tangan ke pencuri/maling, akan sangat sulit untuk melacaknya.

Disini sangat sulit bukan berarti mustahil, karena ada sebuah software yang berfungsi untuk melacak laptop yang sudah dicuri tersebut, namanya adalah adeona. tetapi hanya komputer yang terinstal aplikasi ini saja yang bisa terlacak olehnya.

Setelah aplikasi ini terinstal di komputer maka akan secara bekerja secara otomatis disaat laptop dijalankan oleh pencuri. Jika laptop hanya dipakai di rumah pribadi yang tidak terkoneksi ke jaringan lan/wifi /internet maka komputer tersebut tidak akan terdeteksi. namun jika pencuri ternyata orang yang senang mengakses internet maka disaat melakukan koneksi internet software anti maling akan mengirimkan data IP ke server Adeona , sehingga membantu menentukan lokasi pencuri berada.

Features:

New Service Tracks Missing Laptops for Free
Open Source Adeona Tracks Lost & Stolen Laptops
- Private: Adeona uses state-of-the-art cryptographic mechanisms to ensure that the owner is the only party that can use the system to reveal the locations visited by a device.
- Reliable: Adeona uses a community-based remote storage facility, ensuring retrievability of recent location updates.
- Open source and free: Adeona's software is licensed under GPLv2. While your locations are secret, the tracking system's design is not.

disini

Click here to download this software

Membuat folder tidak bisa ditembus

noreply@blogger.com (Anonymous) — Sun, 3 Feb 2013 19:06:00 -0800

- Membuat Folder Rahasia Bila, anda memiliki folder pribadi yang rahasia. Tentu, anda tidak ingin folder rahasia anda itu, di buka atau dilihat orang lain. Mungkin, selama ini anda menyimpan folder rahasia anda itu di dalam folder-folder anda yang lain, sehingga tidak mudah ditemukan orang lain.

Atau, anda menghidden file anda sehingga tidak bisa dilihat orang lain.

Tapi, bagaimana kalau orang yang mencari folder rahasia anda itu adalah orang yang rajin? tentu dia akan menemukannya. Dan, Menghidden file juga bukan merupakan hal yang sulit lagi, Sudah hampir semua pengguna komputer tahu, cara untuk menghidden, dan menampilkannya lagi.

Kini, anda tidak perlu khawatir lagi! Karena, disini anda akan belajar bahasa pemograman yang bisa mengubah file anda menjadi yang tidak bisa dibuka oleh orang lain.

Let`s begin!

Langkah-langkah:
1. buka notepad.

2. copy + paste bahasa pemograman (yang berhuruf tebal) di bawah ini ke notepad anda:
ren movies movies.{21EC2020-3AEA-1069-A2DD-08002B30309D}
(ganti movies movies dengan nama folder anda: misal, folder anda bernama “virus”
Hasilnya adalah)
ren virus virus.{21EC2020-3AEA-1069-A2DD-08002B30309D}
save notepad dengan nama loc.bat. sebelum disave, pastikan “save as type”
diubah ke “all files”

Cara Cepat Mengembalikan File / Data Yang Terlanjur Terhapus

noreply@blogger.com (Anonymous) — Sat, 2 Feb 2013 00:19:00 -0800

Cara Cepat Mengembalikan File / Data Yang Terlanjur Terhapus - Kalau kita memiliki data atau file yang sangat penting sekali dan tak kita duga kita hapus file tersebut padahal data tersebut harus dikumpulkan. Nah pastinya anda pernah mengalami kejadian seperti itu dan tidak sengaja juga file terhapus dari flashdisk ataupun memory card anda sendiri.

Nah saya akan membagikan cara cepat mengembalikan file / data yang terlanjur terhapus oleh anda sendiri. Tips ini menggunaan software yang bernama WinUtilities Undelete dan tenang saja software ini bisa didapat secara gratis kok.

Berikut cara cepat mengembalikan file atau data yang terlanjur terhapus :

Download software WinUtilities Undelete http://www.ylcomputing.com/content/view/350/153/
Install WinUtilities untuk mengembalikan file atau data anda yang terhapus
Buka aplikasi WinUtilities Undelete
Nah tinggal anda pilih drive mana yang menyimpan file atau data yang anda hapus tadi bisa juga file di flashdisk ataupun di memory card
Klik folder atau data atau file yang mau anda recovery
Klik kanan >> Undelete >> Pilih drive dan folder mana yang mau di recovery
Tunggu hingga proses undelete selesai dan OK

Nah 7 langkah itu bisa mengembalikan file atau data yang terlanjur terhapus oleh anda sendiri tapi tergantung kondisi dari file atau folder tersebut apakah memungkinkan untuk terrecovery atau tidak.

Tips : mempercepat running Windows

noreply@blogger.com (Anonymous) — Fri, 1 Feb 2013 23:23:00 -0800

Dalam running kadangkala windows kita berjalan begitu lambat, membuat kita jengkel akan hal ini. banyak hal yang menyebabkan mengapa running windows berjalan begitu lama. salah satunya adalah registry yang tidak tertata rapi. untuk mengatasi hal ini ada beberapa tips yang harus anda lakukan :

1. Untuk menurunkan waktu booting dan meningkatkan performa, tidak usah
menggunakan software defrag pihak ketiga, gunakan saja perangkat Defragmenter yang buatan (built-in) Windows, tidak akan jauh beda. Dan juga, sebaiknya menggunakan Harddisk dengan tipe Ultra-133 atau Serial ATA (SATA) dengan buffer 8-MB.

2. Jika RAM PC kurang dari 512 MB, maka sebaiknya ditambah kapasitas memorinya.
Hal ini relatif tidak mahal dan akan membantu meningkatkan performa sistem Anda secara dramatis.

3. Pastikan file system yang digunakan Windows XP adalah NTFS. Cara memeriksanya:
a. Buka Windows Explorer (My Computer)
b. Klik kanan pada drive C:
c. Klik Properties.
Kalau ternyata file system Anda menggunakan FAT32, maka untuk mengubahnya
adalah dengan cara sebagai berikut:
- Backup data-data penting dulu ya.
- Klik Start > Run > ketik CMD
- Setelah muncul jendela Command Prompt, ketik:
Code:
CONVERT C: /FS:NTFS
Catatan: Komputer jangan disela ketika melakukan konversi ini, dan juga dalam keadaan bebas dari virus. File system yang digunakan oleh drive bootable (biasanya C:) bisa FAT32 atau NTFS. Saya sangat merekomendasikan untuk menggunakan NTFS demi keamanan superior, ketahanan dan efisiensi ruang yang lebih besar.

4. Non aktifkan File Indexing. Layanan File Indexing mengekstraksi informasi dari dokumen-dokumen dan file-file lainnya yang ada pada harddisk dan membuat sebuah "searchable keyword index" (index keyword pencarian). Bisa dibayangkan proses ini sangat memberatkan sistem.
Caranya Mendisfungsikannya:
a. Buka Windows Explorer (My Computer)
b. Klik kanan pada drive C:
c. Pilih Properties
d. Hilangkan tanda centang (checklist) "Allow Indexing Service to index this disk for
fast file searching."
e. Klik tombol Apply, muncul: apply changes to "C: subfolders and files"
f. Klik tombol OK.
Jika ada pesan peringatan atau error muncul (seperti "Access is denied"), klik tombol Ignore All.

5. Update driver VGA dan chipset motherboard, termasuk update BIOS dan konfigurasinya. Carilah info-info tentang konfigurasi BIOS secara tepat di internet.

6. Kosongkan folder Prefetch windows setiap 3 bulan atau lebih.
Windows XP merekam sebagian dari data atau aplikasi yang sering digunakan agar membuat proses load kelihatan lebih cepat ketika dipanggil oleh user. Hal ini bagus, tetapi untuk waktu yang lama, folder prefetch bisa jadi kelebihan muatan referensi file dan aplikasi yang tidak lagi digunakan. Jika hal itu terjadi, Windows XP akan membuang-buang waktu dan memperlambat performa sistem, ketika melakukan load aplikasi atau file. Tidak ada yang penting dalam folder tersebut, dan seluruh isinya aman untuk dihapus.
Folder tersebut terletak di: C:¥WINDOWS¥Prefetch¥

7. Sekali sebulan jalankan disk cleanup.
Caranya:
a. Buka Windows Explorer (My Computer)
b. Klik kanan pada drive C:
c. Pilih Properties
d. Klik tombol Disk Cleanup dan delete semua file temporer.

8. Pada Device Manager, klik ganda pada IDE ATA/ATAPI Controllers device, dan pastikan DMA di-enable (diaktifkan) untuk tiap drive yang terhubung ke Primary Controller dan atau Secondary controller.
Lakukan hal ini dengan cara:
a. Klik ganda pada Primary IDE Channel. kemudian klik tab Advance Settings.
b. Pastikan Transfer Mode -nya diset pada "DMA if Available" untuk kedua Device 0
dan Device 1.
c. Lakukan hal serupa pada Secondary IDE Channel.

9. Upgrade Pengkabelan.
Untuk peningkatan teknologi harddisk, dibutuhkan pengakabelan yang akan mendorong performa lebih baik. Pastikan untuk menggunakan kabel 80-wire Ultra-133 untuk semua device IDE dan gunakan konektor yang cocok dengan socket Master/Slave/Motherboard. Kalo Device-nya cuma satu, harus dihubungkan pada konektor yang paling ujung dari kabel pita (kabel data), jangan pada konektor yang di tengah kabel pita, jika tidak, maka akan terjadi masalah sinyal. Pada harddisk ultra DMA, masalah sinyal ini bisa mencegah harddisk memaksimalkan potensinya.

10. Buang semua spyware dari komputer.
Gunakan program gratisan seperti AdAware buatan Lavasoft atau SpyBot Search & Destroy. Setelah program ini terinstal, pastikan untuk melakukan cek update dan mendownloadnya jika ada, sebelum melakukan pencarian spyware di komputer. Apapun program yang ditemukan bisa dihapus secara aman. Semua program gratisan yang meminta spyware untuk dijalankan tidak akan berfungsi lagi. Jika program-program gratisan itu masih dibutuhkan tinggal instal lagi saja.

11. Buang semua program atau item yang tidak perlu dari rutin (routin) Windows Startup dengan menggunakan utilitas MSCONFIG.
Caranya:
a. Klik Start > Run > ketik MSCONFIG > klik OK
b. Klik tab StartUp ?> kemudian hilangkan checklist (tanda centang) dari program yang tidak diinginkan.
Tidak paham dengan item-item tersebut? Kunjungi WinTasks Process Library. Situs itu memuat proses sistem, aplikasi yang diketahui dan juga tentang referensi spyware dan penjelsannya. Atau bisa diidentifikasi nama item-item tersebut secara langsung dengan menggunakan google.

12. Buang semua program yang tidak digunakan dari Add/Remove Programs di Control Panel.

13. Matikan beberapa atau semua animasi yang tidak dibutuhkan dan nonaktifkan
(disable) active desktop. Pada kenyataannya, untuk optimasi performa, matikan semua animasi. Windows Xp menawarkan banyak setting-setting yang berbeda pada bagian ini.
Caranya:
a. Klik System Icon di Control Panel
b. Klik tab Advance
c. Klik tombol Settings pada kotak Performance.
d. Hilangkan checklist (tanda centang) opsi apa saja yang tidak ingin dijalankan.
Atau bisa langsung klik pada Radio Button: Adjust for best performance.

14. Kalo bisa mengedit Registry Windows XP, lakukan untuk meningkatkan performa
XP. Bisa menggunakan software tweak atau manual mengedit registry. Di internet sudah
banyak tersebar.

15. Kunjungi situs update Microsoft Windows secara rutin dan download semua update yang berlabel Critical. Download juga Optional update yang dibutuhkan. (ingat, kalau software OS windows XP -nya bajakan, jangan coba-coba untuk mengupdate, bisa dikasih "stempel" tanda bajakan sama Microsoft yang justru akan memperlambat sistem ketika booting dan running).

16. Update anti virus dalam sepekan sekali atau bahkan harian. Pastikan hanya satu software yang terinstal. Menggabungkan lebih dari satu antivirus hanya akan mengundang penyakit bagi performa dan kahandalan komputer.

17. Pastikan font yang terinstal kurang dari 500 jenis saja pada komputer. Makin banyak font, makin lambatlah sistem. Walaupun windows XP lebih efisien dalam menangani font dari pada versi sebelumnya, tapi kelebihan font akan berdampak pada melemahnya sistem.

18. Jangan partisi harddisk. (Opsional saja)
NTFS File System Windows XP berjalan lebih efisien pada satu partisi yang besar. Data tidak lebih aman pada partisi terpisah, dan format ulang tidak dibutuhkan untuk instal ulang Sistem Operasi (OS). Satu partisi ini berfungsi agar tidak ada pembatasan oleh partisi akan tetapi akan dibatasi oleh ukuran kapasitas harddisk itu sendiri. Sehingga tidak perlu melakukan resize partisi yang meghabiskan waktu dan resiko kehilangan data.

19. Lakukan pengecekan terhadap sistem RAM untuk memastikan beroperasi dengan baik.
Saya merekomendasikan untuk menggunakan program gratisan MemTest86. Setelah didownload, bisa membuat bootable CD atau disket (sesuai pilihan) yang akan melakukan 10 macam tes pada memory PC secara otomatis setelah malakukan boot dengan CD atau disket yang dibuat. Biarkan semua tes berjalan sampai paling tidak melewati 3 tes selesai dari 10 tes. Jika program mendapati error, matikan dan cabut listrik komputer, cabut RAM memory, ganti dengan yang lain dan lakukan tes lagi. Ingat, memory yang rusak tidak bisa diperbaiki, dan hanya bisa diganti.

20. Jika terdapat CD atau DVD recorder / writer, carilah update firmware dari pabriknya. Pada beberapa kasus, upgrade terbukti bisa mempercepat recorder tersebut dan biasanya gratis.

21. Non aktifkan (disable) service (layanan) yang tidak penting. Windows XP memasang banyak service yang tidak dibutuhkan. Untuk menentukan service apa saja yang tidak dibutuhkan, buka situs Black Viper untuk konfigurasi Windows XP.

22. Jika tampilan tunggal Windows Explorer mengalami masalah ketika menampilkan file dan menghambat sistem operasi, lakukan langkah berikut:
a. Buka My Computer
b. Klik Tools
c. Klik Folder Options?
d. Klik tab View
e. Geser / gulung ke bawah menuju "Launch folder windows in a separate process",
aktifkan opsi ini. Setelah komputer di-restart, opsi ini akan berjalan.

23. Setidaknya sekali setahun, buka casing komputer dan bersihkan semua debu dan "puing-puingnya". Sementara itu cek juga kipasnya, apakah putarannya masih proporsional.

fungsi tool box pada Visual Basic

noreply@blogger.com (Anonymous) — Fri, 1 Feb 2013 23:16:00 -0800

PENGERTIAN

Pointer

merupakan arah penunjuk,di Gunakan jika anda ingin memilih komponen kontrol yang sudah di pasang di form.

2. Picture box

Merupakan tool untuk menampilkan gambar pada vb

3.Label

Merupakan tool untuk membuat teks seperti judul, dan sebagainya. Label tidak bisa di ubah-ubah oleh user.

Frame

Merupakan tool untuk membuat sebuah bingkai.

CheckBox

Merupakan tool untuk membuat kontrol pilihan, dimana kontrol ini terpilih jika di klik user. CheckBox dapat di pilih 1 atau lebih.

ComboBox

merupakan tool Untuk membuat kontrol kombinasi antara TextBox dengan ListBox.

HScrollBar

merupakan tool Untuk membuat Scrollbar secara horizontal.

Timer

Merupakan tool untuk mengontrol waktu.

DirListBox

Merupakan tool untuk menampilkan direktori atau folder.

Shape

Merupakan tool untuk membuat kotak, persegi panjang atau lingkaran.

Image

Untuk membuat gambar.

OLE

Untuk menghubungkan software lain ke form.

PictureBox

Untuk menampilkan gambar di form.

TextBox

Merupakan tool untuk membuat teks yang bisa di ubah-ubah oleh user.

CommandButton

Merupakan tool untuk membuat tombol, seperti tombol OK, cancel, dan sebagainya terserah anda.

OptionButton

Merupakan tool untuk membuat menu suatu pilihan,Fungsinya sama seperti CheckBox, namun OptionButton hanya dapat di pilih 1 oleh user.

ListBox

Merupakan tool untuk membuat daftar pilihan.

VScrollBar

Untuk membuat Scrollbar secara vertikal.

DriveListBox

Merupakan tool untuk menampilkan drive yang ada di komputer.

FileListBox

Merupakan tool untuk menampilkan file-file.

Line

Merupakan tool untuk membuat garis.

Data

Merupakan tool untuk menghubungkan database ke form.

noreply@blogger.com (Anonymous) — Fri, 1 Feb 2013 23:11:00 -0800

Membuat Form Login dengan Database di Visual Basic - Setelah sebelum-sebelumnya saya pernah memposting mengenai Membuat Menu Login di Visual Basic,

1. Buat dulu database di Microsoft Access 2007 dan save dengan nama sewa_studio.mdb

2. Buatlah tabel dengan nama login dan masukan field-field berikut ini:

3. Setelah itu, buka Microsoft Visual Basic 6.0 di komputer anda.

4. Buatlah sebuah project dan form loginnya. Kira-kira seperti ini tampilannya:

5. Gambar di atas terdapat beberapa component, yaitu

Label ada 2 buah : USER ID dan PASSWORD
Text ada 2 buah : txtusername dan txtpassword
CommandButton ada 2 buah: LOGIN dan CANCEL
ADODC ada 1 buah: Adodc1

6. Tambahkan Module. Caranya, klik menu Project lalu pilih Add Module. Kemudian klik Open.
7. Taruh coding di bawah ini di dalam Module tersebut:

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

8. Kemudian masuk Form lagi, lalu tambahkan coding di bawah ini di dalam tombol LOGIN. Caranya tinggal klik dua kali di tombol LOGIN tersebut.

If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\sewa_studio.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "select * from login where user_id= '" & txtusername.Text & "' And password = '" & txtpassword.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Form3.Show
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
End If

9. Coding yang bercetak tebal itu adalah koneksi ke database Access. Itu tergantung kita meletakkan database sewa_studio.mdb itu dimana. Untuk koneksi ke database sewa_studio.mdb caranya, klik kanan di Adodc1 itu lalu klik ADODC properties.

10. Maka muncul kotak di bawah ini:

11. Klik tombol Build lalu muncul kotak di bawah ini:

12. Lalu pilih "Microsoft Jet 4.0 OLE DB Provider" dan klik Next lalu muncul kotak di bawah ini:

13. Lalu klik tombol yang diarahkan oleh panah di atas. Lalu pilih database yang sudadibuat th adi. Kalau sudah klik Open. Terus klik OK.

Pengertian Token Ring Jaringan Komputer

noreply@blogger.com (Anonymous) — Fri, 1 Feb 2013 23:06:00 -0800

Token Ring adalah sebuah cara akses jaringan berbasis teknologi ring yang pada awalnya dikembangkan dan diusulkan oleh Olaf Soderblum pada tahun 1969. Perusahaan IBM selanjutnya membeli hak cipta dari Token Ring dan memakai akses Token Ring dalam produk IBM pada tahun 1984. Elemen kunci dari desain Token Ring milik IBM ini adalah penggunaan konektor buatan IBM sendiri (proprietary), dengan menggunakan kabel twisted pair, dan memasang hub aktif yang berada di dalam sebuah jaringan komputer.
Sambungan komputer dalam topologi ring

Pada tahun 1985, Asosiasi IEEE di Amerika Serikat meratifikasi standar IEEE 802.5 untuk protokol (cara akses) Token Ring, sehingga protokol Token Ring ini menjadi standar internasional. Pada awalnya, IBM membuat Token Ring sebagai pengganti untuk teknologi Ethernet (IEEE 802.3) yang merupakan teknologi jaringan LAN paling populer. Meskipun Token Ring lebih superior dalam berbagai segi, Token Ring kurang begitu diminati mengingat beaya implementasinya lebih tinggi jika dibandingkan dengan Ethernet.

Spesifikasi asli dari standar Token Ring adalah kemampuan pengiriman data dengan kecepatan 4 megabit per detik (4 Mbps), dan kemudian ditingkatkan empat kali lipat, menjadi 16 megabit per detik. Pada jaringan topologi ring ini, semua node yang terhubung harus beroperasi pada kecepatan yang sama. Implementasi yang umum terjadi adalah dengan menggunakan ring 4 megabit per detik sebagai penghubung antar node, sementara ring 16 megabit per detik digunakan untuk backbone jaringan.

Beberapa spesifikasi dan standar teknis Token Ring yang lain, seperti enkapsulasi Internet Protocol (IP) dan Address Resolution Protocol (ARP) dalam Token Ring dijelaskan dalam RFC 1042.

for Info yang lebih lengkapnya:

Dengan Token-Ring, peralatan network secara fisik terhubung dalam konfigurasi (topologi) ring di mana data dilewatkan dari devais/peralatan satu ke devais yang lain secara berurutan. Sebuah paket kontrol yang dikenal sebagai token akan berputar-putar dalam jaringan ring ini, dan dapat dipakai untuk pengiriman data. Devais yang ingin mentransmit data akan mengambil token, mengisinya dengan data yang akan dikirimkan dan kemudian token dikembalikan ke ring lagi. Devais penerima/tujuan akan mengambil token tersebut, lalu mengosongkan isinya dan akhirnya mengembalikan token ke pengirim lagi. Protokol semacam ini dapat mencegah terjadinya kolisi data (tumbukan antar pengiriman data) dan dapat menghasilkan performansi yang lebih baik, terutama pada penggunaan high-level bandwidth.

Ada tiga tipe pengembangan dari Token Ring dasar: Token Ring Full Duplex, switched Token Ring, dan 100VG-AnyLAN. Token Ring Full Duplex menggunakan bandwidth dua arah pada jaringan komputer. Switched Token Ring menggunakan switch yang mentransmisikan data di antara segmen LAN (tidak dalam devais LAN tunggal). Sementara, standar 100VG-AnyLAN dapat mendukung baik format Ethernet maupun Token Ring pada kecepatan 100 Mbps.

Contoh Program KeyEvent di Java

noreply@blogger.com (Anonymous) — Fri, 1 Feb 2013 22:56:00 -0800

Berikut ini contoh program Java untuk mendemonstrasikan bagaimana penanganan event terkait tombol. Program akan mendeteksi penekanan setiap tombol keyboard. Class Listener yang digunakan adalah KeyListener yang memiliki 3 (tiga) buah method abstract keyTyped(), keyPressed() dan keyReleased(). Berikut ini tampilannya:

contoh-program-key-event-java Dan berikut ini program lengkapnya

`01`	`import` `java.awt.*;`

`02`	`import` `java.awt.event.*;`

`03`	`import` `javax.swing.*;`

04

`05`	`public` `class` `KeyEventTest` `extends` `JFrame` `implements` `KeyListener {`

`06`	`private` `String baris1="", baris2="", baris3="";`

`07`	`private` `JTextArea textArea;`

08

`09`	`public` `KeyEventTest() {`

`10`	`super` `("Mencoba Key Event");`

11

`12`	`textArea =` `new` `JTextArea (10,15);`

`13`	`textArea.setText("Tekan sembarang tombol di keyboard...");`

`14`	`textArea.setEnabled(false);`

`15`	`textArea.setDisabledTextColor(Color.BLACK);`

`16`	`getContentPane().add(textArea);`

17

`18`	`addKeyListener (this);`

19

`20`	`setSize (300,150);`

`21`	`setLocationRelativeTo(null);`

`22`	`setVisible(true);`

23 }

24

`25`	`public` `void` `keyPressed (KeyEvent e) {`

`26`	`baris1 =` `"Tombol yang ditekan : "` `+ e.getKeyText(e.getKeyCode());`

`27`	`setLines2and3 (e);`

28 }

29

`30`	`public` `void` `keyReleased (KeyEvent e) {`

`31`	`baris1 =` `"Tombol yang dilepas : "` `+ e.getKeyText(e.getKeyCode());`

`32`	`setLines2and3 (e);`

33 }

34

`35`	`public` `void` `keyTyped (KeyEvent e) {`

`36`	`baris1 =` `"Tombol yang ditulis : "` `+ e.getKeyChar();`

`37`	`setLines2and3 (e);`

38 }

39

`40`	`private` `void` `setLines2and3 (KeyEvent e) {`

`41`	`baris2 =` `"This key is "+ (e.isActionKey() ?` `""` `:` `"not ") +` `"an action key";`

`42`	`String temp = e.getKeyModifiersText(e.getModifiers());`

`43`	`baris3 =` `"Modifier key pressed : "` `+ (temp.equals("") ?` `"none"` `: temp);`

`44`	`textArea.setText(baris1 +` `"\n"` `+ baris2 +` `"\n"` `+ baris3 +` `"\n");`

45 }

46

`47`	`public` `static` `void` `main (String args[]) {`

`48`	`KeyEventTest test =` `new` `KeyEventTest();`

`49`	`test.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);`

50 }

51 }

MEMBUAT PROGRAM ANIMASI GERAK DENGAN VB

noreply@blogger.com (Anonymous) — Sun, 13 Jan 2013 19:51:00 -0800

MEMBUAT PROGRAM ANIMASI GERAK DENGAN VB

1. Buat project baru, kemudian tambahkan kontrol Image, CommandButton dan Timer pada form.dengan merubah property seperti tabel berikut:

Kontrol	Properti	Setting
Image	Picture Strecth	Pilih Gambar yg diingikan True
Command1	Name Caption	CmdMulai Mulai
Timer	Enabled Interval	False 100

2.2. Atur Desain form seperti gambar berikut :

3. Klik ganda kontrol Timer, kemudian ketik program berikut :

Image1.Move Image1.Left - 100, Image1.Top
If Image1.Left + Image1.Width <> then
Image1.Left = ScaleWidth
End If

Perintah diatas akan menyebabkan objek bergerak kearah kiri, setelah sampai pada tepi form, objek akan muncul kembali dari tepi kanan form sehingga objek akan terus bergerak secara berulang-ulang.

4. Klik ganda CmdMulai,Kemudian Ketik kode program berikut :
Timer1.Enabled= True ‘mengaktifkan Timer'

5. Jalankan program dan coba klik tombol Mulai untuk menjalankan animasi objek.

Macam-macam Virus Komputer & Pengertiannya

noreply@blogger.com (Anonymous) — Sun, 13 Jan 2013 00:32:00 -0800

Pengertian Virus adalah program yang dibuat oleh seorang programmer yang bersifat merusak.Virus menginpeksi file dengan eksetensi tertentu. Misalnya exe, txt, jpg dan lain sebagainya.Jenis – jenis virus bisa dibedakan menjadi beberapa bagian, yaitu :

a. Virus boot sector

Merupakan virus umum, bersipat menggandakan diri dengan cara menindih bootsector asli pada sebuah disk, sehingga pada saat booting virus akan langsung dijalankan ke memori.

b. Virus file

Menyerang file yang dijalankan oleh suatu system operasi. Biasanya menyerang com atau exe.

c. Virus direct action

Virus ini akan masuk kememori untuk menjalankan file lainnya.lalu menajalankan program lain untuk menipu.

d. Multi partition virus

Merupakan gabungan dari virus bootsector dan virus file.

e. Polymorphic virus

Virus yang dirancang untuk mengelabui program AV. Yaitu mengubah struktur dirinya setelah menjalankan perintah.

f. Stealth virus

Mengendalikan intruksi – intruksi level DOS dengan menguasai table interrupt.

g. Magro virus

h. Ditulis oleh bahasa pemrograman dari suatu aplikasi, sehingga bersipat flatform independent.

Perbedaan virus dengan program aplikasi computer lainnya adalah :

1. Kemampuan mendapatkan informasi penting.
Virus didesign untuk menginfeksi banyk program atau file.misalnya, virus akan menulari seluruh file txt atau htt maka virus tersebut akan mencari informasi tentang file – file atau program – program yang ada. Setelah virus mendapatkan informasi tersebut, maka akan disimpan dimemori atau suatu file tertentu yang atributnya telah diset menjadi hidden (tersembnyi).

2. Kemampuan untuk memeriksa program atau file
Ketika menginfeksi suatu file, virus harus bisa memeriksa apakah file tersebut telah terinfeksi atau belum. Biasanya virus akan memeriksa byte yang dipakai oleh virus tersebut, atau dengan nama lain sebagai penanda. Apabila penanda tersbut telah ada, maka virus tidak akan menginfeksi file tersebut. Tetapi apabila file tersebut tidak ada penandany, maka virus akan menginfeksi file tersebut.

3. Kemampuan menggandakan diri
Kemampuan ini harus (wajib) dimiliki virus, karna kemampuan ini digunakan untuk perkembang biakan virus tersebut. Biasanya virus akan memberikan penanda dan menyisipkan program untuk memperbanyak virus tersebut.

4. Kemampuan untuk manipulasi
Kemampuan ini digunakan untuk memunculkan pesan,gambar,menghapus file, mencuri data atau file, dan lain sebagainya.
Kemampuan untuk menyembunyikan diri dari data yang dibuat
Seluruh aktivitas yang dilakukan virus haruslah tidak kelihatan, baik dari user, atau pun dari computer. Hal ini menjadi keindahan sebuah virus.Biasanya kita bsia melihat seluruh proses yang ada dikomputer (khususnya yang berbasis windows).hanya dengan menekan ctrl+alt+delete, maka akan muncul kotak yang berisikan proses – proses yang berjalan pada computer. Sebauh virus yang bagus adalah sebauh virus yang tidak tertangkap prosesnya oleh trapping tersebut. Apalagi dapat menghindari deteksi dari sebuah anti virus.

Macam-macam virus :

1.Virus Bagle.BC
Virus Bagle BC ini termasuk salah satu jenis virus yang berbahaya dan telah masuk peringkat atas jenis virus yang paling cepat mempengaruhi komputer kita. Beberapa jam sejak keluarnya virus ini, sudah terdapat 2 buah varian Bagle ( Bagle BD dan BE )yang menyebar melalui e-mail, jaringan komputer dan aplikasi P2P. Virus ini menyebar melalui e-mail dengan berbagai subyek berbeda. Menurut suatu penelitian dari Panda Software virus Bagle BC ini menyusup ke dalam e-mail dengan subyek antara lain : Re:, Re:Hello, Re:Hi, Re:Thank you, Re:Thanks. Attachment-nya juga bermacam-macam, antara lain : .com, .cpl, .exe, .scr. Virus Bagle BC juga mampu untuk menghentikan kerja program-program antivirus.

2.Backdoor Alnica
Virus yang juga berbahaya ini merupakan salah satu tipe virus Trojan Horse. Merupakan salah satu virus backdoor yang jika berhasil menginfeksi komputer akan mampu melakukan akses dari jarak jauh dan mengambil segala informasi yang diinginkan oleh si penyerang. Sistem operasi yang diserang oleh virus tersebut antara lain : Windows 200, Windows 95, Windows 98, Windows Me, Windows NT dan Windows XP. Virus ini berukuran sebesar 57.856 byte.

3.Trojan di Linux
Para pengguna linux Red Hat diharapkan untuk berhati-hati terhadap PATCH yang dikirm melalui e-mail dengan alamat "security@redhat.com" karena itu sebenarnya bukannya patch security tetapi virus Trojan yang bisa mengacaukan sistem keamanan. E-mail peringatan dari Red Hat biasanya selalu dikirim dari alamat "secalert@redhat.com" dan ditandatangani secara digital. Virus ini juga pernah menyerang sistem keamanan Windows tahun 2003 dengan subyek menawarkan solusi keamanan.

4.CABIR
Cabir merupakan merupakan virus Symbian pertama dan terpopuler hingga saat ini. Cabir termasuk jenis worm yang menyebar melalui koneksi Bluetooth dan masuk ke ponsel melalui inbox pesan Anda dengan nama-nama yang menarik perhatian. Jika Anda mengklik file.sis tersebut dan menginstalnya, Cabir akan mulai mencari mangsa baru ponsel dengan akses Bluetooth terbuka, untuk menginfeksinya.
Cabir dikenal juga dengan nama SymOS/Cabir.A, EPOC/Cabir.A, Worm.Symbian.Cabir.a, dan virus Caribe. Variannya kini telah berkembang hingga embel-embel abjad terakhir Cabir.Z. Cabir.Z sebenarnya merupakan varian dari Cabir B, hanya penyebarannya menggunakan nama velasco.sis.
Cabir akan mengaktifkan Bluetooth Anda secara periodic, sekitar 15-20 menit sekali untuk mencari mangsa. Tak ada kerusakan file yang berarti, hanya saja jika ponsel Anda terinfeksi, baterainya akan cepat habis karena digunakan untuk mencari perangkat Bluetooth lainnya.
Untuk mencegahnya, matikan (disable) fitur Bluetooth Anda. Aktifkan hanya saat akan digunakan. Dan yang perlu diingat adalah jangan menginstal aplikasi Symbian dengan nama caribe.sis atau nama-nama yang aneh.

5. COMMWARRIOR
Commwarrior masuk dalam keluarga virus ponsel jenis worm. Virus ini menyebar melalui MMS, koneksi Bluetooth, dan pertukaran kartu memori dengan nama yang beracak (random) xxx.sis.
Tipe serangan Commwarrior bermacam-macam. Yang paling umum, Commwarrior menyebar lewat Bluetooth. Beberapa varian juga dapat mengirim MMS acak ke kontak yang terdapat di phonebook Anda. Commwarrior tak hanya punya satu nama. Layaknya penjahat, dia juga memiliki nama samaran atau alias seperti Commwarrior [dikenal oleh anvir F-Secure], SymbOS/Commwarrior [McAfee], SYMBOS_COMWAR [Trend Micro].
Saat ini varian Commwarrior terakhir adalah Commwarrior T. Commwarrior T dan Q hanya menginfeksi Symbian versi 8.1 atau yang lebih tua. Selain menyebar secara sporadis, virus ini juga akan membuka halaman html di ponsel Anda dengan pesan:
Introduction Surprise! Your phone infected by CommWarrior worm v3.0. Matrix has you, Commwarrior inside. No panic please, is it very interesting to have mobile virus at own phone. This worm does not bring any harm to your phone and your significant data. About CommWarrior wor for Nokia Series 60 provides automatic real-time protection against harmful Anti-Virus content. CommWarrior is free software and is distributed in the hope that it wil be useful, without anya warranty. Thank you for using CommWarrior.CommWarrior 2005-2006 by e10d0r.

6. SKULLS
Virus selanjutnya adalah virus bernama Skulls atau nama lengkapnya SymbOS.skulls. Skulls yang tergolong Trojan ini yang mengganti sistem di dalam ponsel dan menyebabkan ikon-ikon menu utama berubah menjadi gambar tengkorak. Awalnya, Trojan ini bernama Extended theme.sis, akan tetapi sekarang banyak ditemui dengan nama skull.sis.
Beberapa varian jenis virus ini telah tersebar. Pada varian skulls.A entah mengapa dia tidak memberikan efek apa-apa. Namun skulls.C dan H dan S, hampir semua ikonnya berubah menjadi tengkorak…hiiii serem….
Saat instalasi varian Skull H, memunculkan kalimat notifikasi “Install ‘beta’_092_free-ms-RM8” sedangkan Skull S menampilkan kalimat “Install BlueNum Stealer”. Tak hanya merubah ikon, skulls juga mampu melumpuhkan aplikasi-aplikasi yang ikonnya dirubah tadi. Umumnya saat kita memencet ikon suatu aplikasi maka yang muncul adalah pesan system eror.

7. DOOMBOOT
Meski penyebarannya tak seganas virus computer, namun kerusakan yang ditimbulkan oleh Doomboot tergolong cukup serius. Nama lengkapnya SymbOS.Doombot. Virus ini juga memiliki nama samaran antara lain Doomboot [F-Secure], SYMBOS_DOOMED [Trend Micro].
Saat ini varian doombot bermacam-macam. Ada Doomboot A, C, L, M, G dan P. Doomboot termasuk virus kategori Trojan. Varian Doomboot.A menaruh dan membuat file-file korup dan bahayanya, setelah ponsel menginfeksi, ia akan menempatkan virus lainnya semisal Commwarrior.B ke dalam ponsel Anda. Sistem file yang korup tadi menyebabkan ponsel tidak dapat melakukan booting.
SymbOS.Doomboot.A misalnya, menyusup ke ponsel Anda dengan menyerupai file instalasi permainan Doom2 yang telah dicrack. Biasanya bernama Doom_2_wad_cracked_by_DFT_S60_v1.0.sis. Sedangkan Doomboot C menyusup dengan nama samaran “exoVirusStopv 2.13.19”, mirip dengan nama anti virus ponsel. Jika menerima file tersebut dan menginstalnya, Andda tidak akan menerima pesan teknis apapun setelah itu. Anda juga tak akan mengira bahwa ponsel telah terinfeksi karena tak ada ikon atau tanda apapun setelah proses instalasi. Commwarrior.B yang diisikan oleh Doombot ke dalam ponsel akan berjalan secara otomatis dan menyebar melalui koneksi Bluetooth. Hal ini akan mengakibatkan ponsel mengkonsumsi baterai secara berlebihan, sehingga baterai cepat habis. Parahnya, Doomboot akan membuat ponsel tidak dapat melakukan booting saat Anda mematikan ponsel dan menyalakan kembali. Jika Anda terlanjur melakukan reboot, maka satu-satunya cara yang dapat Anda lakukan adalah melakukan hard reset. Alhasil, sebagian besar data yang telah Anda simpan seperti foto, suara maupun data lainnya menjadi hilang tak berbekas.

8. APPDISBLER
Kinerja AppDisabler sebenarnya mirip dengan Doomboot. Dia akan menaruh file-file virus lain seperti Locknut B dan Cabir Y ke dalam sistem ponsel Anda. AppDisabler juga menggandeng Skulls J dan akan menyulap ikon-ikon sistem Anda menjadi gambar tengkorak. Yang lebih mengerikan, virus ini akan menghentikan kinerja sistem operasi dan juga beberapa aplikasi pihak ketiga.

9. CARDTRAP
CardTrap merupakan virus ponsel pertama yang mencoba menginfeksi computer berbasis Windows dengan menaruh 2 file virus ke dalam kartu memori ponsel. Jika terkoneksi kartu tersebut sewaktu-waktu menginfeksi computer.
Varian CardTrap lumayan banyak. Dari varian berhuruf tunggal seperti CardTrap P, Q, R, S hingga varian beraksara ganda sepert CardTrap AA, AG, AJ dan seterusnya. Biasanya CardTrap menyaru dengan memakai nama-nama game atau aplikasi terkenal seperti Kingkong, Half Life, Battefield 2 dan lain-lain. CardTrap Z misalnya, menyaru dengan nama SeleQ 1.7 – CrackedTNT.sis. CardTrap merusak sistem dengan cara mematikan beberapa aplikasi built in Symbian. Virus ini juga cukup canggih sehingga mampu melumpuhkan beberapa jenis anti virus. Selanjutnya, jikalau ada kesempatan untuk terkoneksi ke computer, CardTrap akan berupaya menanam virus ke dalam PC berbasis Windows. Beberapa varian seperti CardTrap Z juga dapat mematikan fungsi keypad, mengacaukan aplikasi-aplikasi pihak ketiga, dan menyebarkan file-file rusak ke dalam kartu memori hingga mengakibatkan kekacauan sistem.

10. LOCJNUT
Locknut atau nama lengkapnya SymbOS.Locknut merupakan virus Trojan yang beroperasi dengan memanfaatkan kelemahan sistem Symbian S60. virus ini tergolong gawat karena dapat mengganti file biner pada sistem ROM. Alhasil Locknut dapat menyebabkan sistem operasi ponsel terhenti dan mengalami crash. Virus ini memilik banyak nama samaran antara lain Locknut [F-Secure], SYMBOS_LOCKNUT [Trend Micro]. Ponsel Symbian yang terkena virus ini memiliki ciri-ciri akan menampilkan message atau pesan sebagai berikut :

App. closed

AppArServerTh

Read

Selain itu, virus ini juga memiliki boncengan alias virus tambahan berupa virus Cabir yang akan ikut terinstal jika virus Locknut menangkiti ponsel Anda. Beberapa varian virus Caribe juga terangkai bersama-sama virus Locknut ini. Locknut E, salah satu varian locknut akan merusak file-file penting pada sistem Symbian dan menyebabkan aplikasi-aplikasi yang terinstall tidak dapat dibuka. Hal ini secara efektif akan membuat ponsel Anda terkunci.

11. PBStealer
Kabarnya, PBStealer merupakan salah satu virus ponsel yang dibuat oleh orang Indonesia (made in Indonesia euy,,perlu dihargai dan dikasih penghargaan nih pembuatnya hahahaha). PBStealer memiliki alias SymbOS/Pbstealer (Symantec), merupakan Trojan yang menyerupai aplikasi untuk mengumpulkan kontak yang terdapat dalam phonebook Anda dan selanjutnya akan menyimpannya dalam bentuk file teks (*.txt). Sekilas hal tersebut tak berbahaya. Namun langkah yang dilakukan PBStealer selanjutnyalah yang membuat Anda harus waspada. PBStealer selanjutnya akan mengirimkan file txt tersebut ke ponsel lain lewat koneksi Bluetooth. Dapat dibayangkan bukan??? Jika di dalam kontak Anda terdapat nomor-nomor penting dan dimanfaatkan untuk kejahatan??
PBStealer D, salah satu varian PBStealer juga dapat mengkompile dan mengirimkan file berisi kontak, to do lis, database dan notepad sekaligus. PBStealer D menyebarkan diri dengan cara mengirimkan 2 file aplikasi berekstensi SIS yaitu ChattingYuk.SIS dan PBCompressor.SIS melalui koneksi Bluetooth.

Blogadexme | Penggunaan If then Else dalam visual basic

noreply@blogger.com (Anonymous) — Fri, 11 Jan 2013 17:57:00 -0800

, Digunakan sebagai statement kondisi. Sebuah kode/blok kode akan dijalankan apabila kondisi terpenuhi (true), dan blok kode lainnya akan dijalankan apabila kondisi tidak terpenuhi (false).

Syntax1 :
f condition1 then statment

contoh:
if nilai_angka >=80 then nilai_huruf = "A"

Syntax2 :
If Condition1 then statement end if

contoh:
if nilai_angka >= 80 then
nilai_huruf = "A"
msgbox
"Selamat anda mendapat nilai akhir",_vbinformation, "informasi"
end if

Syntax3 :
if condition1 then statement else statement end if

contoh:
if nilai_angka >= 80 then
nilai_huruf = "A"
msgbox "selamat Anda mendapatkan nilai terbaik",_vbinformation,"informasi"
else
msgbox "Anda harus belajar lebih baik lagi"_vbinformation,"informasi"
end if

Contoh Listing VB 6.0 membuat Program peminjaman buku

noreply@blogger.com (Anonymous) — Wed, 9 Jan 2013 22:50:00 -0800

DATA BUKU

LISTING PROGRAM :

Private Sub CMDBATAL_Click()

NONAKTIF

BERSIH

CMDTAMBAH.SetFocus

End Sub

Private Sub CMDHAPUS_Click()

On Error GoTo errhapus

Dim a As String

a = MsgBox("Yakin Mau Hapus ?", vbInformation + vbYesNo, "Data Buku")

If a = vbYes Then

Data1.Recordset.Delete

MsgBox "Data Telah Dihapus !", vbInformation + vbOKOnly, "Data Buku"

Else

NONAKTIF

BERSIH

CMDTAMBAH.SetFocus

End If

Exit Sub

errhapus:

MsgBox "Data Gagal Menghapus !", vbCritical + vbOKOnly, "Data Buku"

End Sub

Private Sub CMDKELUAR_Click()

Dim a As String

a = MsgBox("Yakin Mau Keluar ?", vbInformation + vbYesNo, "Data Buku")

If a = vbYes Then End

End Sub

Sub BERSIH()

Dim ctrl As Control

For Each ctrl In Me

If TypeOf ctrl Is TextBox Then ctrl.Text = ""

Next ctrl

End Sub

Sub AKTIF()

Dim ctrl As Control

For Each ctrl In Me

If TypeOf ctrl Is TextBox Then ctrl.Enabled = True

Next ctrl

End Sub

Sub NONAKTIF()

Dim ctrl As Control

For Each ctrl In Me

If TypeOf ctrl Is TextBox Then ctrl.Enabled = False

Next ctrl

End Sub

Sub SIMPAN()

Data1.Recordset!kdbuku = TKODE.Text

Data1.Recordset!judul = TJUDUL.Text

Data1.Recordset!author = TAUTHOR.Text

Data1.Recordset!jumlah = TJUMLAH.Text

Data1.Recordset.Update

End Sub

Sub TAMPIL()

TKODE.Text = Data1.Recordset!kdbuku

TJUDUL.Text = Data1.Recordset!judul

TAUTHOR.Text = Data1.Recordset!author

TJUMLAH.Text = Data1.Recordset!jumlah

End Sub

Private Sub CMDSIMPAN_Click()

On Error GoTo errsimpan

Data1.Recordset.AddNew

SIMPAN

NONAKTIF

BERSIH

CMDTAMBAH.SetFocus

Exit Sub

errsimpan:

MsgBox "Data Gagal Disimpan !", vbCritical + vbOKOnly, "Data Buku"

End Sub

Private Sub CMDTAMBAH_Click()

AKTIF

BERSIH

TKODE.SetFocus

End Sub

Private Sub CMDUBAH_Click()

On Error GoTo erredit

If CMDUBAH.Caption = "&UBAH" Then

AKTIF

TAMPIL

CMDUBAH.Caption = "&UPDATE"

Else

Data1.Recordset.Edit

SIMPAN

NONAKTIF

BERSIH

CMDUBAH.Caption = "&UBAH"

End If

Exit Sub

erredit:

MsgBox "Data Gagal Diedit !", vbCritical + vbOKOnly, "Data Buku"

End Sub

Private Sub Form_Load()

NONAKTIF

TKODE.MaxLength = 5

TJUDUL.MaxLength = 30

TAUTHOR.MaxLength = 20

TJUMLAH.MaxLength = 4

End Sub

TRANSAKSI

LISTING :

Private Sub CmdBatal_Click()

TxtNo.Enabled = False

TxtJudul.Enabled = False

TxtNama.Enabled = False

DTPicker2.Enabled = False

BERSIH

CmdTambah.SetFocus

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdSimpan_Click()

If DBCombo1.Text = "" Or DBCombo2.Text = "" Then

MsgBox "Lengkapi Dahulu !", vbCritical + vbOKOnly, "Perhatian"

Else

With Data3.Recordset

.AddNew

.Fields(0) = TxtNo.Text

.Fields(1) = DBCombo1.Text

.Fields(2) = DBCombo2.Text

.Fields(3) = DTPicker1.Value

.Fields(4) = DTPicker2.Value

.Update

MsgBox "Data Berhasil Disimpab!", vbInformation + vbOKOnly, "Perhatian"

End With

CmdBatal_Click

End If

End Sub

Private Sub CmdTambah_Click()

AUTO

DBCombo1.SetFocus

End Sub

Private Sub DBCombo1_Change()

Data1.RecordSource = "select*from buku where kdbuku like '" & DBCombo1.Text & "'"

Data1.Refresh

If Data1.Recordset.RecordCount <> 0 Then

TxtJudul.Text = Data1.Recordset.Fields(1)

Data1.RecordSource = "select*from buku"

Data1.Refresh

End If

End Sub

Private Sub DBCombo2_Change()

Data2.RecordSource = "select*from anggota where kdanggota like '" & DBCombo2.Text & "'"

Data2.Refresh

If Data2.Recordset.RecordCount <> 0 Then

TxtNama.Text = Data2.Recordset.Fields(1)

Data2.RecordSource = "select*from anggota"

Data2.Refresh

End If

End Sub

Private Sub DTPicker1_Change()

DTPicker2.Value = Val(DTPicker1.Value) + 4

End Sub

Private Sub Form_Load()

TxtNo.Enabled = False

TxtJudul.Enabled = False

TxtNama.Enabled = False

DTPicker2.Enabled = False

End Sub

Sub AUTO()

Dim a As String

If Data3.Recordset.RecordCount > 0 Then

Data3.Recordset.MoveLast

a = Right(Data3.Recordset.Fields(0), 3) + 1

If a < 10 Then

TxtNo.Text = "T" & "-" & "00" & a

ElseIf a < 100 Then

TxtNo.Text = "T" & "-" & "0" & a

End If

Else

TxtNo.Text = "T" & "-" & "001"

End If

End Sub

Rub BERSIH()

TxtNo.Text = ""

DBCombo1.Text = "-Pilih-"

TxtJudul.Text = ""

DBCombo2.Text = "-Pilih-"

TxtNama.Text = ""

End Sub

LOGIN

LISTING :

Private Sub CmdBatal_Click()

End

End Sub

Private Sub CmdLogin_Click()

Data1.RecordSource = "select*from user where kduser like '" & TxtNama.Text & "'"

Data1.Refresh

If Data1.Recordset.RecordCount <> 0 Then

If TxtNama.Text = Data1.Recordset.Fields(0) _

And TxtPassword.Text = Data1.Recordset.Fields(2) Then

If Data1.Recordset.Fields(3) = "User" Then

MsgBox "Password Diterima ^_^", vbInformation + vbOKOnly, "Perhatian"

FrmMenuUtama.Show

FrmMenuUtama.Tb.Enabled = False

Unload Me

Else

MsgBox "Password Diterima ^_^", vbInformation + vbOKOnly, "Perhatian"

FrmMenuUtama.Show

FrmMenuUtama.St.Panels(2) = Data1.Recordset.Fields(1)

FrmMenuUtama.St.Panels(3) = Data1.Recordset.Fields(3)

Unload Me

End If

Else

MsgBox "User Tidak Ditemukan !", vbCritical + vbOKOnly, "Perhatian"

TxtNama.Text = ""

TxtPassword.Text = ""

TxtNama.SetFocus

End If

End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then TxtPassword.SetFocus

End Sub

Private Sub TxtPassword_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then CmdLogin_Click

End Sub

MENU UTAMA

LISTING :

Private Sub Form_Load()

St.Panels(1).Text = "Perpustakaan Pintar ^_^"

End Sub

Private Sub LDA_Click()

LapAnggota.Show

End Sub

Private Sub LDB_Click()

LapBuku.Show

End Sub

Private Sub LDT_Click()

LapTransaksi.Show

End Sub

Private Sub Tb_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Key

Case "buku"

FrmBuku.Show vbModal

Case "anggota"

FrmAnggota.Show vbModal

Case "transaksi"

FrmTransaksi.Show vbModal

Case "keluar"

a = MsgBox("Yakin Mau Mengakhiri Program Perpustakaan ini ?", vbQuestion + vbOKCancel, "Perpustakaan")

If a = vbOK Then End

End Select

End Sub

Private Sub Timer1_Timer()

St.Panels(4).Text = Date

St.Panels(5).Text = Time

End Sub

Membuat Program Faktorial Dengan Vb 6.0

noreply@blogger.com (Anonymous) — Wed, 9 Jan 2013 22:42:00 -0800

a. Buatlah New Project pada software VB anda kemudian tambahkan tiga buah label, tiga commandbutton dan dua textbox pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :

Gambar Program faktorial

b. kemudian ketikkan code/listing/script program berikut :

Private Sub Command1_Click()

Dim a, b, i As Integer

i = 1

b = Text1.Text

For a = 1 To b

i = i * a

Next

Text2.Text = i

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

c. Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :

Gambar Program faktorial dengan VB 6.0

contoh 2 : Membuat Program Penghitung Determinan dan Penjumlahan, Perkalian Matriks Berordo 2x2 dengan VB 6.0

a. Buatlah New Project pada software VB anda kemudian tambahkan 5 buah label, tiga commandbutton, 13 textbox dan 3 optionbutton pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :

Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB

b. kemudian ketikkan code/listing/script program berikut :

Private Sub Command1_Click()

If Option2.Value = True Then

Text12.Text = Val(Text1.Text) + Val(Text8.Text)

Text11.Text = Val(Text2.Text) + Val(Text7.Text)

Text10.Text = Val(Text3.Text) + Val(Text6.Text)

Text9.Text = Val(Text4.Text) + Val(Text5.Text)

ElseIf Option3.Value = True Then

Text13.Text = (Val(Text1.Text) * Val(Text4.Text) - Val(Text2.Text) * Val(Text3.Text)) + (Val(Text8.Text) * Val(Text5.Text) - Val(Text7.Text) * Val(Text6.Text))

Else

Text12.Text = (Val(Text1.Text) * Val(Text8.Text)) + (Val(Text2.Text) * Val(Text6.Text))

Text11.Text = (Val(Text1.Text) * Val(Text7.Text)) + (Val(Text2.Text) * Val(Text5.Text))

Text10.Text = (Val(Text3.Text) * Val(Text8.Text)) + (Val(Text4.Text) * Val(Text6.Text))

Text9.Text = (Val(Text3.Text) * Val(Text7.Text)) + (Val(Text4.Text) * Val(Text5.Text))

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

c. Silahkan run(F5) program anda coba masukkan nilai pada matrhks A dan matriks B kemudian pilih salah satu option lalu tekan tombol proses,,selamat mencoba !

Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB 6.0

Cara Mengatasi Konflik Antara jQuery Dan MooTools

noreply@blogger.com (Anonymous) — Tue, 8 Jan 2013 19:35:00 -0800

jQuery dan MooTools adalah salah dua Framework JavaScript yang banyak digunakan. Masing-masing memiliki kelebihannya sendiri-sendiri (Untuk detail feature masing-masing framework silakan cek sendiri di website mereka). Lalu bisakah kita menggunakan keduanya secara bersamaan? Tentu saja bisa.
Yang harus diperhatikan adalah bahwa jQuery menggunakan tanda $ sebagai shortcut untuk pemanggilan jQuery, sedangkan MooTools pun menggunakan $() sebagai shortcut untuk mempersingkat document.getElementById().
Jika kita meload jQuery dan MooTools secara bersamaan di satu halaman, maka bisa dipastikan bakalan terjadi konflik di antara keduanya.
Namun untungnya, kunci untuk mengatasi masalah tersebut sudah disediakan oleh jQuery, yaitu dengan menjalankan script jQuery.noConflict() setelah jQuery diload.






<script type=text/javascript src=mootools.js></script>





<script type=text/javascript src=jquery.js></script>


<script type=text/javascript>


jQuery.noConflict();


</script>

Kemudian di dalam script jQuery yang kita buat juga harus menggunakan jQuery sebagai pengganti $






jQuery(document).ready(function() {


jQuery('#content').html('Hello');


});

Jika pemanggilan menggunakan jQuery terasa terlalu panjang atau kurang keren, kita juga bisa membuat variabel sendiri sebagai penggantinya, misalnya sebagai berikut :






var test= jQuery.noConflict();





//lalu gunakan nama variabel tersebut sebagai pengganti jQuery


test(document).ready(function() {


test('#content').html('Hello');


});

Contoh Program Mengatur Tampilan Frame di Java

noreply@blogger.com (Anonymous) — Tue, 8 Jan 2013 19:22:00 -0800

Tampilan frame atau lebih dikenal dengan “Look and Feel” di java dapat diatur sesuai keinginan kita. Java memiliki 3 Look and Feel dasar yaitu Metal, Motif dan Windows.
Dan berikut ini contoh tampilannya:

Berikut ini program lengkapnya:

001import java.awt.*;

002

003import java.awt.event.*;

004

005import javax.swing.*;

006

007

008

009public class LookAndFeelDemo extends JFrame {

010

011    private final String lookName[] = {"Metal", "Motif", "Windows"};

012

013    private UIManager.LookAndFeelInfo lookr[];

014

015    private JRadioButton rdLook[];

016

017    private ButtonGroup btnGroup;

018

019    private JButton btn;

020

021    private JTextField txt;

022

023    private JPanel panel1, panel2;

024

025     

026

027    public LookAndFeelDemo () {

028

029        super ("Look and Feel Demo : Tampilan Frame");

030

031        setSize (400,300);

032

033         

034

035        Container container = getContentPane();

036

037        ItemHandler handler = new ItemHandler ();

038

039        panel1 = new JPanel();

040

041        panel2 = new JPanel();

042

043         

044

045        btnGroup = new ButtonGroup();

046

047         

048

049        rdLook = new JRadioButton [lookName.length];

050

051        for (int i = 0; i < rdLook.length; i++) {

052

053            rdLook[i] = new JRadioButton (lookName[i]);

054

055            rdLook[i].addItemListener(handler);

056

057            btnGroup.add(rdLook[i]);

058

059            panel2.add(rdLook[i]);

060

061        }

062

063         

064

065        btn = new JButton ("Tombol");

066

067        txt = new JTextField (20);

068

069         

070

071        panel1.add(btn);

072

073        panel1.add(txt);

074

075         

076

077        container.add(panel1, BorderLayout.NORTH);

078

079        container.add(panel2, BorderLayout.SOUTH);

080

081         

082

083        looks = UIManager.getInstalledLookAndFeels();

084

085         

086

087        setLocationRelativeTo (null);

088

089        setVisible (true);

090

091    }

092

093     

094

095    private void changeLookAndFeel(int val) {

096

097        try {

098

099            UIManager.setLookAndFeel(looks[val].getClassName());

100

101            SwingUtilities.updateComponentTreeUI(this);

102

103

}

104

105 catch (Exception ex) {

106

107 ex.printStackTrace();

108

109 }

110

111 }

112

113

114

115 public static void main (String args[]) {

116

117 LookAndFeelDemo test = new LookAndFeelDemo();

118

119 test.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

120

121 }

122

123

124

125 private class ItemHandler implements ItemListener {

126

127 public void itemStateChanged (ItemEvent e) {

128

129 //

130

131 for (int i = 0; i < rdLook.length; i++) {

132

133 if (rdLook[i].isSelected()) {

134

135 changeLookAndFeel (i);

136

137 }

138

139 }

140

141 }

142

143 }

144

145 }

Semoga bermanfaat.

Menginstal Antivirus Pada Komputer Yang Terkena Virus

noreply@blogger.com (Anonymous) — Mon, 7 Jan 2013 18:52:00 -0800

Apakah anda pernah mempunyai masalah ketika menginstal antivirus di komputer yang terkena virus, biasanya kita selalu menemukan kesulitan ini, setiap kita melakukan instalasi antivirus selalu saja antivirus yang kita instal langsung terinveksi oleh virus yang ada, dan bagaimana mengatasi agar antivirus yang kita instal tidak terinveksi, berikut beberapa tips-tips yang semoga bisa membantu kita dalam mengatasinya, langsung saja ikuti langkah-langkah berikut ini.

Matikan seluruh service yang berjalan di komputer, caranya klik Start - Run - ketikan msconfig pilih tab service pada tab bar menu msconfig.

Disablekan seluruh service dengan mengklik Disable all dan kemudian beri tanda centang pada service 'windows installer'. Kemudian restart komputer.

Setelah itu install antivirus dan enable kembali semua service atau kembalikan ke kondisi sebelum Disable all. Restart sekali lagi komputer anda. (Jangan pernah menginstal atau scanning menggunakan antivirus dari flashdisk. Gunakan "optical drive", CD-ROM atau DVD).

Setelah itu update antivirus anda dan lakukan scanning.

Macam-macam Virus Komputer & Pengertiannya

noreply@blogger.com (Anonymous) — Mon, 7 Jan 2013 18:51:00 -0800

a. Virus boot sector

Merupakan virus umum, bersipat menggandakan diri dengan cara menindih bootsector asli pada sebuah disk, sehingga pada saat booting virus akan langsung dijalankan ke memori.

b. Virus file
Menyerang file yang dijalankan oleh suatu system operasi. Biasanya menyerang com atau exe.

c. Virus direct action
Virus ini akan masuk kememori untuk menjalankan file lainnya.lalu menajalankan program lain untuk menipu.

d. Multi partition virus
Merupakan gabungan dari virus bootsector dan virus file.

e. Polymorphic virus
Virus yang dirancang untuk mengelabui program AV. Yaitu mengubah struktur dirinya setelah menjalankan perintah.

f. Stealth virus
Mengendalikan intruksi – intruksi level DOS dengan menguasai table interrupt.

g. Magro virus

h. Ditulis oleh bahasa pemrograman dari suatu aplikasi, sehingga bersipat flatform independent.

4. Kemampuan untuk manipulasi
Kemampuan ini digunakan untuk memunculkan pesan,gambar,menghapus file, mencuri data atau file, dan lain sebagainya.
Kemampuan untuk menyembunyikan diri dari data yang dibuat
Seluruh aktivitas yang dilakukan virus haruslah tidak kelihatan, baik dari user, atau pun dari computer. Hal ini menjadi keindahan sebuah virus.Biasanya kita bsia melihat seluruh proses yang ada dikomputer (khususnya yang berbasis windows).hanya dengan menekan ctrl+alt+delete, maka akan muncul kotak yang berisikan proses – proses yang berjalan pada computer. Sebauh virus yang bagus adalah sebauh virus yang tidak tertangkap prosesnya oleh trapping tersebut. Apalagi dapat menghindari deteksi dari sebuah anti virus.

Macam-macam virus :

1.Virus Bagle.BC
Virus Bagle BC ini termasuk salah satu jenis virus yang berbahaya dan telah masuk peringkat atas jenis virus yang paling cepat mempengaruhi komputer kita. Beberapa jam sejak keluarnya virus ini, sudah terdapat 2 buah varian Bagle ( Bagle BD dan BE )yang menyebar melalui e-mail, jaringan komputer dan aplikasi P2P. Virus ini menyebar melalui e-mail dengan berbagai subyek berbeda. Menurut suatu penelitian dari Panda Software virus Bagle BC ini menyusup ke dalam e-mail dengan subyek antara lain : Re:, Re:Hello, Re:Hi, Re:Thank you, Re:Thanks. Attachment-nya juga bermacam-macam, antara lain : .com, .cpl, .exe, .scr. Virus Bagle BC juga mampu untuk menghentikan kerja program-program antivirus.

2.Backdoor Alnica
Virus yang juga berbahaya ini merupakan salah satu tipe virus Trojan Horse. Merupakan salah satu virus backdoor yang jika berhasil menginfeksi komputer akan mampu melakukan akses dari jarak jauh dan mengambil segala informasi yang diinginkan oleh si penyerang. Sistem operasi yang diserang oleh virus tersebut antara lain : Windows 200, Windows 95, Windows 98, Windows Me, Windows NT dan Windows XP. Virus ini berukuran sebesar 57.856 byte.

3.Trojan di Linux
Para pengguna linux Red Hat diharapkan untuk berhati-hati terhadap PATCH yang dikirm melalui e-mail dengan alamat "security@redhat.com" karena itu sebenarnya bukannya patch security tetapi virus Trojan yang bisa mengacaukan sistem keamanan. E-mail peringatan dari Red Hat biasanya selalu dikirim dari alamat "secalert@redhat.com" dan ditandatangani secara digital. Virus ini juga pernah menyerang sistem keamanan Windows tahun 2003 dengan subyek menawarkan solusi keamanan.

4.CABIR
Cabir merupakan merupakan virus Symbian pertama dan terpopuler hingga saat ini. Cabir termasuk jenis worm yang menyebar melalui koneksi Bluetooth dan masuk ke ponsel melalui inbox pesan Anda dengan nama-nama yang menarik perhatian. Jika Anda mengklik file.sis tersebut dan menginstalnya, Cabir akan mulai mencari mangsa baru ponsel dengan akses Bluetooth terbuka, untuk menginfeksinya.
Cabir dikenal juga dengan nama SymOS/Cabir.A, EPOC/Cabir.A, Worm.Symbian.Cabir.a, dan virus Caribe. Variannya kini telah berkembang hingga embel-embel abjad terakhir Cabir.Z. Cabir.Z sebenarnya merupakan varian dari Cabir B, hanya penyebarannya menggunakan nama velasco.sis.
Cabir akan mengaktifkan Bluetooth Anda secara periodic, sekitar 15-20 menit sekali untuk mencari mangsa. Tak ada kerusakan file yang berarti, hanya saja jika ponsel Anda terinfeksi, baterainya akan cepat habis karena digunakan untuk mencari perangkat Bluetooth lainnya.
Untuk mencegahnya, matikan (disable) fitur Bluetooth Anda. Aktifkan hanya saat akan digunakan. Dan yang perlu diingat adalah jangan menginstal aplikasi Symbian dengan nama caribe.sis atau nama-nama yang aneh.

5. COMMWARRIOR
Commwarrior masuk dalam keluarga virus ponsel jenis worm. Virus ini menyebar melalui MMS, koneksi Bluetooth, dan pertukaran kartu memori dengan nama yang beracak (random) xxx.sis.
Tipe serangan Commwarrior bermacam-macam. Yang paling umum, Commwarrior menyebar lewat Bluetooth. Beberapa varian juga dapat mengirim MMS acak ke kontak yang terdapat di phonebook Anda. Commwarrior tak hanya punya satu nama. Layaknya penjahat, dia juga memiliki nama samaran atau alias seperti Commwarrior [dikenal oleh anvir F-Secure], SymbOS/Commwarrior [McAfee], SYMBOS_COMWAR [Trend Micro].
Saat ini varian Commwarrior terakhir adalah Commwarrior T. Commwarrior T dan Q hanya menginfeksi Symbian versi 8.1 atau yang lebih tua. Selain menyebar secara sporadis, virus ini juga akan membuka halaman html di ponsel Anda dengan pesan:
Introduction Surprise! Your phone infected by CommWarrior worm v3.0. Matrix has you, Commwarrior inside. No panic please, is it very interesting to have mobile virus at own phone. This worm does not bring any harm to your phone and your significant data. About CommWarrior wor for Nokia Series 60 provides automatic real-time protection against harmful Anti-Virus content. CommWarrior is free software and is distributed in the hope that it wil be useful, without anya warranty. Thank you for using CommWarrior.CommWarrior 2005-2006 by e10d0r.

6. SKULLS
Virus selanjutnya adalah virus bernama Skulls atau nama lengkapnya SymbOS.skulls. Skulls yang tergolong Trojan ini yang mengganti sistem di dalam ponsel dan menyebabkan ikon-ikon menu utama berubah menjadi gambar tengkorak. Awalnya, Trojan ini bernama Extended theme.sis, akan tetapi sekarang banyak ditemui dengan nama skull.sis.
Beberapa varian jenis virus ini telah tersebar. Pada varian skulls.A entah mengapa dia tidak memberikan efek apa-apa. Namun skulls.C dan H dan S, hampir semua ikonnya berubah menjadi tengkorak…hiiii serem….
Saat instalasi varian Skull H, memunculkan kalimat notifikasi “Install ‘beta’_092_free-sms-RM8” sedangkan Skull S menampilkan kalimat “Install BlueNum Stealer”. Tak hanya merubah ikon, skulls juga mampu melumpuhkan aplikasi-aplikasi yang ikonnya dirubah tadi. Umumnya saat kita memencet ikon suatu aplikasi maka yang muncul adalah pesan system eror.

7. DOOMBOOT
Meski penyebarannya tak seganas virus computer, namun kerusakan yang ditimbulkan oleh Doomboot tergolong cukup serius. Nama lengkapnya SymbOS.Doombot. Virus ini juga memiliki nama samaran antara lain Doomboot [F-Secure], SYMBOS_DOOMED [Trend Micro].
Saat ini varian doombot bermacam-macam. Ada Doomboot A, C, L, M, G dan P. Doomboot termasuk virus kategori Trojan. Varian Doomboot.A menaruh dan membuat file-file korup dan bahayanya, setelah ponsel menginfeksi, ia akan menempatkan virus lainnya semisal Commwarrior.B ke dalam ponsel Anda. Sistem file yang korup tadi menyebabkan ponsel tidak dapat melakukan booting.
SymbOS.Doomboot.A misalnya, menyusup ke ponsel Anda dengan menyerupai file instalasi permainan Doom2 yang telah dicrack. Biasanya bernama Doom_2_wad_cracked_by_DFT_S60_v1.0.sis. Sedangkan Doomboot C menyusup dengan nama samaran “exoVirusStopv 2.13.19”, mirip dengan nama anti virus ponsel. Jika menerima file tersebut dan menginstalnya, Anda tidak akan menerima pesan teknis apapun setelah itu. Anda juga tak akan mengira bahwa ponsel telah terinfeksi karena tak ada ikon atau tanda apapun setelah proses instalasi. Commwarrior.B yang diisikan oleh Doombot ke dalam ponsel akan berjalan secara otomatis dan menyebar melalui koneksi Bluetooth. Hal ini akan mengakibatkan ponsel mengkonsumsi baterai secara berlebihan, sehingga baterai cepat habis. Parahnya, Doomboot akan membuat ponsel tidak dapat melakukan booting saat Anda mematikan ponsel dan menyalakan kembali. Jika Anda terlanjur melakukan reboot, maka satu-satunya cara yang dapat Anda lakukan adalah melakukan hard reset. Alhasil, sebagian besar data yang telah Anda simpan seperti foto, suara maupun data lainnya menjadi hilang tak berbekas.

8. APPDISBLER
Kinerja AppDisabler sebenarnya mirip dengan Doomboot. Dia akan menaruh file-file virus lain seperti Locknut B dan Cabir Y ke dalam sistem ponsel Anda. AppDisabler juga menggandeng Skulls J dan akan menyulap ikon-ikon sistem Anda menjadi gambar tengkorak. Yang lebih mengerikan, virus ini akan menghentikan kinerja sistem operasi dan juga beberapa aplikasi pihak ketiga.

9. CARDTRAP
CardTrap merupakan virus ponsel pertama yang mencoba menginfeksi computer berbasis Windows dengan menaruh 2 file virus ke dalam kartu memori ponsel. Jika terkoneksi kartu tersebut sewaktu-waktu menginfeksi computer.
Varian CardTrap lumayan banyak. Dari varian berhuruf tunggal seperti CardTrap P, Q, R, S hingga varian beraksara ganda sepert CardTrap AA, AG, AJ dan seterusnya. Biasanya CardTrap menyaru dengan memakai nama-nama game atau aplikasi terkenal seperti Kingkong, Half Life, Battefield 2 dan lain-lain. CardTrap Z misalnya, menyaru dengan nama SeleQ 1.7 – CrackedTNT.sis. CardTrap merusak sistem dengan cara mematikan beberapa aplikasi built in Symbian. Virus ini juga cukup canggih sehingga mampu melumpuhkan beberapa jenis anti virus. Selanjutnya, jikalau ada kesempatan untuk terkoneksi ke computer, CardTrap akan berupaya menanam virus ke dalam PC berbasis Windows. Beberapa varian seperti CardTrap Z juga dapat mematikan fungsi keypad, mengacaukan aplikasi-aplikasi pihak ketiga, dan menyebarkan file-file rusak ke dalam kartu memori hingga mengakibatkan kekacauan sistem.

10. LOCKNUT
Locknut atau nama lengkapnya SymbOS.Locknut merupakan virus Trojan yang beroperasi dengan memanfaatkan kelemahan sistem Symbian S60. virus ini tergolong gawat karena dapat mengganti file biner pada sistem ROM. Alhasil Locknut dapat menyebabkan sistem operasi ponsel terhenti dan mengalami crash. Virus ini memilik banyak nama samaran antara lain Locknut [F-Secure], SYMBOS_LOCKNUT [Trend Micro]. Ponsel Symbian yang terkena virus ini memiliki ciri-ciri akan menampilkan message atau pesan sebagai berikut :

App. closed

AppArServerTh

Read

Selain itu, virus ini juga memiliki boncengan alias virus tambahan berupa virus Cabir yang akan ikut terinstal jika virus Locknut menangkiti ponsel Anda. Beberapa varian virus Caribe juga terangkai bersama-sama virus Locknut ini. Locknut E, salah satu varian locknut akan merusak file-file penting pada sistem Symbian dan menyebabkan aplikasi-aplikasi yang terinstall tidak dapat dibuka. Hal ini secara efektif akan membuat ponsel Anda terkunci.

11. PBStealer
Kabarnya, PBStealer merupakan salah satu virus ponsel yang dibuat oleh orang Indonesia (made in Indonesia euy,,perlu dihargai dan dikasih penghargaan nih pembuatnya hahahaha). PBStealer memiliki alias SymbOS/Pbstealer (Symantec), merupakan Trojan yang menyerupai aplikasi untuk mengumpulkan kontak yang terdapat dalam phonebook Anda dan selanjutnya akan menyimpannya dalam bentuk file teks (*.txt). Sekilas hal tersebut tak berbahaya. Namun langkah yang dilakukan PBStealer selanjutnyalah yang membuat Anda harus waspada. PBStealer selanjutnya akan mengirimkan file txt tersebut ke ponsel lain lewat koneksi Bluetooth. Dapat dibayangkan bukan??? Jika di dalam kontak Anda terdapat nomor-nomor penting dan dimanfaatkan untuk kejahatan??
PBStealer D, salah satu varian PBStealer juga dapat mengkompile dan mengirimkan file berisi kontak, to do lis, database dan notepad sekaligus. PBStealer D menyebarkan diri dengan cara mengirimkan 2 file aplikasi berekstensi SIS yaitu ChattingYuk.SIS dan PBCompressor.SIS melalui koneksi Bluetooth.

Fungsi dari xampp

noreply@blogger.com (Anonymous) — Mon, 7 Jan 2013 18:45:00 -0800

Bingung mau posting apa, akhirnya punya ide disini saya akan mencoba membahas cara penggunaan dan cara penginstalan xampp. apa sich fungsi dari xampp sendiri?

XAMPP adalah sebuah paket web server yang gratis dan open source cross platform yang di dalamnya terdapat Apache HTTP Server, MySQL Database, anda tidak akan dipusingkan dengan masalah instalasi dan interpreter untuk script yang ditulis dalam Bahasa Pemrograman PHP dan Perl.

XAMPP juga dapat berjalan pada Sistem Operasi Linux, Mocrosoft Windows, Solaris dan Mac OSX.

Xampp sendiri singkatan dari :
X berarti cross platform
A berarti Apache HTTP Sever
M berarti MySQL
P berarti PHP
P berarti Perl

XAMPP versi terbaru dapat di download gratis dari XAMPP.

Gimana keterangan diatas jelaskan? nah sekarang cara penginstalanya...
prtama2 klik icon, hehe..

akan muncul setup wizard lalu klik next

pilih lokasi penginstallan

Pada Xampp Options ,klik install langsung. Keterangan pada Xampp Option
Xampp desktop   = memunculkan icon di dekstop
Xampp star menu   = setiap kita masuk windows otomatis Xampp akan aktif dengan sendirinya
Services section     = mengaktifkan layanan seperti apache, Mysql, filzilla secara otomatis jika diberi tanda centang

Tunggu hingga proses selesai

Klik finish

Installasi sukses, lalu klik yes

Dibawah ini adalah control panel XAMPP semua layanan pada XAMPP ada disini,

Setelah itu bukalah sebuah browser (misalnya, Internet Explorer/Mozila Firefox/Opera), pada
bagian address ketikkan http://localhost/xampp/index.php seperti gambar dibawah ini... berati instalasi berhasil. lalu ketik URL http://localhost/phpmyadmin/. Jika muncul tampilan seperti
terlihat pada gambar berikut, berarti installasi tidak ada masalah....

Anda dapat memilih bahasa(language) pada menu sebelah kanan . Perlu diketahui bahwa
phpMyAdmin telah mendukung bahasa Indonesia, akan tetapi sebaiknya anda tetap menggunakan pilihan bahasa Inggris. Tampilan phpMyAdmin ini juga mempunyai 3 macam tampilan yang berbeda. Silahkan memilih tampilan yang Anda suka pada pilihan menu Theme/Styles dan ada juga bisa mengganti ukuran fontnya.

Styles

Pengertian Tentang XAMPP

noreply@blogger.com (Anonymous) — Mon, 7 Jan 2013 18:43:00 -0800

XAMPP adalah perangkat lunak bebas, yang mendukung banyak sistem operasi, merupakan kompilasi dari beberapa program.
Fungsinya adalah sebagai server yang berdiri sendiri (localhost), yang terdiri atas program Apache HTTP Server, MySQL database, dan penerjemah bahasa yang ditulis dengan bahasa pemrograman PHP dan Perl. Nama XAMPP merupakan singkatan dari X (empat sistem operasi apapun), Apache, MySQL, PHP dan Perl. Program ini tersedia dalam GNU General Public License dan bebas, merupakan web server yang mudah digunakan yang dapat melayani tampilan halaman web yang dinamis.

Beberapa Penjelasan Pernyataan “DIM” pada Visual Basic

noreply@blogger.com (Anonymous) — Mon, 7 Jan 2013 03:29:00 -0800

Beberapa pernyataan / statement yang bisa digunakan bersamaan deklarasi “DIM” yaitu : friend, private, protected, protected friend, public, read only, shadows, shared, dan witheven. Disini saya akan sedikit memberikan informasi akan penjelasan tentang pernyataan Dim tersebut.

Public Variabel dideklarasikan dengan kata kunci public memiliki akses publik. Tidak ada pembatasan tentang aksesibilitas variabel publik.
Anda dapat menggunakan Public hanya pada, namespace, atau file tingkat modul. Ini berarti Anda dapat mendeklarasikan variabel umum dalam suatu file sumber atau di dalam kelas, modul, atau struktur, tetapi tidak di dalam suatu prosedur. Jika Anda menetapkan Umum, anda dapat menghilangkan kata kunci Dim.

Protected
Variabel dideklarasikan dengan kata kunci Protected memiliki akses terproteksi. Mereka hanya bisa diakses dari dalam kelas mereka sendiri atau dari kelas turunan. Akses Protected bukanlah superset dari akses teman.
Anda dapat menggunakan Protected hanya pada tingkat kelas. Ini berarti Anda dapat mendeklarasikan variabel di dalam kelas protected tetapi tidak di dalam suatu prosedur, dan bukan di tingkat modul, namespace, atau file. Anda dapat menggunakan Protected hanya untuk menyatakan anggota kelas. Jika Anda menetapkan Protected, anda dapat menghilangkan kata kunci Dim.

Friend
Variabel dideklarasikan dengan kata kunci Friend memiliki akses teman. Mereka dapat diakses dari dalam konteks deklarasi mereka dan dari tempat lain dalam program yang sama.
Anda dapat menggunakan Friend hanya pada, namespace, atau file tingkat modul. Ini berarti Anda dapat mendeklarasikan variabel friend di file sumber atau di dalam kelas, modul, atau struktur, tetapi tidak di dalam suatu prosedur. Jika Anda menetapkan Friend, anda dapat menghilangkan kata kunci Dim.

Protected Friend
Variabel dideklarasikan dengan kata kunci Protected Friend memiliki persatuan dan akses teman yang dilindungi. Mereka dapat digunakan oleh kode di mana saja di program yang sama, menurut kode di kelas mereka sendiri, dan dengan kode dalam setiap kelas turunan.
Anda dapat menggunakan Protected Friend hanya pada tingkat kelas. Ini berarti Anda dapat mendeklarasikan variabel protected friend di dalam kelas tetapi tidak di dalam suatu prosedur, dan bukan di tingkat modul, namespace, atau file. Anda dapat menggunakan Protected Friend hanya untuk menyatakan anggota kelas. Jika Anda menetapkan Protected Friend, anda dapat menghilangkan kata kunci Dim.

Private
Variabel dideklarasikan dengan kata kunci Private memiliki akses pribadi. Mereka hanya bisa diakses dari dalam konteks deklarasi mereka, termasuk dari anggota dari setiap tipe bersarang seperti prosedur.
Anda dapat menggunakan Private hanya pada level modul. Ini berarti Anda dapat mendeklarasikan variabel private di dalam kelas, modul, atau struktur, tetapi tidak pada tingkat namespace atau file dan tidak di dalam suatu prosedur. Jika Anda menetapkan Private, anda dapat menghilangkan kata kunci Dim.

Shared
Menunjukkan bahwa variabel ini bersama. Ini berarti tidak terkait dengan contoh spesifik dari sebuah kelas atau struktur. Anda dapat mengakses variabel bersama dengan kualifikasi baik dengan nama kelas atau struktur, atau dengan nama variabel contoh spesifik dari kelas atau struktur.
Anda dapat menggunakan Shared hanya pada, namespace, atau file tingkat modul. Ini berarti Anda dapat mendeklarasikan variabel bersama dalam sebuah file sumber atau di dalam kelas, modul, atau struktur, tetapi tidak di dalam suatu prosedur. Jika Anda menetapkan Shared, anda dapat menghilangkan kata kunci Dim.
Anda tidak bisa menentukan baik static dan Shared dalam deklarasi variabel yang sama.

Shadows
Menunjukkan bahwa variabel ini bayangan elemen pemrograman identik bernama, atau mengatur elemen kelebihan beban, di kelas dasar. Anda dapat bayangan apapun elemen dideklarasikan dengan jenis lain. Sebuah elemen gelap tidak tersedia dari dalam kelas turunan yang bayangan itu, kecuali elemen bayangan tidak dapat diakses, misalnya jika Private. Anda dapat menggunakan Shadows hanya pada, namespace, atau file tingkat modul. Ini berarti Anda dapat mendeklarasikan variabel membayangi dalam file sumber atau di dalam kelas, modul, atau struktur, tetapi tidak di dalam suatu prosedur. Jika Anda menetapkan Shadows, anda dapat menghilangkan kata kunci Dim.
Anda tidak bisa menentukan baik Static dan Shadows dalam deklarasi variabel yang sama.

ReadOnly
Variabel dideklarasikan dengan kata kunci readonly hanya dapat dibaca dan tidak tertulis. Hal ini dapat berguna untuk membuat anggota konstan dari referensi, seperti variabel objek dengan anggota data preset.
Anda hanya dapat menggunakan readonly pada modul, namespace, atau tingkat file. Ini berarti Anda dapat mendeklarasikan variabel readonly dalam sebuah file sumber atau di dalam kelas, modul, atau struktur, tetapi tidak di dalam suatu prosedur. Jika Anda menetapkan readonly, anda dapat menghilangkan kata kunci Dim.

WithEvents
Kata kunci yang menentukan nama yang merupakan variabel objek yang mengacu pada sebuah instance dari kelas yang dapat meningkatkan kejadian. Anda dapat mendeklarasikan sebagai variabel individu sebanyak yang Anda suka menggunakan WithEvents, tetapi Anda tidak dapat mendeklarasikan array dengan cara ini.