Aplikasi Editing MP3

"Free MP3 Cutter and Editor" adalah aplikasi editing MP3. APlikasi ini sangat sederhana dan mudah digunakan. Selain itu, file instalasinya juga berkapasitas kecil cuma 961 Kb. Yang paling penting, berlisensi FREEWARE alias gratis.....
Anda tertarik untuk mencoba... silakan download disini

Clean URL Jika Web Berada di sub direktori

Terkadang kita menempatkan direktori web sebagai sub direktori. Misalkan, di \htdocs\webku
Serta, menempatkan file CSS dengan nama  mystyles.css
Untuk membuat Clean URL menggunakan htaccess, maka sintak nya adalah seperti berikut :

RewriteEngine on
RewriteCond $1 !^(index\.php|images|robots\.txt|mystyles\.css)
RewriteRule ^(.*)$ /webku/index.php/$1 [L]

Konfigurasi XAMPP agar bisa menggunakan htaccess

 Aktfkan module apache berikut pada "\xampp\apache\conf\httpd.conf"

LoadModule rewrite_module modules/mod_rewrite.so

Serta, ekstensi php berikut pada "\xampp\php\php.ini"

extension=php_curl.dll

Situs belajar Grammar Bahasa Inggris

Fren, ni situs yang bisa jadi referensi untuk belajar Grammar Bahasa Inggris. Situs ini menyediakan penjelasan dan berbagai soal latihan. Dan yang paling menarik, juga menyediakan file belajar yang dapat didownload. So, kita bisa belajar secara offline.
Klik Disini

Tombol Share Atau Subscribe di Web Anda

Mau buat tombol share di web atau blog anda ??? Pake aja addtoany.

Seperti ini neh contohnya :

Menampilkan Sintak Di Halaman Web

Mungkin kita pernah pengen share sintak program (Java, PHP, VB, dll) dengan menampilkan di halaman web atau blog, tapi kadang sulit untuk menampilkannya dengan rapi dan menarik.

Solusinya pake SyntaxHighlighter yang bisa di download disini

Gini nih hasilnya

VBA Pada Ms. Excel Untuk Mencetak Daftar File

Terkadang perlu ingin melihat seluruh isi file pada sebuah folder, klo pake cari ketik satu-satu ngga efisien banget. Ini ada cara pake VBA Excel, berikut kodenya :

Sub TestListFilesInFolder()
Workbooks.Add ' create a new workbook for the file list
' add headers
With Range("A1")
.Formula = "Folder contents:"
.Font.Bold = True
.Font.Size = 12
End With

Range("A3").Formula = "File Name:"
Range("B3").Formula = "File Size:"
Range("C3").Formula = "File Type:"
Range("D3").Formula = "Date Created:"
Range("E3").Formula = "Date Last Accessed:"
Range("F3").Formula = "Date Last Modified:"
Range("G3").Formula = "Attributes:"
Range("H3").Formula = "Short File Name:"
Range("A3:H3").Font.Bold = True
ListFilesInFolder "E:\SPMA\LAIN-LAIN\", False
' list all files included subfolders
End Sub


Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName\", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
' display file properties
Cells(r, 1).Formula = FileItem.Path '& FileItem.Name
Cells(r, 2).Formula = FileItem.Size
Cells(r, 3).Formula = FileItem.Type
Cells(r, 4).Formula = FileItem.DateCreated
Cells(r, 5).Formula = FileItem.DateLastAccessed
Cells(r, 6).Formula = FileItem.DateLastModified
Cells(r, 7).Formula = FileItem.Attributes
Cells(r, 8).Formula = FileItem.ShortPath & FileItem.ShortName
' use file methods (not proper in this example)
' FileItem.Copy "C:\FolderName\Filename.txt", True
' FileItem.Move "C:\FolderName\Filename.txt"
' FileItem.Delete True
r = r + 1 ' next row number
Next FileItem
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
Columns("A:H").AutoFit
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
ActiveWorkbook.Saved = True
End Sub