laman

Kamis, 14 Juni 2012

Membuat Form Login dengan Database Dengan Visual Basic 6.0


Untuk membuat form login yang berhubungan dengan data base pada dasarnya sama dengan membuat form login biasa. Yang menjadi perbedaan adalah kita mengambil data dari database yang sebelumnya telah tersimpan.

Untuk memulai mencoba membuat halaman login, terlebih dahulu membuat database misalnya dari microsoft access dengan nama tabel "login" dan berisi 2 buah kolom yaitu "username" dan "pass".

Setelah database kita buat maka tahap selanjutnya adalah membuat tampilan halaman login yang terdiri dari dua buah label, 2 buah text box dan dua buah command button.
Berikut adalah property yang saya ubah dari masing-masing tool:
Form : Caption > LOGIN
Label1 : caption > Username
Label2: caption > Password
Text1 : name > txtuser
Text2 : name > txtpass
PasswordChar > *
Command1: name > cmdLogin
Caption > &Login
Command2: name > cmdExit
Caption > &Exit
Berikut adalah bentuk tampilannya

formlogin


Setelah itu kita baru masuk pada tahap pembuatan kode:

Kalo mau coba ini ada contoh kode-nya. Kalo malas ngetik atau copas desain dan codenya bisa di ambil disini:

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If

End Sub

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub
Penjelasan singkatnya sbb:

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub


Baris-baris kode ini adalah modul koneksi ke database, biasanya diletakkan pada sebuah modul apabila kita memiliki banyak form, karena kita hanya memiliki sebuah form maka kita letakkan pada form. Dan prosedur ini akan kita panggil pada saat form kita load “call Connections”

Private Sub cmdExit_Click()
End
End Sub
Kode ini saya kira sudah sangat jelas, yaitu untuk mengakhiri atau menutup form.

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If

End Sub

Untuk bagian ini hamper sama ketika kita membuat halaman login tanpa data base yang sudah pernah saya postingkan, hanya saja yang menjadi perbedaan hanya terletak pada beberapa bagian saja. Yaitu pada

sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Disini kita akan menggunakan query sql untuk melakukan pencarian username terlebih dahulu kemudian hasilnya kita simpan pada variable rst setelah eksekusi query dilakukan. Apabila data tidak ditemukan maka akan menuju ke sub prosedur noacc, namun bila ditemukan maka kita akan membandingkan nilai password yang ada pada database dan password yang di-input-kan oleh user.

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub


Bagian ini adalah bagian yang pertama kali dijalankan oleh program karena ditelakkan pada saat form kita buka. Kode ini hanya berfungsi untuk melakukan pengaturan awal saya, misalnya call connections, yaitu untuk melakukan pangggilam koneksi ke database, kemudian pengatur textbox menjadi kosong yaitu dengan menggunakan (“”) atau bisa juga dengan kata Empty.

Dah Cuma gitu aja, kayaknya gak susah2 bgt. Met mencoba deh.

Membuat Halaman Login Sederhana Dengan Visual Basic 6.0


Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.
Form :
(Name) : frmLogin
BorderStyle : 1-fixed single
Caption : LOGIN
Label1:
Caption :Username
Label2:
Caption :Password
TextBox1:
Name :txtName
Text :dikosongkan
TextBox2:
Name :txtpass
PasswordChar: * (asterisk)
Text :dikosongkan
CommandButtton:
Name : cmdLogin
Caption : LOGIN

Berikut adalah contoh tampilan halaman login:



Untuk kodenya sebagai berikut:

Private Sub cmdLogin_Click()
Static i As Integer

If txtNama.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
Else
Return
End If
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtPass_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

Penjelasan:
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:

If txtNama.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus

ElseIf txtPass.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"
End If

Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya.

Membuat Tulisan Berkedip Dengan Visual Basic 6.0



Gimana seh caranya biar tulisan atau label kita yang ada pada form bisa kedap-kedip??

Caranya sangatlah mudah, cukup satu baris saja. Gak percaya ?? cobain deh:


label1.visible=not label1.visible

Tempatkan baris code tersebut pada event Timer, dan aturlah properti interval pada control timer sesuai keinginanmu.

Dah, cukup gitu aja. Kita hanya perlu meng-not-kan nilai dari visiblilitasnya saja seperti contoh ini.

CARA MEMBUAT UNDANGAN PERNIKAHAN DENGAN COREL DRAW


Ada temanku meminta saya untuk mengajarinya bagaimana cara membuat undangan lewat Corel Draw. Akhirnya saya setuju. Sayang sekali, saya tidak bisa mengajarinya secara langsung dikarenakan saya dan dia sedang sibuk dalam berbagai kegiatan dong!
Mungkin ini gampang untuk Anda….
Begini caranya:
Misalnya Corel Draw X3, sebagaimana saya hanya memiliki versinya apalagi juga memakai Corel Draw X3 untuk membuat apa pun dengan semaukuMenyenangkan aja! Hehehe
1. Buka Corel Draw X3
Start >> All Programs >> Corel Draw Graphics Suite X3 >> Corel Draw X3
Bentuk tampilan dari Corel Draw X3
2. Aturlah Lembar kerja, pilihlah F4 pada Property Bar: Multyple Object, seperti ini:

3. Klik Landscape (mendatar) pada Property Bar
4. Klik 2 kali pada Rectangle tool pada toolbox
5. Select object tersebut kemudian aturkan persegi dengan 21,0 cm x 12,5 cm, sebagai berikut: hasilnya

6. Untuk menghasilkan kertas lipat, caranya:
a). Select object >> Arrange >> Transformations >> Position, seperti gambar ini:


b). Check kanan atau kiri pada Relative Position, kemudian klik Apply to Duplicate, maka hasilnya:
c). Select two object (maksudnya pilih kedua persegi tersebut) >> Arrange >> Group
d). Kemudian Arrange >> Align to Distribute >> Center to Page Horizontally lalu diulangi lagi >>Arrange >> Align to Distribute >> Center to page vertically, sehingga kedua persegi tersebut berada di tengah lembar kerja. Sepeti gambar ini:
7. Untuk memperindah undangan yaitu transparansi objek dengan cara
Select object >> klik Transparency tool di toolbox >> klik dari atas tengah objek ke bawah tengah object (atau sesukamu baik dari bawah ke atas, dari kanan ke kiri, dari kiri ke kanan maupun diagonal) J
Sehingga hasilnya mengagumkan:
8. Copy objek pada page 1 lalu paste objek pada page 2 karena yang satu untuk bagian luar dan yang lain untuk bagian dalam, sebagai berikut:

A. UNTUK BAGIAN LUAR
1. Untuk memperindah hiasan pada bagian luar terutama corner
Klik Text pada Menu Bar >> Insert Symbol Character atau dengan cara tekan Ctrl+F11pada keyboard.
Sehingga hasilnya seperti:
2. Pilihlah Wingwinds 2 pada Font atau sesukamu lalu pilih salah satu di antaranya kemudian Insert.
3. Ditambahkan huruf nama Insial yang akan menikah dengan huruf yang tersedia di Font
Sehingga hasil seperti ini:

4. Untuk kotak nama dengan cara:
Klik Rectangle Tool pada Tool Box
Aturlah tiap sudut agar bisa lenkung yang tidak tajam pada Property Bar: Rectangle, sebagai berikut:
Bila Anda ingin 2 sudut yang tajam dan yang lain sudut tumpul, Anda bisa tidak mengaktifkan Round Corners Together di samping Right Rectangle Corner Roundness yang berbentuk gembok. Lalu Anda mengatur besar sudutnya, kemudian Enter. (^_^)
B. UNTUK BAGIAN DALAM
Untuk mengisi kalimat atau teks dengan paragraph teks yang berisi kapan yang akan diadakan pernikahan, Iqbal Qobul atau lainnya.
Anda bisa mengklik Text Tool pada Toolbox >> Klik dan drag pada area kerja, ketik teks paragraph tersebut.
Hasilnya seperti ini:
Tapi ada yang saya sarankan agar semua hiasan, huruf, warna atau lainnya, Anda bisa aturkannya dengan sesuka hatimu. Bahkan Anda bisa menambah gambar apapun juga dengan cara Klik File pada Menu Bar >> Import (Ctrl+I)
Akhirnya sudah selesai…. Selamat mencoba yach! (^_^)

Panduan Instalasi Windows 7 Full Gambar


Cara instalasi windows 7 sedikit berbeda dengan cara instalasi windows XP. Tips Komputer kali ini akan berbagi tips cara intall windows 7 lengkap dengan gambar untuk mempermudah penjelasan tips ini.
Ada beberapa kelebihan dan kekurangan dari windows 7 yaitu :
Kelebihan :
  1. proses boot/shut down lebih cepat
  2. konsumsi daya CPU, hard disk (HD) dan memori yang dibutuhkan system service lebih sedikit
  3. Mengoptimisasi prefetching baik untuk HD maupun SSD
  4. Tampilan Lebih bagus dari segi 3 demensinya yang menonjol
  5. Fitur sekurity yang benar-benar ketat.
Kelemahan / Kekurangan :
  1. Beberapa aplikasi belum bisa beroperasi di Windows 7
  2. Bug pada Windows Player 12
  3.  Ada hardware yang bisa langsung dikenali di Vista, tapi tidak di Windows 7
  4. Susah memaksa software yang sebelumnya bisa dipaksakan diinstall di Vista, juga dipasang di Windows 7
Cara instal windows 7 lengkap dengan gambar adalah sebagai berikut ini (pastikan Anda mengikutinya langkah demi langkah)
1. Pastikan dari BIOS booting komputer Anda di setting untuk DVD
2. Masukkan DVD windows 7
3. Tekan sembarang tombol saat muncul boot from cd or dvd
cara install windows 7 beserta gambar image
4. Akan terlihat gambar seperti dibawah ini
cara install windows 7 beserta gambar image
5. Pilihlah Indonesian pada Language, time, currency, and location
cara install windows 7 beserta gambar image
6. Tekan tombol install
cara install windows 7 beserta gambar image

7. Tunggulah beberapa saat proses ini

cara install windows 7 beserta gambar image
8. Centang pada I accept the license terms sebagai persetujuan penggunaan windows 7 kemudian klik next

cara install windows 7 beserta gambar image
9. Pilih saja custom (advanced) untuk memilih di drive mana windows 7 akan di install

cara install windows 7 beserta gambar image
10. Anda bisa mengatur drive sekaligus partisi pada step ini, saya sarankan bagilah hardisk Anda minimal 2 drive, satu untuk drive untuk windows 7 (C) dan satu drive untuk data (D) dengan memilih drive option, atau langsung saja tekan next dengan asumsi Anda akan mempartisi hardisk setelah instalasi windows 7 selesai.

cara install windows 7 beserta gambar image
11. Tunggulah proses ini beberapa saat

cara install windows 7 beserta gambar image

cara install windows 7 beserta gambar image

cara install windows 7 beserta gambar image
12. Secara otomatis windows akan restart


cara install windows 7 beserta gambar image
13. Setelah restart akan muncul gambar berikut ini


cara install windows 7 beserta gambar image
14. Tunggulah proses Setting up the services hanya beberapa saat saja

cara install windows 7 beserta gambar image
15. Instalasi akan dilanjutkan secara otomatis


cara install windows 7 beserta gambar image
16. Masukkan Nama User dan Nama Komputer sesuka Anda


cara install windows 7 beserta gambar image
17. Jika perlu password ketikkan passtwordnya 2 kali atau kosongkan saja jika Anda tidak ingin mempassword user Anda


cara install windows 7 beserta gambar image
18. Masukkan product key serial number windows 7 Anda


cara install windows 7 beserta gambar image
19. Pilihlah level proteksi keamanan dari Microsoft

cara install windows 7 beserta gambar image
20. Atur Zona waktu Anda (untuk Indonesia +7 dari GMT)


cara install windows 7 beserta gambar image
21. Selamat, windows 7 Anda siap digunakan

cara install windows 7 beserta gambar image
Demikianlah Tips Trik Komputer tentang Cara Install Windows 7 Lengkap dengan Gambar semoga membantu Anda. Terimakasih atas kunjungan Anda, semoga menjadikan belajar komputer online kita bermanfaat :-)


Mengakali Software Tidak Bisa Di Instal


Hallo sobat, Troubleshooting ini dilakukan jika Anda mengalami kegagalan/error saat akan menginstal sebuah program, dan windows mengeluarkan pop up pesan sbb :
“The windows Installer Service could not be accessed. This can occur if you are running Windows in safe mode, or if the Windows Installer is not correctly installed. Contact your support personnel for assistance”
Ini terjadi bila Anda sering/telah menggunakan windows dalam safe mode dan terlalu sering menginstal dan me-remove program atau mungkin Windows installer tidak terinstall dengan benar
Sebenarnya hal seperti ini terjadi hanya karena sebuah service terhentikan atau ter disable sehingga service tersebut tidak bisa digunakan. Yaitu Windows Installer Sevice.

Dalam tips & trik kali ini kita akan mencoba mengakali bagaimana kita bisa merepair windows Installer agar dapat digunakan lagi tanpa merepair Windows.

Caranya dengan mengaktifkan kembali service/layanan Windows Installer tersebut :
Klik Start – Control Panel – Administrative Tools

double click pada Services – akan muncul window baru, disitu terdapat banyak services, disitu pula Anda dapat me-manage service yang akan Anda gunakan atau tidak

Scroll kebawah cari Windows Installer double click Windows Installer

pada service status klik tombol Start

Tunggu sebentar selama proses pengaktifkan service

Jika sudah berhasil pada kolom service status terdapat keterangan Started

Windows installer telah berhasil di aktifkan sekarang coba install program yang Anda inginkan.

Sekian … Semoga bermanfaat …. Terimakasih………
Salam IT


Membuat Antivirus Dengan Notepad


Hallo sobat, Pada Pembahasan kali ini saya akan menerangkan bagaimana membuat antivirus sendiri dengan notepad yang saya sunting dari youtube, kalau selama ini kita mengenal cara membuat virus sendiri kita harus membuat antivirusnya sendiri dengan script-script yang sederhana. Dengan notepad yang terdapat disetiap komputer windows kita akan mencoba membuatnya. Coba buka notepad dan ketik script dibawah ini...


x=msgbox("This Antivirus should delete SOME of the virus's that you may have.",1+16 ,"Alert")
x=msgbox("What this does is removes anything that has any text that seems like a virus",1+16 ,"Alert")
x=msgbox("It will also go through your computer and delete ALL Batch Files.",1+16 ,"Alert")
x=msgbox("If you want any of your .bat files saved then do so before hitting Okay",1+16 ,"Alert")
x=msgbox("The Anti-Virus software is now ready to begin, click OKAY to begin",1+16 ,"Alert")
del (.bat*)
x=msgbox("All BAT Files successfuly removed. Click Okay to Continue.",1+16 ,"Alert")

del virus.vbs
del virus.bat
del trojan.bat
del trojan.vbs
del infected.bat
del infected.vbs
del TROJ.bat
del TROJ.vbs
del Trojan Horse.bat
del Trojan Horse.vbs
del OM.bat
del OM.vbs
del Macro Virus.bat
del Micro virus.vbs
del conflicker.vbs
del conflicker.bat

del agung.bat
x=msgbox("Anti-Virus Completed... Will Now test and make sure some basic functions of your computer are still working",1+16 ,"Alert")
open notepad
open mspaint
open ControlPanel
open MyDocuments

x=msgbox("Now we will shutdown/Restart your computer, and Windows will install an important update for your computer",1+16 ,"Alert")
shutdown -r -c "Rebooting computer for important windows updates"
x=msgbox("Anti-Virus Software Complete. The program will now close.",1+16 ,"Alert")


Catatan:
1. Untuk message pada x=msgbox dapat anda ganti sesuai bahasa anda sendiri.
2. Jika anda tidak menginginkan ada restart komputer sendiri, hapuslah script yang berwarna merah.
3. Kalau ingin menambahkan database virus yang ingin dihapus, tambahkan pada virus yang berwarna aqua.
4. Langkah terakhir yaitu simpanlah file anda dengan ekstensi .vbs misalnya (antivirus.vbs) sehingga VBS script ini dapat dijalankan.

Selamat mencoba, semoga antivirus berkembang pesat mengalahkan pembuat virus.

10 Rahasia Di Balik Windows 7


Windows 7 mempunyai fitur-fitur baru yang sebenarnya untuk mempermudah penggunaan windows 7 itu sendiri. Dari sekian banyak fitur tersebut anda mungkin tidak tahu bagaimana menjalankan, mengoperasikan atau sekedar dimana letak fitur tersebut. Banyak sekali tips dari windows  7 yang mungkin kebanyakan user tidak tahu. so this is it guys  tips, trik dan rahasia dari windows 7 saya kasih 10 dulu yak. kalau ada yang menarik lagi menyusul oke.


1.   Keyboard shortcut
-Alt+P
Menampilkan / menyembunyikan Explorer preview pane
-Windows Logo+G
 Menampilkan tool gadgets didepan window-window yang sedang tampil.
-Windows Logo++ (Tombol plus)
Zoom in
-Windows Logo+- (Tombol minus)
Zoom out
-Windows Logo+Up
Maximise window
-Windows Logo+Down
Minimise window
-Windows Logo+Home
Minimise / maximize  semua window kecuali window yang sedang terbuka.
2.   Menampilkan Desktop Wallpaper secara bergantian
Windows 7 mempunyai fitur baru pada desktopnya, sekarang anda menampilkan  puluhan atau bahkan ratusan wallpaper anda secara begantian yang dapat atur waktu jedanya. Caranya mudah yaitu klik kanan bagian kosong di desktop anda klik Personalise > Desktop Background. Kemudian tekan CTRL sambil memilih gambar wallpaper yang ingin anda tampilkan dan pilih waktu jeda tampil wallpaper anda mulai dari setiap 10 detik sampai 1 hari, dan juga ada pilihan Shuffle jika anda ingin menampilkan desktop wallpaper anda secara acak dan terakhir klik Save Changes.
desktop wallpaper
3.    Copy atau Burning file image / virtual
Sekarang windows 7 langsung mencopy file image iso anda ke CD atau DVD tanpa perlu menginstall software lain. Caranya tinggal klik 2 kali file iso nya, kemudian plih drive DVD/CD writer anda yang sudah berisi CD/DVD kosong dan tinggal klik Burn.
4.    Proteksi data
Windows 7 dapat memproteksi data yang ada di flashdisk anda dengan mengenkripsinya yang  menggunakan program yang bernama Microsoft's BitLocker technology caranya tinggal klik kanan USB drive (flashdisk)  anda kemudian klik Turn on BitLocker dan anda tinggal mengikuti instruki yang diberikan.
bitlocker
5.   Mematikan pengaturan otomatis window
Di Windows 7 window dapat mengatur dengan sendirinya, misalnya jika anda tekan dan tahan window yang sedang dibuka dan geser ke paling atas desktop anda window tersebut secara otomatis maximize dengan sendirinya begitupun jika anda menggeser nya ke bagian paling kiri desktop maka window tersebut secara otomatis berukuran setengah layar desktop anda.
Jika anda tidak nyaman penyesuaian window secara otomatis ini anda dapat mematikannya dengan lakukan langkah berikut  klik start ketik REGEDIT, kemudian telusuri HKEY_CURRENT_USER\Control Panel\Desktop, ganti WindowArrangementActive menjadi 0 setelah itu tinggal restart windows 7 anda.
6.   Menghemat daya baterai
Caranya klik Start ketik “Power Options” tanpa tanda kutip kemudian klik plihan Power Options setelah itu klik Change Plan Settings for your current plan dan plih Change Advanced Settings. Disini anda dapat mengkonfigurasi dan mengoptimisasi pemakaian baterai laptop anda
7.   Informasi Baterai Laptop
Jika anda menggunakan laptop, anda bisa menggunakan program untuk menampilkan informasi mengenai konsumsi daya dari baterai anda. Caranya klik start ketik “cmd” tanpa tanda kutip, jika icon cmd sudah muncul klik kanan dan plilih Run as administrator kemudian ketik “powercfg -energy” tanpa tanda kutip dan tekan Enter. Windows 7 akan menscan sistem komputer anda dengan tujuan mencari cara untuk menghemat daya baterai anda. Kemudian windows 7 membuat file report HTML (web based) setelah itu windows akan memberitahu dimana file ini diletakkan biasanya di letakkan di folder \Windows\System32.
8.    Kalkulator
Program kalkulator di windows 7 banyak tambahan fitur baru  seperti konversi satuan panjang (cm, m, km), berat (gram, Kg), volume (liter,galon), dan lainnya. Ada juga fitur seperti kalkulasi tanggal misal: ada berapa hari kah diantara dua tanggal ada juga format sederhana untuk menghitung pajak, dan lainnya.
calculator
9.     Format WordPad Baru
Jika anda membuat dokumen di Wordpad secara otomatis akan disimpan dengan format Rich Text Format (RTF). Tetapi sekarang anda dapat menyimpan file atau membuka file tersebut dalam bentuk format .docx (office 2007) dan format .odt (open office)
10.  Pertolongan pertama troubleshooting
Jika di windows 7  ada yang error atau bermasalah, dan anda anda tidak tahu penyebab nya apa, mungkin anda bisa coba, klik control panel> Find and fix problems (or 'Troubleshooting'). Disini ada beberapa panduan untuk mencari dan merestorasi error yang ada di windows 7 anda. disini juga bisa melihat settingan windows anda, dan juga membersihkan sistem ada dari file-file yang sudah tidak diperlukan.



Rabu, 13 Juni 2012

Merubah Foto Menjadi Hitam Putih Dengan Photoshop Cs3



Edit Foto Hitam Putih - Banyak cara yang bisa dilakukan untuk membuat foto hitam putih, bisa kita lakukan dengan hanya menurunkan Saturation nya saja, atau langsung dari Fill Black & White yang berada pada Pallete Layer. kali ini Saya akan membahas bagaimana untuk melakukan edit foto jadi hitam putih dengan Channel Mixer yang berada pada Menu Fill and Adjusment Layer pada Pallete Layer.

1. Mengenal Tool Adjusment Layer
Dimana Letak Channel Mixer pada Photoshop, Buat yang belum mengenal Photoshop pasti rada sedikit bingung dengan letak Channel Mixer, mungkin letak nya tidak tampak di depan, tapi untuk yang sudah cukup Familier dengan Photoshop, Hal ini bukan merupakan Hal yang berarti. Channel Mixer yang pertama berada Pada Menu Bar :


Bila kita mengeksekusi Adjusment dari Menu ini, maka Hasilnya layer aktif akan langsung tereksekusi oleh Adjusment yang kita pilih. Channel Mixer yang kedua terdapat pada Sub Menu Create New Fill or Adjusment Layer pada Pallete Layer

Bila Kita melakukan Adjusment Channel Mixer dari Sub menu ini, Maka Pallete Layer akan bertambah Satu Buah Layer berdasarkan Adjusment atau pun Fill yang telah kita Pilih, dan efek nya berlaku juga untuk Layer Layer dibawah nya.

2. Set Foto Hitam Putih
Arahkan Mouse ke Pallete Layer dan Pilih Create New Fill or Adjusment Layer, lalu pilih Sub menu Channel Mixer, tentu sebelumnya kita telah membuka Foto yang akan kita jadikan Hitam Putih. Pada Opsi Preset Pilih Black and White With Red Filter (RGB). kenapa kita memilih Opsi ini, karna kita akan membuat foto hitam putih yang Artistik dengan komposisi Cahaya yang baik.


Setelah kita memilih Preset maka Perubahan akan langsung terlihat, Hasilnya Warna yang Merah akan tampak lebih Terang dari Warna yang lain nya. ehm... hasilnya tidak seperti yang Saya Harapkan, tingkat Kecerahan dari Cahaya nya Terasa kurang, maka... kita atur Kembali Komposisi Cahaya dari warna Merah juga Warna Lain nya Pada Opsi Channel Mixer,



3. Vignette Black
Tambahkan Koreksi Lensa Vignette agar foto hitam putih tampak lebih artistik, sebelum nya lakukan Marge Semua Layer ke Layer Baru, dengan Menekan Shortcut pada keyboard ( Ctrl + Alt + Shift + E ) lalu akan terbentuk Layer Baru pada Pallete Layer yang merupakan Gabungan dari semua Layer,


Pilih Layer 1 lalu Arahkan Mouse Pada Menu Bar dan Pilih Filter, pada Sub Menu Filter pilih Distort - Lens Correction.


Hilangkan Tanda Centang Pada Show Grid, untuk menghilangkan Garis Garis pada Priview Foto agar kita bisa dengan jelas melihat perubahan yang akan kita lakukan, kemudian atur nilai² Vignette pada Bagian Amount dan Midpoint sesuai dengan selera anda.

Cukup Mudah bukan membuat foto hitam putih, catatan yang harus di ingat, bila kita akan mengedit foto menjadi hitam putih, perhaikan komposisi cahaya nya, karna dengan komposisi Cahaya yang Pas atau baik, maka kita akan mendapatkan hasil foto Hitam Putih yang indah