Seorang teman pernah meminta untuk dibuatkan program sederhana yang dapat mencetak file gambar tanpa perlu membukanya terlebih dahulu menggunakan software pengolah gambar. Bagaimana caranya?

Sebagai ilustrasi, apabila Anda menggunakan windows explorer di windows, Coba perhatikan. Pada saat meng-klik kanan sebuah file gambar maka akan muncul daftar pilihan "action" yang salah satunya adalah action "print". Kemudian coba Anda klik action print tersebut. Apa yang terjadi? ternyata sistem windows langsung mencetak file gambar tersebut langsung ke printer. Seperti itulah kira-kira program sederhana yang diminta teman tersebut. Masukkan nama file yang diminta, klik tombol "Print" dan seketika itu juga file gambar akan tercetak melalui printer. Bagaimana cara membuatnya menggunakan Visual FoxPro?

Tidak ada yang tidak mungkin di dunia ini, yang ada hanyalah keterbatasan pengetahuan kita untuk melakukan sesuatu yang (sekarang) belum mungkin. Bingung?.. hehehe.. lupakan saja, kita kembali ke tugas 'sederhana' di atas.

Tugas tersebut bisa dilakukan dengan mudah menggunakan Visual FoxPro dengan memanfaatkan fungsi API yang diberinama ShellExecute(). Dengan ShellExecute() Anda bisa mencetak file apa saja dengan mudah dan cepat, cukup tulis nama file lalu klik tombol maka file akan tercetak. Bahkan lebih dari itu, dengan ShellExecute() Anda bisa melakukan apa saja yang biasa dilakukan oleh sistem windows seperti membuka (open) file, membuka folder, memainkan file lagu, mengirimkan email, bahkan membuka alamat website. Tertarik? baca terus deh...

Karena ShellExecute() adalah sebuah fungsi API, Anda harus men-Declare fungsi tersebut sebelum menggunakannya untuk mencetak file gambar atau keperluan lainnya. Kalau tidak mau repot, ketikkan saja (copy-paste) contoh Declare berikut ini:

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ; 
STRING cDir, ;
INTEGER nShowWin

Sebagaimana terlihat pada baris kode di atas, fungsi ShellExecute() memiliki enam parameter, yaitu:

hndWin: Untuk mendefinisikan window utama. Di Visual FoxPro, biasanya di-set ke nilai 0.
cAction: mendefinisikan jenis action yang diminta (print, open, play, dll).
cfileName: mendefinisikan nama file yang akan dieksekusi sesuai jenis action yang diminta.
cParams: Apabila file yang akan dieksekusi adalah file program executable (exe), biasanya ada parameter yang menyertainya, definisikan di sini apabila ada.
cDir: Apabila pada paramter cfilename Anda hanya menuliskan nama file saja, maka lokasi folder file tersebut harus Anda definisikan di sini.
nShowWindow: Tampilan awal window yang Anda inginkan (1 = normal, 2 = minimised, 3 = maximised).

Selanjutnya, Anda dapat menjalankan fungsi ShellExecute() tersebut dengan perintah:

ShellExecute(hndWin,cAction,cFileName,cParams,cDir,nShowWin)

Perhatikan! penulisan "ShellExecute" adalah case-sensitive sesuai dengan nama fungsi yang sudah di-Declare; dimana hndWin, cAction, cFileName, cParams, cDir, nShowWin adalah parameter-parameter yang sudah  harus Anda definisikan sebelumnya.

Sebagai contoh misalkan Anda ingin mencetak file gambarku.jpg yang ada di folder C:\gambar, maka Anda harus menuliskan baris kode berikut:

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ; 
STRING cDir, ;
INTEGER nShowWin

hndwin= 0
cAction= "print"
cFileName= "gambarku.jpg"
cParams= ""
cDir= "c:\gambar\"
nShowWin= 1

ShellExecute(hndWin,cAction,cFileName,cParams,cDir,nShowWin)

Lalu bagaimana Apabila yang diinginkan adalah mencetak seluruh file gambar yang ada di folder tersebut? Bisakah?.. Silahkan gunakan imajinasi dan kreatifitas Anda...

Semoga bermanfaat dan..... Selamat berkreasi.

Comments

Add New Search

nur badiyah   |125.163.202.xxx |2010-05-26 05:44:54 apa kelebihan dan kelemahan pemrograman visual foxpro dibandingkan dengan pemrograman visual basic 6.0 Reply | Quote 0   0

Write comment
Name:
Email:	do not notifynotify
Website:
Title:
UBBCode:	-color-aquablackbluefuchsiagraygreenlimemaroonnavyolivepurpleredsilvertealwhiteyellow -size-tinysmallmediumlargehuge
	Please input the anti-spam code that you can read in the image.

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."