text maarque kanan

INGATKAN DIRIMU UNTUK MENGATUR SEGALA SESUATU SUDAH DI ATUR ALLOH

salju

Senin, 12 Desember 2011

Tutor Membuat aplikasi

Tutor Membuat aplikasi kirim email smtp server dengan Powerbuilder 8.0. PDF Print E-mail
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 PDF Print E-mail
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
    
 
Fungsi Tombol Tekan PDF Print E-mail
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 PDF Print E-mail
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 )
 
mendisable menu close PDF Print E-mail
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.
 
Mengambar pada title bar PDF Print E-mail
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.
Diposting oleh di
Label:

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)