Skip to main content

Posts

Showing posts from January, 2009

Membuat Daftar File Dan Folder

Pernahkan anda terbayang, ingin membuat daftar file berupa teks file yang ada pada folder anda? Untuk itu ikuti langkah berikut ini: Membuat file batch. Ketik tulisan berikut ini dengan menggunakan Notepad. dir /a /-p /o:gen >DaftarFile.txt Simpan file tersebut di C:\WINDOWS dengan nama DaftarFile.bat Buka Windows Explorer dan pilih menu Tools - Folder Options - tab File Types - pilih Folder - klik tombol Advanced - klik tombol New. Lalu tulis text seperti pada gambar di samping ini. Masukkan Action dan pilih DaftarFile.bat Kemudian OK. Untuk mengetes, Klik kanan Folder – Bikin Daftar File. Maka akan muncul DaftarFile.txt Selesai.

Menghapus File Temporary Dengan Batch File

Pernahkan anda mengalami kepenuhan hardisk oleh file-file temporary ? File ini bisanya hanya bersifat sementara. Sebenarnya file ini tidak dipakai, dan Anda bisa hapus jika anda ingin menghapusnya. Untuk lebih cepatnya kali ini kita gunakan file batch untuk menghapus file temporary yang ber ekstensi *.tmp Ikuti langkah berikut ini : 1. Masukkan ke program notepad. 2. Ketikkan command berikut pada notepad. if not exist %TEMP%\*.TMP goto EndTMP attrib %TEMP%\*.TMP -r -a -s -h del %TEMP%\*.TMP :EndTMP pause 3. Lalu klik file pilih save as, pilih tempat penyimpanan file lalu 4. Masukkan "hapus_temp.bat" sebagai nama file dan dimulai, diakhiri tanda petik dua 5. Klik save 6. Tutup notepad, lalu jalankan file hapus_temp.bat pada lokasi anda menyimpan. 7. File bat akan menghapus semua file yang ber ekstensi *.tmp 8. Selesai, jika ada pertanyaan silahkan isi pada kometar. Thanks

Belajar XML

Berikut lanjutan dari pengertian XML. XML Bagian 2 SINTAKS XML Seperti telah disebutkan, XML adalah bahasa yang dibentuk dengan tag-tag seperti HTML. Perbedaannya adalah tag pada XML dapat anda buat sendiri sesuai dengan yang di inginkan. Terdapat aturan dalam membuat sintaks XML, peraturannya sangat sederhana tetapi juga sangat ketat. Namun dengan adanya aturan-aturan tersebut membuat XML mudah dipelajari dan digunakan. Dan tentu saja membuat aplikasi mudah untuk membaca data yang di kandung pada XML. Sebagai contoh perhatikan tag XML berikut ini: Pada script XML tersebut dapat anda lihat bahwa tag-tag XML dibuat dengan bahasa Indonesia, baris nomor 1 sampai 7 tidak perlu Anda ketik, ini ditujukan hanya untuk mempermudah pembacaan sintaks ketika akan dijelaskan. Pada baris pertama merupakan komentar yang tidak akan dieksekusi oleh browser. Untuk membuat komentar sintaknya adalah < !—komentar -- >. Pada baris kedua merupakan deklarasi dokumen sebagai dokumen XML. Deklarasi ini te

XML (eXtensible Markup Language)

Teknologi XML sebenarnya bukanlah suatu bahasa yang baru, XML merupakan meta-language seperti tag HTML yang digunakan untuk mendeskripsikan data-data. Tag-tag pada XML dapat anda buat sendiri sehingga tidak ada tag-tag yang pasti seperti halnya pada tag HTML. KEGUNAAN XML Pernahkan anda bertanya-tanya, untuk apa sebenarnya XML itu? Apa sih data yang akan ditampungnya? Apa perlu situs web saya menggunakan XML? semua pertanyaan itu akan diuraikan disini, simaklah cerita berikut. Ada sebuah perusahaan sepatu terkenal merk "Sepatu Besar" yang merupakan perusahaan pembuat sepatu terbesar di dunia. Perusahaan ini mempunyai situs yang menampilkan semua produk sepatunya dan pengunjung dapat membeli sepatu secara online. Semua data sepatu tersebut tentu saja disimpan dalam database yang di letakkan pada web server. Kemudian ada sebuah toko sepatu bernama "Sepatu Mungil" yang menjual berbagai macam merk sepatu termasuk sepatu merk "Sepatu Besar". Toko ini juga mempu

Mengganti Password Email Pada MS Outlook

Tips berikut ini yaitu membahas tentang mengedit password email pada Microsoft Outlook 2003. Untuk merubah password email anda, ikuti langkah berikut ini : Klik menu Tools – Option – pilih tab Other – pilih Advance Options... – Custom Form – lalu pilih Password Kemudian ganti passwordnya dengan mengisi text password lama dan text password baru terus OK. Gampang kan? he he...

Cerita: PERBEDAAN PERSEPSI

Berikut saya posting cerita tentang perbedaan persepsi. Silahkan... Ada seorang ayah yang menjelang ajalnya di hadapan sang Istri berpesan DUA hal kepada 2 anak laki-lakinya : Pertama : Jangan pernah menagih hutang kepada orang yg berhutang kepadamu. Kedua : Jika pergi ke toko jangan sampai mukanya terkena sinar matahari. Waktu berjalan terus. Dan kenyataan terjadi, bahwa beberapa tahun setelah ayahnya meninggal anak yang sulung bertambah kaya sedang yang bungsu menjadi semakin miskin. Pada suatu hari sang Ibu menanyakan hal itu kepada mereka. Jawab anak yang bungsu : "Ini karena saya mengikuti pesan ayah. Ayah berpesan bahwa saya tidak boleh menagih hutang kepada orang yang berhutang kepadaku, akibatnya modalku susut karena orang yang berhutang kepadaku tidak membayar sementara aku tidak boleh menagih". "Juga Ayah berpesan supaya kalau saya pergi atau pulang dari rumah ke toko dan sebaliknya tidak boleh terkena sinar matahari. Akibatnya saya harus naik becak a

Membuat Form Transparan (Fading) dan Timbul Kembali

Untuk mempercantik program anda, pernahkan anda ingin membuat form Splash Screen atau form about anda transparan? berikut contoh untuk membuat form menjadi transparan dan timbul kembali, kemudian tampil form berikutnya. 1. Bukalah VB6 anda. 2. Tambahkan Modul1 dan copy code berikut ini: Private Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long Private Declare Function UpdateLayeredWindow Lib "user32" _ (ByVal hwnd As Long, ByVal hDCDst As Long, pptDst As Any, _ psize As Any, ByVal hDCSrc As Long, pptSrc As Any, crKey As Long, _ ByVal pblend As Long, ByVal dwFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long,

Print Menggunakan Continues Form

Pernahkan anda mengalami kesulitan untuk mencetak text/faktur pada continues form. nah jangan khawatir berikut ini adalah salah satu contoh untuk mencetak text pada continues form. Pada Module1 paste code berikut: Option Explicit Private Type DOCINFO pDocName As String pOutputFile As String pDatatype As String End Type Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function OpenPrinter Lib "winspool.drv" Alias _ "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _ ByVal pDefault As Long) As Long Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _ "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _ pDocInfo As DOCINFO) As Long Pri

Open Cash Drawer With VB

Apa yang dimaksud dengan cash drawer? Cash drawer adalah laci tempat uang yang biasanya di pakai pada swalayan. Jika anda membuat program POS (Point of sales) silahkan simak bacaan berikut. Tutorial kali ini adalah bagaimana caranya atau code untuk membuka laci atau cash drawer, yg terhubung lewat port serial [COM1] atau pararel port [LPT1] menggunakan VB6 atau bahasa lainnya. Berikut ulasannya : 1. Printer POS Samsung (port LPT) Open "LPT1:" For Output As #1 Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC@) Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250); 'open cash drawer Close #1 2. Printer POS Start (port LPT) Open "LPT1:" For Output As #1 Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @) Print #1, Chr$(&H1B); "3"; Chr$(5); ' Set line spacing" Print #1, Chr$(27); Chr$(7); Chr$(11); Chr$(55); Chr$(7) 'open cash drawer Close #1 3. Printer POS Epson (port COM

Script And Shortcut Properties Windows System

Berikut ini adalah tutorial tentang Menampilkan properties system windows. Misalkan pada program yang ingin kita buat, berisi menu utility untuk menampilkan dialog Display Properties dan fokus ke tab Screen Saver, maka cukup dengan kode berikut: Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1",vbNormalFocus) Contoh diatas adalah pemakaian pada VB6, atau anda juga bisa pakai pada bahasa pemrograman lainnya tergantung dari bahasanya: Dan berikut daftar command yang bisa digunakan : command: rundll32.exe shell32.dll,Control_RunDLL result: displays all the Control Panel icons in an Explorer view command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5 result: displays the Accessibility General properties command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1 result: displays the Accessibility Keyboard properties command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2 result: displays the Accessibility Sound properties command: rundll32.exe sh

Resolusi Tahun Baru 2009

Tahun 2009 telah datang. Inilah waktunya untuk membuat resolusi tahun baru agar hidup yang kita jalani terencana dan mempunyai tujuan. Resolusi tahun baru juga bertujuan menuntaskan target yang belum selesai di tahun kemarin. Berikut ini adalah rincian resolusi tahun baru yang mungkin berguna untuk Anda! Asah kembali kemampuan Anda Salah satunya adalah dengan mengikuti seminar-seminar yang berguna untuk meningkatkan kemampuan Anda dalam bekerja. Misalnya profesi seorang guru selalu menuntut adanya peningkatan pengetahuan, maka dengan meningkatkan kualitas pengetahuan diharapkan kemampuan dalam mengajar akan bertambah. Up grade pengetahuan Anda mengenai Teknologi terbaru Teknologi tidak harus peralatan canggih yang baru. Teknologi bisa juga metode baru bagaimana berkomunikasi dengan orang lain dan mencari tahu apa kelemahan Anda dan ubahlah. Hapus data-data lama Hal ini bisa mempermudah Anda memandang apa yang benar-benar penting. Sebab, manfaat merapikan file tak hanya memberi kesegara

Mengapa Mudah Lupa Ya?

Secara alamiah, penurunan daya ingat dimulai pada usia 40 tahun karena pada usia tersebut ada beberapa sel otak sudah mulai mati. Sel otak yang sudah mati tidak akan mengalami regenerasi sehingga menyebabkan seseorang menjadi mudah lupa. Sedangkan bagi mereka yang pelupa di usia muda, penyebabnya mungkin karena kelelahan otak atau stres yang mengakibatkan ingatannya tidak cukup kuat. Kaum wanita diduga lebih banyak dan lebih mudah untuk menjadi pelupa. Penyebabnya adalah faktor hormon pada wanita yang menyebabkan wanita lebih mudah mengalami stres dibandingkan pria. Stres yang berkepanjangan sebenarnya dapat memicu kelelahan pada otak. Bila hal itu tidak segera diatasi, maka lama-kelamaan fungsi otak akan menurun dan akhirnya menjadi mudah lupa. Bila seseorang juga kurang mengaktifkan kerja otaknya, maka sel-sel yang jarang dirangsang untuk bekerja tersebut akan mengalami kerusakan dan menyebabkan mudah lupa. Bagaimana caranya agar tidak pikun sebelum waktunya? Sejak usia 20-an tahun,

Membuat Label Barcode

Pernahkan anda terpikir, bagaimana caranya membuat label barcode seperti yang tertempel pada barang-barang yang dijual di swalayan? Sebenarnya cukup gampang membuatnya yaitu cukup menggunakan font C39HDM2.TTF [BC C39 2 to 1 HD Medium]. Untuk mendapat font ini, anda bisa email saya ke ketutsapta@gmal.com, saya akan mengirimkannya atau donload di internet. Setelah anda download, instal lah font tersebut dengan membuka : Start-Control Panel - Fonts Lalu klik File - Install New Font - Cari path tempat Font C39HDM2.TTF yang anda baru download. Dengan font ini, anda bisa membuat label barcode, baik mau diprint menggunakan Micosoft Excel, Word atau lainnya yang mendukung font ini. Jika anda ingin membuat program menggunakan VB atau FoxPro atau Delphi atau bahasa program lainnya, cukup install font ini kemudian pada text field report masukkan tanda asterik * dng diikuti namafield an diakhiri asterik *, kemudian ganti font nya menjadi font C39HDM2.TTF kemudian preview Contoh : *Barang.kodebara

Mencari Serial Number Hardisk dengan Vb 6

Pernahkan anda terpikir untuk membuat serial number program anda supaya bersifat trial dan harus memasukkan serial number? Nah program ini bisa dipakai untuk membuat serial number program anda dengan mencari serial number hardisk dan di ikuti sedikit algoritma anda. Ikuti langkah berikut untuk mencari serial number hardisk : Buka program Vb 6 anda Tambahkan form lalu tekan F7 untuk masuk ke mode coding lalu tekan F7. Masukkan coding berikut ini : Private Declare Function GetVolumeInformation Lib "kernel32" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _ lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _ nFileSystemNameSize As Long) As Long Sub BacaSerial() Dim drvserialno As Long Dim mydrvlabel As String * 256 Dim myfilesys As String * 256 Dim i As Long Dim j As Long Dim x As Long x = GetVol

Mematikan Komputer dengan VB 6 dan Command Prompt

Project kali ini yang kita buat yaitu program untuk shutdown komputer. Program kita ini akan memanggil program shutdown.exe milik windows XP keatas. Anda bisa modifikasi program ini sebagai sleep (timer) untuk mematikan komputer sesuai keinginan anda. Untuk itu, ikuti langkah berikut ini: Bukalah program Visual Basic 6 anda dan buatlah Project baru dengan 1 form Isikan command button dengan name : cmdMatikanKomputer dan captionnya Matikan Komputer dan width button menyesuaikan panjang captionnya. Isikan coding berikut pada cmdMatikanKomputer dengan menekan F7 Private Sub cmdMati_Click() Shell "shutdown.exe -s -t 10 -f ", vbHide End Sub Lalu simpan project anda dengan menekan ctrl+S, kemudian run dengan menekan F5. Jika anda mengklik tombol Matikan Komputer, maka program anda akan langsung mengeksekusi shutdown.exe milik windows. Berikut penjelasan dan parameter tentang pemakaian shutdown.exe : - shutdown.exe [spasi] -i artinya menampilkan GUI dan paramter ini harus pertama di

Belajar dan Mengenal perintah Netstat & Ping pada Command Prompt

Belajar dan mengenal Netstat & Ping Netstat (NETwork STATistics) adalah command-line tool yang menyediakan informasi tentang koneksi jaringan (baik incoming maupun outgoing), table routing dan statistic interface jaringan. Biasanya netstat ini digunakan untuk troubleshooting dalam jaringan dan menentukan jumlah traffic dalam sebuah jaringan sebagai pengukur performance. Beberapa parameter yang terdapat dalam command in diawali dengan hypen (-). Beberapa parameter yang terdapat dalam netstat beserta fungsinya: -a : menampilkan semua koneksi TCP yang aktif dan port TCP & UDP dalam computer yang berada dalam state listening. -b : menampilkan nama binary program yang terlibat dalam pembentukan tiap koneksi atau listening port -e : menampilkan statistic Ethernet seperti jumlah bytes dan paket yang terkirim maupun diterima. -n : menampilkan alamat dan no port dalam bentuk numerik -o : menampilkan ID pemilik proses yang tergabung dalam tiap koneksi -p proto : menampilkan koneksi dari

Tips Registry Windows XP

Beberapa tips dan registry dibawah ini cuma berlaku buat Windows XP. Sebelum mengutak-atik Registry, ada baiknya melakukan backup terlebih dahulu. Klik tombol Start > Run. Ketik regedit dan tekan Enter setelah berada didalam jendela Run. Didalam Registry Editor, pilih menu File > Export. Setelah Export Registry File muncul, masukkan nama file ke bagian File Name, misalnya backup-registry dan sebagainya. tekan tombol Save. Mengganti Wallpaper HKEY_CURRENT_USER/Control Panel/Desktop Klik ganda pada wallpaper dan masukkan path gambar yang diinginkan pada Value Data. Mengganti Nama Recycle Bin HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E} Klik ganda pada option (Default value) dan beri nama baru sesuai yang diinginkan pada Value Data. Memunculkan Rename Pada Recycle Bin HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/ShellFolder Klik ganda pada Attributes > Edit Binary Value. Pada Value Data, ganti angka tersebut menjadi 0000 50 01 00 20. Menyembuny

Mobile Code

Berikut contoh code-code untuk seting beberapa merk Handphone Mudah-mudahan bermanfaat. NOKIA *#06# :for IMEI *#92702689# :All Manufacture (Warranty) *#3370# :Enable EFR (To disable, Type it again. Phone Automatically Restart) *#0000# :View Software version *#7780# :Restore factory settings *#67705646# :Clear LCD Display (Operator Logo) *#2820# :Bluetooth device address *#746025625# :SIM lock allowed statue *#62209526# : Display the MAC address #pw+1234567890+1# :Show if SIM restrictors. *#4720# :half rate Codec activation (To disable, Type it again) *#7370925538# :S-60 (Reset) Default code is 12345 *#3925538# : Delete the contents and code of wallet *#7328748263373738# :Reset Phone Code. Default code is 12345 Below are some reset codes for various Series 40, 60 and the new Series 80 Communicator series (Nokia 9300/9500): Full Reset: (clears everything off the phone memory!! Be sure to back up your contacts!!): *#7370#, 12345 and then Yes. Soft Reset: *#7780#, 12345 and then Yes. (Also

NTLDR Is Missing Pada Windows, Bagaimana Mengatasinya ?

NTLDR Is Missing Please press CTRL + ALT + DEL to reboot Pernahkan anda mengalami problem seperti ini pada system operasi windows anda? Hal ini biasanya terjadi karena file system corupt atau hilang karena terdelete / terhapus. Untuk memperbaikinya bisa pakai cara ini sebelum install ulang. Caranya : Tekanlah CTRL + ALT DEL maka komputer anda akan restart Setelah hidup kembali tekan F2 atau Delete untuk masuk ke Bios Lalu masuk ke mode bios, set boot priority 1 mengarah ke: cd drive anda kemudian tekan F10 untuk menyimpan BIOS dan masukkan CD Windows versi OS yang anda pakai lalu restart computer. Maka akan muncul press any key untuk loading menggunakan CD, lalu tekan enter atau sembarang key pada keyboard, maka akan muncul setup windows Masuk ke mode Repair – Recovery Console Copy NTLDR dan NTDETECT.COM yang dari cd win2000 atau Windows XP ke drive c:\ (ingat untuk service pack harus sesuai dengan OS yang terjadi problem) ketik BOOTCFG /REBUILD ketik BOOTFIX ketik CHKDSK Kemudian reb

Mengenal NNTP (Network News Transfer Protocol) Pada Server

NNTP (Network News Transfer Protocol) NNTP merupakan protocol aplikasi internet yang berguna untuk membaca dan mem-posting artikel berita dalam jaringan (membentuk newsgroup dan grup diskusi dalam). Dengan menggunakan reader news client standar seperti Microsoft Outlook Express, pengguna/ user dalam sebuah jaringan dapat membaca artikel dari orang lain yang mempunyai hobi yang sama, mengirim artikel ke user lain dan ikut berpartisipasi dalam sebuah diskusi. NNTP beroperasi dalam sebuah chanel data stream bidirectional 8-bit yang handal. Ketika koneksi terbentuk, NNTP server host harus mengirimkan sebuah pesan pembuka (greeting) kemudian server host dan client host saling mempertukarkan commands dan merespon sampai koneksi tertutup atau dibatalkan. Jika koneksi yang digunakan TCP maka server host akan mulai menjalankan service NNTP dengan membuka sebuah TCP port. Ketika client host ingin menggunakan service maka client haris membentuk koneksi TCP dengan server host dengan cara konek ke

Shortcut Windows

Tips kali ini tentang Windows Sebelumnya saya punya pengalaman untuk mengcopy file biar cepat ke flashdisk, saya menggunakan send to F (asumsi F adalah flasdisk saya), caranya klik kanan filenya dan cari send to. Karna flasdisk kayaknya ada virus yang berisi autorun, makanya saya menekan SHIFT pada keyboard biar autorun.inf tidak jalan. Kelamaan mencet shift dan saya memilih send to masih juga mencet shift akhirnya file asli saya hilang. Wah ternyata send to + SHIF artinya memindahkan file. Berikut lebih jelasnya: Pilih File dengan klik kanan + tekan SHIFT di keyboard (jangan dilepas) kemudian pilih send to berarti anda memindahkan file tersebut ke drive tujuan. Pilih File dengan klik kanan + tekan CTRL di keyboard (jangan dilepas) kemudian pilih send to berarti anda mengcopy file tersebut ke drive tujuan, shortcut lainnya Tombol keyboard [Windows] + [L] = Lock komputer artinya user lagi ngunci sesion komputer yang lagi aktif. Tombol keyboard [Windows] + [u] = Menampilkan Utility Man

Apa Itu Komputer ?

Teknologi kali ini kita bahas adalah tentang Komputer. Kata komputer berasal dari bahasa inggris yaitu to computare yang memiliki arti untuk menghitung. Memang pada awalnya komputer adalah alat yang digunakan untuk membantu manusia dalam proses perhitungan. Contoh komputer yang paling sederhana adalah sempoa. Seiring dengan perkembangan jaman dan tuntutan manusia akan informasi maka komputer disini berkembang sangat pesat dari hanya sebagai alat perhitungan berkembang menjadi alat komunikasi , kedokteran, pendidikan dan lainnya. Komputer seperti halnya radio , televisi dan peralatan elektronik pada umumnya merupakan rangkaian alat elektronik. Perbedaannya komputer bisa digunakan untuk membantu menyelesaikan pekerjaan yang bekerja secara sistematis berdasarkan suatu perintah atau instruksi yang diberikan kepadanya. Dengan kata lain komputer adalah serangkaian alat elektronik yang bekerja secara sistematis untuk membantu meringankan tugas manusia berdasarkan instruksi yang diberikan kep