Jawaban Pemrog. I

Berikut adalah jawaban UAS Pemrog. I
Untuk program, merupakan salah satu contoh saja, model lain dengan logika dan hasil yang sama, dibenarkan.

1. Data Base : sekumpulan data yang terintegrasi yang diorganisasi untuk memenuhi kebutuhan para pemakai di dalam suatu organisasi. Sebuah database memiliki hirarki sebagai berikut :
Database terdiri dari beberapa tabel, table tersusun dari field-field, field tersusun atas beberapa karakter, isi dari field-field yang menjadi satu kesatuan disebut record
Contoh software database : Microsoft Accesss, Microsoft SQL Server, MySQL, Oracle, Interbase, paradox

2. Secara konsep program transaksi adalah sebagai berikut :
Program transaksi merupakan program yang melibatkan beberapa table master dan table transaksi.
Data yang terisi pada table transaksi merupakan data yang ditransaksikan dari table-tabel master.
Ini dapat digambarkan sebagai berikut :




3. a. Daftar class dan objek dari desain tersebut :
• Objek label1, label2, label3, label4, label5, class-nya label
• Objek edit1, edit2, edit3, edit4, class-nya edit
• Objek btnsimpan, btnlagi, class-nya button
• Objek datasource1, class-nya datasource
• Objek tabel1, class-nya table
• Objek dbgrid1, class-nya dbgrid

b. Algoritmanya :
• Berikan nilai awal pada setiap objek edit
• Masukan nilai/angka pada edit1, edit2, edit3, satu persatu atau semuanya, otomatis akan menghitung energi listrik dan hasilnya akan tampil pada edit4
• Klik simpan untuk menyimpan data pada edit1 s/d 4 ke database
• Klik input lagi jika akan menginputkan nilai/angka yang lain

Program perhitungannya :

Edit4.text:=floattostr(((strtoint(edit1.text))*(strtoint(edit1.text))
/(strtoint(edit2.text)))*(strtoint(edit3.text))

atau seperti ini :

---------
Var V,R,T : Integer ;
W : Real ;
begin
V := StrtoInt (Edit1.Text);
W := ((V*V)/R)*T;
Edit4.Text := FloattoStr(W);
end;
--------

Program ini ditulis pada prosedur edit1.change, edit2.change, edit3.change

c. Program simpan :
procedure Tform1.SimpanClick(sender:tobject);
begin
Table1.Append;
Table1.fieldvalues[‘V’]:=edit1.text;
Table1.fieldvalues[‘R’]:=edit2.text;
Table1.fieldvalues[‘T’]:=edit3.text;
Table1.fieldvalues[‘W’]:=edit4.text;
Table1.post;
End;

Program input lagi :
procedure Tform1.LagiClick(sender:tobject);
begin

edit1.text:=’1’;
edit2.text:=’1’;
edit3.text:=’1’;
edit4.text:=’0’;
edit1.setfocus;
End;