|
Membuat Browser Sederhana dengan Powerbuilder 8.0 |
 |
 |
 |
|
Tips dan Trik Powerbuilder
|
|
Browser ini dibuat dengan menggunakan pemrograman Powerbuilder 8.0. Program ini sangat sederhana sekali seperti gambar di bawah ini: Source Program download disini...  Source Program download disini... |
|
Powerbuilder -
Tutorial Powerbuilder
|
|
Tutor ini membahas bagaimana caranya membuat aplikasi krim email ( Smtp-server). Sebelum dilakukan pengiriman email dilakukan setting smtp server terlebih dahulu. Pada tutor ini terdiri dari object-object sebagai berikut : 1. Non Visual Object : n_smtp dan n_winsock 2. Visual object : Window konfigurasi dan window email. 3. File pendukung lainnya dapat di download dari forder source code. Source aplikasi dapat di download di sini. Aplikasi Jadi dapat di download di sini. A. N-smtp dan w_winsock dapat diambil dari source code aplikasi dan tambahkan pada project anda. B. Membuat Window Konfigurasi SMTP-server  1. Buatkan desain seperti tampilan gambar di atas. 2. Buat Variable : - Global Variable : n_smtp gn_smtp - GlobalExternalFuntions : Function ULONG GetCurrentDirectoryA(ULONG nBufferLength, ref STRING lpBuffer) library "KERNEL32.dll" |
|
Read more...
|
|
Fungsi Merubah Password-Password Encription |
|
|
|
|
Powerbuilder -
Tips dan Trik Powerbuilder
|
|
Written by -
|
int i,j, li_panjang, li_huruf1, li_huruf2, li_jarak
string ls_huruf1,ls_huruf2, ls_tampung
//masuk = masuk
li_panjang = Len(masuk)
if li_panjang < 1 then return char(0)
For i = 1 to li_panjang
ls_huruf1 = Mid(masuk,i,1) // huruf yang akan dikonversikan
j = i + 1
IF j > li_panjang THEN j = 1
ls_huruf2 = Mid(masuk,j,1) //patokan huruf
li_huruf1 = ASC(ls_huruf1)
li_huruf2 = ASC(ls_huruf2)
li_jarak = li_huruf2 - li_huruf1
IF li_jarak = 0 THEN li_jarak = li_huruf1
li_huruf1 = (li_jarak * 2) + li_huruf2 //ini algoritmanya
IF li_huruf1 < 0 THEN
li_huruf1 = 255 - li_huruf1
ELSEIF li_huruf1 > 255 THEN // lihat perkaliannya bisa terjadi li_huruf2 = 255
li_huruf1 = li_huruf1 - 255 // li_huruf1 = 255
IF li_huruf1 > 255 THEN // maka jadinya maksimum li_huruf1 -> 255 * 3 = 765
li_huruf1 = li_huruf1 - 255
END IF
END IF
ls_huruf1 = char(li_huruf1)
ls_tampung = ls_tampung + ls_huruf1
Next
//messagebox(ls_tampung,STRING(LI_PANJANG))
IF li_panjang < 15 Then
ls_tampung = wf_rubah_pass(masuk + ls_tampung)
END IF
IF LEN(ls_tampung) > 15 THEN ls_tampung = Mid(ls_tampung,1,15)
//messagebox(ls_tampung,STRING(LI_PANJANG))
Return ls_tampung
|
|
Powerbuilder -
Tips dan Trik Powerbuilder
|
|
Written by -
|
|
Sunday, 14 November 2010 09:26 |
int li_column_number,li_column_count
boolean lb_enter,lb_dwnrow,lb_keytab,lb_pagedwn
boolean lb_pageup, lb_uparrow
string setting
setting = dw.Object.DataWindow.Label.Sheet
setting = dw.Object.DataWindow.type
lb_enter = keydown(keyenter!)
lb_dwnrow = keydown(keydownarrow!)
lb_keytab = keydown(keytab!)
lb_pagedwn = keydown(keypagedown!)
lb_pageup = keydown(keypageup!)
lb_uparrow = keydown(keyuparrow!)
li_column_number = dw.getcolumn()
li_column_count = integer(dw.object.datawindow.column.count)
|
|
Read more...
|
|
Fungsi ini untuk mencari tanggal akhir dari suatu bulan |
|
|
|
|
Written by admin
|
|
Sunday, 14 November 2010 09:23 |
|
//Powerbuilder Function // Fungsi ini untuk mencari tanggal akhir dari suatu bulan //
// Input : String Tanggal //
// Output : Date Tanggal //
// integer li_hari[12] = {31,28,31,30,31,30,31,31,30,31,30,31}
integer li_bulan,li_tahun //li_tanggal,
//date ld_tanggal
//li_tanggal=integer(mid(tanggal,1,2))
li_bulan=integer(mid(tanggal,4,2))
li_tahun=integer(mid(tanggal,7,4))
IF li_bulan = 12 THEN
li_bulan = 1
li_tahun = li_tahun + 1
ELSE
li_bulan = li_bulan + 1
END IF
RETURN RelativeDate( Date ( li_tahun, li_bulan, 1) , - 1 )
|
|
Delphi -
Tips dan Trik Delphi
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);
if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end.
|
|
Delphi -
Tips dan Trik Delphi
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
ACanvas : TCanvas;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do begin
Brush.Color := clActiveCaption;
Font.Name := 'Tahoma';
Font.Size := 8;
Font.Color := clYellow;
Font.Style := [fsItalic, fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) + 1,
' Teks pada Caption');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;
end.
|
|
|
