pur_sfc

Contoh Program Database Sederhana

pursfc — Wed, 19 May 2010 16:50:58 +0000

Tampilan Form

Listing Program

–>

Private Sub Form_Load()

Data1.DatabaseName = App.Path & “\penjualan.mdb”

Data1.RecordsetType = 0

Data1.RecordSource = “barang”

End Sub

–>

Private Sub Form_Activate()

tampil

txtkodebrg.MaxLength = 5

End Sub

–>

Private Sub cmdsimpan_Click()

With Data1.Recordset

.AddNew

!kodebrg = txtkodebrg.Text

!namabrg = txtnamabrg.Text

!harga = txtharga.Text

!stok = txtstok.Text

.Update

End With

MsgBox “Data Sudah Tersimpan”, vbInformation, “”

End Sub

–>

Sub tampil()

On Error Resume Next

With Data1.Recordset

txtkodebrg.Text = !kodebrg

txtnamabrg.Text = !namabrg

txtharga.Text = !harga

txtstok.Text = !stok

End With

End Sub

–>

Sub bersih()

txtkodebrg.Text = “”

txtnamabrg.Text = “”

txtharga.Text = “”

txtstok.Text = “”

txtkodebrg.SetFocus

End Sub

–>

Private Sub cmdhapus_Click()

Data1.Recordset.MoveFirst

cari = InputBox(“Masukan Kode Barang “, “Hapus Record”, “B000″)

Data1.Recordset.Index = “kodebrg”

Data1.Recordset.Seek “=”, cari

If Data1.Recordset.NoMatch Then

MsgBox “Data Tidak Di Temukan”

Exit Sub

End If

tampil

pesan = MsgBox(“Yakin Akan Menghapus ini ^_^ ?”, vbYesNo, “Konfirmasi”)

If pesan = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveFirst

tampil

End If

End Sub

–>

Private Sub cmdbatal_Click()

bersih

tampil

End Sub

Private Sub cmdawal_Click()

Data1.Recordset.MoveFirst

tampil

End Sub

Private Sub cmdinput_Click()

bersih

End Sub

Private Sub cmdakhir_Click()

Data1.Recordset.MoveLast

tampil

End Sub

–>

Private Sub cmdmaju_Click()

If Data1.Recordset.EOF Then

MsgBox “Sudah Di Awal Record”

Data1.Recordset.MoveLast

Else

Data1.Recordset.MoveNext

tampil

End If

End Sub

Private Sub cmdmundur_Click()

If Data1.Recordset.BOF Then

MsgBox “Sudah Di Akhir Record”

Data1.Recordset.MoveFirst

Else

Data1.Recordset.MovePrevious

tampil

End If

End Sub

Private Sub cmdkeluar_Click()

If MsgBox(“Apakah Anda Akan Keluar ?”, vbOKCancel, “Pesan”) = vbOK Then

Unload Me

End If

End Sub

Latihan VB 1

pursfc — Sat, 17 Apr 2010 09:23:37 +0000

Tampilan form

Programnya Dapat Di Download Di Sini

Buat YM Multi Account

pursfc — Thu, 08 Apr 2010 06:52:54 +0000

Mungkin anda sering melakukan chat dengan Yahoo Messengger (YM), Kalau iya, Mungkin Trik Ini akan sedikit membatu anda.
Kali ini kita akan mencoba membuat YM anda bisa digunakan untuk Login beberapa account, dengan mengedit registry dari aplikasi tersebut.

Langkah pertama: Klik start pilih run, ketik regedit enter

Langkah Ke-2 : klik 2X HKEY_CURRENT_USER, cari Software klik 2X

Langkah Ke-4 :Cari yahoo (klik 2X)-pager-test, klik kanan pada folder test, pilihnya New-DWORD Value

Langkah Ke-4 : Ganti namanya dengan plural, kemudian klik 2X beri nilai Value Datanya 2

Selesai, Keluar dari Registry Editor, Kemudian coba YM.

RANGKUMAN LINUX DASAR

pursfc — Thu, 28 Jan 2010 07:54:24 +0000

# adduser

Format penulisannya: # adduser

Ex : # adduser pursfc

digunakan untuk membuat user baru, syaratnya user harus berada di root terlebih dahulu, jika belum ikuti langkah berikut:

1. $ su –l root // su artinya switch user : untuk mengganti user

2. $ password :

# tanda pagar menunjukan bahwa user tersebut adalah root

$ tanda dollar menunjukan bahwa user tersebut adalah user biasa

# passwd

Digunakan untuk memberi password pada user/root.

Format penulisanya: # passwd

Ex : # passwd pursfc // kemudian masukan password yang diinginkan(2 kali) password yang di ketik tidak akan terlihat.

mkdir

digunakan untuk membuat directory/folder baru.

Format penulisanya : $mkdir

Ex : $ mkdir latihan1

$ mkdir latihan1 latihan2 // Jika ingin membuat 2 Directory sekaligus.

list digunakan untuk melihat isi dari suatu dir/user.

Format penulisanya : $ ls

$ ls –l //ls –l digunakan untuk melihat isi beserta atributnya.

change directory digunakan untuk pindah dir.

Format penulisanya : $cd

$cd // Jika tidak di ikuti dengan nama folder maka akan kembali ke directory awal user

Ex : $ cd latihan1

cat

digunakan untuk membuat file.

Format penulisanya : $ cat >

Ex : $ cat > latcat // Kemudian ketik isi file dan akhiri dengan ctrl+d.

untuk menambah isi file gunakan perintah :

$ cat >> latcat // Kemudian ketik isi file yg ingin di tambahakan dan akhiri dengan

ctrl+d.

echo

perintah echo juga di gunakan untuk membuat file.

Format penulisanya: $ echo “” >

Ex : $ echo “Pursfc & BSI” > latecho

chmod

digunakan untuk merubah hak akses dari suatu file/directory.

Format penulisanya: $ chmod

Ex : saya punya file yang bernama latecho dan hak aksesnya - rw – r — r- – , rubahlah menjadi

– rwx r-x – - -

Ada 2 cara :

1. $ chmod u+x,g+x,o-r latecho
$ chmod 760 latecho

Untuk melihat hasilnya gunakan perintah ls –l.

Penjelasan cara 1: – u+x berarti user ditambah x(3 karakter terdepan yaitu rw-) menjadi rwx

- g+x berarti group ditambah x(karakter 4 – 6 yaitu r – -) menjadi r-x

- o-r bertarti other dikurangi r(karakter 7 – 9 yaitu r – -) menjadi - – -

jika di gabung menjadi u+x,g+x,o-r hasilnya - rwx r-x – - -

Penjelasan cara 2: r=4 w=2 x=1 berarti, jika rwx = 4+2+1 = 7

pada user ingin dirubah menjadi rwx berarti 7

pada group ingin dirubah menjadi r-x berarti 6

pada other ingin dirubah menjadi - – - berarti 0

gzip & gunzip

digunakan untuk membuat file menjadi zip.

Format penulisanya: $ gzip

Ex : $ gzip latcat

Untuk menjadi file biasa gunakan perintah gunzip.

Ex : $ gunzip latcat

rm & rmdir

Remove (rm) digunakan untuk menghapus file.

Remove directory (rmdir) digunakan untuk menghapus directory.

Format penulisanya: $ rm

$ rmdir

Ex : $ rm latcat

$ rmdir latihan2

Jika filenya berupa zip, tuliskan nama filenya dengan akhiran .zip

Ex : $ rm latcat.zip

history

digunakan untuk melihat perintah - perintah yang telah di lakukan.

Format penulisanya: $ history

Ex : $ history

alias & unalias

digunakan untuk memberi nama panggilan suatu perintah.

Format penulisanya: $ alias =

$ unalias

Ex : $ alias md = mkdir

berarti sekarang kita bisa membuat directory dengan perintah md namun kita juga masih bisa menggunkan perintah mkdir

Untuk mengembalikan lagi seperti semula gunakan perintah unalias

Ex : $ unalias md

digunakan juga untuk membuat file.

Format penulisanya: $ vi

Ex : $ vi latvi // Kemudian akan masuk ke editor vi

Untuk membuat file lebih dari 1, gunakan cara berikut

$ vi latvi1 latvi2 latvi3 // dipisahkan dengan spasi

Untuk mengisikan isi file tekan “i” (insert) kemudian ketik isi filenya.

Perintah-perintah di editor vi yg sering digunakan :

Selalu di awali dengan esc

r : Digunakan untuk mengganti karakter pada posisi kursor
R : Digunakan untuk mengganti karater sampai tombol Esc ditekan
ncw : Digunakan untuk mengganti text per kata
ncc : Digunakan untuk mengganti text per baris Penghapusan Pada Text
nx : Digunakan untuk menghapus n karakter mulai dari posisi kursor
ndw : Digunakan untuk menghapus n kata mulai dari posisi kursor
D : Digunakan untuk menghapus satu baris mulai dari posisi kursor
nyy : Digunakan untuk mengcopy n baris ke buffer
p : Digunakan mempaste dari hasil copy-an dibawah kursor
P : Digunakan mempaste dari hasil copy-an diatas kursor
u : Digunakan untuk meng-undo perintah sebelumnya
O : Digunakan untuk membuat baris baru di atas kursor
o : Digunakan untuk membuat baris baru di bawah kursor
nu : Digunakan untuk meng- undo sejumlah n perintah

esc :n

next digunakan untuk pindah halaman vi selanjutnya

esc :N

Prev digunakan untuk pndah ke halman sebelumnya

Perintah – perintah Pencarian

/ /

digunakan untuk

Ex : /lagu // Mencari kata “lagu”

/[Ll]agu] // Mencari kata “Lagu” & “lagu”

/[6-9] // Mencari karakter 6-9

/[a-z] // Mencari karakter huruf kecil

/[A-Z] // Mencari karakter huruf besar/kapital

/[0-9a-zA-Z] // Mencari karakter alfanumerik

: s/ /

digunakan untuk mengganti suatu kata atau karakter.

Ex :

:s/lagu/lirik // Mengganti kata “lagu” menjadi “larik” menjadi “lirik” dalam

satu baris (posisi kursor)

:1,$s/[lL]agu/musik // Mengganti kata “Lagu” dan “lagu” menjadi musik dari baris

satu ( 1 ) sampai akhir baris ( $ )

:3,7s/lirik/lagu // Mengganti kata “lirik” menjadi “lagu” dari baris ke 3 -7

untuk menghapus kata atau karakter, dapat menggunakan perintah dibawah ini :

:s/lagu// // Menghapus kata “lagu” dalam satu baris (posisi kursor)

:1,$s/[1-4]//g // Menghapus angka “1-4” dari awal-akhir baris

:1,5g/lagu/d // Menghapus baris yang mengandung kata “lagu” dari baris 1-5

:s/lagu// boleh diikuti g menjadi :s/lagu//g

Untuk menambah kata atau karakter, dapat menggunakan perintah dibawah ini :

:s/^/@@ // Menambahkan karakter “@@” di awal baris (^) dalam 1 baris

(posisi kursor )

:1,$s/$/sfc // Menambahkan kata “sfc” di akhir baris ($) di semua baris

:3,5s/^/## // Menambahakan karakter “##” di awal baris (^) dari baris 3-5

TIPS KOMPUTER

pursfc — Thu, 28 Jan 2010 07:39:42 +0000

Cara Untuk melindungi Data

cara agar data anda tidak bisa di copy ke flashdisk

Jika Anda ingin menggunakan trik ini, silakan ikuti langkah berikut.

Tekan winkey + R lalu ketik regedit. Tekan enter.

Masuk ke HKEY_LOCALMACHINE\SYSTEM\CurrentControlSet\Control.

Klik kanan lalu pilih New > Key.

Beri nama StorageDevicePolicies.

Klik kanan StorageDevicePolicies lalu pilih New > DWORD Values. Beri nama WriteProtect.

Klik dua WriteProtect kali lalu beri nilai 1.

Klik OK dan restart computer Anda.

Jika ada yang menyalin (copy) file di computer Anda ke flashdisk, aka nada peringatan seperti ini.

Orang lain tidak akan memindahkan (paste) ke flashdisk. Untuk mengembalikan ke semula, ubah nilai WriteProtect menjadi nol (0).