Tugas Pemrograman Dasar ini cukup menguras pikiran dan waktu tapi akhirnya selesai juga walaupun mungkin sedikit kurang aja,tapi ya dari pada numpuk tugasnya.hehe
Sedikit review tentang tugas saya ini
Program ini terdiri dari 2 form,form1 untuk program utamnya dan form2 untuk My Profile,dan yang mau liat syntaxnya monggo(gunakan dengan bijak)
Bisa juga yang mau program aslinya disa doownload disini
Sedikit review tentang tugas saya ini
Buat program menggunakan Pemrograman Berorientasi Objek
syarat:
- Ada kelas dan object
- Ada metode beserta parameternya
- Ada perulangan dan kondisi
- Ada array
Paling lambat tanggal 20 Mei 2012
dikompress dalam zip atau rar
Liat soalnya saja sudah bingung mau bikin program apa yang bisa memenuhi syarat tersebut,setelah cari2 info di om Google akhirnya dapet juga ide,gue bikin program cek nilai UN,berikut form dari programnya.
unit Unit1;Jangan lupa untuk membuat new form sebagai My Profile(kalo mau sich.hehe)
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
XPManifest1: TXPManifest;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ket;
procedure nilai;
end;
TSiswa = class
private
nama,nis,sekolah,ucapan:string;
public
procedure setNama(nm:string);
procedure setNis (ni:string);
procedure setSekolah (sk:string);
procedure setUcapan(uc:string);
function getNama:string;
function getNis:string;
function getSekolah:string;
function getUcapan:string;
end;
var
Form1: TForm1;
sw:TSiswa;
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.ket;
var n1,n2,n3,n4:Integer;
r:Real;
begin
n1:=StrToInt(Edit4.Text);
n2:=StrToInt(Edit5.Text);
n3:=StrToInt(Edit6.Text);
n4:=StrToInt(Edit7.Text);
r:=(n1+n2+n3+n4)/4;
if r>= 6.5 then
Edit8.Text:='L.U.L.U.S'
else
Edit8.Text:='Tidak LULUS'
end;
procedure TForm1.nilai;
begin
Edit4.Text:='80';
Edit5.Text:='79';
Edit6.Text:='90';
Edit7.Text:='99';
end;
procedure TSiswa.setNama(nm:string);
begin
nama:=nm;
end;
procedure TSiswa.setNis(ni:string);
begin
nis:=ni;
end;
procedure TSiswa.setSekolah(sk:string);
begin
sekolah:=sk;
end;
procedure TSiswa.setUcapan(uc:string);
begin
ucapan:=uc;
end;
function TSiswa.getNama:string;
begin
Result:=nama;
end;
function TSiswa.getNis:string;
begin
Result:=nis;
end;
function TSiswa.getSekolah:string;
begin
Result:=sekolah;
end;
function TSiswa.getUcapan:string;
begin
Result:=ucapan;
end;
procedure TForm1.Button1Click(Sender: TObject);
var nama:array [1..99] of string;
i:integer;
begin
i:=1;
sw:=TSiswa.Create;
sw.setNama('Reza Pragita Daza');
sw.setNis('19091993');
sw.setSekolah('SMA N 1 KOTA MUNGKID');
sw.setUcapan('Anda LULUS');
Edit1.Text:=sw.getNama;
Edit2.Text:=sw.getNis;
Edit3.Text:=sw.getSekolah;
Memo1.Clear;
repeat
Memo1.Lines.Add(sw.getNama+' '+sw.getNis+' '+sw.getUcapan);
i:=i+1;
until i>5;
Form1.nilai;
Form1.ket;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit7.Clear;
Edit8.Clear;
Memo1.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.Visible:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
Bisa juga yang mau program aslinya disa doownload disini
