PENGERTIAN ATRIBUT

ATRIBUT itu sederhananya merupakan atribut yang tidak dapat dipecah/dibagi lagi menjadi atribut yang lebih kecil.
contoh : atribut pendudul : suku, keluarahan
              atribut lamat : kode pos, kota

Atribut composite yaitu atributt yang dapat dipecah masing-masing bagian tersebut jadi masih berarti.
Atribut dapat dikomposisi menjadi beberapa atribut lain.

cth : atribut mahasiswa : Nama => nama_depan
, nama_tengah, nama_belakang


Atribut bernilai tunggal yaitu atribut yang nilai entitasnya hanya 1
contoh : Nama = > nama hanya orang yang diminta
              tgl lahir => tangal lahir hanya 1 setiap orang

Atribut yang banyak yaitu yang nilai entitasnya lebih dari 1.
contoh : atribut pekerjaan : 'wiraswasta, PNS'
              atribut hobi : membaca, traveling, sport
Atribut bernilai adalah atribut yang wajib diisi(required atribute)
contoh : username => harus diisi ketika masuk ke login  form

Atribut opsional adalah atribut yang boleh diisi/tidak.
contoh : nomor_hp <= biasanya opsional

Atribut turunan adalah atribut yang dapat diperoleh dari nilai suatu atribut yang tersimpan dalam basis data(sudah ada). Biasanya nilai dari atribut ini merupakan nilai yang didapatkan dan hasil proses data/data yang telah ada.
usia : didapat pada tgl_lahir.

Read More

ALUR KASUS PARKIR

A. Mengenali entitas yang terlibat

• PENGENDARA
• KENDARAAN
• PETUGAS

B. PROSES

• Ambil karcis <- Pengendara
• Parkir Mobil <- Pengendara
• Ambil Motor Mobil, ke Loket Keluar Parkir <- Pengendara
• Beri karcis dan uang <- pengendara

• Cek karcis <- petugas 
• verifikasi dengan scan barcode <- petugas
• terima uang sesuai dengan jumlah tertera pada display
• palang otomatis terbuka
• selesai

C. PROSES SECARA TERPERINCI
    1.  Pengendara akan tiba di palang parkir dan langsung mengambil karcis dengan menekan tombol.

• jika tombol tidak di tekan palang tidak akan terbuka

• jika kendaraan memasang plat maka jika tombol di tekan tidak akan terjadi apa-apa. 

     2. Pada saat pengendara mendapat karcis maka di karcis akan tecatat waktu yang lengkap mulai dari hari, bulan,jam, tahun,jam, menit,detik.
    3. pengendara memakirkan motor/mobilnya
    4. pengendara mangambil motor/mobilnya > menuju loket keluar parkir

• pengendara harus membayar ketentuan yang berlaku 
• Motor : 1 jam pertama = 1000
• Motor : 3 jam berikutnya = 3000

• Mobil : 1 jam pertama = 3000
• mobil : 3 jam berikutnya = 5000

-Jika tiket/karcis hilang pengendaraan akan dikenakan denda

• Motor : Rp.10000
• Mobil : Rp.25000

D. Algoritma


output("masukkan tombol karcis")
input(kd_parkir)
output("jenis kendaraan")
input(jk)
TOTBAYAR =
IF LM_PARKIR <= 1 jam then bayar 1000
ELSE if LM_PARKIR = 2 jam then bayar 2000

ELSE if LM_PARKIR >= 2 jam i++ then bayar = LM_PARKIR + 1 *1000
END IF
IF TKARCIS = hilang then bayar = 10000
END IF

Read More

PENYELESAIAN KASUS SEDERHANA MENGGUNAKAN IF DAN CASEDI BORLAND DELPHI

1.  BUATLAH PENYELESAIAN PADA KASUS BERIKUT

1. Pendaftaran siswa baru di sekolah
2. penilaian ujian akhir.  

• pilih salah satu
• buatlah terlebih dahulu alur/jalan cerita penyelesaian kasus yang di pilih
• buatlah algoritma program dari kasus tersebut

Gunakan pengkondisian if dan case dalam penyelesaian kasus.
A. PENDAFTARAN SISWA BARU DI SMK
B. Datang kesekolah > mengisi formulir > isi nama, umur, jenkel, data diri lain.
     masukkan nilai rata-rata UAS > masukkan nilai rata-rata UN.
     *jika rata-rata < 6.9 maka = tidak lulus seleksi lalu jika rata-rata > 6.9 maka = lulus seleksi.
     jika lulus seleksi maka calon siswa mengisi form jurusan : RPL, TKJ, atau Akuntansi. setelah memilih. silakan melakukan pembayaran pendaftaran siswa baru 500,000 untuk uang buku dan baju.

C. Logika program
output(nama_siswa)
input(NS)
output(umur)
input(US)
output(jenis kelamin)
input(JK)
output(tempat tanggal lahir)
input(TTL)
output(nilai rata-rata ujian sekolah)
input(NUS)
output(nilai rata-rata ujian nasional)
input(NUN)
IF NUS & NUN > 6.9 then KLUS = "Anda lulus" ELSE
NUS & NUN < 6.9 then KLUS = "anda tidak lulus" END IF
output ("Masukkan jurusan")
input(JUR)
output(masukkan biaya pendaftaran)
input(BP)

Read More

TUGAS PETRUK PERTEMUAN 2

Jadi pada pertemuan 2 bersama pak Pipin Sitio kemarin, kita diberikan tugas baru lagi guys..
yaitu disurug buat 5 design yang ada di handout, dari handout pertemuan 1 s.d. pertemuan 4.

Yok lah kita masuk ke design yang pertama

Design 1 Pertemuan 1

//source codenya :

unit UPertemuan1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label8: TLabel;
    Label9: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;


end.



Nah sekarang kita masuk ke Design yang kedua

Design 2 Pertemuan 2

Source code nya :
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit6: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.





Sekarang kita masuk design yang kedua

Design 3 Pertemuan 2

Source Codenya :

unit UPertemuan2;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit6: TEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label8: TLabel;
    Label9: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.




Nah sekarang ktia masuk ke pertemuan 3

Design 4 Pertemuan 3

Source code nya:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure GroupBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin

end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin

end;

procedure TForm1.GroupBox1Click(Sender: TObject);
begin

end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.










Naaahhh  sekarang kita masuk ke design yang terakhir!!

Design 5 Pertemuan 4

unit UPertemuan4;

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;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.

Read More

PEMROGRAMAN TERSTRUKTUR (MODIFIED)

Jadi gini gan.. saya buat 2 camku disini.. Kalau yg ini saya buat ada modifikasinya sedikit..
langsung ajalah ya gan ke intinya..

unit Trans;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Tdisk: TEdit;
    Button1: TButton;
    Button2: TButton;
    TLama: TEdit;
    Tharga: TEdit;
    TJumlah: TEdit;
    TKet: TEdit;
    Label7: TLabel;
    TTotal: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TLamaKeyPress(Sender: TObject; var Key: Char);
    procedure ThargaKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  TLama.Text:='';
  Tdisk.Text:='';
  Tharga.Text:='';
  TJumlah.Text:='';
  TTotal.Text:='';
  TKet.Text:='';
  TLama.Enabled:=True;
  Tharga.Enabled:=True;
  TLama.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TJumlah.Enabled:=False;
TKet.Enabled:=False;
TTotal.Enabled:=False;
Tdisk.Enabled:=False;
TLama.Enabled:=False;
Tharga.Enabled:=False;
end;

procedure TForm1.Button3Click(Sender: TObject);
var Disk,Jumlah:real;
begin
  //Diskon
  Jumlah:=StrToInt(TLama.Text)*StrToInt(Tharga.Text);
  if Jumlah >= 1000000 then begin
     Disk:=Jumlah * 10 / 100;
     Tdisk.Text:=FloatToStr(Disk);
     end
  else begin
      Disk:=0;
      Tdisk.Text:=FloatToStr(Disk);
  end;
  TJumlah.Text:=FloatToStr(Jumlah);
  //Dapat Diskon atau Tidak
if Disk = 0 then begin
    TKet.Text:='Tidak Mendapatkan Diskon';
    end
else
    TKet.Text:='Dapat Diskon';
  //Total Bayar
  TTotal.Text:=FloatToStr(Jumlah - Disk);

end;
procedure TForm1.TLamaKeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9',#8]) then begin
    Key:=#0;
    beep
end;
end;

procedure TForm1.ThargaKeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9',#8]) then begin
    Key:=#0;
    beep
end;
end;

end.

Hasil program nya ada dibawah ini ya gan..

Tampilan Hasil Program

Jadi itu saja camku kita hari ini..
Semoga bermanfaat, kalau ada salah silakan komentar di bawah.
Thank you.

Read More