Tuesday, March 31, 2009

membuat program stopwatch menggunakan Delphi

Mau buat program delphi untuk menulis file stopwatch, mungkin temen-teman mau mencoba program ini, untuk sekedar coba-coba ato urusan yang laen...!!!




Program ini menggunakan perintah yang sederhana dan dapat dipergunakan sesuai kebutuhan anda, seperi membuat file temp atau register atau apapun sesuai keinginan anda.

untuk membuat program,ikuti langkah-langkah seperti dibawah ini


1. buka program delphinya (masak gak bisa sih...!!!!)
2. buat form yang isi nya ada 2 Button, 2 label, 1 timer dengan desain seperti ne..



3. trus tinggal ikuti perintah-perintah dibawah ni yah:



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, XpMan, SUIURLLabel;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Button2: TButton;
Button3: TButton;
Label2: TLabel;
suiURLLabel1: TsuiURLLabel;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
StartTime,StopTime: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
// perintah untuk formnya(caranya doble klik formnya)
Timer1.enabled := false;
end;

function waktunya(wkt: double): string;
var
VTime: double;
Hari,Jam,Menit: integer;
detik: double;
begin
If int(wkt) > 0 then
Hari := 0 else Hari := Trunc(wkt);

wkt := Frac(wkt) * 24; // untuk jam
Jam := Trunc(wkt);

wkt := frac(wkt) * 60; // untuk Menit
Menit := Trunc(wkt);

detik := frac(wkt) * 60; // untuk detik

Result := IntToStr(Hari) + ' Hari, ' +
IntToStr(Jam) + ' Jam, '+
IntToStr(Menit) + ' menit, ' +
FloatToStrF(detik, ffFixed,15,2) + ' detik';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
// perintah untuk form shownya(caranya pilih formnya lalu klik event OnShow)
Button3.Caption := '&Start';
Label1.Caption := waktunya(0.0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
CTime: TDateTime;
ETime: double;
begin
// perintah untuk Timernya)
CTime := now;
ETime := CTime - StartTime;
Label1.caption := waktunya(ETime);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// perintah untuk Tombol 2 (RESET)
If Timer1.Enabled=True Then
showmessage('Tekan Stop terlebih dahulu baru reset....!!')
else
Label1.caption := waktunya(0.0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
// perintah untuk Tombol 2 (STAR)
if Button3.Caption = '&Start' then
begin
StartTime := now;
Label1.caption := waktunya(0.0);
Timer1.enabled := true;
Button3.Caption := '&Stop';
end else
begin
Timer1.enabled := false;
StopTime := now;
Button3.Caption := '&Start';
end;
end;

end.

ato kalo mau download filenya klik ja disini

Monday, March 30, 2009

Membuat dan menulis file notepad menggunakan Delphi

Mau buat program delphi untuk menulis file notepad, mungkin temen-teman mau mencoba program ini, untuk sekedar coba-coba atou urusan yang laen...!!!
Program ini menggunakan perintah yang sederhana dan dapat dipergunakan sesuai kebutuhan anda, seperi membuat file temp atau register atau apapun sesuai keinginan anda.
untuk membuat program, ikuti langkah-langkah seperti dibawah ini

1. Buka program dephi anda
2. Tambahkan 2 buah tombol(Button), 1 buah Memo dan sebuah save dialog seperti gambar dibawah ini




3. Tuliskan perintah-perintah yang berada dibawah ini kedalam form yang anda buat sebelumnya

procedure TForm1.Button1Click(Sender: TObject);
begin
// untuk tombol Tulisan baru
Memo1.Clear;
Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
F:TextFile;
nmfile:String;
begin
//untuk tombol Simpan tulisan
If SaveDialog1.Execute Then
Begin
nmfile:=SaveDialog1.FileName+'.txt';
AssignFile(F,nmfile);
Rewrite(F);
Write(F,Memo1.Text);
CloseFile(F);
End;
end;

4. setelah teman-teman mengetikkan perintah diatas, coba jalankan program yang anda buat dengan menekan tombol "RUN" atau "F9" pada keyboad.
5. selamat mencoba



berikut adalah perintah lengkapnya:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, XPMan;

type
TForm1 = class(TForm)
HeaderControl1: THeaderControl;
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// untuk tombol Tulisan baru
Memo1.Clear;
Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
F:TextFile;
nmfile:String;
begin
//untuk tombol Simpan tulisan
If SaveDialog1.Execute Then
Begin
nmfile:=SaveDialog1.FileName+'.txt';
AssignFile(F,nmfile);
Rewrite(F);
Write(F,Memo1.Text);
CloseFile(F);
End;
end;
end.

ato kalo mau download file programnya bisa disini

Thursday, March 26, 2009

SQL Server 2000

SQL Server adalah sistem manajemen database relasional (RDBMS) yang dirancang untuk aplikasi dengan arsitektur client/server. Istilah client, server, dan client/server dapat digunakan untuk merujuk kepada konsep yang sangat umum atau hal yang spesifik dari perangkat keras atau perangkat lunak. Pada level yang sangat umum, sebuah client adalah setiap komponen dari sebuah sistem yang meminta layanan atau sumber daya (resource) dari komponen sistem lainnya. Sedangkan sebuah server adaah setiap komponen sistem yang menyediakan layanan atau sumber daya ke komponen sistem lainnya.

Sistem Client /Server

Sistem Client /Server (Marcus Teddy cs 2004)

Sistem client/server adalah dirancang untuk memisah layanan basisdata dari client, dengan penghubungnya menggunakan jalur komunikasi data.

Layanan basisdata diimplementasikan pada sebuah komputer yang berdaya guna, yang memungkinkan manajeman tersentralisasi, keamanan, dan berbagai sumber daya. Oleh karena itu, server dalam client/server adalah basisdata dan layanannya. Aplikasi-aplikasi client diimplementasikan pada berbagai flatform, menggunakan berbagai kakas pemrograman.


Tampilan Microsoft SQL Server 2000

SQL Server adalah server basisdata yang secara fungsional adalah proses atau aplikasi yang menyediakan layanan basisdata. Client berinteraksi dengan layanan basisdata melalui antar muka komunikasi tertentu yang bertujuan untuk pengendalian dan keamanan. Client tidak mempunya akses langsung kedata, tetapi selalu berkomunikasi dengan server basisdata. (Marcus Teddy.2004).
SQL Server menggunakan tipe dari database yang disebut database relasional. Database relasional adalah database yang digunakan sebuah data untuk mengatur atau mengorganisasikan kedalam tabel. Tabel-tabel adalah alat bantu untuk mengatur atau mengelompokan data mengenai subyek yang sama dan mengandung informasi dan kolom dan baris. Tabel-tabel saling berhubungan dengan mesin database ketika dibutuhkan.
SQL Server mendukung beberapa tipe data yang berbeda, termasuk untuk karakter, angga, tanggal (datetime) dan uang (money), SQL Server digunakan untuk menggambarkan model dan implementasi pada database.
Keuntungan menggunakan SQL Server dapat didefinisikan menjadi dua bagian yaitu satu bagian untuk menjalankan pada server dan bagian lain untuk client.

  • Keuntungan Client

    • Mudah digunakan.

    • Mendukung berbagai perangka keras.

    • Mendukung berbagai aplikasi perangkat lunak.

    • Biasa untuk digunakan

  • Keuntungan Server

    • Dapat diandalkan (Reliable)

    • Toleransi kesalahan (Fault Tolerant)

    • Konkurensi (Concurrent)

    • Performa tingggi dalam perangkat keras (High-performance Hardware)

    • Pengendalian terpusat (Centralized Control)

    • Penguncian yang canggih (Sophisticated Locking).

    (Marcus Teddy.2004).

(view with faesal_lbk)