14 Mei 2009

Pemrog.Delphi


PERTEMUAN X


MATAKULIAH : PEMROGRAMAN OBJEK ORIENTED (DELPHI)
MATERI : Program Transaksi (3 buah table)
KELAS : D3/TK/2

Program transaksi adalah program yang merupakan transaksi dari data-data master.
Program transaksi ini lebih kompleks dari pada program master, program transaksi ini melibatkan table-tabel master dan transaksi.

Secara konsep, program transaksi dapat digambarkan sebagai berikut :













Contoh program transaksi :
• Transaksi KRS
• Transaksi Penjualan
• Transaksi Pemesanan
• Transaksi Penyewaan, dll

Dari kasus sebelumnya,maka program transaksi yang kita buat adalah program transaksi untuk pengisian FRS dan Penginputan Nilai.

Program Transaksi Input KRS :

Untuk membuat form KRS, melibatkan dua buah table master, yaitu :
table mahasiswa dan table matakuliah, serta table transaksi KRS.

Table KRS dengan field sbb :
Npm, kdmk bertipe A
Uts, Uas, Tugas, Absesnsi bertipe N


Berikut ini adalah penjelasan dari masing-masing table :

No Table Fungsi Field yang diambil untuk transaksi
1 Mahasiswa untuk memilih mahasiswa yang akan mengambil suatu matakuliah Npm
2 Matakuliah untuk memilih matakuliah yang diambil oleh mahasiswa Kdmk
3 KRS Untuk menampung data hasil transaksi


Objek tambahan yang digunakan dalam form :
No Nama objek Properties Nilai
2. Table1,2,3 Name
Databasename
TableName
Active Tblmhs, tblmatkul, tblkrs
Nama Alias
Nama table masing-masing
True
3. Datasource1,2,3 Name
Dataset Dsmhs, dsmatkul, dskrs
Tblmhs, tblmatkul, tblkrs
4. DBLookUpCombo1,2 Name
ListSource
ListField
KeyField CboLookup1, CboLookup2
ListSource bersangkutan
Field yang akan ditampilkan
Keyfield table bersangkutan


Contoh Rancangan Form Pengisian KRS :



















Algoritma program :
• Persiapan (desain, koneksi data base)
• Pilih npm, nama muncul otomatis (terkait table mahasiswa)
• Pilih kode matakuliah, nama mk dan sks otomatis muncul (terkait table matakuliah)
• Lalu simpan (simpan ke table KRS), otomatis nilai-nilai tersimpan dengan nilai =0

Program Pengisian KRS :

procedure TForm6.cbolookup1Click(Sender: TObject);
begin
// pencarian npm
tblmhs.SetKey;
tblmhs.FieldByName('npm').asstring:=cbolookup1.Text;
tblmhs.GotoKey;
//tampilkan nama sesuai npm yang di pilih
ednamamhs.text:=tblmhs.fieldvalues['nama'];
end;

procedure TForm6.cbolookup2Click(Sender: TObject);
begin
//pencarian kdmk
tblmatkul.SetKey;
tblmatkul.FieldByName('kdmk').asstring:=cbolookup2.Text;
tblmatkul.GotoKey;
//tampilkan nama sesuai npm yang di pilih
ednamamk.text:=tblmatkul.fieldvalues['nama_mk'];
edsks.text:=tblmatkul.fieldvalues['sks'];
end;

procedure TForm6.btnsimpanClick(Sender: TObject);
begin
tblkrs.Append;
tblkrs.FieldValues['npm']:=cbolookup1.Text;
tblkrs.FieldValues['kdmk']:=cbolookup2.Text;
tblkrs.FieldValues['uts']:=0;
tblkrs.FieldValues['uas']:=0;
tblkrs.FieldValues['tugas']:=0;
tblkrs.FieldValues['absensi']:=0;
tblkrs.Post;
end;

Tugas :
1. Buat program NAVIGATOR untuk berpindah ke record sebelumnya dan ke record berikutnya.
2. Buat program hapus data
3. Buat desain, algoritma dan program untuk form Nilai !






Tugas Mandiri (dikumpulkan) :
Pilih salah satu aplikasi dibawah ini, buat programnya! (databasenya tentukan sendiri) :
a. Aplikasi Rumah Sakit
b. Aplikasi Inventory
c. Aplikasi Penggajian
d. Aplikasi Koperasi / Ban

12 Mei 2009

PERTEMUAN IX

MATAKULIAH : PEMROGRAMAN OBJEK ORIENTED (DELPHI)
MATERI : Navigator, Tampil Data & Aplikasi Database
KELAS : D3/TK/2

Membuat Navigator Record

Perhatikan desain berikut :














Memindahkan penunjuk record, selain dengan menggunakan dbnavigator juga dapat dibuat sendiri dengan button dan di tambah kode program.

Metode memindahkan penunjuk record dengan program :
Method Aksi
Next Pindah ke record berikutnya dari dataset
Prior Pindah ke record sebelumnya dari dataset
First Pindah ke record pertama dari dataset
Last Pindah ke record terakhir dari dataset

Dari desain di atas, dari masing-masing button di buat program berikut :
Program :
procedure TForm5.SebelumClick(Sender: TObject);
begin
tblmhs.Prior;
end;

procedure TForm5.BerikutClick(Sender: TObject);
begin
tblmhs.Next;
end;





procedure TForm5.AwalClick(Sender: TObject);
begin
tblmhs.First;
end;

procedure TForm5.AkhirClick(Sender: TObject);
begin
tblmhs.Last;
end;

Menampilkan data dan Aplikasi Database (Input, Edit, Delete Data)

Buatlah desain seperti berikut :



Lakukan seting terhadap setiap properties sehingga desain seperti di atas.
Ganti name setiap objek sesuai fungsinya!
Untuk latihan ini gunakan database yang sudah dibuat (jika belum ada/hilang buat terlebih dahulu!)

a. Program ketika form di panggil :
//akan ditampilkan data yang ada dalam tabel pada objek isian di atas
procedure TForm5.FormCreate(Sender: TObject);
begin
//memindahkan pointer record ke record awal
tblmhs.Prior;

//menampilkan data pada tabel ke objek ednpm dan ednama
............. :=tblmhs.FieldValues['npm'];
ednama.Text:=tblmhs.FieldValues['............'];

//Melakukan cek apakah jenkel yang ada pada tabel = L?
if tblmhs.FieldValues['jenkel']='L' then
radiol.Checked:= .........
else
radiop.Checked:= .........

//menampilkan data pada tabel ke objek cboprog dan cbojrs
cboprog.text:=tblmhs.FieldValues['..............'];
........................:=tblmhs.FieldValues['jurusan'];
edit1.Text:='';
end;

b. Tugas :
Program Navigasi
Buatlah program untuk menampilkan data pada setiap objek (seperti di atas) pada button navigator

c. Tambahkan obejek dibawah ini :


Buat program pencarian sebagai berikut :

Program Cari Data

procedure TForm5.BtnCariClick(Sender: TObject);
begin
tblmhs.SetKey;
tblmhs.FieldByName('npm').asstring:=edit1.Text;
tblmhs.GotoKey;

//menampilkan data pada objek
ednpm.Text:=tblmhs.FieldValues['npm'];
ednama.Text:=tblmhs.FieldValues['nama'];
if tblmhs.FieldValues['jenkel']='L' then
radiol.Checked:=true
else
radiop.Checked:=true;

cboprog.text:=tblmhs.FieldValues['program'];
cbojrs.Text:=tblmhs.FieldValues['jurusan'];
end;

c. Tambahkan button berikut :



Program Tambah :
1 procedure TForm5.BtnTambahClick(Sender: TObject);
2 begin
3
4 tblmhs.Append;
5 tblmhs.FieldValues['npm']:=ednpm.Text;
6 tblmhs.FieldValues['nama']:=ednama.Text;
7 if radiol.Checked=true then
8 tblmhs.FieldValues['jenkel']:='L'
9 else
10 tblmhs.FieldValues['jenkel']:='P';
11
12 tblmhs.FieldValues['program']:=cboprog.Text;
13 tblmhs.FieldValues['jurusan']:=cbojrs.Text;
14 tblmhs.Post;
15 end;
Lakukan test, jalankan ! perbaiki jika ada kesalahan !

Tambahkan potongan program dibawah ini pada baris no.3
if btntambah.Caption='Tambah' then
begin
ednpm.Text:='';
ednama.Text:='';
radiol.Checked:=false;
radiop.Checked:=false;
cboprog.Text:='';
cbojrs.Text:='';
btntambah.Caption:='Simpan';
end
else
begin
tambahkan lagi 1 buah end; di bawah end terakhir prosedur tersebut
Lakukan test, jalankan ! perbaiki jika ada kesalahan ! Buat kesimpulan !

Program Edit :
procedure TForm5.BtnEditClick(Sender: TObject);
begin
tblmhs.Edit;
tblmhs.FieldValues['npm']:=ednpm.Text;
tblmhs.FieldValues['nama']:=ednama.Text;
if radiol.Checked=true then
tblmhs.FieldValues['jenkel']:='L'
else
tblmhs.FieldValues['jenkel']:='P';

tblmhs.FieldValues['program']:=cboprog.Text;
tblmhs.FieldValues['jurusan']:=cbojrs.Text;
tblmhs.Post;
end;
Lakukan test, jalankan ! perbaiki jika ada kesalahan !

Program Hapus :
procedure TForm5.BtnHapusClick(Sender: TObject);
var x:word;
begin
x:=messagedlg('Yakin akan dihapus',mtconfirmation,[mbyes,mbno],0);
if x=mryes then
tblmhs.Delete;
end;
Lakukan test, jalankan ! perbaiki jika ada kesalahan !

//menekan tombol enter
procedure TForm5.EdnpmKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
ednama.SetFocus;
end;

Tugas :
1. Buatlah desain dan program untuk membuat aplikasi :
a. Matakuliah
b. Barang
c. Buku
d. Pelanggan


Pemrog. Foxpro-P12

PERTEMUAN XII

MATAKULIAH : PEMROG. FOXPRO
KELAS : D3/MI/2A/P
MATERI : Program Transaksi (3 tabel)

Program transaksi adalah program transaksi dari 2 atau lebih table/database. Dalam program transaksi ini digunakan relasi.

Contoh :
Program transaksi input FRS dan input nilai mahasiswa
Untuk transaksi FRS dan nilai ini memerlukan :
•table mhs, field : (npm, nama, jurusan, jenkel, alamat, telp)
•mtkul field : (kdmk, namamk, sks)
•table nilai, field : (npm, kdmk, smt, statusmk, nabsen, nuts, nuas, ntgs, ntotal, ngrade)
Tugas : tipe data dan size tentukan sendiri !

12.1. INPUT FRS
Algoritma Program transaksi input FRS mahasiswa
•Persiapan (termasuk relasi file)
•Masukan npm
•Cari npm di table mahasiswa, tampilkan nama, jurusan
•Isi semester
•Masukan kode mk, (nama mk, sks, otomatis muncul, panggil dari table matakuliah)
•Isi status (baru, her, mengulang)
•Tambah matakuliah lagi? Jika Y, maka tambah matakuliah lagi.
•Jika tidak maka, Selesai

Program Input FRS :
SET TALK OFF
SET STAT OFF

SELECT 1
USE MHS INDEX XMHS
SELECT 2
USE MTKUL INDEX XMTKUL
SELECT 3
USE NILAI
SET RELATION TO NPM INTO A
SET RELATION TO KD_MTKUL INTO B ADDITIVE

MNPM=SPAC(10)
MKDMK=SPAC(8)
MSMT=SPAC(2)
MSTATMK=SPAC(1)
LAGI='Y'
BENAR=SPAC(1)
CLEA

DO WHIL .T.
@ 2,5 SAY ‘INPUT FORMULIS RENCANA STUDI’

SELECT 1
@ 5,5 SAY 'NPM : ' GET MNPM
SEEK MNPM
IF FOUND() THEN
@6,5 SAY ‘Nama : ‘ +nama
@7,5 SAY ‘Jurusan : ‘ +jurusan
ELSE
@15,5 SAY ‘Mahasiswa tersebut tidak terdaftar !’
WAIT ‘ ‘
@15, 5 clea
LOOP
ENDIF

SELECT 2
@ 8,5 SAY 'Kode Matakuliah : ' GET MKDMK
READ
SEEK MKDMK
IF FOUND() THEN
@9,5 SAY ‘Nama MK : ‘ +nama
@10,5 SAY ‘SKS : ‘ +sks
ELSE
@15,5 SAY ‘Matakuliah tersebut tidak ada !’
WAIT ‘ ‘
@15, 5 clea
LOOP
ENDIF
@11,5 SAY ‘Semester : ‘ GET MSMT
@12,5 SAY ‘Status : ‘ GET MSTATMK
READ

SELECT 3
LOCATE FOR NPM=MNPM AND KDMK=MKDMK AND SMT=MSMT AND STATMK=MSTATMK
IF FOUND() THEN
@15,5 SAY ‘Matakuliah tersebut sudah diambil !’
WAIT ‘ ‘
@15, 5 clea
LOOP
ENDIF

@ 16,5 SAY 'Data Sudah Benar [Y/T] : ' GET BENAR PICT '@!'
READ
IF BENAR = 'Y' THEN
APPE BLAN
REPL NPM WITH MNPM
REPL KDMK WITH MKDMK
REPL SMT WITH MSMT
REPL STATUSMK WITH MSTATMK
REPL NABSEN WITH 0
REPL NUTS WITH 0
REPL NUAS WITH 0
REPL NTGS WITH 0
REPL NTOTAL WITH 0
REPL NGRADE WITH ‘E’
ENDIF
@ 15,5 CLEA
@ 17,5 SAY 'Input Data Lagi [Y/T] : ' GET LAGI PICT '@!'
READ

IF LAGI = 'Y' THEN
CLEA
LOOP
ELSE
EXIT
ENDI
ENDD
RETU

12.2. PROGRAM INPUT NILAI
Algoritma Program transaksi input FRS mahasiswa
•Persiapan (termasuk relasi file)
•Masukan npm
•Cari npm di table nilai & mahasiswa, tampilkan nama, jurusan
•Isi semester
•Masukan kode mk, cari kodemk di table nilai & matkul (nama mk, sks, otomatis muncul, panggil dari table matakuliah)
•Data nilai sebelumnya akan tampil
•Update nilai, hitung nilai total dengan rumus 10%Xnabsen + 20%Xntgs + 30%Xnuts + 40%Xnuas
•Update nilai grade dengan ketentuan : jika >=80, A, jika 66-79 maka B, jika 56-65 maka C, 46-55 maka D, selain itu E
•Simpan data nilai ke table nilai
•Update nilai lagi? Jika Y, maka ulangi update data nilai
•Jika tidak maka, Selesai

Tugas : Buatlah Program Input Nilai

LATIHAN
•Buatlah program untuk transaksi PENJUALAN

11 Mei 2009

Open Your Mind to Computer Technology

Open Your Mind to Computer Technology, inilah tema seminar yang diadakan di STMIK Bani Saleh-Bekasi, dengan pembicara Bapak Romi Satria Wahono, para perseta yang hadir kebanyakan dari mahasiswa dan siswa SLTA se Bekasi. Dalam materinya, disampaikan bahwa di era informasi ini kita membuka wawasan kita terhadap dunia IT. Seminar yang dilaksanakan pada hari Sabtu, 9 Mei 2009 ini memotivasi peserta untuk belajar dan terus belajar, jika orang lain dapat menghafal pelajaran dam sekali baca, jika kita tidak, maka kita harus terus menghafal pelajaran tersbut berulang-ulang, disinilah terasa nikmatnya perjuangan. Dalam seminar ini pula disampaikan "apa yang kita dapatkan dari universitas", ini membuka para peserta bahwa, apa-apa yang didapatkan dari matakuliah di universitas hanya sebagai bekal dasar, selanjutnya sepenuhnya kembali kepada mahasiswa yang bersangkutan. Jadi dapat dismpulkan :
  • Imu pengetahun itu tidak semuanya hanya di dapat universitas
  • Keberhasilan seseorang tergantung dari usahanya
  • Pisau yang tajam jika tidak pernah di asah akan menjadi tumpul, dan pisau tumpul kalau sering diasah dapat menjadi tajam, jadi pesan buat para pelajar dan mahasiswa, jangan pernah putus asa dan berhenti dalam belajar, kita pasti bisa! dan harus bisa!

KRI dan KRCI di UI Depok

Minggu, 10 Mei 2009 jam 7:00 saya sudah sampai kampus untuk bersama-sama menghadiri Konter Robot Indonesia di UI Depok. Perjalanan dari Bekasi ke Depok cukup cepat, sehingga sampai di Depok tepat waktu. Di sana sudah banyak peserta dan undangan yang telah hadir. Karya-karya yang di tampilkan dalam kontes ini sangat menarik dan bagus-bagus. Pesertanya dari berbagai perguruan tinggi negeri dan swasta di wilayah II, ada ITB, UI, UNIKOM, UNPAD, UNISMA, STMIK Bani Saleh, PERBANAS, UPI, dan banyak lagi. Pemeanga dari kontes ini akan maju ke kontes nasional, dan pemenang dari kontes robot nasional nanti akan mewakili Indonesia untuk berlaga di ABU ROBOCON di Jepang, sekitar bulan Agustus 2009. Kegiatan semacam ini sangat baik di kembangkan, tetapi permasalahannya adalah di dana. Pembuatan miniatur robot ini membutuhkan biaya yang tidak sedikit, begitu pula ketesediaan komponen, ternyata pencarian komponen pun tidak hanya di dalam negeri, bahkan sampai ke luar negeri.

02 Mei 2009

Kuliah SIBD

Kuliah Sistem Informasi dan Basis Data kali ini cukup menarik, Dosen kami Bapak Bambang Dwi W dengan gamblang menjelaskan mulai dari gambaran umu tentang kurikulum TI, proses dan metode pengembangan project software, paradigma pengembangan software, teori database mulai dari konsep himpunan sampai dengan relasi. Kuliah ini di berikan sebanyak 4 sesi..setiap sabtu pagi..trim's pak atas penjelasannya