INPUT DAFTAR NAMA PESERTA

PERTEMUAN KE 3

DAFTAR NAMA PESERTA

• Adapun gambar dari form program aplikasinya seperti di bawah ini : 

•   Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

  unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
nama1,nama2:array [1..5] of string;
s:string;

begin
s:=inputbox ('inputdata','masukkan jumlah data : ','0');
for i:=1 to strtoint(s) do

  begin
  nama1[i]:=inputbox('data ke:'+inttostr(i),'nama awal',' ');
  nama2[i]:=inputbox('data ke :'+inttostr(i),'nama belakang',' ');
  lbdata.items.add(nama1[i]+ ' ' +nama2[i]);
  edit1.Text:=inttostr(lbdata.items.count);
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
lbdata.clear;
edit1.Text:=' ';
end;

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

end.

• Adapun gambar dari form running program aplikasinya seperti di bawah ini :

Read More

Materi 2 Program Penggajian Karyawan

MATERI 2

PROGRAM APLIKASI

PENGGAJIAN KARYAWAN

•  Adapun gambar dari form program aplikasinya seperti di bawah ini :

• SCRIPT CODE (LISTING PROGRAM)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    tgaji: TEdit;
    gol: TEdit;
    gaji: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    tunj: TEdit;
    total: TEdit;
    proses: TButton;
    procedure prosesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.prosesClick(Sender: TObject);
var
gaji,tot,tunjang:integer;

begin
gaji:=strtoint(tgaji.Text);
if gol.Text='A' then tunjang:=100000;
if gol.Text='B' then tunjang:=200000;
if gol.Text='C' then tunjang:=300000;
tunj.text:=inttostr(tunjang);
tot:=gaji+tunjang;
total.text:=inttostr(tot);
end;

end.

• FORM RUNNING PROGRAM   

                 Adapun gambar dari form running program aplikasinya seperti di bawah ini :  

Read More

PROGRAM APLIKASI MENGHITUNG LUAS PERSEGI PANJANG

MATERI 1 MENGHITUNG LUAS PERSEGI PANJANG

PROGRAM APLIKASI MENGHITUNG LUAS PERSEGI PANJANG

•  Adapun gambar dari form program aplikasinya seperti di bawah ini :

• SCRIPT CODE (LISTING PROGRAM)

unit materi1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    txtPanjang: TEdit;
    txtLebar: TEdit;
    Label3: TLabel;
    txtLuas: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Panjang,Lebar,Luas:integer;

begin
  Panjang:=StrToInt(txtPanjang.Text);
  Lebar:=StrToInt(txtLebar.Text);
  Luas:=Panjang*Lebar;
  txtLuas.Text:=IntToStr(Luas);
end;

end.

•    Adapun gambar dari form running program aplikasinya seperti di bawah ini :

SILAHKAN MENCOBA !!!!!

Read More

PENULISAN RUMUS FAKTORIAL MENGGUNAKAN PROCEDURE & FUNCTION

program Project15;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak, hasil:integer);
    var
      a:integer;
    begin
      hasil:=1;
      for a := 2 to fak do
      hasil:=hasil*a;
    end;
    var
      z,b,c,d,nminr:integer;
      f1,f2,f3:integer;
      x:real;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('================================');
  writeln ('CONTOH PENULISAN RUMUS FAKTORIAL');
  writeln ('================================');
  writeln ('');
  write('Masukkan N = '); readln(b);
  write('Masukkan R = '); readln(c);
  faktorial(b,f1);
  nminr:=b-c;
  faktorial(nminr,f2);
  faktorial(c,f3);
  x:=f1/f2*f3;
  writeln('Hasil      = ', x:3:2);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN PROCEDURE & FUNCTION PADA FAKTORIAL

Faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial, tanda (!) disebut dengan notasi faktorial.

program Project14;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak, hasil:integer);
    var
      a:integer;
    begin
      hasil:=1;
      for a := 2 to fak do
      hasil:=hasil*a;
    end;
    var
      b,c:integer;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('====================================');
  writeln ('CONTOH PENULISAN PROCEDURE FAKTORIAL');
  writeln ('====================================');
  writeln ('');
  write('Berapa Faktorial ? '); readln(b);
  faktorial(b,c);
  writeln(b ,' Faktorial = ', c);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN PROCEDURE & FUNCTION MODEL PROCEDURE BY REFERENCE

program Project13;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y,Z:integer;
  procedure jumlah(var A,B,C:integer);
    begin
      C:= A+B;
    end;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('    MODEL PROCEDURE BY REFERENCE     ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X = ');readln(X);
  write('Masukkan Nilai Y = ');readln(Y);
  jumlah(X,Y,Z);
  writeln('X + Y = ', Z);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN PROCEDURE & FUNCTION MODEL PROCEDURE BY VALUE (VARIABEL GLOBAL)

program Project12;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y:integer;
  procedure jumlah(A,B:integer) ;
    var
      C:integer;
    begin
      C:= A+B;
      writeln('Hasil Penjumlahan = ',C);
    end;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('       MODELPROCEDURE BY VALUE       ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X  = '); readln(X);
  write('Masukkan Nilai Y  = '); readln(Y);
  jumlah(X,Y);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More