Contoh prog perulangan PL/SQL
DECLARE
J INTEGER;
BEGIN
J := 0;
LOOP
J := J + 1;
DBMS_OUTPUT.PUT_LINE ('Test Looping');
EXIT WHEN J = 10;
END LOOP;
END;
/
Minggu, 17 April 2011
Contoh program array PL/SQL
Contoh program array PL/SQL
SET SERVEROUTPUT ON;
DECLARE
TYPE LARIK IS
TABLE OF NUMBER
INDEX BY BINARY_INTEGER;
A LARIK;
I INTEGER;
BEGIN
FOR I IN 1..5 LOOP
A(I) := I * 10;
END LOOP;
FOR I IN 1..5 LOOP
DBMS_OUTPUT.PUT_LINE(‘Nilai elemen larik ke-’ || TO_CHAR(I) || ‘ = ‘ || TO_CHAR(A(I)));
END LOOP;
END;
/
SET SERVEROUTPUT ON;
DECLARE
TYPE LARIK IS
TABLE OF NUMBER
INDEX BY BINARY_INTEGER;
A LARIK;
I INTEGER;
BEGIN
FOR I IN 1..5 LOOP
A(I) := I * 10;
END LOOP;
FOR I IN 1..5 LOOP
DBMS_OUTPUT.PUT_LINE(‘Nilai elemen larik ke-’ || TO_CHAR(I) || ‘ = ‘ || TO_CHAR(A(I)));
END LOOP;
END;
/
macam - macam array pada pl/sql
macam - macam array pada pl/sql
Associative array -> adalah jenis array yang bersifat temporer, pencarian elemen menggunakan index key yang dapat berupa string maupun angka
Nested table -> adalah jenis array yang menggunakan angka terurut dalam pencarian elemennya namun jumlah elemen tidak dideklarasikan
Varray -> adalah jenis array yang menggunakan angka terurut dalam pencarian elemennya dan mendeklarasikan jumlah elemennya
Associative array -> adalah jenis array yang bersifat temporer, pencarian elemen menggunakan index key yang dapat berupa string maupun angka
Nested table -> adalah jenis array yang menggunakan angka terurut dalam pencarian elemennya namun jumlah elemen tidak dideklarasikan
Varray -> adalah jenis array yang menggunakan angka terurut dalam pencarian elemennya dan mendeklarasikan jumlah elemennya
Macam - Macam perulangan pada pl/sql dan bentuk umumnya
Macam - Macam perulangan pada pl/sql
Perulangan pada PL/SQL ada 3 macam, diantaranya :
a. Menggunakan Simple Loop
Perlu di deklarasikan kondisi awal perulangan, proses ini dikenal dengan proses inisialisasi nilai. dalam blok perulangan ini perlu di deklarasikn kondisi untuk berhenti,,, yaitu exit.
b. Menggunakan Statement For
Struktur ini biasanya digunakan untuk melakukan pengulangan yang banyaknya sudah diketahui dengan pasti.
c. Menggunakan Struktur While
Struktur ini memeriksa kebenaran kondisinya dibagian awal blok atau badan perulangan pengulangan ini mirip dengan struktur simple loop.
Bentuk Umum Perulangan
statement_1;
. . .
EXIT WHEN kondisi;
END LOOP;
Perulangan pada PL/SQL ada 3 macam, diantaranya :
a. Menggunakan Simple Loop
Perlu di deklarasikan kondisi awal perulangan, proses ini dikenal dengan proses inisialisasi nilai. dalam blok perulangan ini perlu di deklarasikn kondisi untuk berhenti,,, yaitu exit.
b. Menggunakan Statement For
Struktur ini biasanya digunakan untuk melakukan pengulangan yang banyaknya sudah diketahui dengan pasti.
c. Menggunakan Struktur While
Struktur ini memeriksa kebenaran kondisinya dibagian awal blok atau badan perulangan pengulangan ini mirip dengan struktur simple loop.
Bentuk Umum Perulangan
statement_1;
. . .
EXIT WHEN kondisi;
END LOOP;
Minggu, 10 April 2011
If You Love Someone
Here are times in life... When the person you will love, For the rest of your life. Walks into your life.
Sometimes, just sometimes... You hurt that person, You push them away. Not meaning to, But you do.
Because you do this... You lose that person, They walk away.
At times... You are afraid, To go on, after this. But what choice do you have?
All you can do... Is hope that one day, If that person really was the one. You will meet again.
And if, just by chance... You get that second chance, Remember the past. Learn from your mistakes, And never let them happen again.
And by doing this... You will find out, That a lifetime of happiness awaits. If kisses were water, I'd give u a sea, If hugs were leaves, I'd give u a tree, If spaces were love, I'd give eternity, And if u are true and sincere to me, I'll keep all my love just for thee.
And every morning when you open your eyes, Tell yourself that it is special.
Every day, every minute, Every second is a gift from God. You've got to dance like nobody's watching,
And love like it's never going to hurt.
People say true friends must always hold hands, But true friends don't need to hold hands Because they know the other Hand will always be there.
Sometimes, just sometimes... You hurt that person, You push them away. Not meaning to, But you do.
Because you do this... You lose that person, They walk away.
At times... You are afraid, To go on, after this. But what choice do you have?
All you can do... Is hope that one day, If that person really was the one. You will meet again.
And if, just by chance... You get that second chance, Remember the past. Learn from your mistakes, And never let them happen again.
And by doing this... You will find out, That a lifetime of happiness awaits. If kisses were water, I'd give u a sea, If hugs were leaves, I'd give u a tree, If spaces were love, I'd give eternity, And if u are true and sincere to me, I'll keep all my love just for thee.
And every morning when you open your eyes, Tell yourself that it is special.
Every day, every minute, Every second is a gift from God. You've got to dance like nobody's watching,
And love like it's never going to hurt.
People say true friends must always hold hands, But true friends don't need to hold hands Because they know the other Hand will always be there.
Puisi - cinta pertama
Cinta Pertama
Oleh: Hiroko Hinno
Aku terdiam termenung Menatap hujan mengguyur bumi Mencari bintang nan tersembunyi Memandang awan nan mendung
Hati ku gundah Gundah gulana Berpikir tak bisa bertindak Ada tanya nan menyesak
Adakah hati 'kan terbuka Memulai cinta pertama
Terdiam aku Menghening dalam kelam
Maukah ia mengenal? Bilakah ia mengerti yang kurasa? Sesak mengunjungi dada Berpikir sebaik apa cinta yang ada
Tak dapat kutahan hati Keinginan mendapat cinta Kuingin ia tahu apa yang kurasa Oh Tuhan Kuatkan hati 'tuk berkata
Oleh: Hiroko Hinno
Aku terdiam termenung Menatap hujan mengguyur bumi Mencari bintang nan tersembunyi Memandang awan nan mendung
Hati ku gundah Gundah gulana Berpikir tak bisa bertindak Ada tanya nan menyesak
Adakah hati 'kan terbuka Memulai cinta pertama
Terdiam aku Menghening dalam kelam
Maukah ia mengenal? Bilakah ia mengerti yang kurasa? Sesak mengunjungi dada Berpikir sebaik apa cinta yang ada
Tak dapat kutahan hati Keinginan mendapat cinta Kuingin ia tahu apa yang kurasa Oh Tuhan Kuatkan hati 'tuk berkata
Arti sahabat
Pernah ada anak lelaki dengan watak buruk. Ayahnya memberi sekantung penuh paku, dan menyuruh memaku satu batang paku di pagar pekarangan setiap kali dia kehilangan kesabarannya atau berselisih paham dengan orang lain.
Hari pertama dia memaku 37 batang di pagar. Pada minggu-minggu berikutnya dia belajar untuk menahan diri, dan jumlah paku yang dipakainya berkurang dari hari ke hari.
Dia mendapatkan bahwa lebih gampang menahan diri daripada memaku di pagar.
Akhirnya tiba hari ketika dia tidak perlu lagi memaku sebatang paku pun dan dengan gembira disampaikannya hal itu kepada ayahnya. Ayahnya kemudian menyuruhnya mencabut sebatang paku dari pagar setiap hari bila dia berhasil manahan diri/bersabar.
Hari-hari berlalu dan akhirnya tiba harinya dia bisa menyampaikan kepada ayahnya bahwa semua paku sudah tercabut dari pagar. Sang ayah membawa anaknya ke pagar dan berkata : “Anakku, kamu sudah berlaku baik, tetapi coba lihat betapa banyak lubang yang ada dipagar. Pagar ini tidak akan kembali seperti semula.” Kalau kamu berselisih paham atau bertengkar dengan orang lain, hal itu selalu meninggalkan luka seperti pada pagar.
Kau bisa menusukkan pisau di punggung orang dan mencabutnya kembali, tetapi akan meninggalkan luka. Tak peduli berapa kali kau meminta maaf/menyesal, lukanya tinggal. Luka melalui ucapan sama perihnya seperti luka fisik.
Kawan-kawan adalah perhiasan yang langka.
Mereka membuatmu tertawa dan memberimu semangat.
Mereka bersedia mendengarkan jika itu kau perlukan, mereka menunjang dan membuka hatimu.
Tunjukkanlah kepada teman-temanmu betapa kau menyukai mereka.
Hari pertama dia memaku 37 batang di pagar. Pada minggu-minggu berikutnya dia belajar untuk menahan diri, dan jumlah paku yang dipakainya berkurang dari hari ke hari.
Dia mendapatkan bahwa lebih gampang menahan diri daripada memaku di pagar.
Akhirnya tiba hari ketika dia tidak perlu lagi memaku sebatang paku pun dan dengan gembira disampaikannya hal itu kepada ayahnya. Ayahnya kemudian menyuruhnya mencabut sebatang paku dari pagar setiap hari bila dia berhasil manahan diri/bersabar.
Hari-hari berlalu dan akhirnya tiba harinya dia bisa menyampaikan kepada ayahnya bahwa semua paku sudah tercabut dari pagar. Sang ayah membawa anaknya ke pagar dan berkata : “Anakku, kamu sudah berlaku baik, tetapi coba lihat betapa banyak lubang yang ada dipagar. Pagar ini tidak akan kembali seperti semula.” Kalau kamu berselisih paham atau bertengkar dengan orang lain, hal itu selalu meninggalkan luka seperti pada pagar.
Kau bisa menusukkan pisau di punggung orang dan mencabutnya kembali, tetapi akan meninggalkan luka. Tak peduli berapa kali kau meminta maaf/menyesal, lukanya tinggal. Luka melalui ucapan sama perihnya seperti luka fisik.
Kawan-kawan adalah perhiasan yang langka.
Mereka membuatmu tertawa dan memberimu semangat.
Mereka bersedia mendengarkan jika itu kau perlukan, mereka menunjang dan membuka hatimu.
Tunjukkanlah kepada teman-temanmu betapa kau menyukai mereka.