Mau Hosting Gratis ?

Hosting gratis


KLIK DISINI : IDHOSTINGER

Menghitung Selisih Tanggal

Berbagi Codes akan membagikan tutorial bagaimana membuat Code Random Sederhana. Penulis menggunakan Borland Delphi 7.0

Langkah pertama :
1. Buka Delphi versi berapapun
2. File - New - Form
3. Buat Form dengan gambar seperti di bawah ini :

  

    * keterangan :

    a. Buat 2 buah datetimepicker

    b. Buat 3 buah edittext

    c.  Buat 1 buah button

    d. Buat 1 buah label

4. Pada datetimepicker1 properties on Change sisipkan kode program di bawah ini :
procedure TForm1.DateTimePicker1Change(Sender: TObject);
beginedit1.Text := DateToStr(DateTimePicker1.Date);
end;

5.  Pada datetimepicker2 properties on Change sisipkan kode program di bawah ini :
procedure TForm1.DateTimePicker1Change(Sender: TObject);
beginedit2.Text := DateToStr(DateTimePicker2.Date);
end;

6. Pada button1 klik 2 kali, masukkan kode program di bawah ini :
procedure TForm1.Button1Click(Sender: TObject);
varx : Integer;
beginx := 10;
if (edit1.Text = '') or (edit2.Text = '') then
beginshowmessage('Jangan Ada Kekosongan di antara kita');
edit1.Clear;
edit2.Clear;
end else begin
tryEdit3.Text:= floattostr(strtodate(edit2.Text)-strtodate(edit1.Text));
except
exit;
end;
end;
end;

7. Simpan project kemudian Compile F9

Jika Anda merasa kesulitan , Monggo silahkan
DOWNLOAD DISINI

Membuat Running Text sederhana

Berbagi Codes akan membagikan tutorial bagaimana membuat Code Random Sederhana. Penulis menggunakan Borland Delphi 7.0

 Langkah pertama :
1. Buka Delphi versi berapapun
2. File - New - Form
3. Buat Form dengan gambar seperti di bawah ini :

*keterangan :
1. Panel1
2. Label1
3. Timer1 dengan interval 1

ni adalah code programnya jika penulis masih salah tolong di maafin ye.. hehehe, Kalo masih ga mudeng silahkan

 DOWNLOAD DISINI


 4.  Masukkan kode berikut di dalam Timer1 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left := label1.Left-1;
IF (label1.Left + label1.Width) <= 0 THEN
label1.Left := panel1.Width;
end;

 5. Masukkan kode berikut ke dalam form create
procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.DoubleBuffered := true;
end;

Demikian.

Code Random Sederhana

Berbagi Codes akan membagikan tutorial bagaimana membuat Code Random Sederhana. Penulis menggunakan Borland Delphi 7.0

 Langkah pertama :
1. Buka Delphi versi berapapun
2. File - New - Form
3. Buat Form dengan gambar seperti di bawah ini :

*

*keterangan :
a. Siapkan Label1
b. Button1

ni adalah code programnya jika penulis masih salah tolong di maafin ye.. hehehe, Kalo masih ga mudeng silahkan

DOWNLOAD DISINI

Masukkan function di bawah code {$R *.dfm} seperti gambar di bawah ini :

 kemudian klik 2 kali pada button1 dan masukkan kode seperti gambar di bawah ini :

kemudian simpan dengan nama project1( atau terserah anda ). kemudian compile / F9

Membuat Auto Complete Delphi 7

Berbagi Codes akan membagikan tutorial bagaimana membuat auto complete menggunakan database Microsot Access 2003 .mdb . Penulis menggunakan Borland Delphi 7.0 dan database Ms Access 2003 . 


 Langkah - langkah nya adalah :

1. Siapkan Database Access .mdb buat table1 dengan field autocomplete dengan datatype Memo

2. Kemudian Buka Delphi 7.0 ( atau monggo boleh menggunakan Delphi versi berapapun )
3. File - New - Form

4. Desain form seperti gambar di bawah ini :

*keterangan :
   a. Component Ado Connection, AdoTable, DataSource1
   b. Label1 dengan caption Auto complete 
   c. Edit1.text , button1 dengan caption Add, GroupBox1 dengan caption List, dan Memo1
   d. Simpan Project1

Ini adalah code programnya jika penulis masih salah tolong di maafin ye.. hehehe, Kalo masih ga mudeng silahkan
DOWNLOAD DISINI
=======================================================================
{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB,  ShlIntf, ActiveX, ComObj, StrTools;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable1autocomplete: TMemoField;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
  procedure perulangan;
  FAutoComplete : IAutoComplete2;
  FStrings : IUnknown;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.perulangan;
begin
{  dm.Keluar.Active := false;
  tampil;
  dm.Keluar.Active := true;
  dm.Keluar.First;
  while not dm.Keluar.Eof do
  begin
  ed_no_agenda_tambah.Items.Add(dm.Keluarno_agenda_tambah.AsString);
  edtanggal.Items.Add(dm.Keluartanggal_surat.AsString);
  ed_kepada.Items.Add(dm.Keluarkepada.AsString);
  edperihal.Items.Add(dm.Keluarperihal.AsString);
  dm.Keluar.Next;
  end;
  dm.Keluar.Close;
  dm.Keluar.open;
}
ADOTable1.First;
while not ADOTable1.Eof do
  begin
  Memo1.Lines.Add(ADOTable1autocomplete.AsString);
  ADOTable1.Next;
  end;
ADOTable1.Close;
ADOTable1.Open;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Text :='';
edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text ='' then
  begin
  ShowMessage('data kosong');
  edit1.SetFocus;
  exit;
  end;
ADOConnection1.BeginTrans;
try
ADOTable1.Append;
ADOTable1autocomplete.Value := edit1.Text;
ADOTable1.Post;
memo1.Lines.Add(edit1.Text);
edit1.Text :='';
edit1.SetFocus;
ADOConnection1.CommitTrans;
except
ADOConnection1.RollbackTrans;
ShowMessage('data tidak dapat disimpan');
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(13) then
Button1.SetFocus;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
perulangan;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //FAutoComplete  := CreateComObject(CLSID_AutoComplete) as IAutoComplete2;
  FStrings := TEnumString.Create(Memo1.Lines) as IUnknown;
  OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_UPDOWNKEYDROPSLIST));
  OleCheck(FAutoComplete.Init(edit1.Handle, FStrings, nil, nil));

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

end.
=======================================================================

Belajar Pemrograman Delphi

Belajar Pemrograman Delphi