[Linux] Preset Winamp For Audacious On Ubuntu

Bermula saat pulang ke rumah merayakan hari raya kurban, dan saat itu lah baru nyadar klo cd ubuntu yg ku pesen sudah datang sejak sebulan yang lalu. Melihat cover CD nya berwarna merah putih itu kayaknya keren sekali. Emang sih itu Ubuntu 8.04 LTS Hardy Heron (Hardy+1). Sedangkan sejak 30 oktober 2008 lalu, ubuntu baru merilis Ubuntu 8.10 (Intrepid Ibex).

Tapi kayaknya udah nggak nahan untuk meng-install. Karena Sang Linux Debian yang tertanam di nutbuk ku sudah rusak tak terdeteksi lagi sehingga sekalian aja di format harddisk nya :)
Installasi dilakukan gak sampai 45menit (beruntung sekali sudah kubeli RAM 512Mb merk kingston ini di hiTech Mall hehehe). Kemudian meng-edit sources.list diarahkan ke TELKOM yang di FOSS-ID (http://dl2.foss-id.web.id) karena koneksi inetnya pake speedy :P

Setelah melakukan apt-get update, maka yg pertama kali dilakukan adalah mount harddisk NTFS. Caranya:
1. Buat folder baru, biasanya diletakkan di /media
zein@tarantula:~$ sudo mkdir /media/driveC
zein@tarantula:~$ sudo mkdir /media/driveD /media/driveG


2. Edit dan masukkan mount ke /etc/fstab
zein@tarantula:~$ sudo pico /etc/fstab

3. Pada baris bawah sendiri, ditambahi:
/dev/sda1 /media/driveC ntfs defaults,umask=007,gid=46 0 1
/dev/sda5 /media/driveD ntfs defaults,umask=007,gid=46 0 1
/dev/sda6 /media/driveG ntfs defaults,umask=007,gid=46 0 1


4. Lakukan Mount
zein@tarantula:~$ sudo mount -a

Setelah itu aku meng-install gstreamer dan XMMS. Byasalah, penyuka musik :D Ups, ternyata xmms udah gak ada dan diganti dengan Audacious. Setelah install audacious dilanjutkan dengan menambah preset winamp ke dalam Audacious. Caranya :
1. Install Audacious
zein@tarantula:~$ sudo apt-get install audacious

2. Unduh preset
zein@tarantula:~$ wget http://www.xmms.org/misc/winamp_presets.gz

3. Extract
zein@tarantula:~$ sudo gunzip -c winamp_presets.gz > ~/.config/audacious

4. Jalankan Audacious dan pilih preset

screenshot

Audacious yang terinstall dengan preset winamp

Menyenangkan sekali, akhirnya bisa ber-linux ria lag ^.^

Koneksi VB 6 ke MySQL

Untuk melakukan koneksi dari Visual Basic 6 ke mySQL database, yang dibutuhkan adalah "mysql connector odbc" Ada beberapa cara yang bisa dilakukan:
1. CARA I (CARA BIASA)
Masukkan source code berikut ini kedalam form.

Dim koneksi As New ADODB.Connection
Dim rs As New ADODB.Recordset
koneksi.CursorLocation = adUseClient
koneksi.Open "DRIVER={MySQL ODBC 3.51 driver};SERVER=localhost;PORT=3306;DATABASE=isidbase; USER=isiuser;PASSWORD=isipassword;OPTION=3;"


2. CARA II (MENGGUNAKAN MODUL)


Untuk menjadikan script koneksi menjadi sebuah modul maka, buat modul baru. Simpan dengan nama koneksi.
Kemudian pada module letakkan script berikut ini:

'ini diletakkan di module
Option Explicit
Dim koneksi As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, koneksi As ADODB.Connection, rs As ADODB.Recordset)
Set koneksi = New ADODB.Connection
Set rs = New ADODB.Recordset
koneksi.CursorLocation = adUseClient
koneksi.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
koneksi.Open
End Function


Dan pada form, letakkan script berikut ini:

Private Sub Form_Load()
'ini dimasukkan di form
'Call connectMysql("_diisiUSR_", "_diisiPASSW_", "_diisiHOST_", "_diisiDB_", koneksi, rs)
Call connectMysql("root", "", "127.0.0.1", "dbzein", koneksi, rs)
End Sub


3. CARA III (ALTERNATIF LAIN MENGGUNAKAN MODUL)
Buat modul baru, kemudian isikan source berikut ini:

Public strserver As String
Public dbpass As String
Public strUserServ As String
Public DataSource As String
Public dbName As String
Public conDB As New ADODB.Connection
Public Sub bukaDB()
Dim DB, myDSN
strserver = "localhost"
dbpass = "rahasia"
strUserServ = "root"
dbName = "dbzein"
DataSource = App.Path & "Data" & DB
myDSN = "PROVIDER=MSDataShape;" & "Driver=MySQL ODBC 3.51 Driver;" & "Server=" & strserver & ";" & "Port=3306;" & "Option=147458;" & "Stmt=;" & "Database=" & dbName & ";" & "User=" & strUserServ & ";" & "Password=" & dbpass
conDB.Open myDSN
End Sub


Pada Form diisikan source code berikut ini, yang digunakan untuk membuka database:

Private Sub Form_Load()
bukaDB
End Sub