Tutorial Delphi

Jumat, 15 April 2011

Text edit berbentuk elips    

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowRgn(Edit1.handle,
CreateRoundRectRgn(2,2, Edit1.Width-0,
Edit1.Height-2, 15, 15),True);
end;
end.

Kamis, 14 April 2011

penggunaan trackbar + shape di delphi

lanjut lagi delphi nya men,

jika delphi kemarin mengenalkan tentang shape,kali ini tentang trackbar,trackbar adalah komponen yang memungkinkan kita melakukan geser2 gitu,seperti volume,komponen trackbar ada di palette additional.

penggunaannya bisa di aplikasikan pada program nyubi kali ini yang memungkinkan kita merubah ukuran suatu shape dengan menggeser trackbar tersebut,formnya kaya gini gan:

bahan2nya berupa:

setelah itu baru kita mulai listing2nya,,
beri event pada form dengan event formcreate dan listingnya kaya gini :

atur properties pada trackbar nya dengan angka 4 di max nya

lalu pada trackbar nya beri event change,

dan pada combobox change

dan terakhir pada combocolornya

oke dah sekian dan silahkan run gan

Pake IMAGE di DELPHI Sebagai Latar Belakang

kita selang seling saja urusan posting pascal dan delphi nya,, biar ga boring ngajlok dikit,sekarang delphi,posting besok pascal lagi,dan begitu seterusnya ya di selingi oleh posting aneh dan ga penting lainnya...
oke nah sekarang kita buat program untuk menampilkan gambar di form kita,,
lets START :D :$
sudah ter OPEN kah delphi rekan2 mua?

sebelumnya kita tambahkan Uses baru di usesnya dengan nama "JPEG"

kemudian buat form dengan ukuran yang sedang2 saja,, bentuk default kaya gini,,mau robah terserah rekan2 saja :D

komponen yang ditambahkan adalah komponen image dan openpicturedialog,untuk komponen image,ada di pallete additional

,,
untuk komponen openpicturedialog
cari pallete dialog

kalo sudah ketemu pasangkan openpicturedialog nya di form yang sudah kita buat tadi

setelah semua terkumpul mari kita buat listingnya :D
pertama2 untuk button1 yang ane kasih nama buka gambar
listingnya kaya gini:

sekarang untuk checkbox1 yang ane kasih nama stretch

terakhir untuk checkbox2

untuk tombol keluar passti rekan2 mua dah pada hapal kan :D ?
oke sekarang coba rekan mua run dan cek cek saja program sederhana yang telah rekan buat :$
sampai jumpa di posting selanjutnya

Logika IF (DELPHI) yang sederhana

Setelah posting kemarin mengenai statemen pemilihan yang membahas if dan case,sekarang kita praktekan pada delphi dengan contoh sederhananya..

,,,
okelah sekarang kita mulai saja okeh okeh.
kita bentuk formnya seperti kaya gini

untuk tombol keluar
cukup ketikan close; saja pada scriptnya
dan untuk tombol new scriptnya

edit1.text:='';
edit2.text:='';
edit3.text:='';
edit1.setfocus;

dan untuk tombol proses
scriptnya kaya gini

procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
ket:string;
begin
nilai:=strtoint(edit2.Text);
if nilai > 85 then
  ket:='lulus'
else
  ket:='tidak lulus';
edit3.Text:=ket;
edit3.enabled:=false;
end;

Percabangan Case (DELPHI) yang sederhana

JIka kemarin mengenai postingan If dalam delphi dalam bentuk yang sederhana maka kali ini saya kasih contoh tentang percabangan case nya :) :D
so kita lihat wokeh kaya gimana2 nya aja nya tuuuuuch

bentuk formnya samakan saja hanya kita bedakan listingnya saja getoh ceritanya

dan ini untuk listing programnya untuk event button1 click

procedure TForm1.Button1Click(Sender: TObject);
var ket:string;
    nilai:integer;
begin
nilai:=StrToInt(edit2.Text);
ket:=edit3.Text;
case nilai of
  90..100:ket:='A';
  80..89:ket:='B';
  70..79:ket:='C';
  60..69:ket:='D';
  50..59:ket:='E';
  else
    messageDlg('Pengisian tidak valid',mtWarning,[mbOK],0);
    edit2.SetFocus;
end;
edit3.Text:=ket;
edit3.Enabled:=false;
end;

gimana? mudah kan,,,,
intinya bisa pascal tentu Delphi pun akan mudah

Pengulangan (Delphi) dengan input

back again in Delphi tutorial from NEWBIE to ADVANCED

jika kemarin Hanya melihat hasil pengulangan tanpa kita inputkan sendiri berapa jumlah pengulangan yang kita inginkan,maka kali ini kita coba pengulangan itu kita yang tentukan sendiri bilangan yang ingin di inputkannya.
lebih baik dalam delphi nya kita buat project baru saja yah

bentuk saja formnya seperti demikian :

untuk koding nya silahkan telaah sendiri saja bagaimana proses ko bisa begitunya...
okeh okeh ?

pertamax2 kita masukan kode berikut ini ke dalam button clear

untuk tombol for rumusnya kaya gini

untuk button while

and last for repeat button

and run this program and see the result okeh?
gemana?
kata ane juga telaah saja sendiri maksud kode2nya wkwkwkwkwkwkwkwk

BitButton,tombol yang bisa dikasih gambar (DELPHI)

kali ini tidak ada codingnya,hanya mengenalkan button lain selain button standard,yaitu bitbtn,button yang bisa diberi gambar,gambar itu bisa default atau kita tentukan sendiri di komputer masing2 maunya apa. bitbtn ada di pallete komponen additional