Print Screen Dengan aplikasi Buatan

Uantuk latihan Selanjutnya saya coba shara membuat aplikasi print Scren menggunakan delphi.
langsung ajah yach dah g sabar nech...

Untuk Komponen nya mudah k....

1. 3 buah Button
2. 1 buah image

Untuk Design lihat designnya di bawah ini :

Untuk Image nya di taruh aja di bawah komponen itu :

Sekarang tinggal aja Atur propertiesnya

Form Autoscrol : False trus Tinggal tulis ajah source code nya di bawah ini :

function GetScreenShot: TBitmap;

var

  Desktop: HDC;

begin

  Result  := TBitmap.Create;

  Desktop := GetDC(0);

  try

    try

      Result.PixelFormat := pf32bit;

      Result.Width := Screen.Width;

      Result.Height := Screen.Height;

      BitBlt(Result.Canvas.Handle, 0,0, Result.Width, Result.Height, Desktop, 0,0, SRCCOPY);

      Result.Modified := True;

    finally

      ReleaseDC(0, Desktop);

    end;

  except

    Result.Free;

    Result := nil;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Picture.Bitmap := GetScreenShot;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Image1.Picture:=nil;

WindowState:=wsNormal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

WindowState:=wsMaximized;

end;

end.

Untuk lebih detailnya Download ajah Source code nya di bawah ini :

.: Disini :.

Kalkulator Dengan Delphi

Untuk Kesempatan kali ini saya coba meng'expost membuat kalkulator sederhana menggunakan Delphi. gusah banyak ngomong langsung aja praktek,,

Sebelumnya saya kasih komoponen yang di gunakan dalam  pembuatan Kalkulator sederhana. yang harus disiapkan antara lain :

1. 3 buah Edit
2. 8 buah Button
3. 4 buah Label

selanjutnya Tinggal Design aja Sperti di bawah ini :

Untuk Source Code nya  tinggal COPAS ajah di bawah ini :


procedure TForm1.ClearClick(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit1.SetFocus;
end;

procedure TForm1.TambahClick(Sender: TObject);

begin

if edit1.Text=''then

  begin

  beep;ShowMessage('Angka 1 belum di isi');

  edit1.setfocus;

  end else

if edit2.Text=''then

  begin

  beep;ShowMessage('Angka 2 belum di isi');

  edit2.setfocus;

  end else

  begin

  a:=strtoint(edit1.Text);

  b:=strtoint(edit2.Text);

    c:=a+b;

    edit3.Text:=inttostr(c);

    end;

end;

Untuk Operator tinggal ganti ajah Source Code yang di c:=a+b; Untuk Operator yang laen + di ganti dengan -,*,/, div dan mod.
Selesai dech....


met mencoba Semoga Sukses......

Shutdown Komputer Dengan Delphi 7

Men-Shutdown Komputer Dengan Delphi

Untuk trik pertama tentang Delphi saya coba Share cara Men-Shutdown Komputer dengan perintah di delphi 7. Bahkan tidak hanya Untuk Shutdown melainkan untuk perintah lainya  yaitu Log Of dan Restart. deskripsi Perintah menggunakan ExitWindowsEx. adapaun Deklarsasi dari fungsi diatas adalah Sebagai berikut : 

Fungstion ExitWindowsEx (uFlags : Word; dwReserved : DWORD) : BOOL;

Parameter Pertama menerangkan "Apa yang akan di lakukan oleh Komputer". Parameter ini dapat bernilai :

KONSTANTA	KETERANGAN
EWX_RESTART	Perintah Restart dengan Menampilkan peringatan
EWX_SHUTDOWN	Perintah Shutdown dengan Menampilkan peringatan
LOGOFF	Perintah Log Off dengan Menampilkan peringatan
FORCE	Perintah Shutdown tanpa Menampilkan peringatan. Sehingga ada kemungkinan data yang hilang sebelum disimpan

Sedangkan Parameter Kedua bernilai 0.
Contohj untuk men-Shutdown Komputer sebagai berikut :
ExitWindowsEx (EWX_SHUTDOWN, 0);


Oeky Itu dulu yach.....

Mengenal Delphi 7

Sob.... Hari ini aku coba Share Bahasa Pemrograman Delphi 7..... tapi sebelum  terjun langsung ke latihan Program nech aku kenalin dulu apa ajah yang ada di Delphi 7... 


1. Componen Menu bar

Fungsi dan kegunaan dari menu bar tuch bisa kalian coba sendiri yang pasti disitu tersedia pembuatan file baru, compile, database, serta componen tambahan untuk melengkapi Aplikasi.


2.  ToolBar/SpeedBar

Yang pasti ini fungsi nya sama dengan Menu Bar (Short Cut)

3. Componen Palette

Componen tambahan ato objek tambahan yang bisa digunakan untuk melengkapi Form sesuai dengan kebutuhan. Di dalam Component Palette terdapat berbagai pilihan komponen, di antaranya: Component Palette Standard, Win32, System, DataAccess, DataControls, dbExpress, Data Snap, BDE, ADO, Interbase, Webservice, InternetExpress, Websnap, Internet, dan masih banyak lagi



4. Jendela Object Tree View

Jendela ini dugunakan untuk melihat componenl apa saja yang berada di dalam form tersebut secara hierarki seperti Windows Explorer.












5. Jendela Object Inspector




Jendela ini digunakan untuk memanipulasi comopnen yang sudah ada dalam form. Jendela Object Inspector ini memiliki dua halaman, yang masing-masing disebut Properti (Properties) dan kejadian (Events).

Properties digunakn untuk sepesifikasi Komponen
Event digunakan Untuk Fungsi dari Komponen








6. Form

Form di Delphi 7 digunakn untuk mendesign tampilan Program yang kepengin di buat, yang pasti disini tempat letaknya Component di Delphi 7 yang ada pada di komponen no. 3.

7. Jendela Unit

Jendela ini digunakan secara umum untuk menuliskan listing program dalam suatu aplikasi. Di dalamnya terdapat sebuah struktur unit.


Nah itu adalah Componen yang penting dalam Delphi 7. Sekian dari saya besok akan aku coba share buat Aplikasi Sederhana dan trik-trik Delphi 7.