TUGAS 1 Membuat prosedur tunjangan gaji

dIBAWAH ini adalah preview dari program aplikasi gaji dan penentu tunjangannya. blog ini juga merupakan salah satu tugas kuliah dari mata kuliah yang sedang saya jalani yaitu STRUKTUR DATA, sebagai syarat untuk  memperoleh nilai UTS PADA MATA KULIAH STRUKTUR DATA . kalian bisa mencobanya di komputer ATAU laptop kawan-kawan sendiri, berikut adalah source dari aplikasi disamping dan cara meletakkan kode nya.

1.       Langkah pertama install terlebih dahulu program Delphi anda

2.       Kemudian buka program Delphi 7 dengan klik start – all programs – Borland Delphi 7 – Delphi 7

3.       Setelah itu klik file – new – pilih form

4.       Lalu buat diagram seperti dibawah ini

·         Untuk nama , gaji, golongan dan tunjangan saya menggunakan Label klik

untuk membuat label

·         Lalu untuk kotak putih saya  menggunakan edit dengan klik

·         Untuk tunj dan total saya menggunakan label kembali dan kita edit namanya

·         Untuk button saya menggunakan

Jika kita ingin mengedit nama-nama sesuai keinginan kita maka pilih object inspector pada samping bawah kiri.

tampilan setelah di edit

5.       Jika sudah kita klik button. Ketikkan scrip seperti dibawah ini

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TEdit1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    tGaji: TEdit;

    tGol: TEdit;

    Edit1: TEdit;

    Tunj: TLabel;

    total: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Edit1: TEdit1;

implementation

{$R *.dfm}

procedure TEdit1.Button1Click(Sender: TObject);

var

gaji,tot,tunjang:integer;

begin

gaji:=StrToInt(tGaji.Text);

if tGol.Text ='A' then tunjang:=10000;

if tGol.Text ='B' then tunjang:=20000;

if tGol.Text ='C' then tunjang:=30000;

tunj.Caption := IntToStr(tunjang);

tot:=Tunjang+Gaji;

Total.Caption := IntToStr(tot);

end;

end.

Keterangan :

·  Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·      Integer untuk merubah gaji,tot,tunjang menjadi tipe data bilangan bulat yang hanya mengenal bilangan    decimal dan tidak dapat mengenal bilangan pecahan

·         StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

·         IntToStr untuk merubah tipe data integer ke tipe data string.

·         Caption untuk Membuat caption pada table

·         End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya

·         End. Untuk mengakhiri sebuah scrip

·         If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi

·         Begin untuk memulai suatu penulisan scrip program

6. Setelah semuanya selesai maka kita tinggal menjalankan program tersebut tekan F9 untuk mencobanya, jika program benar maka akan seperti gambar dibawah ini.