Saturday, September 17, 2011
Friday, September 16, 2011
Thursday, September 15, 2011
Memperbesar ukuran foto dengan tetap menjaga kualitas gambar asli
Memperbesar ukuran foto dengan tetap menjaga kualitas gambar asli
Bagaimana cara memperbesar ukuran gambar tetapi hasilnya tidak akan mengubah gambar menjadi kelihatan kabur/pecah? Saya sering download gambar-gambar foto, terkadang saya mendapat gambar yang ukurannya terlalu kecil sehingga kurang memuaskan untuk dilihat. Biasanya saya perbesar dengan cara meng-edit-nya menggunakan Nero smart Essensial bawaannya Nero. Tetapi ketika saya rubah size-nya ternyata kualitas gambar menjadi pecah dan kabur.
Setelah googling sana sini akhirnya mendapatkan solusi untuk masalah ini, ternyata bisa diakali dengan menggunakan software PhotoZoom Pro. Dengan aplikasi ini kita bisa mengubah ukuran gambar hingga lebih dari 2x lipat ukuran gambar asli dan gambar akan tetap terjaga kualitasnya.
Cara menggunakan PhotoZoom Pro cukup mudah, tinggal jalankan programnya, trus buka file gambar yang ingin diperbesar, dan aturlah pixelnya menjadi lebih besar sesuai yang anda inginkan.
Berikut ini contoh gambar yang saya perbesar menggunakan PhotoZoom Pro 3.0.6.
Silahkan langsung download dan gunakan program ini:
Wednesday, September 14, 2011
ADODB Connection vb 6 ke SQL Server Database
Banyak cara untuk koneksi ke database sql server. Berikut ini adalah contoh koneksi database menggunakan ADODB.Connection serta contoh menampilkan isi tabel ke listbox. Pastikan anda telah membuat database dan tabel di dalamnya (SQL Service Manager harus dalam keadaan Start).
Ikuti langkah-langkah di bawah ini:
Tambahkan modul baru di project anda (pada menu project>>Add Module), dan masukkan listing di bawah ini di modul tersebut.
'Jangan lupa tambahkan reference ini
'Project>>References>>Microsoft ActiveX Data Objects 2.0 Library
Public DBKoneksi As ADODB.Connection
Public Sub BukaDatabase()
Dim StrKoneksi As String
Set DBKoneksi = New ADODB.Connection
'pada Initial Catalog=TEST --> ganti TEST dengan nama database anda
StrKoneksi = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=TEST"
If DBKoneksi.State = adStateOpen Then
DBKoneksi.Close
Set DBKoneksi = New ADODB.Connection
DBKoneksi.Open StrKoneksi
Else
DBKoneksi.Open StrKoneksi
End If
End Sub
Tambahkan satu buah listbox di form1 dan masukkan listing di bawah ini di layar coding pada form1.
Ikuti langkah-langkah di bawah ini:
Tambahkan modul baru di project anda (pada menu project>>Add Module), dan masukkan listing di bawah ini di modul tersebut.
'Jangan lupa tambahkan reference ini
'Project>>References>>Microsoft ActiveX Data Objects 2.0 Library
Public DBKoneksi As ADODB.Connection
Public Sub BukaDatabase()
Dim StrKoneksi As String
Set DBKoneksi = New ADODB.Connection
'pada Initial Catalog=TEST --> ganti TEST dengan nama database anda
StrKoneksi = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=TEST"
If DBKoneksi.State = adStateOpen Then
DBKoneksi.Close
Set DBKoneksi = New ADODB.Connection
DBKoneksi.Open StrKoneksi
Else
DBKoneksi.Open StrKoneksi
End If
End Sub
Tambahkan satu buah listbox di form1 dan masukkan listing di bawah ini di layar coding pada form1.
Private Sub Form_Load()
BukaDatabase
Dim REC As ADODB.Recordset
Set REC = New ADODB.Recordset
If REC.State = 1 Then REC.Close
'tabel_test ganti dengan nama tabel pada database anda
REC.Open "tabel_test", DBKoneksi, adOpenDynamic, adLockOptimistic
If Not REC.EOF Then REC.MoveFirst
While Not REC.EOF
List1.AddItem REC!nama 'nama adalah nama field dalam tabel
REC.MoveNext
Wend
End Sub
BukaDatabase
Dim REC As ADODB.Recordset
Set REC = New ADODB.Recordset
If REC.State = 1 Then REC.Close
'tabel_test ganti dengan nama tabel pada database anda
REC.Open "tabel_test", DBKoneksi, adOpenDynamic, adLockOptimistic
If Not REC.EOF Then REC.MoveFirst
While Not REC.EOF
List1.AddItem REC!nama 'nama adalah nama field dalam tabel
REC.MoveNext
Wend
End Sub
Coba jalankan program, jika koneksi sukses akan daftar pada listbox sesuai dengan nama field yang ada dicoding (pada contoh ini field nama).
Anda bisa download Projectnya di sini
GET MONEY FROM ZIDDU
Did you ever think to get money from internet?
Ziddu is a free file hosting which can make money online with. Ziddu allow members earn money from their files. What you should do is only upload your files and share it with others, so any user can download them.
How to make money blogging with Ziddu?
For example, your blog is talking about how to prevent from virus attacks and you have upload your anti-virus software to ziddu, so that your visitors visit your blog to find this article. If they find good way like your article, they will download it. You will earn $0.001 for one file download.
If you only upload several file to Ziddu, you can’t earned lots of money. But if you have 1000 files in Ziddu, you will earn a lot. The more your files, the more you can earn.
So, please join with ziddu and upload your files, don't forget to share your files with others. click on picture below to signup in ziddu. or click SIGN UP HERE
Ziddu is a free file hosting which can make money online with. Ziddu allow members earn money from their files. What you should do is only upload your files and share it with others, so any user can download them.
How to make money blogging with Ziddu?
For example, your blog is talking about how to prevent from virus attacks and you have upload your anti-virus software to ziddu, so that your visitors visit your blog to find this article. If they find good way like your article, they will download it. You will earn $0.001 for one file download.
If you only upload several file to Ziddu, you can’t earned lots of money. But if you have 1000 files in Ziddu, you will earn a lot. The more your files, the more you can earn.
So, please join with ziddu and upload your files, don't forget to share your files with others. click on picture below to signup in ziddu. or click SIGN UP HERE
