Tampilkan postingan dengan label Ilmu Komupter. Tampilkan semua postingan
Tampilkan postingan dengan label Ilmu Komupter. Tampilkan semua postingan

12.31.2009

Ekspresi beraturan linux centos

1. / huruf : mencari huruf yang di inginkan pada setiap kata dan baris
2. /[0-9] : mencari angka di setiap baris dan kata
3. /[a-z] : mencari huruf kecil pada setiap kata dan baris
4. /[A-Z] : mencari huruf besar pada setiap kata dan baris
5. / kata : mencari kata yang dinginkan
6. /[Uu]nix : mencari kata yang di inginkan yang diawali huruf besar dan kecil
> : s / kata awal / kata pengganti : mengganti suatu kata ( simpan di depan
kursor kata yang akan diganti)
> : 1,$ s / kata awal / kata pengganti/ g : mengganti semua kata yang kita
inginkan yang ada pada file
> :1, $ s / [a-z] / \ u & / g : mengganti semua huruf kucil menjadi huruf
besar
> :1, $ s / [A-Z] / \ l z /g : mengganti smua huruf besar menjadi huruf kecil
> :1, $ s / [0-9] // g : menghapus seluruh numeric
> :1, $ s / ^ / >>/ g : menyisipkan tanda >> pada setiap awal baris
> :1, $ s / $ / >>/ g : menyisipkan tanda >> pada setiap akhir baris
> : g / kata / d : menghapud kata yang dimaksud pada setiap baris

Perintah- perintah dasar pada linux centos

> vi nama file : membuka / membuat sebuah file dengan menggunakan editor vi
> vi namafile1 namafile2 : membuka / membuat 2 buah file sekaligus
menggunakan editor vi
> untuk mengaktifkan perintah pada editor vi diawali dengan Esc
> untuk mengetikan / menulis file pada editor vi gunkan tombol insert
> : n : pindah ke file selanjutnya
> :rew : mundur ke file selanjutnya
> h : untuk menggerakan kursor ke kiri
> j : untuk menggerakan kursor ke bawah
> k : untuk menggerakan kursor ke atas
> l : untuk menggerakan kursor ke kanan
> 2 : untuk menggerakan kursor ke baris selanjutnya dg melompat 2 baris
> $ : untuk menggerakan kursor ke akhir baris
> W,w : untuk menggerakan kursor ke kanan pada awal kata
> B,b : untuk menggerakan kursor ke kiri pada awal kata
> Gg : menggerakan kursor pada baris pertama pada halaman pertama
> a : menyisipkan kata mulai dari kursor
> A : menyisipkan kata pada posisi akhir baris
> i : menyisipkan teks dari kiri kursor
> I : menyisipkan teks dari awal baris
> o : membuka suatu baris dibawah teks yang aktif
> O: membuka suatu baris diatas teks yang aktif
> Nx : menghapus n karakter dari posisi kursor
> Ndw: menghapus n kata dari posisi kursor
> : w :menyimpan file baru
> :w!: menyimpan file yang sudah ada
> :wq: menyimpan file dan keluar dari vi
> :q!: keluar dari vi tanpa save
> :D : menghapus 1 baris kalimat
> :U: undo
> Nx:menghapus n karakter
> Ndd: menghapus n baris
> Yy: mengcopy baris dari kursor
> Nyy: mengcopy n baris dari posisi kursor ke buffer
> Nyw: mengcopy n kata dari posisi kursor ke buffer
> P: paste di posisi kursor
> p: paste di bawah posisi kursor

11.13.2009

Function

1. Private Function kunci(cek As Boolean)
kd_brg.Enabled = cek
nm_brg.Enabled = cek
Harsat.Enabled = cek
stuan.Enabled = cek
End Function

2. Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
On Error Resume Next
If MsgBox("Yakin data akan di hapus?", 20, "Hapus") = vbNo Then
Cancel = True
Else
Cancel = False
Response = ac.datacontinue
End If
3.Private Sub Form_Load()
kunci (False)
End Sub
4.Private Sub kd_brg_BeforeUpdate(Cancel As Integer)
On Error GoTo cari
Dim cekkode As String
cekkode = DLookup("[kd_brg]", "[barang]", "[kd_brg],'" & "'")
If Not IsNull(cekkode) Then
MsgBox "Kd_brg" + kd_brg + "Sudah ada", 64, "Informasi"
DoCmd.CancelEvent
kunci False
End If
cari:
Exit Sub
End Sub
5. Private Sub cmd_edit_Click()
kunci (True)
kd_brg.SetFocus
End Sub
6. Private Sub cmd_tambah_Click()
On Error GoTo Err_cmd_tambah_Click
Me.AllowAdditions = True
kunci True
DoCmd.GoToRecord , , acNewRec
kd_brg.SetFocus
Exit_cmd_tambah_Click:
Exit Sub
Err_cmd_tambah_Click:
MsgBox Err.Description
Resume Exit_cmd_tambah_Click
End Sub
7. Private Sub cmd_simpan_Click()
On Error GoTo Err_cmd_simpan_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowAdditions = False
kunci False
Exit_cmd_simpan_Click:
Exit Sub
Err_cmd_simpan_Click:
MsgBox Err.Description
Resume Exit_cmd_simpan_Click
End Sub
8. Private Sub cmd_batal_Click()
On Error GoTo Err_cmd_batal_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
kunci False
Exit_cmd_batal_Click:
Exit Sub
Err_cmd_batal_Click:
MsgBox Err.Description
Resume Exit_cmd_batal_Click
End Sub
9. Private Sub cmd_find_Click()
On Error GoTo Err_cmd_find_Click
kunci True
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_cmd_find_Click:
Exit Sub
Err_cmd_find_Click:
MsgBox Err.Description
Resume Exit_cmd_find_Click
End Sub
10. Private Sub cmd_kluar_Click()
On Error GoTo Err_cmd_kluar_Click
x = MsgBox("yakin mau keluar", vbQuestion + vbYesNo, "info")
If x = vbYes Then
DoCmd.Close
End If
Exit_cmd_kluar_Click:
Exit Sub
Err_cmd_kluar_Click:
MsgBox Err.Description
Resume Exit_cmd_kluar_Click
End Sub
1. Private Function kunci(cek As Boolean)
kd_brg.Enabled = cek
nm_brg.Enabled = cek
Harsat.Enabled = cek
stuan.Enabled = cek
End Function

2. Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
On Error Resume Next
If MsgBox("Yakin data akan di hapus?", 20, "Hapus") = vbNo Then
Cancel = True
Else
Cancel = False
Response = ac.datacontinue
End If
3.Private Sub Form_Load()
kunci (False)
End Sub
4.Private Sub kd_brg_BeforeUpdate(Cancel As Integer)
On Error GoTo cari
Dim cekkode As String
cekkode = DLookup("[kd_brg]", "[barang]", "[kd_brg],'" & "'")
If Not IsNull(cekkode) Then
MsgBox "Kd_brg" + kd_brg + "Sudah ada", 64, "Informasi"
DoCmd.CancelEvent
kunci False
End If
cari:
Exit Sub
End Sub
5. Private Sub cmd_edit_Click()
kunci (True)
kd_brg.SetFocus
End Sub
6. Private Sub cmd_tambah_Click()
On Error GoTo Err_cmd_tambah_Click
Me.AllowAdditions = True
kunci True
DoCmd.GoToRecord , , acNewRec
kd_brg.SetFocus
Exit_cmd_tambah_Click:
Exit Sub
Err_cmd_tambah_Click:
MsgBox Err.Description
Resume Exit_cmd_tambah_Click
End Sub
7. Private Sub cmd_simpan_Click()
On Error GoTo Err_cmd_simpan_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowAdditions = False
kunci False
Exit_cmd_simpan_Click:
Exit Sub
Err_cmd_simpan_Click:
MsgBox Err.Description
Resume Exit_cmd_simpan_Click
End Sub
8. Private Sub cmd_batal_Click()
On Error GoTo Err_cmd_batal_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
kunci False
Exit_cmd_batal_Click:
Exit Sub
Err_cmd_batal_Click:
MsgBox Err.Description
Resume Exit_cmd_batal_Click
End Sub
9. Private Sub cmd_find_Click()
On Error GoTo Err_cmd_find_Click
kunci True
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_cmd_find_Click:
Exit Sub
Err_cmd_find_Click:
MsgBox Err.Description
Resume Exit_cmd_find_Click
End Sub
10. Private Sub cmd_kluar_Click()
On Error GoTo Err_cmd_kluar_Click
x = MsgBox("yakin mau keluar", vbQuestion + vbYesNo, "info")
If x = vbYes Then
DoCmd.Close
End If
Exit_cmd_kluar_Click:
Exit Sub
Err_cmd_kluar_Click:
MsgBox Err.Description
Resume Exit_cmd_kluar_Click
End Sub

10.29.2009

Langkah-langkah pembuatan alat deteksi dini pada flashdisk

1. Buka program notepad dalam direktori flashdisk
2. Ketikan perintah berikut dibawah ini:

[autorun]

icon=icon.ico

label=nama anda

" Nama anda merupakan label yang akan muncul pada flashdisk anda" isikan sesuai keinginan anda. begitu pula icon adalah file icon yang ingin ditampilkan.
3. Save as file dengan nama autorun.inf, save type as = all files
4. Rubah attribut file autorun.inf kita menjadi readme, hidden, dan archieve, caranya dengan klik kanan pada nama file autorun.inf, lalu pilih Properties, lalu centanglah tulisan read only, hidden dan archieve.!!!
5. Alat deteksi dini sudah jadi, sekarang tinggal melakukan ujicoba. Restart komputer anda, lalu tancapkan FD yang telah berisi autorun.inf. Simbol icon dan label pada flash disk akan berubah sesuai dengan apa yang telah kita setting.

10.28.2009

Mengubah setingan bandwith pada bios

pada dasarnya Os windows sudah membatasi bandwith untuk koneksi internet sebanyak 20% dari total bandwith yang seharusnya bisa maksimal, kalo ente pengen nambah bandwith supaya koneksinya terasa lebih cepat dan kencang bisa dengan cara mengurangi atau mengosongkan batasan bandwith tersebut supaya pada windowskita bisa maksimal dalam menggunakan bandwith yang sudah ada....

ikuti petunjuk di bawah ini :

1. Klik start
2. Klik Run
3. Ketik gpedit.msc
4. Kemudian klik Ok
5. Setelah masuk klik administrative templates
6. Kemudian klik Qos packet scheduler
7. Klik network
8. Kemudian klik limit reservable bandwith
9. setelah kebuka ubah setting menjadi enable
10.trus ubah bandwith limitnya jadi 0
11.Klik apply, ok
12.Kemudian keluar & restart komputer

Repair Install

1. Memperbaiki Instalasi (Repair Install)

Jika Windows XP Anda rusak (corrupted) dimana Anda tidak mempunyai sistem operasi lain untuk booting, Anda dapat melakukan perbaikan instalasi (Repair Install) yang bekerja sebagaimana setting (pengaturan) yang awal.

  • Pastikan Anda mempunyai kunci (key) Windows XP yang valid.
  • Keseluruhan proses akan memakan waktu kurang lebih 1/2 atau 1 jam, tergantung spek komputer Anda.
  • Jika Anda dimintai password administrator, sebaiknya Anda memilih opsi perbaikan (repair) yang kedua, bukan yang pertama.
  • Masukkan CD Windows XP Anda dan lakukan booting dari CD tersebut.
  • Ketika sudah muncul opsi perbaikan kedua R=Repair, tekan tombol R Ini akan memulai perbaikan.
  • Tekan tombol F8 untuk menyetujui proses selanjutnya “I Agree at the Licensing Agreement”
  • Tekan tombol R saat direktori tempat Windows XP Anda terinstal. Biasanya C:WINDOWS Selanjutnya akan dilakukan pengecekan drive C: dan mulai menyalin file-file. Dan secara otomatis restart jika diperlukan. Biarkan CD Anda dalam drivenya.
  • Berikutnya Anda akan melihat sebuah gambar “progress bar” yang merupakan bagian dari perbaikan, dia nampak seperti instalasi XP normal biasanya, meliputi “Collecting Information, Dynamic Update, Preparing Installation, Installing Windows, Finalizing Installation”.
  • Ketika ditanya, klik tombol Next
  • Ketika ditanya untuk memasukkan kunci, masukkan kunci (key) Windows XP Anda yang valid.
  • Normalnya Anda menginginkan tetap berada dalam nama Domain atau Workgroup yang sama.
  • Komputer akan restart.
  • Kemudian Anda akan mempunyai layar yang sama sebagaimana pengaktifan sistem ketika instalasi normal.
  • Register jika Anda menginginkannya (biasanya tidak diperlukan).

Ok, Selesai. Sekarang Anda sudah bisa login menggunakan account Anda yang sudah ada.

2. NTOSKRNL Rusak atau Hilang (Missing or Corrupt)

Jika Anda mendapati pesan error bahwa “NTOSKRNL not found” / NTOSKRNL tak ditemukan, lakukan:

  • Masukkan CD Windows XP dan booting dari CD tersebut.
  • Pada saat muncul opsi R=Repair yang pertama, tekan tombol R.
  • Tekan angka sesuai dengan lokasi instalasi Windows yang ingin diperbaiki yang sesuai.
  • Biasanya sih #1
  • Pindahlah ke drive CD Drive Anda berada.
  • Ketik: CD i386
  • Ketik: expand ntkrnlmp.ex_ C:WindowsSystem32ntoskrnl.exe
  • Jika Windows XP Anda terinstal di tempat lain, maka ubahlah sesuai dengan lokasinya.
  • Keluarkan CD Anda dan ketikkan EXIT

3. HAL.DLL Rusak atau Hilang (Missing or Corrupt)

Jika Anda mendapatkan error berkenaan dengan rusak atau hilangnya file hal.dll, ada kemungkinan file BOOT.INI mengalami salah konfigurasi (misconfigured).

  • Masukkan CD Windows XP dan booting dari CD tersebut.
  • Pada saat muncul opsi R=Repair yang pertama, tekan tombol R.
  • Tekan angka sesuai dengan lokasi instalasi Windows yang ingin diperbaiki yang sesuai.
  • Biasanya sih #1
  • Ketik: bootcfg /list
  • Menampilkan isi/masukan pada file BOOT.INI saat ini
  • Ketik: bootcfg /rebuild
  • Memperbaiki konfigurasi dari file BOOT.INI
  • Keluarkan CD Anda dan ketikkan EXIT

4. Direktori WINDOWSSYSTEM32CONFIG rusak atau hilang

Jika Anda mendapatkan error dengan tulisan:

“Windows could not start because the following files is missing or corrupt
WINDOWSSYSTEM32CONFIGSYSTEM or WINDOWSSYSTEM32CONFIGSOFTWARE”

  • Masukkan CD Windows XP dan booting dari CD tersebut.
  • Pada saat muncul opsi R=Repair yang pertama, tekan tombol R.
  • Tekan angka sesuai dengan lokasi instalasi Windows yang ingin diperbaiki yang sesuai.
  • Biasanya sih #1
  • Masukkan password administrator jika diperlukan.
  • Ketik: cd windowssystem32config
  • Berikutnya tergantung di bagian mana letak terjadinya kerusakan:
  • Ketik: ren software software.rusak ATAU ren system system.rusak
  • Berikutnya lagi juga tergantung di bagian mana letak terjadinya kerusakan:
  • Ketik: copy windowsrepairsystem
  • Ketik: copy windowsrepairsoftware
  • Keluarkan CD Anda dan ketikkan EXIT

5. NTLDR atau NTDETECT.COM tak ditemukan (NTLDR or NTDETECT.COM Not Found)

Jika Anda mendapati error bahwa NTLDR tak ditemukan saat booting:

Untuk partisi tipe FAT

  • Silakan Anda melakukan booting dari disket Win98 Anda dan salinlah file NTLDR atau NTDETECT.COM
  • dari direktori i386 ke drive induk/akar (root) C:

Untuk partisi tipe NTFS

  • Masukkan CD Windows XP dan booting dari CD tersebut.
  • Pada saat muncul opsi R=Repair yang pertama, tekan tombol R.
  • Tekan angka sesuai dengan lokasi instalasi Windows yang ingin diperbaiki yang sesuai.
  • Biasanya sih #1
  • Masukkan password administrator jika diperlukan.
  • Masukkan perintah berikut, dimana X: adalah alamat drive dari CD ROM Anda (Sesuaikan!).
  • Ketik: COPY X:i386NTLDR C:
  • Ketik: COPY X:i386NTDETECT.COM C:
  • Keluarkan CD Anda dan ketikkan EXIT