:: FREE SAMPLE KURSUS IRENK DEPOK ::

FREE VFP SAMPLE

Berikut kumpulan jawaban atas pertanyaan-pertanyaan seputar pemrograman vfp...
Sample ini ada beberapa mungkin dari jawaban rekan-rekan....
** ini bukan hanya masalah koding....tetapi bagaimana anda memaksimalkan logika :)

 

 
1 Capture Image dg SnagIt
  Do snag
  Download : snag.prg
2 Procedure dan pemakaian lparameter
  Set procedure to mztolo
  =mztolo('halo bali....')
  Download : bali.prg
3 Hyperlink dg label
  Do hyperlink
  Download : hyperlink.prg
4 Cari data dgselect ... from ... like "%anu%"
  Do cari
  Download : cari.prg
5 Combobox dg "rowsource" SQL Command
  Do combod
  Download : combod.prg
6 Combobox dg "rowsource" SQL Command, boundcolumn dan columncount
  Do combod2
  Download : combod2.prg
7 Sample enkripsi sederhana
  Set procedure to pwd.prg
? pwd('TOLO')
hasil di layar FAXA, artinya TOLO di enkripsi menjadi FAXA
  Download : pwd.prg
8 Sample dekripsi sederhana
  Set procedure to dcr.prg
? dcr('FAXA')
hasil di layar TOLO, artinya FAXA di dekrip menjadi TOLO
  Download : dcr.prg
9 Menghapus isi "Command" window vfp
  Do dian.prg
  Download : dian.prg
10 Proses untuk nomor otomatis a001 s/d z001 jika sudah z001 akan menjadi a002
  Do dianchr.prg
  Download : dianchr.prg
11 Membuat text berjalan di FORM
  Do dianjalan.prg
  Download : dianjalan.prg
12 Membuat FORM transparant
  Do diantrans.prg
  Download : diantrans.prg
13 Display tanggal dlm bentuk 28-Oktober-1980
  Set procedure to hari.prg
? tanggal(date())
? tanggal(ctod('28/10/1980'))
  Download : hari.prg
14 Contoh pemakaian library class "button"
  Do kelas.prg
  Download : kelas.prg
15 Contoh membuat menu dinamis berdasar isi table
  Do menuku.prg
  Download : menuku.prg
16 Contoh pemakaian olecontrol "Shell.Explorer.2"
  Do mztolo.prg
  Download : mztolo.zip
17 Contoh menampilkan bulan dlm format ROMAWI
  Do bulan.prg
  Download : bulan.prg
18 Membuat caption FORM dg text yg berjalan
  Do textjalan.prg
  Download : textjalan.prg
19 Contoh "toolbars"
  Do tool.prg
  Download : tool.prg
20 Contoh TRY ..... CATCH .... ENDTRY (1)
  Do tryl.prg
  Download : try.prg
21 Contoh TRY ..... CATCH .... ENDTRY (2)
  Do try2.prg
  Download : try2.prg
22 Cek folder/directory
  Do folder.prg
  Download : folder.prg
23 Contoh pemakaian ADIR() #1
  Do adir.prg
  Download : adir.prg
24 Contoh pemakaian ADIR() #2
  Do adir2.prg
  Download : adir2.prg
25 Contoh pemakaian BINDEVENT()
  Do bindevent.prg
  Download : bindevent.prg
26 Contoh BUZZ seperti di Yahoo Messeger
  Baca panduan di kodingnya.....
  Download : buzz.prg
27 CARD alias KARTU
  Do card.prg
  Download : card.prg
28 CHECKBOX
  Do cebox.prg
  Download : cebox.prg
29 Sample enkripsi #2
  Set procedure to enkrip.prg
? crypted('TOLO')
  Download : enkrip.prg
30 Sample dekripsi #2
  Set procedure to dekripsi.prg
? decrypted('TOLO')
  Download : dekripsi.prg
31 Menulis ke registry
  SET PROCEDURE TO dianreg.prg
dd=regitulooh(.t.)
? dd
  Download : dianreg.prg
32 DateTime Picker
  Do dtpicker.prg
  Download : dtpicker.prg
33 Membuat garis di excel dg Office Automation
  Do exceline.prg
  Download : exceline.prg
34 Mendapatkan ID Harddisk
  Do hddid.prg
  Download : hddid.prg
35 Append General untuk image
  Do image.prg
  Download : image.prg
36 Add image di screen
  Do image1.prg
  Download : image1.prg
37 Mendapatkan ID Motherboard
  Do mbid.prg
  Download : mbid.prg
38 Label berputar di FORM
  Do muter.prg
  Download : muter.prg
39 Apakah ActiveX/OCX sudah teregister ?
  Do occx.prg
  Download : occx.prg
40 Menampilkan nama hari dan pasaran
  SET PROCEDURE TO pasaran.prg
? pasaran(DATE())
? pasaran(CTOD('17/08/1945'))
  Download : pasaran.prg
41 Hitung lama kerja
  Do lm_kerja.prg
  Download : lm_kerja.prg
42 Mengetahui status printer
  Do printsts2.prg
  Download : printsts2.prg
43 Mencari nomor terakhir
  Do noakhir.prg
  Download : noakhir.prg
44 Pentacle dg reportlistener
  Do rlistener.prg
  Download : rlistener.prg
45 ALTER TABLE
  Do robert.prg
  Download : robert.prg
46 Apakah kode berikutnya merupakan kode yg sama/tidak dg sebelumnya
  Do scan.prg
  Download : scan.prg
47 Mengetahui apakah kode double atau tidak
  Do scan2.prg
  Download : scan2.prg
48 Animasi FORM
  Do test.prg
  Download : test.prg
49 GAME TETRIS
  Do tetris.prg
  Download : tetris.prg
50 Mencari selisih jam dan menit
  Do timelo2.prg
  Download : timelo2.prg
51 Word to PDF
  SET PROCEDURE TO pdf.prg
=WordToPdf()
  Download : pdf.prg
52 Addobject timer di screen untuk menampilkan jam di status bar
  Do setmessage.prg
  Download : setmessage.prg
53 Mencari selisih waktu untuk format DATETIME()
  Do timelo.prg
  Download : timelo.prg
54 TIMER makan siang :)
  Do timemsg.prg
  Download : timemsg.prg
55 Mengetahui range tgl untuk minggu ke "n" dlm 1 tahun
  SET PROCEDURE TO week.prg
? ctgl_aa(1,CTOD('01/01/2007'))
? ctgl_aa(2,CTOD('01/01/2007'))
? ctgl_aa(7,CTOD('01/01/2007'))
? ctgl_aa(50,CTOD('01/01/2007'))
? ctgl_aa(52,CTOD('01/01/2007'))
  Download : week.prg
56 Create file xls (office automation) dan mengisinya dg data statis
  Do xls.prg
  Download : xls.prg
57 Membuka file xls (office automation) yg ada dan menuliskan data di cell yg lain
  Do xls2.prg
  Download : xls2.prg
58 Create file csv (office automation)
  Do xls3.prg
  Download : xls3.prg
59 Menampilkan Jumat, 17 Agustus 1945
  SET PROCEDURE TO mztolo1.prg
? tgl_ina(DATE())
? tgl_ina(CTOD('17/08/1945'))
  Download : mztolo1.prg
60 SHUTDOWN
  *!* #Define EWX_LOGOFF 0
*!* #Define EWX_SHUTDOWN 1
*!* #Define EWX_REBOOT 2
*!* #Define EWX_POWEROFF 8
Set Procedure To shut.prg
Do ExitWindowsFox With 0
  Download : shut.prg
61 Menjalankan file AVI (kecil)
  do avi.prg
  Download : avi.prg
62 COMMANDGROUP
  do cmdgrp.prg
  Download : cmdgrp.prg
63 Baca xls dan disimpan ke mySQL
  do cmysql.prg
  Download : cmysql.prg
64 Beda pemakaian f ungsi ISNULL() di mySQL dan msSQL
  Sesuaikan dg kondisi server dan database anda :)
  Download : isnull.prg
65 Warna _screen yg berubah-ubah
  do pelangi.prg
  Download : pelangi.prg
66 PIVOT TABLE (office automation)
  do prg.prg
  Download : prg.prg
67 Mengetahui IP address dg winsock
  do wmpsock.prg
  Download : wmpsock.prg
68 Office Automation WORD (print preview)
  do word1.prg
  Download : word1.prg
69 Office Automation membuat tabulator di WORD
  do word3.prg
  Download : word3.prg
70 Membuka/menjalankan file WORD, PDF, XLS dll. dg WScript.Shell
  do shell1.prg
  Download : shell1.prg
71 Append General untuk image #2
  baca appendimg.prg
  Download : appendimg.prg
72 Capture 1 layar dg Win32API
  do capture.prg
  Download : capture.prg
73 Membuat form dan menampilkannya dg EXECSCRIPT( .. )
  do exeskrip1.prg
  Download : exeskrip1.prg
74 Menjalankan function yg disimpan dlm tabel dg EXECSCRIPT( .. )
  do exeskrip1.prg
  Download : exeskrip2.prg
75 Memakai "MSComCtl2.FlatScrollBar.2"
  baca flatsb.prg
  Download : flatsb.prg
76 Menampilkan gambar di layar
  do img1.prg
  Download : img1.prg
77 Hitung jam lembur dg aturan tertentu
  do lembur.prg
  Download : lembur.prg Aturan : aturan lembur.txt
78 Numeric to binary
  SET DECIMALS TO 0
SET PROCEDURE TO ntob.prg
? ntob(5)
  Download : ntob.prg
79 Trik pemakaian "on error" yg simple
  baca onerr.prg
  Download : onerr.prg
80 Teks berjalan di "status bar"
  do pesan.prg
  Download : pesan.prg
81 Pinger
  SET PROCEDURE TO pinger.prg
? pinger('192.168.0.1')
  Download : pinger.prg
82 Preview REPORT di FORM
  baca prevfrm.prg
  Download : prevfrm.prg
83 Membuat table di word dg Office Automation
  do tableoa.prg
  Download : tableoa.prg
84 Menambahkan "textbox" di "screen"
  do textani.prg
  Download : textani.prg
85 Menampilkan waktu di "status bar"
  do timermsg.prg
  Download : timermsg.prg
86 Mengetahui ukuran file(s) (definisi type data struktur di vfp)
  do ukfile.prg
  Download : ukfile.prg
87 Wait window di tengah layar
  do ww.prg
  Download : ww.prg
88 Disable/enable TASKMANAGER dg Win32API (cara penulisan "REG_DWORD")
  do taskmgr1.prg
  Download : taskmgr1.prg
89 Disable/enable TASKMANAGER dg "WScript.Shell"
  do taskmgr2.prg
  Download : taskmgr2.prg
90 Open file dg "WScript.Shell", Win32API dan Office Automation
  do wswin32.prg
  Download : wswin32.prg
91 Specifies the Window handle of the Window
  do findw.prg
  Download : findw.prg
92 Cross Tab dg SQL bertingkat
  do krostab.prg
  Download : krostab.prg
93 MLM (blom ada judul)
  do mlm.prg
  Download : mlm.prg
94 Sample pemakaian "PDF.PdfCtrl.5"
  do pdf2.prg
  Download : pdf2.prg
95 Rekursif
  do rekursif.prg
  Download : rekursif.prg
96 Reverse Text ( txeT esreveR )
  do revtxt.prg
  Download : revtxt.prg
97 NOT IN di SQL Command
  baca sql1.prg
  Download : sql1.prg
98 Caption FORM pake timer
  do tmrcap.prg
  Download : tmrcap.prg
99 Message di WINDOW
  do magic.prg
  Download : magic.prg
100 MATRIX
  do matrix.prg
  Download : matrix.prg
101 MUTEX agar aplikasi hanya jalan 1 kali
  baca mutex.txt
  Download : mutex.txt
102 Minimize ALL window
  baca shellmaw.txt
  Download : shellmaw.txt
103 Set default printer
  baca setprint.txt
  Download : setprint.txt
104 Cetak ke file TXT baru ke printer
  baca print.txt
  Download : print.txt
105 NIC ID (lan card)
  baca lancard.txt
  Download : lancard.txt
106 Report ke HTML dg FRX2ANY
  xtract mzf2any.rar
  Download : mzf2any.rar
107 Lock Keyboard
  baca lockkey.txt
  Download : lockkey.txt
108 DIAL-UP dan HANG-UP
  do dialup.prg
  Download : dialup.prg
109 NoDriveTypeAutoRun
  do nodrv.prg
  Download : nodrv.prg
110 Delete FOLDER
  SET PROCEDURE TO deldir.prg
? DELTREE('c:\coba')
  Download : deldir.prg
111 Pembulatan dengan CEILING dan FLOOR
  Baca bulat.txt
  Download : bulat.txt
112 Refresh GRID berdasar input (help dg on key label dan notepad)
  Ekstrak coba.zip
  Download : coba.zip
113 Sample FOPEN
  Baca f-open.txt
  Download : f-open.txt
114 GetDriveType
  Baca getdrvtype.txt
  Download : getdrvtype.txt
115 Grafik dengan "MSChart20Lib.MSCHart.2"
  Baca grafik.txt
  Download : grafik.txt juga ini grafik2.prg
116 IIF( .. ) dan ICASE( .. )
  Baca icase.txt
  Download : icase.txt
117 Pageframe yg bergoyang (juga _screen)
  Baca pfgoyang.txt
  Download : pfgoyang.txt untuk goyang layar yg ini scrgoyang.txt
118 Primary key dari table mySQL
  Baca primarykey.txt
  Download : primarykey.txt
119 Menentukan ranking data (spt fungsi RANK di excel)
  Do rank.prg
  Download : rank.prg
120 Sample form dengan "MSComCtl2.FlatScrollBar.2"
  Ekstrak scroll.rar
  Download : scroll.rar
121 Membuat shortcut dengan registri
  Baca startup.txt
  Download : startup.txt
122 Sample OpenOffice #1
  Do vfpoo.prg
  Download : vfpoo.prg
123 Sample OpenOffice #2
  Do vfpoo2.prg
  Download : vfpoo2.prg
124 Output di define window
  Baca viewdc.txt
  Download : viewdc.txt
125 Warna baris grid hijau putih (SetAll("DynamicBackColor", ... )
  Baca gridclr.txt
  Download : gridclr.txt
126 Pengganti MESSAGEBOX standard VFP (disiapkan oleh mas sinyonamakoe)
  Baca dulu Readme.Rtf
  Download : _messagebox.rar
127 Setiap create new table di DBC di MSSQL juga tercipta table baru
  Baca dbfsql.txt
  Download : dbfsql.txt
128 Kalender pengganti Datetime picker (disiapkan oleh mas sihAWAM)
   
  Download : kalender.rar
129 Teks jalan dg source dari cursor atau file table
   
  Download : textjalan.rar
130 Double Click di GRID
   
  Download : dblklikgrid.rar
131 Layar Sentuh
   
  Download : sentuh.rar
132 Contoh pemakaian DOEVENTS
   
  Download : doevents.rar