pingin buat program penjualan kayak di samping?
tenang ni aku kasih kodenya
Rumus Editannya
Ø Cara
Menampilkan Identitas
procedure TForm1.identitasChange(Sender:
TObject);
var
videntitas: String;
begin
videntitas :=
identitas.text;
if videntitas = '1'
then
ketidentitas.text := 'KTP';
if videntitas = '2'
then
ketidentitas.Text := 'SIM';
if videntitas = '3'
then
ketidentitas.Text := 'PASPOR';
end;
Ø Cara
Menampilkan Jenis Kelamin
procedure TForm1.kelaminChange(Sender:
TObject);
var
vkelamin: string;
begin
vkelamin:=
kelamin.Text ;
if vkelamin = 'L'
then
ketkelamin.Text := ' LAKI -LAKI ';
if vkelamin = 'W'
then
ketkelamin.Text:= ' Wanita';
end;
Ø Cara
Menampilkan Agama
procedure TForm1.agamaChange(Sender:
TObject);
var
vagama: string ;
begin
vagama:= agama.Text;
if vagama = '1' then
ketagama.text := 'Islam';
if vagama = '2' then
ketagama.text := 'Kristen' ;
if vagama = '3' then
ketagama.text := 'Protestan';
if vagama = '4' then
ketagama.text := 'Hindu' ;
if vagama = '5' then
ketagama.text := 'Budha';
if vagama = '6' then
ketagama.text := 'Lainnya';
end;
Ø Cara
Menampilkan Status Rumah
procedure TForm1.statusChange(Sender:
TObject);
var
vstatus:string;
begin
vstatus:= Status.text
;
if vstatus ='1' then
ketstatus.text := 'Rumah Sendiri';
if vstatus = '2' then
ketstatus.text := 'Rumah Orang tua' ;
if vstatus = '3' then
ketstatus.text := 'Kontrakan' ;
end;
Ø Cara
Menampilkan Type Sepeda
procedure
TForm1.typesepedaChange(Sender: TObject);
var
vtypesepeda : string;
begin
vtypesepeda :=
typesepeda.text;
if vtypesepeda = 'SP1'
THEN
BEGIN
sepeda.Text :='Supra Fit 110 CC Tromol';
jual.Text := '10500000';
bonus.Text := ' Rice Cooker';
END
else
if vtypesepeda =
'SP2' THEN
begin
sepeda.Text :='Supra Fit 110 CC Cakram';
jual.Text := '11500000';
bonus.Text := 'TV 14"';
end
else
if vtypesepeda =
'KX1' THEN
begin
sepeda.Text :='Kharisma 125 CC Tromol';
jual.Text := '13500000';
bonus.Text := 'TV 20"';
end
else
if vtypesepeda =
'KX2' THEN
begin
sepeda.Text :='Kharisma 125 CC Cakram';
jual.Text := '14500000';
bonus.Text := 'DVD Player';
end
else
if vtypesepeda = 'SPX1' THEN
begin
sepeda.Text :='Supra X 110 CC Tromol';
jual.Text := '14500000';
bonus.Text := 'TV 25"';
end
else
if vtypesepeda =
'SPX2' THEN
begin
sepeda.Text :='Supra X 110 CC Cakram';
jual.Text := '15500000';
bonus.Text := 'TV 29"';
end;
end;
Ø Cara
Menampilkan Penghasilan
procedure
TForm1.penghasilanChange(Sender: TObject);
var
vpenghasilan: string;
begin
vpenghasilan :=
penghasilan.Text;
if vpenghasilan <
'1000000' then
begin
ketpenghasilan.Text := 'Ditolak';
end
else
ketpenghasilan.Text := 'Diterima';
end;
Ø Cara
Menampilkan Total Kredit
procedure TForm1.totalChange(Sender:
TObject);
var
vtotal,x,n : integer;
begin
x:= strtoint(jual.text);
n :=
strtoint(uangmuka.Text);
vtotal := x - n ;
total.Text :=
inttostr (vtotal);
end;
Ø Cara
Menampilkan Angsuran
procedure TForm1.angsuranChange(Sender:
TObject);
Var
x,n: integer;
y ,t: real;
begin
x :=
strtoint(total.Text);
n :=
strtoint(jangkawaktu.text);
y := (x + ((0.2 * n)
/ (12 * x) ));
t := y/n;
angsuran.text := floattostr(t);
end;
Ø Cara
Mengeluarkan Program
procedure TForm1.Button2Click(Sender:
TObject);
begin
close;
end;
end.
Pingin tau Hasilnya??
Download