wismbuhAvatar border
TS
wismbuh
no run like fox [sharing foxpro]
buat temen2 pengguna, pemerhati & pakar foxpro, mari kumpul disini.
daripada trit pada loncat kemanamana, kenapa tidak kumpul disini, this is our home!
kalo mo ask or share, mari gan.
daftar pengunjung:
wismbuh,wc_bukan_kafe,aberta,SwingerQueen,fauzijabbar,Vaaaan,GetFreak,magnumjkt,hunter_XV,attasiagian,seydaney dan masih akan bertambah gan
[Klik tulisan "Klik" untuk versi lengkapnya]
emoticon-Shakehand2
  1. isu
  2. Self Running, RunTime ato foldernya ato kalo mo langusng bisa download installernya di sini.
  3. nyembunyiin SCREEN VFP
  4. login menggunakan user&password MySQL ato klik disini
  5. Persiapan CRUD dgn MySQL
  6. Report Listener & REPORT FORM
  7. INSERT FROM NAME
  8. tidak semua perintah dalam *.prg bisa untuk command prompt
  9. Text Merge
  10. INSERT..SELECT
  11. membaca file ini
  12. menampilkan isi tabel dalam form pake textbox
  13. Membuat Form Transparan
  14. membuat customize grid
  15. export ke excell menggunakan "macro", menggunakan cursor untuk keperluan export
  16. Filter berdasarkan absensi (jam masuk dan keluar)
  17. backup menggunakan software 7-zip
  18. ngePrint Barcode ato bikin barcode
  19. variabel alternatip dalam form, nggak perlu public..
  20. webcam
  21. mengeja huruf dan bersuara
  22. ebook
  23. SPT, SQL Pass Throught
  24. hurup bolak balik, kanan ke kiri
  25. coding pendeteksi error
  26. mapWindow, contoh penggunaanya klik disini
  27. enskripsi pake Cipher50.fll
  28. IP Address & login by IP
  29. cari file dengan wildcard sampe subfolder
  30. print langsung ke printer
  31. gammu
  32. menjalan eksternal exe yg keren
  33. start, stop servicenya windows
  34. tutorial, intermeso nih: vmWareThinApp
  35. mempercantik form
  36. Grid BerHalaman [[I]paging[/I]]
  37. entri 01/02/2011; diubah menjadi 1 Februari 2011
  38. menghapus data ganda
  39. mengarahkan record diatas sesuai pencarian
  40. PHP
  41. link download DeCompiler VFP
  42. bikin LOG gile
  43. Cloud Computing [vfp2iis & foxincloud]
  44. Membaca Registry Komputer lain
  45. Format Tanggal GMT
  46. ShutDown, Restart ddl [satu, dua dan tiga]
  47. Transaction SQL
  48. Class di PRG, bikin object
  49. bikin custom casting
  50. kirim email, cek internet & kirim email lagi.
  51. VFP2IIS (Direct Aplikasi Desktop To WEB)
  52. report ke excell
  53. report ke pdf atau pake PRIMO
Diubah oleh wismbuh 10-08-2013 10:23
nona212
nona212 memberi reputasi
1
159K
2.6K
GuestAvatar border
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
Programmer ForumKASKUS Official
20.2KThread4.2KAnggota
Tampilkan semua post
wismbuhAvatar border
TS
wismbuh
#447
Quote:
yoi gan, kept in kaskus!

Quote:
mungkin gini gan;
di ComboBox.Valid isi dgn script berikut:
Code:
LOCAL lcSaveAlias,lcFilter
lcSaveAlias=ALIAS() &&menyimpan posisi alias saat ini
lcFilter='SET FILTER TO penjualandetil.fakturID='+ALLTRIM(STR(This.Value))
** jika fakturID bertype karakter, silahkan dirubah,
** asumsi diatas fakturID pake numerik/integer
SELECT penjualandetil
&lcFIlter
** memerintahkan penjualanDetil agar difilter sesuai isi combo
** sebab isi dari lcFilter adalah "SET FILTER TO penjualandetil.fakturID=5
** misalnya combo dipilih menghasilkan IDfaktur 5
ThisForm.Grid1.Refresh()
SELECT &lcSaveAlias &&mengembalikan posisi alias semula


Quote:
kalo SELAMAT PAGI menjadi TAMALES IPAG, berarti ada dua procedure gan, fungsi pertama adalah membalik kata, apapun yg dilewatkan kedia, akan dibalik, mungkin seperti ini:
Code:
WAIT WINDOW pecahKata('SELAMAT PAGI'/;)/

FUNCTION pecahKata
PARAMETERS pcKal
pcKal=ALLTRIM(pcKal)
LOCAL lcHasilKal
lcHasilKal=''
DO WHILE OCCURS(" ",pcKal)>0 &&lakukan looping jika ada spasi
IF !EMPTY(lcHasilKal)
lcHasilKal=lcHasilKal+' '
ENDIF
lcHasilKal=lcHasilKal+balikKata(LEFT(pcKal,AT(' ',pcKal)))
pcKal=ALLTRIM(SUBSTR(pcKal,AT(' ',pcKal),LEN(pcKal)))
IF !EMPTY(pcKal)
** Jika tinggak satu kata saja
IF OCCURS(" ",pcKal)=0
lcHasilKal=lcHasilKal+' '+balikKata(pcKal)
ENDIF
ENDIF
ENDDO
RETURN lcHasilKal
ENDFUNC

FUNCTION balikKata
PARAMETERS pcKata
pcKata=ALLTRIM(pcKata)
LOCAL lcHasil
lcHasil=''
FOR kk=1 TO LEN(pcKata)
\tlcHasil=SUBSTR(pcKata,kk,1)+lcHasil
ENDFOR
RETURN lcHasil
ENDFUNC
sedangkan input SELAMAT menjadi ESALAMT,tinggal agan kembangkan lagi, enak aja semua dibikinkan contoh... ngakaks
0
Ikuti KASKUS di
© 2023 KASKUS, PT Darta Media Indonesia. All rights reserved.