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

Read More

Menentukan GENAP/GANJIL dengan LOOPING

Baru tadi pagi diajarin ma ASDOS tentang LOOPING,sebenarnya maish kepikiran dengan tuduhan kerjasama dalam UTS kemarin. Tapi ya sudahlah,yang lalu biarlah berlalu,sekarang fokus pada nie program. Berkut penampakannya..

 Dan ini untuk syntaxnya: (gunakan dengan bijaksana)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    XPManifest1: TXPManifest;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
     x:=StrToInt(Edit1.Text);
     y:=StrToInt(Edit2.Text);
     Memo1.Clear;
     Memo2.Clear;
     for i:= x to y do
     begin
     if i mod 2=0 then
     Memo1.Lines.Append(IntToStr(i))
     else
     Memo2.Lines.Append(IntToStr(i))
     end;
end;

end.

Read More

Menentukan nilai IPK

Soal
Buatlah program yang menerima input nilai(dalam range 0 sampai 100) dan menghasilkan putput berupa keterangan nilai.

IPK	Keterangan
0-15	Nilai E
16-40	Nilai D
41-60	Nilai C
61-80	Nilai B
81-100	Nilai A

Berikut ini tampilan formnya

Dan berikut syntaxnya

unit Utugas1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
  x:=StrToInt(Edit1.Text);
  if x>80 then Edit2.Text:='A'
  else
  if x>60 then Edit2.Text:='B'
  else
  if x>40 then Edit2.Text:='C'
  else
  if x>15 then Edit2.Text:='D'
  else
  Edit2.Text:='E'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Read More

Membuat program Kasir dengan Delphi 7

Postingan kali ini saya akan sharing lagi,tentang membuat program kasir dengan delphi 7. Kalo mau nyoba monggo dicopy..

Jika desain sudah jadi,kemudian klik 2x pada button Tambah. Lalu masukkan script dibawah

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit4.Text<>'')and(Edit5.Text<>'')and(Edit6.Text<>'')then
begin
Memo1.Lines.Add(Edit4.Text);
Memo2.Lines.Add(Edit6.Text);
harga:=StrToInt(Edit5.Text);
jbeli:=StrToInt(Edit6.Text);
tbeli:=harga*jbeli;
Memo3.Lines.Add(IntToStr(tbeli));
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit4.SetFocus;
end else
begin
showmessage('Ada Data Yang Belum DiInputkan ');
Memo1.SetFocus;
end;
jumlah:=tbeli+jumlah;
Edit7.text:=inttostr(jumlah);
end;

Kemudian klik 2x pada button Hapus dan masukkan script dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
end;

Selanjutnya klik 2x button Kembalian dan masukkan script lagi

procedure TForm1.Button3Click(Sender: TObject);
begin
bayar:=StrToInt(Edit8.text);
kembalian:=bayar-jumlah;
Edit9.text:=inttostr(kembalian);
end;

Dan yang terakhir klik 2x pada button Keluar dan masukkan script dibawah

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate
end;

Read More