CAMKU petruk

1.   PROSES JALAN APLIKASINYA.

pendaftaran siswa baru.

     seorang calon siswa mendaftarkan diri ke sekolah dengan mengisi formulir seperti nama, tanggal lahir, alamat , dll. setelah itu calon siswa harus mengikuti tes akademik dahulu sebagai syarat di terimannya di sekolah tersebut. adapun klasifikasinya adalah:

•   diterima jika mendapat nilai 60 keatas.
•   jika lulus harus membayar uang registrasi sebesar 500.000.
•   untuk urutan kelas juga ditentukkan berdasarkan nilai hasil tpa.
•   jika diatas 90 dapat kelas favorit, jika di bawah 90 namun diatas 80 maka akan dapat kelas A, jika diatas 70 namun dibawah 80 dapat B.

1. BENTUK  ALGORITMA DARI BAHASA PEMROGRAMAN.

input('nama')

input('TTL')

input('alamat')

input('nama ortu')

output ('kode kelas')

output('hasil tpa')

  

   if nilai_tpa = 90 then

             keterangan = ' LULUS'

             kode kelas = 'Favorite'

if nilai_tpa = 80-89 then

             keterangan = ' LULUS'

             kode kelas = 'A'

if nilai_tpa = 70-79 then

             keterangan = ' LULUS'

             kode kelas = 'B'

if nilai_tpa = 60-69 then

             keterangan = ' LULUS'

             kode kelas = 'C'

else 

if nilai_tpa = 20-59 then

             keterangan = ' TIDAK LULUS'

             kode kelas = 'kelas tidak ditemukkan!'

1. DESIGN PROGRAM.

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    SpinEdit3: TSpinEdit;

    Panel1: TPanel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Label5: TLabel;

    GroupBox1: TGroupBox;

    Rnilai90: TRadioButton;

    rnilai80: TRadioButton;

    rnilai70: TRadioButton;

    rnilai20: TRadioButton;

    Edit3: TEdit;

    Label6: TLabel;

    Button1: TButton;

1. MASUKKAN SOURCE CODE PROGRAM.

procedure TForm1.Rnilai90Click(Sender: TObject);

begin

    if rnilai90.checked='true'

    then

    tket:='LULUS'

    tkelas:='Favorit';

end;

procedure TForm1.rnilai80Click(Sender: TObject);

begin

    if rnilai80.checked='true'

    then

    tket:='LULUS'

    tkelas:='A';

end;

procedure TForm1.rnilai70Click(Sender: TObject);

begin

if rnilai70.checked='true'

    then

    tket:='LULUS'

    tkelas:='B';

end;

procedure TForm1.rnilai70Click(Sender: TObject);

begin

if rnilai20.checked='true'

    then

    tket:='Tidak lulus'

    tkelas:='Nothing';

end;

end.

thank you.

design program delphi 7 dan kode objek nya

 1. PROSES BERURUTAN

kode objek pada gambar diatas


  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    TLM: TEdit;
    THK: TEdit;
    TJUMLAH: TEdit;
    CMULAI: TButton;
    CSELESAI: TButton;


2. PROSES PECABANGAN IF SATU PERNYATAAN

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    CMULAI: TButton;

    CSELESAI: TButton;

3. PROSES PERCABANGAN IF BEBERAPA PERNYATAAN

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    TKDIS: TEdit;

    Label7: TLabel;

    CMULAI: TButton;

    CSELESAI: TButton;

4. PROSES BEBERAPA IF DENGAN RADIO BUTTON

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    TKDIS: TEdit;

    Label7: TLabel;

    RadioGroup1: TRadioGroup;

    RDIS30: TRadioButton;

    RDIS20: TRadioButton;

    RDIS10: TRadioButton;

    RDIS0: TRadioButton;

    CMULAI: TButton;

    CSELESAI: TButton;

5.PROSES BEBERAPA IF DENGAN CHECK BOX & RADIO BUTTON

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    TKDIS: TEdit;

    Label7: TLabel;

    GroupBox1: TGroupBox;

    RadioGroup1: TRadioGroup;

    CKETAM: TCheckBox;

    CKETUM: TCheckBox;

    CKETRY: TCheckBox;

    RDIS30: TRadioButton;

    RDIS20: TRadioButton;

    RDIS10: TRadioButton;

    RDIS0: TRadioButton;

    CMULAI: TButton;

    CSELESAI: TButton;

Kode program hitung bab 1

unit prak1;
interface
uses
    windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
    stdCtrls;

type
   Tform1 = class(Tform)
       Label1 : TLabel ;
       Label2 : TLabel ;
       Label3 : TLabel ;
       TLM : TEdit ;
       THK : TEdit ;
       TJUMLAH : TEdit ;
       CMULAI : TButton ;
       CSELESAI : TButton;
       procedure CMULAIClick(Sender : Tobject);
       procedure CSELESAIClick(sender : Tobject);
       procedure FormCreate ( sender : Tobject);
       procedure THKChange ( sender : Tobject);
       procedure TLMChange (sender : Tobject);
private
      { private declarations }
public
      {public declarations }
end;

var
   Form1: Tform1;
implementation
{$R *.DFM}

procedure TForm1.CMULAIClick(sender : Tobject);
Begin
     Tlm.Text:=' ';
     Thk.Text:=' ';
     Tjumlah.text:=' ';
     Tlm.Setfocus;
end;

procedure Tform1.CSELESAIClick(sender: Tobject);
Begin
     Application.Terminate;
end;

procedure Tform1.FormCreate(sender : Tobject );
Begin
    Tjumlah.enabled:=False;
    Tjumlah.color:=clbtnface;
end;



procedure Tform1.THKChange(sender: Tobject);
var
     Sjml:string[30];
     Tsem: integer;
     Slm,Shk,Sjumlah:single;

Begin
    val(Tlm.text,Slm,Tsem);
    val(Thk.Text,Shk,Tsem);
    Sjumlah :=Slm*Shk;
    str(Sjumlah:30:0,Sjml);
    Tjumlah.text:=Sjml;
end;

procedure Tform1.TLMChange(sender : Tobject);
var
    Sjml: string[30];
    Tsem: integer;
    Slm,Shk,Sjumlah:single;

Begin
    val(Tlm.text,Slm,Tsem);
    val(Thk.text,shk,Tsem);
    Sjumlah:=Slm*Shk;
    str(Sjumlah:30:0:Sjml);
    Tjumlah.text:=Sjml;

end;

End.