Koneksi VB dan SQL Server

Public Function Koneksi_SQLServer(namaserver, namadb, userid, userpass) As Boolean
On Error GoTo KoneksiSalah
Dim cn_SQLServer As ADODB.Connection
Set cn_SQLServer = New ADODB.Connection

    Koneksi_SQLServer = False
    cn_SQLServer.Open "Provider=SQLOLEDB.1;" & _
                        "Persist Security Info=False;" & _
                        "User ID=" & userid & ";" & _
                        "Password=" & userpass & ";" & _
                        "Initial Catalog=" & namadb & ";" & _
                        "Data Source=" & namaserver
        
    cn_SQLServer.Close
    Set cn_SQLServer = Nothing
    Koneksi_SQLServer = True
    Exit Function
    
KoneksiSalah:
Select Case Err.Number
    Case -2147467259 ' Server salah
        MsgBox "Nama server atau database tidak ditemukan"
    Case -2147217843 ' User atau password salah
        MsgBox "Username atau password yang anda masukkan salah"
End Select
Koneksi_SQLServer = False

End Function

VB

Operator Bilangan

Operator
Gunanya
... Format
Contoh

^
Pangkat
x ^ y
3 ^ 2 =9

-
Negatif
- y
- 9

*
Perkalian
x * y
3 * 2 = 6

/
Pembagi real
x / y
5 /2 = 2.5

\
Pembagi Integer
x \ y
5 / 2 = 2

mod
Modulo (sisa pembagian)
x mod y
5 mod 2 = 1

+
Tambah
x +y
2 + 4 = 6

-
Kurang
x - y
4 -2 = 2

Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.

Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) 'a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x
Fix(x)
fix(3.2) = 3
fix(-3.2) = -3
mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x
Int(x)
int(5.4) = 5
int(-5.4) =-6
Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x
Rnd(x)
0 <= hasil random <1
nilai x menentukan hasil random
sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x)
menghasilkan :
1 bila x > 0
0 bila x = 0
-1 bilaa x < 0
  Sin(x)
A = SQR(16) 'A=4
A = SQR(-16) 'error
nilai cosinus x dalam radian
Sqr(x) Akar bilangan x
Tan(x) Q = Tan(45*phi/180) 'Q=1
nilai tangent x dalam radian
phi=3.141592653589732

Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.

Fungsi Derifat Sepadan
Secant Sec(X) = 1 / Cox(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sinus Arcsin(X) = Atn(X / Sqr(-X * X +1))
Inverse Cosinus Arcos(X) = Atn( -X / Sqr(-X * X +1)) + 2 * Atn(1)
Inverse Secant Arsec(X) = 2 * Atn(1) - Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cosecant Arccosec(X) = Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cotangen Arccotan(X) = 2 * Atn(1) - Atn(X)
Hyperbolic Sinus HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sinus HArcsin(X) = Log(X + Sqr(X * X + 1)
Inverse Hyperbolic Cosinus HArccos(X) = Log(X + Sqr(X * X - 1)
Inverse Hyperbolic Tangent HArctan(X) = Log(1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X +1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log(Sgn(X) * Sqr(X * X +1) + 1) / X)
Inverse Hyperbolic Cotangent HArcotan(X) = Log((X + 1) / (X - 1)) / 2
Logaritgm ti base N LogN(X) = Log(X) / Log(N)

Fungsi Manipulasi Bilangan
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”
Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB
Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713

REMOTE DATABASE SQL SERVER VIA SUBNETT JARINGAN YANG BERBEDA, MISAL VIA VPN

proses login kl masih satu subnet ip

pada server name diisi:ip-server\namaserver



dan nyambung...

tp kl beda subnet gimana atau kita ngeremot via ip publik.....?misal nya
ip komp DBE:192.168.1.23 ip publik nya: 125.165.23.123
ip publik server sql:203.130.23.45

gimana gan....?
(kok malah nanya..............) sabar gan

maka

pada server name diisi:ip-publik-server\namaserver




ups kok begini ya
muncul lah pesan error 26




unutuk menyelesaikan masalah di atas, cukup kita tambahin port berapa yang di pake si sql server.

jd pada server name di isi:ip-publik\servername,port-yang-dipake
misalnya: 203.130.23.24\server1.1138



maka



hanya in yang dapat saya berikan.....

Membuat Teks Animasi

Tutorial untuk membuat teks animasi menggunakan Visual basic 6.

Pertama-tama silakan buat desain seperti ini:

[vb6] Membuat Teks Animasi

Komponen pada form utama yang dibutuhkan adalah:

Untuk teks 1:

• label1 : isi tulisan
• label3 : menampilkan kecepatan animasi per milisecond
• command1 : tombol untuk mengurangi kecepatan
• command2 : tombol untuk menambah kecepatan
• command3 : tombol start/pause animasi
• command4 : tombol untuk menghentikan dan mereset animasi
• timer1 : pengaturan waktu animasi

Untuk teks 2:

• label2 : isi tulisan
• label4 : menampilkan kecepatan animasi per milisecond
     
• command5 : tombol untuk mengurangi kecepatan
• command6 : tombol untuk menambah kecepatan
• command7 : tombol start/pause animasi
• command8 : tombol untuk menghentikan dan mereset animasi
• timer2 : pengaturan waktu animasi
• check1 : check box untuk pengaturan jumlah karakter yang muncul
• option1 : option button untuk pengaturan margin kiri
• option2 : option button untuk pengaturan margin tengah
• option3 : option button untuk pengaturan margin kanan

Setting komponen diatur melalui koding atau source code, jadi lebih mudah dalam pembelajarannya.

Untuk animasi teks pertama, mirip dengan scroller text (teks yang berjalan memutar), algoritma sederhananya adalah:

Algoritma

teks = "Informatika"
panjang = length(teks)

for i=1 to panjang do
    stringAwal = substring (teks, i+1,panjang-i)
    stringAkhir = substring (teks,1,i)
    output (stringAwal + " " + stringAkhir)
endfor

Sedangkan animasi teks kedua adalah mirip dengan pengetikan tulisan per karakter oleh keyboard.

Algoritma

teks = "Informatika"
 panjang = length(teks)

 for i=1 to panjang do
     stringAwal = substring (teks, i, 1)
     output (stringAwal)
 endfor

Source Code:

Code: vb

Option Explicit
'-------------------------------
' http://if.web.id
' http://forumif.web.id
'-------------------------------
Dim nama As String ' tulisan default pada label1
Dim iTimer1 As Integer ' speed atau interval awal timer1
Dim status1 As Boolean

Dim nama2 As String ' tulisan default pada label2
Dim iTimer2 As Integer ' speed atau interval awal timer2
Dim status2 As Boolean


Private Sub Command1_Click()
    If Timer1.Interval < 2000 Then Timer1.Interval = Timer1.Interval + 100
End Sub

Private Sub Command2_Click()
    If Timer1.Interval > 100 Then Timer1.Interval = Timer1.Interval - 100
End Sub

Private Sub Command3_Click()
    Call Aktifkan(Timer1, Command3, Command1, Command2, Command4)
End Sub

Private Sub Command4_Click()
    Label3.Caption = "Speed: 0 ms."
    Timer1.Interval = iTimer1
    Call Aktifkan(Timer1, Command3, Command1, Command2, Command4, True)
    status1 = False
    Label1.Caption = nama
End Sub

Private Sub Command5_Click()
    If Timer2.Interval < 2000 Then Timer2.Interval = Timer2.Interval + 100
End Sub

Private Sub Command6_Click()
    If Timer2.Interval > 100 Then Timer2.Interval = Timer2.Interval - 100
End Sub

Private Sub Command7_Click()
    Call Aktifkan(Timer2, Command7, Command5, Command6, Command8)
End Sub

Private Sub Command8_Click()
    Label4.Caption = "Speed: 0 ms."
    Timer2.Interval = iTimer2
    Call Aktifkan(Timer2, Command7, Command5, Command6, Command8, True)
    status2 = False
    Label2.Caption = nama2
End Sub

Private Sub Form_Load()
    Form1.Caption = "Animasi Teks - by Galih Hermawan"

' Setting untuk keperluan label1 pada tulisan Galih Hermawan
    nama = "Galih Hermawan"
    iTimer1 = 1000
    
    Label1.Caption = nama
    Label1.FontSize = 36
    Label1.ForeColor = vbBlue
    Label1.Alignment = 2 ' rata tengah (center)
    Label3.Caption = "Speed: " & Timer1.Interval & " ms."
    
    Command1.Caption = "- Perlambat"
    Command1.Enabled = False
    Command2.Caption = "+ Percepat"
    Command2.Enabled = False
    Command3.Caption = "Start"
    Command4.Caption = "Stop && Reset"
    Command4.Enabled = False
    'status1 = False
    Command4.Value = True
    
    ' Setting untuk keperluan label1 pada tulisan Galih Hermawan
    nama2 = "Forum Informatika"
    iTimer2 = 1000
    
    Label2.Caption = nama2
    Label2.FontSize = 32
    Label2.FontName = "Courier"
    Label2.ForeColor = RGB(150, 40, 10)
    Label2.Alignment = 2 ' rata tengah (center)
    Label4.Caption = "Speed: " & Timer2.Interval & " ms."
    
    Command5.Caption = "- Perlambat"
    Command5.Enabled = False
    Command6.Caption = "+ Percepat"
    Command6.Enabled = False
    Command7.Caption = "Start"
    Command8.Caption = "Stop && Reset"
    Command8.Enabled = False
    Timer2.Interval = iTimer2
    Check1.Caption = "Perkarakter"
    Option1.Caption = "Kiri"
    Option1.Value = True
    Option2.Caption = "Tengah"
    Option3.Caption = "Kanan"
End Sub

Private Sub Label1_Click()
    Call Aktifkan(Timer1, Command3, Command1, Command2, Command4)
End Sub

Private Sub Label2_Click()
    Call Aktifkan(Timer2, Command7, Command5, Command6, Command8)
End Sub

Private Sub Option1_Click()
    Label2.Alignment = 0
End Sub

Private Sub Option2_Click()
    Label2.Alignment = 2
End Sub

Private Sub Option3_Click()
    Label2.Alignment = 1
End Sub

Private Sub Timer1_Timer()
    Dim p As Integer, t As String
    Dim sAwal As String, sAkhir As String
    Static i As Integer
    
    t = nama
    p = Len(t)
    
    If status1 = False Then
        i = 0
        status1 = True
    End If
    
    i = i + 1
    sAwal = Mid(t, i + 1, p - i)
    sAkhir = Mid(t, 1, i)
    Label1 = sAwal & " " & sAkhir
    If i = p Then i = 0
    
    Label3.Caption = "Speed: " & Timer1.Interval & " ms."
End Sub

Private Sub Aktifkan(tmr As Timer, cmd As CommandButton, cmdMin As CommandButton, cmdPlus As CommandButton, cmdReset As CommandButton, Optional nyala As Boolean)
    If tmr.Enabled Or nyala Then
        cmd.Caption = "Start"
        cmdMin.Enabled = False
        cmdPlus.Enabled = False
        cmdReset.Enabled = False
        tmr.Enabled = False
    Else
        cmd.Caption = "Pause"
        cmdMin.Enabled = True
        cmdPlus.Enabled = True
        cmdReset.Enabled = True
        tmr.Enabled = True
    End If
End Sub

Private Sub Timer2_Timer()
    Dim p As Integer, t As String
    Dim sAwal As String, sAkhir As String
    Static i As Integer
    
    t = nama2
    p = Len(t)
    
    If status2 = False Then
        i = 0
        status2 = True
    End If
    
    i = i + 1
    
    If Check1.Value = False Then
        sAwal = Mid(t, 1, i) ' & " "
        Label2 = sAwal & " "
        If i = p Then i = 0
    Else
        If Option3.Value = True Then
            sAwal = Mid(t, p + 1 - (i - 1), 1)
            Label2 = sAwal & Space(i)
        ElseIf Option2.Value = True Then
            sAwal = Mid(t, i, 1)
            Label2 = Space(i) & sAwal & Space(i)
        Else
            sAwal = Mid(t, i, 1)
            Label2 = Space(i) & sAwal
        End If
        If i = p Then
            Label2.Caption = nama2
        ElseIf i = p + 1 Then
            i = 0
        End If
    End If
    
    Label4.Caption = "Speed: " & Timer2.Interval & " ms."
End Sub

Contoh tampilan (klik untuk menuju gambar asli)

[vb6] Membuat Teks Animasi

Selamat belajar! 

Attachment terlampir.

Membuat Form Transparan

Sebuah Aplikasi selain dapat bekerja sesuai dengan fungsinya tentunya dituntut suatu keindahan diantaranya tampilan yang transparan.Sebuah form yang transparan dengan opaciti 0 – 100% tidak perlu mengunakan VB Net, dengan VB6 pun sudah bisa dengan bantuan file ActiveX yang sudah saya buat terlebih dahulu, oleh karena itu download dulu file TransX.ocx disini, ukurannya kecil sekali hanya sekitar 24 KB. Setelah file tersebut berhasil di download, copy kan ke c:windowssystem32 kemudian instalkan dengan cara klik Start -> Run pada kotak isian ketiklah regsvr32 “c:windowsSistem32TransX.ocx” kemudian klik OK akan tampil message seperti ini

Klik ok

Cara menggunakan file ActiveX TransX.ocx

Klik kanan toolbox kemudian pilih component

Ceklist TransZ, klik Aply

Tempelkan ActiveX tersebut pada form dengan cara double klik, maka pada from akan ada objek TransX1

Cara mengetes cara kerja ActiveX TransX.ocx, tempelkan objek HScroll,TextBox, dan Image pada form misalnya object tersebut bernama HScroll1. Atur porpertis HScroll1 sebagai berikut

Min = 0
Max = 100
Value = 100

Pada objext text1, atur text= 100

Pada Image tambahkan picture apa saja terserah anda, sehingga tampilan kira-kira seperti ini

Tahap akhir, menuliskan coding

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value
TransX1.Transparan Me.hWnd, HScroll1.Value, True

End Sub

Kita running, dan kita coba opacity nya dengan menggeserkan HScroll, hasilnya seperti gambar berikut

Opacity 100 %

Opacity 80 %

Opacity 60 %

Opacity 50 %

Opacity 30 %

Selamat mencoba !

TransX.ocx

http://rapidshare.com/files/306306629/TransX.ocx

MEMBUAT CONTROL PANEL SENDIRI

BUAT FOLDER

Untuk membuat “Control Panel” sendiri, pertama kita buat sebuah folder. Klik kanan tombol Start dan kemudian pilih Explore. Ketika folder Start Menu tampil, klik ganda folder Programs. Ketika folder Programs tampil, klik menu Organize pada toolbar Windows Explorer dan kemudian pilih New Folder. Selanjutnya, beri nama folder tersebut My Control Panel atau apa pun yang Anda suka.

GANTI ICON FOLDER

Sekarang, klik kanan folder My Control Panel, dan kemudian pilih Properties. Pilih tab Customize, dan kliktombol Change Icon pada panel Folder icons. Ketika kotakdialog Change Icon tampil, pilih icon untuk membedakan foldetersebut dari semua folder lainnya pada menu Start.

SERET FOLDER KE MENU START

Sekarang, seret folder My Control Panel dari folder Pro-grams dan arahkan ke tombol Start. Ketika menu Start terbuka, seret folder My Control Panel dan jatuhkan ke bagian paling atas menu Start. Sampai di sini, Anda bisa memasukkan tools ke “Control Panel”.

MASUKKAN TOOL (1)

Untuk memasukkan tools ke “Control Panel”, buka folder My Control Panel dari menu Start. Selanjutnya, buka Control Panel yang asli dan pilih Classic View. Sekarang, seret dan jatuhkan tools yang paling sering Anda gunakan dari Control Panel yang asli ke folder My Control Panel. Biasanya membuat shortcut dengan cara drag-and-drop sudah mencukupi. Namun seperti yang Anda ketahui, banyak tools yang terdapat di dalam tool lain. Sebagai contoh, untuk ke Display Settings, Anda harus membuka Personalization dulu.

MASUKKAN TOOL (2)

Untungnya beberapa shortcut command line tools lama masih eksis di Windows Vista dan Anda bisa meng-gunakannya. Tools Control Panel Windows Vista bisa ditemukan di folder Windows\System32 (dalam file CPL). Anda bisa menjalankannya dengan menggunakan format perintah: control tool.cpl di mana tool adalah tool Control Panel. Jika tool tersebut mempunyai beberapa tab, Anda bisa membuat shortcut langsung ke tab yang dituju dengan menggunakan format perintah: control tool.cpl,,# di mana # adalah nomor tab yang dituju. Beberapa shortcut command line bisa Anda lihat pada boks.

GANTI NAMA SHORTCUT

Ketika menyeret tools, Windows Vista akan membuat shortcut ke tools tersebut. Windows Vista akan menambahkan “- Shortcut” ke setiap nama tools. Tentu saja, Anda bisa menghapus tambahan tersebut dan mengganti nama sesuai yang diinginkan. Ketika sudah selesai, tutup folder My Control Panel dan Control Panel yang asli. Sekarang ketika Anda ingin menjalankan tools yang sering digunakan, cukup klik tombol Start dan pilih icon My Control Panel.

SHORTCUT COMMAND LINE CONTROL PANEL

Kategori Personalization: tab Display Settings (desk.cpl), Desktop Icon Settings (control desk.cpl,,0), Screen Saver Set-tings (desk.cpl,,1), dan Appearance Settings (desk.cpl,,2).

Ketegori System Properties: tab Computer Name (sysdm. cpl), Hardware (sysdm.cpl,,2), Advanced (sysdm.cpl,,3), System Protection (sysdm.cpl,,4), dan Remote (sysdm.cpl,,5)

Kategori Internet Properties: tab General (inetcpl.cpl), Security (inetcpl.cpl,,1), Privacy (inetcpl.cpl,,2), Content (inetcpl. cpl,,3), Connections (inetcpl.cpl,,4), Programs (inetcpl.cpl,,5), dan Advanced (inetcpl.cpl,,6).

Kategori Mouse Properties: tab Buttons (main.cpl), Pointers (main.cpl,,1), Pointer Options (main.cpl,,2), Wheel (main.cpl,,3), dan Hardware (main.cpl,,4).

Kategori Regional and Language Options: tab Formats (intl.cpl), Location (intl.cpl,,1), Keyboards and Languages (intl. cpl,,2), dan Administrative (intl.cpl,,3).

Kategori Sound: tab Playback (mmsys.cpl), Recording (mmsys.cpl,,1), dan Sounds (mmsys.cpl,,2).

MENGATUR SEKURITI DAN PRIVASI IE 7

BUKA INTERNET OPTIONS

1 IE7 memberikan fleksibilitas dalam berinteraksi dengan halaman web, seperti elemen yang ingin dilihat atau diblokir—cookies, ActiveX, pop-up; apakah Anda ingin diprompt ketika melakukan suatu tindakan atau langsung saja dilakukan secara otomatis; dan add-on mana yang ingin dienable atau disable. Pengaturan sekuriti dan privasi IE7 kita lakukan dari Internet Options. Untuk mengaksesnya, klik tombol Tools di ujung kanan toolbar dan kemudian pilih Internet Options di bagian bawah menu.

SET LEVEL SEKURITI

2 Ketika jendela Internet Options tampil, klik tab Security. Di sini Anda bisa mengeset level sekuriti IE7 ketika browsing Internet. Pilih zona Internet dan kemudian seret slidebar ke level sekuriti yang diinginkan: High, Medium-high, atau Medium. Untuk mengetahui rincian setting untuk setiap opsi, klik tombol Custom level.

ATUR RINCIAN SEKURITI

3 Sekarang Anda bisa mengatur level sekuriti browser dengan meng-enable, disable, atau meminta prompt opsi pada boks Settings, sebagai contoh Anda ingin otomatis mendownload kontrol ActiveX yang belum ditandai atau otomatis men-download file. IE7 akan menyorot opsi yang dianggap tidak aman. Untuk kembali ke setting default level sekuriti yang bersangkutan, klik tombol Reset. Jika tidak, klik OK, dan kemudian klik Yes sebagai konfi rmasi.

SET LEVEL PRIVASI

4 Selanjutnya, klik tab Privacy. Di sini Anda bisa mengubah setting privasi browser. Klik tombol Sites untuk menentukan situs mana yang boleh menyimpan cookies di komputer Anda dan situs mana yang tidak boleh.

PILIH SITUS

5 Supaya situs tidak bisa menyimpan cookies di komputer Anda, masukkan alamat web-nya dan kemudian klik tombol Block. Sama juga, supaya situs bisa menyimpan cookies di komputer Anda, misalnya online banking Anda, ketik alamat web-nya dan kemudian klik Allow. Anda bisa menghapus situs dari daftar dengan memilih situs yang bersangkutan dan kemudian klik Remove. Klik OK.

ATUR COOKIES (1)

6. Anda bisa mengatur privasi terhadap cookies dari web. Klik tombol Advanced dan beri tanda centang ([1]) Override automatic cookie handling. Kemudian pilih apakah Anda ingin Block, Allow, atau Prompt cookies pihak pertama (ditempatkan oleh situs host) dan cookies pihak ketiga (ditempatkan oleh pengiklan). Anda juga bisa memberi tanda centang ([1])Always allow session cookies untuk menyimpan data login situs dan menghapusnya ketika browser ditutup. Klik OK.

ATUR COOKIES (2)

7 Anda bisa lebih jauh mengatur privasi terhadap cookies dengan mengklik tombol Default pada tab Privacy. Di sini Anda bisa menggunakan slider bar untuk mengeset level privasi, mulai dari Block All Cookies (memblokir cookies pihak ketiga dan cookies pihak pertama tertentu) sampai Accept All Cookies.

NYALAKAN POP-UP BLOCKER

8 Setelah mengatur cookies, Anda bisa mulai mengatur pop-up. Beri tanda centang ([1]) Turn on Pop-up Blocker di bagian bawah tab Privacy dan kemudian klik tombol Settings.

ATUR POP-UP BLOCKER

9 Anda bisa memperbolehkan pop-up dari suatu situs dengan memasukkan alamat webnya dan kemudian klik Add atau memblokir pop-up dari suatu situs dengan memilih situs yang bersangkutan dari daftar dan kemudian klik Remove. Anda bisa mengeluarkan suara ketika pop-up diblokir dan mengeset Filter level pop-up, mulai dari Low (memperbolehkan pop-up dari situs yang dipercaya) sampai High (memblokir semua pop-up). Klik Close.

ATUR TAMPILAN POP-UP (1)

10 Sama seperti browsing yang bisa menggunakan tab, Anda bisa menentukan apakah IE membuka pop-up pada tab baru atau jendela baru. Klik tab General pada jendela Internet Options dan kemudian klik tombol Settings di bagian Tabs.

ATUR TAMPILAN POP-UP (2)

11 Pada waktu jendela Tabbed Browsing Settings tampil, di bagian When a pop-up is encountered, pilih apakah pop-up dibuka pada jendela baru, tab baru, atau Internet Explorer yang menentukan. Pada bagian di bawahnya Anda juga bisa mengatur apakah link dari program lain dibuka pada tab baru, jendela baru, atau di dalam tab atau jendela sekarang ini. Klik OK.

ATUR ADD-ON (1)

12 Selanjutnya, Anda bisa mengecek add-on yang terinstalasi pada komputer Anda dan memastikan tidak ada elemen yang mencurigakan atau yang tidak inginkan yang di-enable pada IE7. Klik tab Programs, dan kemudian di bagian bawah jendela Internet Options, klik tombol Manage add-ons.

ATUR ADD-ON (2)

13 Dari menu Show di bagian atas jendela kotak dialog Manage Add-ons, pilih Add-ons that have been used by Internet Explorer. Anda akan melihat daftar add-ons yang terinstalasi pada boks di bawahnya, beserta keterangan publisher add-on yang bersangkutan, status, dan tipe filenya. Jika ada item mencurigakan atau yang tidak diinginkan di-enable, pilih namanya dan kemudian klik opsi Disable yang ada di bagian bawah jendela.

ATUR ACTIVEX

14 Anda bisa mengecek kontrol ActiveX yang terinstalasi dengan cara yang sama. Dari menu Show, pilih Downloaded ActiveX Controls (32-bit). Klik nama kontrol ActiveX yang tidak diinginkan atau yang mungkin berbahaya dan kemudian klik tombol Delete di bagian sudut kanan bawah untuk menghapusnya dari sistem Anda. Klik OK untuk menutup jendela Manage Add-Ons. Anda mungkin harus me-restart komputer supaya perubahan berlaku.

ATUR RSS FEED

15 Terakhir, anda bisa mengatur frekuensi IE7 mengecek RSS feeds untuk update. Klik tab Content dan kemudian klik tombol Settings di bagian Feeds. Beri tanda centang ([1])Automatically check feeds for updates dan kemudian pilih interval waktu dari menu. Anda juga bisa menggunakan opsi Advanced untuk menandai feeds sebagai read, mengaktifkan feed-reading view browser, dan mengeluarkan suara ketika ada feed baru. Klik OK sebagai konfi rmasi dan kemudian klik OK lagi untuk menutup jendela Internet Options.