Tutorial / LangkahKerja Membuat Form Keterangan Nilai.
1. Klik
Open pada Delphi
2. Terlihat
Form seperti dibawah Ini
3. Buat
Komponen- Komponennya kemudian ganti masing masing namanya,
-
Form1
= Kondisi
-
Label1 = Nama
-
Label2 = Nilai
-
Label3 = Keterangan
-
Edit1 = -
-
Edit2 = -
-
Edit3 = -
-
Button1 = Proses
-
Button2 = Nilai
-
Button3 = Keterangan
4. MasukkanLah
Coding pada Masing2 Komponennya.
a. Button
1 :
procedure
TForm1.Button1Click(Sender: TObject);
var
n:double;
begin
n:=strtofloat(edit2.Text);
if
n>=90 then
edit3.text
:='Sangat Baik'
else
if(n>=70)and(n<=99)then
edit3.text
:='Baik'
else
if (n<50)then
edit3.text
:='Kurang Baik'
end;
b. Button2
:
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.Clear;
edit3.Clear;
end;
c. Button3
:
procedure
TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
5. Maka
Hasilnya adalah..
a. Proses
b. New
c. Keluar
Selesai.
Tutorial / LangkahKerja Membuat aplikasi Pembelian Barang.
1. Sama
Seperti cara yang pertama open delphi
> Buat new projectnya > Buat Komponennya.
2. Kemudian
ganti masing masing namanya,
-
Form1
= Kondisi
-
Label1 = Nama Pembeli
-
CheckBox1 = Buku
-
CheckBox2 =
Penggaris
-
CheckBox3 =
Pensil
-
Edit1 = -
-
Edit2 = -
-
Edit3 = -
-
Edit4 = -
-
Edit5 = -
-
Button1 = Jumlah Bayar
3. MasukkanLah
Coding pada Masing2 Komponennya.
a. Button
1 :
procedure
TForm1.Button1Click(Sender: TObject);
begin
a
:= strtoint(edit1.Text) ;
b
:= strtoint(edit2.text) ;
memo1.Clear
;
for
x := a to b do
memo1.lines.append(inttostr(x));
end;
procedure
TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f,g :integer;
begin
val(edit2.Text,a,d);
val(edit3.Text,b,d);
val(edit4.Text,c,d);
e
:=0;
f
:=0;
g
:=0;
if
checkbox1.state = cbchecked then
e:=a*5000;
if
checkbox2.state = cbchecked then
f:=b*3000;
if
checkbox3.state = cbchecked then
g:=c*1500;
edit5.Text:=
inttostr(e+f+g)
end;
end.
4. Maka
Hasilnya adalah..
a. Cheklist
pada Buku > Isi berapa itemnya > klik Jumlah bayar
b. Cheklist
pada Penggaris > Isi berapa itemnya
> Klik Jumlah Bayar
c. Cheklist
pada Pensil > Isi berapa itemnya > klik Jumlah bayar
d. Cheklist
semua checkbox > Isi berapa itemnya > klik Jumlah bayar
Selesai.
0 komentar:
Posting Komentar