Algoritma dan Pemrograman II

Materi Pra UTS
1. Pengenalan Borland Delphi 7, download
2. Tipe data dan operator, download
3. Latihan Operator, download
4. Percabangan, download
5. Latihan Percabangan, download
6. Latihan Prosedur, download
7. Nested IF, download

Materi Pra UAS
1. Database Desktop, download
2. Supplier, download
3. Transaksi One to One, download
4. Transaksi One to Many, download
5. Jawaban Latihan Travel, download Selengkapnya....

Latihan Delphi

Listing Program:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
etgl.Text:=datetostr(Date);
ejam.Text:=timetostr(time);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cmerk.Items.Add('Supra Fit');
cmerk.Items.add('Supra X');
cmerk.Items.Add('Revo');
end;


procedure TForm1.cmerkClick(Sender: TObject);
var harga,cash,total:real;
begin
if cmerk.Text='Supra Fit' then
begin
ehg.Text:='10000000';
ecash.Text:='500000';
end
else if cmerk.Text='Supra X' then
begin
ehg.Text:='12000000';
ecash.Text:='600000';
end
else
begin
ehg.Text:='15000000';
ecash.Text:='700000';
end;
harga:=strtofloat(ehg.Text);
cash:=strtofloat(ecash.Text);
total:=harga-cash;
etotal.Text:=floattostr(total);
end;

procedure TForm1.rtunaiClick(Sender: TObject);
begin
if rtunai.Checked=true then
ehadiah.Text:='Helm';
end;

procedure TForm1.rkreditClick(Sender: TObject);
begin
if rkredit.Checked=true then
ehadiah.Text:='Terima Kasih';
end;

procedure TForm1.btutupClick(Sender: TObject);
begin
if (application.MessageBox('Yakin akan ditutup','Konfirmasi',mb_yesno)=id_yes) then
close;
end; Selengkapnya....