Modul Praktikum Basisdata Bab III

Posted in Labels: , | 11:57:00 AM

Bajay X Generation -->

Untuk lebih memperdalam pemahaman tentang SQL maka pada pertemuan kali ini akan dipelajari tentang kelompok lain dalam perintah SQL yaitu DML (Data Manipulation Language) terutama perintah SELECT dan variasinya dalam bentuk query/subquery, teknik Join dan Union..

Query adalah permintaan – data – yang sudah dimodifikasi sedemikian rupa sehingga hanya menghasilkan / menampilkan data yang diinginkan. Walaupun secara formal seluruh perintah SQL disebut sebagai Query, tetapi dalam penggunaan sehari-hari Query lebih identik dengan segala bentuk variasi perintah SELECT.

Join adalah proses menggabungkan data-data dari dua tabel atau lebih dengan cara merelasikannya, untuk mendapatkan gambaran keseluruhan data secara lebih baik.

Read more »

Read Users' Comments (0)

Tutorial Turbo Pascal Part 4

Posted in Labels: , | 10:47:00 AM

Bajay X Generation -->

Apa itu Looping
Secara sederhana looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali.

Aduh, kurang jelas, dapatkah anda memberikan contoh pemakaian looping dari program yang pernah kita buat sebelumnya ?
He-he-he, mungkin anda sudah lupa dengan program Hangman yang pernah kita buat pada pertemuan kedua, disana komputer secara berulang menanyakan huruf tebakan kita sebanyak 10 kali kesempatan, dalam hal ini kita telah menggunakan looping. 

Ok, sekarang saya sudah punya gambaran. Apakah hal tersebut tidak dapat dilakukan tanpa looping ?
Tentu saja bisa, tetapi akibatnya program kita menjadi panjang dan tidak efisien, coba bayangkan misalnya anda ingin mencetak tulisan PentaCOM sebanyak 10 baris di layar, bisa saja anda menggunakan perintah Writeln('Bajay-X'); sebanyak 10 kali.
Bukankah lebih baik kita memerintahkan komputer untuk secara berulang menjalankan perintah Writeln('Bajay-X'); sebanyak 10 kali.

Read more »

Read Users' Comments (1)comments

Tutorial Turbo Pascal Part 3

Posted in Labels: , | 12:57:00 PM

Bajay X Generation -->
Setelah mencoba program Hangman, sesuatu pertanyaan yang timbul adalah mengapa komputer dapat mengetahui huruf yang kita masukan ada dalam tulisan atau tidak ?Ok, hal tersebut dapat terjadi karena adanya keputusan yang terprogram, artinya komputer dapat mengambil keputusan untuk berdasarkan aliran logika yang telah ditentukan sebelumnya yang dikenal sebagai algoritma. 

Bagaimana penulisan perintah pengambilan keputusan pada Pascal ?
Salah satu perintah struktur pengambilan keputusan adalah :
If condition Then statement;
Dimana condition adalah sesuatu yang bernilai True atau False, dan statement adalah perintah yang akan dijalankan.

Dapatkah anda memberikan sebuah contoh pemakaian perintah If ?
Baiklah, misalnya kita akan membuat program menentukan pembayaran berdasarkan berdasarkan jumlah belanja, jika diatas 100000 (seratus ribu) mendapatkan potongan 3%, maka programnya adalah sebagai berikut :
Uses Crt;
Var
     Belanja : Real;
Begin
     Clrscr;
     Write(‘Jumlah belanja ? ‘); Readln(Belanja);
     If Belanja > 100000 Then Belanja := Belanja * 0.97;     Writeln(‘Jumlah yang harus anda bayar ‘,Belanja:10:2);     Readln;
End.

Read more »

Read Users' Comments (0)

Normalisasi Database

Posted in Labels: , | 11:46:00 PM

Bajay X Generation -->

       Ketika kita merancang suatu basis data untuk suatu sistem relational, prioritas utama dalam mengembangkan model data logical adalah dengan merancang suatu representasi data yang tepat bagi relationship dan constrainnya (batasannya). Kita harus mengidentifikasi suatu set relasi yang cocok, demi mencapai tujuan di atas. Tehnik yang dapat kita gunakan untuk membantu mengidetifikasi relasi-relasi tersebut dianamakan Normalisasi.
       Proses normalisasi pertama kali diperkenalkan oleh E.F.Codd pada tahun 1972. normalisasi sering dilakukan sebagai suatu uji coba pada suatu relasi secara berkelanjutan untuk menentukan apakah relasi tersebut sudah baik atau masih melanggar aturan-aturan standar yang diperlakukan pada suatu relasi yang normal (sudah dapat dilakukan proses insert, update, delete, dan modify pada satu atau beberapa atribut tanpa mempengaruhi integritas data dalam relasi tersebut).
       Proses normalisasi merupakan metode yang formal/standar dalam mengidentifikasi dasar relasi bagi primary keynya (atau candidate key dalam kasus BCNF), dan dependensi fungsional diantara atribut-atribut dari relasi tersebut. Normalisasi akan membantu perancang basis data dengan menyediakan suatu uji coba yang berurut yang dapat diimplementasikan pada hubungnan individualshingga skema relasi dapat di normalisasi ke dalam bentuk yang lebih spesifik untuk menghindari terjadinya error atau inkonsistansi data, bila dilakuan update tehadap relasi tersebut dengan Anomaly.

Read more »

Read Users' Comments (0)

Tutorial Turbo Pascal Part 2

Posted in Labels: , | 6:46:00 AM

Bajay X Generation -->
Unit apa yang perlu saya cantumkan pada bagian uses, kalau saya ingin melakukan pengaturan layar ?
Turbo Pascal menyediakan suatu unit CRT, yang berisi perintah-perintah pengaturan layar seperti membersihkan layar, mengatur warna tulisan, warna background, memindahkan posisi cursor, mode layar, dan membuat window.
Ok, saya sudah tahu perintah Clrscr, apa perintah untuk mengatur warna tulisan ?
Pada prinsipnya ada dua cara untuk mengatur warna tulisan yang dicetak dengan perintah Write dan Writeln, yang pertama adalah perintah :
TextColor(nomor warna);
Dan yang kedua adalah variabel internal dari unit CRT:
Textattr := nomor warna;
Hallo, anda belum memberitahukan kepada saya nomor warna yang dapat saya gunakan !
Baiklah, berikut ini adalah nomor warna yang mewakili masing-masing warna: 0 (black), 1 (blue), 2 (green), 3 (cyan), 4 (red), 5 (magenta), 6 (brown), 7 (lightgray), 8 (darkgray), (9) lightblue, 10 (lightgreen), 11 (lightcyan), 12 (lightred), 13 (lightmagenta), 14 (yellow), 15 (White).

Saya pernah melihat tulisan warna berkedip-kedip, dapatkah hal tersebut dilakukan ?
Anda dapat saja melakukan hal tersebut dengan menambahkan angka 128 pada nomor warna yang anda inginkan, misalnya :
TextColor(4 + 128);
Writeln('Merah dan berkedip-kedip');
Atau :
TextColor(Red + Blink);
Writeln('Merah dan berkedip-kedip');
Pada prinsipnya anda dapat menggunakan konstanta dari masing-masing nomor warna seperti black, blue, green, dll, untuk menggantikan pemakaian nomor.

Read more »

Read Users' Comments (0)

Tutorial Turbo Pascal Part 1

Posted in Labels: , | 6:09:00 AM

Bajay X Generation -->
Apa itu Turbo Pascal ?
Pascal merupakan suatu bahasa komputer tingkat tinggi yang dibuat sekitar tahun 1970 oleh Niklaus Wirth dan digunakan untuk pendidikan komputer. Nama Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama. Bahasa Pascal dirancang untuk menyelesaikan masalah dari berbagai kalangan pemakai, mulai dari para mahasiswa, pendidik, dan ilmuwan. Salah satu kompiler pascal yang terkenal dan tercepat adalah Turbo PASCAL yang dibuat oleh perusahaan Borland (http://www.borland.com).

Adakah versi Turbo Pascal untuk pemrograman Visual ?
Pada trend pemrograman Visual, perusahaan Borland mengeluarkan Borland Delphi yang menggunakan dasar dialek Pascal pada lingkungan pemrograman Visual. 

Apa artinya Pascal adalah bahasa pemrogram terstruktur ?
Pascal adalah suatu bahasa pemrograman terstruktur. Hal tersebut berarti semua program yang anda buat harus terstruktur dan teratur, dalam hal ini ada pemakaian goto dan jump.

Bagaimana Struktur program pascal yang paling sederhana ?
Struktur program pascal yang paling sederhana adalah :
uses ...;
var ...;
begin
     .... {Your program is here}
end.
Dapatkah anda memberi contoh sebuah program pascal yang sederhana ?
uses crt;
begin
     Clrscr;
     Writeln('Saya sedang belajar Pascal !');
     Writeln('Di bajay-x.blogspot.com');
end.
Bagaimana Struktur program pascal yang kompleks ?

Read more »

Read Users' Comments (0)

Operasi Spasial

Posted in Labels: , | 5:18:00 AM

Bajay X Generation -->
1. Operasi Spasial
Operasi spasial dalam pengolahan citra digital dilakukan melalui penggunaan suatu kernel konvolusi 2-dimensi. Beberapa metode image enhancement yang termasuk dalam keluarga ini adalah neighborhood averaging, median filtering, dan high-pass filtering.

1.1 Neighborhood Averaging
Pada prinsipnya, filter yang digunakan dalam neighborhood averaging merupakan salah satu jenis low-pass filter, yang bekerja dengan cara mengganti nilai suatu piksel pada citra asal dengan nilai rata-rata dari piksel tersebut dan lingkungan tetangganya.
Contoh perintah untuk melakukan neighborhood averaging dengan kernel berukuran 3×3:
I=imread('eight.tif');
kernel=[1 1 1;1 1 1;1 1 1]/9;
J=uint8(conv2(double(I),kernel,'same'));
figure,imshow(I);
figure,imshow(J);
Salah satu persoalan pada penggunaan neighborhood averaging adalah apabila citra masukan telah terkontaminasi noise, sebagaimana diperlihatkan oleh contoh berikut:
I=imread('eight.tif');
IN=imnoise(I,'salt & pepper',0.02);
kernel=[1 1 1;1 1 1;1 1 1]/9;
J=uint8(conv2(double(I),kernel,'same'));
JN=uint8(conv2(double(IN),kernel,'same'));
figure,imshow(I);
figure,imshow(J);
figure,imshow(IN);
figure,imshow(JN);
1.2 Median Filtering
Median filter merupakan salah satu jenis low-pass filter, yang bekerja dengan mengganti nilai suatu piksel pada citra asal dengan nilai median dari piksel tersebut dan lingkungan tetangganya. Dibandingkan dengan neighborhood averaging, filter ini lebih tidak sensitif terhadap perbedaan intensitas yang ekstrim.
Contoh perintah untuk melakukan median filtering dengan kernel berukuran 3×3:
I=imread('eight.tif');
IN=imnoise(I,'salt & pepper',0.02);
J=medfilt2(I,[3 3]);
JN=medfilt2(IN,[3 3]);
figure,imshow(I);
figure,imshow(J);
figure,imshow(IN);
figure,imshow(JN);
1.3 High-pass Filtering
Sebagaimana pada proses pengolahan sinyal satu dimensi, high-pass filter dua dimensi akan melewatkan komponen citra frekuensi tinggi dan meredam komponen citra frekuensi rendah.
Contoh perintah untuk melakukan high-pass filtering:
I=imread('saturn.tif');
hpf1=[ 1 -2 1;-2 5 -2; 1 -2 1];
hpf2=[ 0 -1 0;-1 5 -1; 0 -1 0];
hpf3=[-1 -1 -1;-1 9 -1;-1 -1 -1];
J1=uint8(conv2(double(I),hpf1,'same'));
J2=uint8(conv2(double(I),hpf2,'same'));
J3=uint8(conv2(double(I),hpf3,'same'));
figure,imshow(I);
figure,imshow(J1);
figure,imshow(J2);
figure,imshow(J3);
 source » Imaging & Image Processing Research Group Institut Teknologi Bandung

Read Users' Comments (0)

Subscribe to: Posts (Atom)
Sign up for PayPal and start accepting credit card payments instantly.