Cara membuat kabel cross dan kabel straike

26 05 2008 Cara membuat kabel strike:
1. Kupas kabel
2. Ada 8 warna di dalam kabel yaitu:
a. Putih orange
b. Orange
c. Putih hijau
d. Biru
e. Putih biru
f. Hijau
g. Putih coklat
h. Coklat
3. Susunlah seperti warna di atas lalu masukan RJ45
4. Lalu setelah dimasukan ke dalam RJ45 lalu Jepit dengan tang Krimping
5. Setelah selesai kabel di masukan ke dalam RJ45.
6. Masukan kabel yang tadi di susun ke dalam switch.
7. Lalu kabel yang di atas didikuti untuk kabel yang di belakangnya.
Cara membuat kabel Cross:
1 kupas kabel
2 susnlah warna di bawah ini
ada 8 warna
a. putih hijau
b. hijau
c. putih orange
d. biru
e. putih biru
f. orange
g. putih coklat
h. coklat
3. Susunlah seperti warna di atas lalu masukan RJ45
4. Lalu setelah dimasukan ke dalam RJ45 lalu Jepit dengan tang Krimping
5. Setelah selesai kabel di masukan ke dalam RJ45.
6. Masukan kabel yang tadi di susun ke dalam switch.
7. cek kabel yang tadi di buat apakah kabel itu tdk unplugge maka kabel yang kamu buat tadi berhasil
8. Lalu ikuti kabel starike yang di ata

Cara Setting Awal Wireless Access Point WAP54G

Posted on 8 January 2007 by admin

Sabtu siang kemarin aq keliling di Mall Ambasador buat nyari akses poin Linksys WAP54G. Ternyata dari beberapa toko yang sempat kita datangi, kayaknya stok akses poin ini habis. Salah satu toko (B&C) menyarankan untuk kembali lagi hari Senin. Berdasarkan survey di toko-toko di sana range harga WAP54G ini sekitar 575ribu rupiah.
Perburuan akses poin ini akhirnya kita putuskan untuk kita lanjutkan ke Mangga Dua. Keluar dari Ambasador jam 4 kurang dikit, selanjutnya kita menuju halte busway Karet. Empat puluh lima menit kemudian kita udah nyape di M2M (Mall Mangga Dua). Pertama kita coba untuk survey di beberapa toko komputer di Dusit Mangga Dua. Dari dua toko yang kita survey kita dapat harga 520ribuan. So berhubung hari dah semakin gelap, akhirnya kita ambil di toko terakhir dengan harga tadi (520rb). Selain akses poin si friend juga ngambil USB wirelles client merk DLink.

Senin pagi setelah nyampe di kantor. Langsung aq coba oprek itu akses poin. Setelah memasukkan CD bawaan akses poin, dan beberapa klik pada menu wizardnya ternyata hasilnya wizard tidak menemukan akses poin yang udah aku pasang. Padahal kabel UTP dan adaptornya udah dicolokin, lampu led juga udah nyala. Test koneksi pake laptop juga cukup bagus sinyalnya, cuman kita ga bisa menemukan alamat IP dari akses poin ini. Akhirnya kita tanyalah pada paman Google .:D paman Google menyarankan beberapa langkah yang di manualnya sepertinya ga ada. Ya udah akhirnya kita coba deh saran paman Google.
Habis upacara di kantor pagi itu (maklum lagi ulang tahun kantornya, jadi sebagai karyawan yang baik harus ikut upacara ) dimulailah acara mengoprek Linksys WAP54G biar bisa di setting.
Berikut langkah-langkahnya :
1. Reset Akses Poin(AP). Reset dulu itu APnya dengan memencet tombol reset di bagian belakang akses poin selama 10 detik pake paper clip, biar kita yakin settingannya kembali ke default.
2. Kasih IP statis pada Laptop/Notebook/PC. Laptop/Notebook/PC kita kasih ip statis dengan alamat 192.168.1.* (bintang bisa diisi apa aja asal bukan 245 dan di bawah 255).
3. Sambungkan Laptop dengan AP pake kabel UTPKalau sudah sambungkan kabel UTP dari Laptop/PC ini ke akses poin secara langsung.
4. Cek koneksi ke AP. Cek kualitas koneksi ke AP dengan menggunakan perintah Ping ke alamat 192.168.1.245, kalau ada reply lanjutkan langkah berikutnya.
5. Buka web administrator AP. Buka browser trus ketikkan alamat diatas (192.168.1.245) di address bar. Kalau keluar kotak dialog user password isikan “admin” (ini adalah default password AP) pada kotak password, sedangkan username biarkan kosong. Klik OK dan anda akan menemukan halaman setting berbasis web dari akses poin ini.
Jika anda berencana menghubungkan akses poin ini di jaringan anda yang mempunyai segmen yang berbeda (misalnya selain 192.168.1.*) ubah IP statisnya ke segmen yang sesuai, atau bisa juga pilih DHCP kalau anda tidak ingin memberikan IP Statis. Cuman yang terakhir mungkin anda akan kesulitan untuk menemukan IP akses poin ini nantinya.
Pada web based control panel dari akses poin ini anda bisa mengatur berbagai settingan yang disediakan oleh WAP54G, misalnya Mode, authentikasinya maupun mengganti password default.
Setalah selesai menentukan IP dari WAP54G ini cabut kabel UTP dari Laptop/PC, trus sambungan ke jaringan anda.
Seharusnya anda sudah bisa untuk mengakses web-based control panel akses poin ini dari jaringan anda.

Data Matakuliah
 

Private Sub Command1_Click()

mata

rsmatakuliah.Recordset.MoveFirst

End Sub

Private Sub mata()

Text1 = rsmatakuliah.Recordset.Fields(0)

Text2 = rsmatakuliah.Recordset.Fields(1)

Combo1 = rsmatakuliah.Recordset.Fields(2)

End Sub

Private Sub Command2_Click()

mata

rsmatakuliah.Recordset.MovePrevious

If rsmatakuliah.Recordset.BOF Then

    MsgBox "Ini data Pertama"

    rsmatakuliah.Recordset.MoveFirst

End If

mata

End Sub

Private Sub Command3_Click()

rsmatakuliah.Recordset.MoveNext

If rsmatakuliah.Recordset.EOF Then

    MsgBox "ini data terakhir"

    rsmatakuliah.Recordset.MoveLast

End If

mata

End Sub

Private Sub Command4_Click()

rsmatakuliah.Recordset.MoveLast

mata

End Sub

Private Sub Command5_Click()

rsmatakuliah.Refresh

End Sub

Private Sub Form_Load()

rsmatakuliah.Refresh

mata

End Sub

 

Form Pencarian Matakuliah

 

Private Sub Command1_Click()

On Error Resume Next

rsmatakuliah.CommandType = adCmdText

rsmatakuliah.RecordSource = Text1

rsmatakuliah.Refresh

Text2 = rsmatakuliah.Recordset.RecordCount

End Sub

Form Login

 

private Sub Command1_Click()

If Text1 = "" Then

MsgBox ("Username Tidak Boleh Kosong")

Text1.SetFocus

Exit Sub

End If

If Text2 = "" Then

MsgBox ("Username Tidak Boleh Kosong")

Text2.SetFocus

Exit Sub

End If

rslogin.CommandType = adCmdText

rslogin.RecordSource = "select * from bagian where username='" &Text1& "' and password="'& text2 &""'

End Sub

Form Simpan mahasiswa

 

Private Sub Cmdbaru_Click()

bersih

Text1 = Clear

Text1.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

bersih

tampildata

Cmdhapus.Enabled = False

Cmdedit.Enabled = False

Cmdsimpan.Enabled = False

End Sub

Private Sub Cmdedit_Click()

rsmahasiswa.Recordset.Fields(1) = Text2

rsmahasiswa.Recordset.Fields(2) = Text3

rsmahasiswa.Recordset.Fields(3) = Text4

rsmahasiswa.Recordset.Fields(4) = DTPicker1.Value

rsmahasiswa.Recordset.Fields(5) = Text6

rsmahasiswa.Recordset.Fields(6) = Text7

rsmahasiswa.Recordset.Fields(7) = Text8

rsmahasiswa.Recordset.Fields(8) = Text9

rsmahasiswa.Recordset.Update

MsgBox ("Data Telah di edit")

rsmahasiswa.Refresh

tampildata

End Sub

Private Sub Cmdhapus_Click()

A = MsgBox("Yakin Akan Dihapus", vbYesNo, "")

If A = vbYes Then

    rsmahasiswa.Recordset.Delete

    rsmahasiswa.Refresh

Else

    Cancel = True

End If

    Text1 = Clear

    Text1.SetFocus

    Cmdhapus.Enabled = False

    Cmdedit.Enabled = False

    Cmdsimpan.Enabled = False

    bersih

    tampildata

End Sub

Private Sub Cmdsimpan_Click()

If Text1 = "" Then

    MsgBox ("NIS Harap Diisi")

    Exit Sub

End If

If Text2 = "" Then

    MsgBox ("Nama Harap Diisi")

    Exit Sub

End If

rsmahasiswa.Recordset.AddNew

rsmahasiswa.Recordset.Fields(0) = Text1

rsmahasiswa.Recordset.Fields(1) = Text2

rsmahasiswa.Recordset.Fields(2) = Text3

rsmahasiswa.Recordset.Fields(3) = Text4

rsmahasiswa.Recordset.Fields(4) = DTPicker1.Value

rsmahasiswa.Recordset.Fields(6) = Text7

rsmahasiswa.Recordset.Fields(7) = Text8

rsmahasiswa.Recordset.Fields(8) = Text9

rsmahasiswa.Recordset.Update

MsgBox ("Data Telah Tersimpan")

rsmahasiswa.Refresh

tampildata

End Sub

Private Sub Form_Load()

Text1 = Clear

Cmdsimpan.Enabled = False

Cmdedit.Enabled = False

Cmdhapus.Enabled = False

bersih

rsmahasiswa.Refresh

Text1.MaxLength = 7

Text6.MaxLength = 2

Text9.MaxLength = 3

End Sub

Private Sub bersih()

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Text9 = Clear

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len(Text1)

If panjang < 7 Then

    Exit Sub

End If

rsmahasiswa.CommandType = adCmdText

rsmahasiswa.RecordSource = "select * from mahasiswa Where NIS = '" & Text1 & "'"

rsmahasiswa.Refresh

If Not rsmahasiswa.Recordset.EOF Then

    MsgBox ("Nis sudah ada")

Text2 = rsmahasiswa.Recordset.Fields(1)

Text3 = rsmahasiswa.Recordset.Fields(2)

Text4 = rsmahasiswa.Recordset.Fields(3)

DTPicker1.Value = rsmahasiswa.Recordset.Fields(4)

Text6 = rsmahasiswa.Recordset.Fields(5)

Text7 = rsmahasiswa.Recordset.Fields(6)

Text8 = rsmahasiswa.Recordset.Fields(7)

Text9 = rsmahasiswa.Recordset.Fields(8)

Cmdsimpan.Enabled = False

Cmdhapus.Enabled = True

Cmdedit.Enabled = True

Else

bersih

Text2.SetFocus

Cmdsimpan.Enabled = True

Cmdhapus.Enabled = False

Cmdedit.Enabled = False

End If

End Sub

Private Sub tampildata()

rsmahasiswa.CommandType = adCmdText

rsmahasiswa.RecordSource = "select * from mahasiswa"

rsmahasiswa.Refresh

DataGrid1.Refresh

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text6.SetFocus

End If

End Sub

 

Form  simpan Mata Kuliah

 

Private Sub Cmdbaru_Click()

matakuliah

End Sub

Private Sub Cmdbatal_Click()

matakuliah

End Sub

Private Sub matakuliah()

Text1 = Clear

Text2 = Clear

End Sub

Private Sub Cmdhapus_Click()

matakuliah

rsmatakuliah.Recordset.Delete

End Sub

Private Sub Cmdsimpan_Click()

If Text1 = "" Then

    MsgBox ("ID Harap Diisi")

    Exit Sub

End If

If Text2 = "" Then

    MsgBox ("Mata kuliah Harap Diisi")

    Exit Sub

End If

rsmatakuliah.Recordset.AddNew

rsmatakuliah.Recordset.Fields(0) = Text1

rsmatakuliah.Recordset.Fields(1) = Text2

rsmatakuliah.Recordset.Fields(2) = Combo1

rsmatakuliah.Recordset.Update

MsgBox ("Data Telah Tersimpan")

rsmatakuliah.Refresh

End Sub

Private Sub Form_Load()

Text1.MaxLength = 7

End Sub

 

Form simpan Dosen

 

Private Sub Cmdbaru_Click()

bersih

Text1 = Clear

Text1.SetFocus

End Sub

Private Sub Cmdbatal_Click()

bersih

tampildata

Cmdhapus.Enabled = False

Cmdedit.Enabled = False

Cmdsimpan.Enabled = False

End Sub

Private Sub Cmdedit_Click()

rsdosen.Recordset.Fields(1) = Text2

rsdosen.Recordset.Fields(2) = Text3

rsdosen.Recordset.Fields(3) = Text4

rsdosen.Recordset.Fields(4) = DTPicker1.Value

rsdosen.Recordset.Fields(5) = Text6

rsdosen.Recordset.Fields(6) = Text7

rsdosen.Recordset.Fields(7) = Text8

rsdosen.Recordset.Fields(8) = Text9

rsdosen.Recordset.Update

MsgBox ("Data Telah di edit")

rsdosen.Refresh

tampildata

End Sub

Private Sub Cmdhapus_Click()

B = MsgBox("Yakin Akan Dihapus", vbYesNo, "")

If B = vbYes Then

    rsdosen.Recordset.Delete

    rsdosen.Refresh

Else

    Cancel = True

End If

    Text1 = Clear

    Text1.SetFocus

    Cmdhapus.Enabled = False

    Cmdedit.Enabled = False

    Cmdsimpan.Enabled = False

    bersih

    tampildata

End Sub

Private Sub Cmdsimpan_Click()

If Text1 = "" Then

    MsgBox ("NID Harap Diisi")

    Exit Sub

End If

If Text2 = "" Then

    MsgBox ("Nama Harap Diisi")

    Exit Sub

End If

rsdosen.Recordset.AddNew

rsdosen.Recordset.Fields(1) = Text2

rsdosen.Recordset.Fields(2) = Text3

rsdosen.Recordset.Fields(3) = Text4

rsdosen.Recordset.Fields(4) = DTPicker1.Value

rsdosen.Recordset.Fields(5) = Text6

rsdosen.Recordset.Fields(6) = Text7

rsdosen.Recordset.Fields(7) = Text8

rsdosen.Recordset.Fields(8) = Text9

rsdosen.Recordset.Update

MsgBox ("Data Telah Tersimpan")

rsdosen.Refresh

End Sub

Private Sub tampildata()

rsdosen.CommandType = adCmdText

rsdosen.RecordSource = "select * from dosen"

rsdosen.Refresh

DataGrid1.Refresh

End Sub

Private Sub Form_Load()

Text1 = Clear

Cmdsimpan.Enabled = False

Cmdedit.Enabled = False

Cmdhapus.Enabled = False

bersih

rsdosen.Refresh

Text1.MaxLength = 6

Text6.MaxLength = 2

Text9.MaxLength = 3

End Sub

Private Sub bersih()

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Text9 = Clear

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len(Text1)

If panjang < 7 Then

    Exit Sub

End If

rsdosen.CommandType = adCmdText

rsdosen.RecordSource = "select * from dosen where NID= '" & Text1 & "'"

rsdosen.Refresh

If Not rsdosen.Recordset.EOF Then

    MsgBox ("NID sudah ada")

Text2 = rsdosen.Recordset.Fields(1)

Text3 = rsdosen.Recordset.Fields(2)

Text4 = rsdosen.Recordset.Fields(3)

DTPicker1.Value = rsdosen.Recordset.Fields(4)

Text6 = rsdosen.Recordset.Fields(5)

Text7 = rsdosen.Recordset.Fields(6)

Text8 = rsdosen.Recordset.Fields(7)

Text9 = rsdosen.Recordset.Fields(8)

Cmdsimpan.Enabled = False

Cmdhapus.Enabled = True

Cmdedit.Enabled = True

Else

bersih

Text2.SetFocus

Cmdsimpan.Enabled = True

Cmdhapus.Enabled = False

Cmdedit.Enabled = False

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Text4.SetFocus

End If

End Sub

 Form Menu

Private Sub Form_Load()

mdata.Visible = False

mtransaksi.Visible = False

mlaporan.Visible = False

End Sub

Private Sub mdosen_Click()

frmdosen.Show

End Sub

Private Sub mkuliah_Click()

frmmatakuliah.Show

End Sub

Private Sub mlatihan1_Click()

frmlat1.Show

End Sub

Private Sub mlatihan2_Click()

frmlat2.Show

End Sub

Private Sub mlatihan3_Click()

frmlat3.Show

End Sub

Private Sub mlatihan4_Click()

frmlat4.Show

End Sub

Private Sub mlatihan5_Click()

frmlat5.Show

End Sub

Private Sub mlatihan6_Click()

frmlat6.Show

End Sub

Private Sub mlatihan7_Click()

frmlat7.Show

End Sub

Private Sub mlatihan8_Click()

frmmatakuliah.Show

End Sub

Private Sub mlogin_Click()

frmlogin.Show

End Sub

Private Sub mmahasiswa_Click()

frmmahasiswa.Show

End Sub