Tugas Akhir Pemrograman Dasar

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

Buat program menggunakan Pemrograman Berorientasi Objek

syarat:

1. Ada kelas dan object
2. Ada metode beserta parameternya
3. Ada perulangan dan kondisi
4. 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.

Program ini terdiri dari 2 form,form1 untuk program utamnya dan form2 untuk My Profile,dan yang mau liat syntaxnya monggo(gunakan dengan bijak)

unit Unit1;

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.

Jangan lupa untuk membuat new form sebagai My Profile(kalo mau sich.hehe)
Bisa juga yang mau program aslinya disa doownload disini