cek default printer

FUNCTION Boolean GetDefaultPrinterA(REF String pszBuffer, REF Long pcchBuffer) library “winspool.drv”  Alias for “GetDefaultPrinterA;ansi” String ls_printer Long ll_len ls_printer = space(100) ll_len = Len(ls_printer) GetDefaultPrinterA(ls_printer, ll_len) messagebox(‘info’, ls_printer)

Convert Number to Currency

function string convertdigit (string mydigit);choose case integer(mydigit) Case 1 Return  “One” Case 2 Return “Two” Case 3 Return “Three” Case 4 Return “Four” Case 5 Return “Five” Case 6 Return …

Fungsi Terbilang

function string f_terbilang (longlong angka) string bbilangan [0 to 12] = {“”, “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”, “delapan”, “sembilan”, “sepuluh”, “sebelas”} string hasil If angka < 12 Then …

Encript dan Decript

Setelah berhari-hari, berminggu-minggu, berbulan-bulan, akhirnya saya menemukan script dalam powerbuilder 11 untuk encript dan decript. Syntax asli dapat anda temukan di <a href=”http://www.topwizprogramming.com/freecode_crypto.html”>crypto</a>. Atau jika anda ingin script yang sudah …

Menggunakan File DSN Untuk Connect Kedalam Database

Berikut adalah langkah2 untuk masuk ke dalam database dengan menggunakan Filedsn : string app_path app_path = GetCurrentDirectory( ) SQLCA.DBMS = “ODBC” SQLCA.AutoCommit = True SQLCA.DBParm = “ConnectString=’filedsn=” + app_path+ “namafiledsn.dsn’,DisableBind=1” …

Syntax Dasar Powerbuilder

Berikut adalah syntax dasar yang harus ada (menurut saya) : Function : Function Boolean GetComputerName( ref String name, ref uLong len)Library ‘kernel32.dll’ ALIAS FOR “GetComputerNameA;Ansi” app_path = GetCurrentDirectory( ) lul_buflen …