Kumpulan Materi Delphi

DELPHI                                                                                                                                                              LAB F PAGI    RGT / USMAN

Ketentuan Program  :

1.    Ujian tertulis di input  saat di enter tampil hasil 1

Hasil  1 = ujian tertulis * 40%

2.    Ujian praktekj di input saat di enter  tampil hasil 2, nilai murni dan keterangan

Ø      Hasil 2 = ujian praktek * 60%

Ø      Nilai murni = hasil 1 + hasil 2

Ø      Jika nilai murni kurang dari 60 maka “Gagal”, selain dari itu “Lulus”

3.     Buat listbox aktif dan tampil nama jurusan dan biaya mengunakan percabangan IF

	Jurusan	Biaya
MI	Manajemen Informasi	500.000
KA	Komputerisasi Akutansi	550.000
TK	Teknik Komputer	600.000

4.    Saat diklik pagi tampil biaya waktu  500.000

5.    Saat diklik sore tampil biaya waktu  600.000

6.    Total bayar = biaya jurusan + biaya waktu

7.    Saat diklik Isi Data Lagi object  edit dan radiobutton kosong

8.    Saat diklik close tampil pesan “ Yakin anda ingin keluar..”        

Pillih No tampil pesan “ Tidak jadi keluar…”
Pilih yes langsung keluar dari program

Listing Program . . . . . .  !!!!!!

procedure TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

edit2.Text :=floattostr(strtofloat(edit1.Text)*0.4);

edit3.SetFocus;

end

end;

procedure TForm10.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

edit4.Text:=floattostr(strtofloat(edit3.Text)*0.6);

edit5.Text:=floattostr(strtofloat(edit2.Text)+strtofloat(edit4.Text));

if strtoint(edit5.text) > 60 then

edit6.Text:='lulus'

else

edit6.Text:='gagal'

end

//atau bisa menggunakan ini

//if edit5.text<'60' then

//begin

//edit6.text:='Lulus';

//else

//begin

//edit6.text:='Gagal';

//end

//end

end;

procedure TForm10.ListBox1Click(Sender: TObject);

begin

if listbox1.ItemIndex=0 then

 begin

 edit9.Text:='Manajemen Informatika';

 edit10.Text:='500000';

 end

 else

 if listbox1.ItemIndex =1 then

  begin

  edit9.Text:='Tehnik Informasi';

  edit10.Text:='600000';

  end

  else

    begin

    edit9.Text:='Komputerisasi Akutansi';

    edit10.Text:='550000';

    end

end;

procedure TForm10.RadioButton1Click(Sender: TObject);

begin

edit8.Text:='500000';

end;

procedure TForm10.RadioButton2Click(Sender: TObject);

begin

edit8.Text:='1000000';

end;

procedure TForm10.Button1Click(Sender: TObject);

begin

edit7.Text:=currtostr(strtocurr(edit10.Text)+strtocurr(edit10.Text)+strtocurr(edit8.Text));

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

//listbox1.ItemIndex :=-1;

ListBox1.ClearSelection;

edit7.Text:='';

radiobutton1.Checked :=false;

radiobutton2.Checked :=false;

edit8.Text:='';

edit9.Text:='';

edit10.Text:='';

edit1.SetFocus

end;

procedure TForm10.Button3Click(Sender: TObject);

begin

if (application.MessageBox('Mau Keluar ga....','info',mb_yesno)=idyes) then

close

else

showmessage('Ga Jadi aaah.....');

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

//listbox1.ItemIndex :=-1;

ListBox1.ClearSelection;

edit7.Text:='';

radiobutton1.Checked :=false;

radiobutton2.Checked :=false;

edit8.Text:='';

edit9.Text:='';

edit10.Text:='';

end;