Kita dapat menggunakan scrip untuk menghasilkan kodingan di cmd dengan cara langsung. Dengan langkah-langkah sebagai berikut :
Ketikan script SQL di notepad dengan format (.sql, all file)
Kita harus mengetikan sqlplus
Setelah itu harus connect atau login ke oracle dengan username hr dan password hr
Kalau sudah connect kita harus mengetikan SET SERVEROUTPUT ON
Ketik @’---(hasil copy link notepad)--- \---- .sql’;
Contoh-contoh Script dan Tampilan Hasil
script :
select * from tab;
desc employees;
select first_name, last_name, salary from employees;
2. output : Bismillah, Nama Saya ....
script :
declare
begin
dbms_output.put_line('Bismillah, Nama Saya Novia Liestarini');
end;
/
3. input : nama
output : Bismillah, Nama Saya
script :
declare
a varchar (30);
begin
a:='&masukkan_nama_anda';
dbms_output.put_line('Bismillah Nama Saya '||a);
end;
/
4. input : nama, umur
output : Jumlah umur ditambah 5tahun umur kedepan
script :
declare
a varchar (30);
b number (9);
c number (9);
begin
a:='&masukkan_nama_anda';
b:='&masukkan_umur_anda';
c:=b+5;
dbms_output.put_line('Hai, nama saya '||a);
dbms_output.put_line('5 Tahun lagi umur saya '||c||'tahun');
end;
/
5. input : angka1, angka2, angka3, angka4
output : Selamat datang dikalkulator cupu
Penjumlahan (+)
Pengurangan (-)
Perkalian (*)
script :
declare
a number (9);
b number (9);
c number (9);
d number (9);
e number (9);
begin
a:=&masukkan_angka;
b:=&masukkan_angka;
c:=a+b;
d:=a-b;
e:=a*b;
dbms_output.put_line('SELAMAT DATANG DI KALKULATOR CUPU');
dbms_output.put_line(a|| '+' ||b|| '=' ||c);
dbms_output.put_line(a|| '-' ||b|| '=' ||d);
dbms_output.put_line(a|| '*' ||b|| '=' ||e);
end;
/
6. output : Sekarang hari sabtu (enter) Kemarin hari jum'at
script :
declare
begin
dbms_output.put_line('Sekarang hari sabtu');
dbms_output.put_line('kemarin hari jum''at');
end;
/
7. input : x, y
output : Persegi panjang ini kelilingnya ... cm (enter) Luasnya ... cm
script :
declare
x number(20);
y number(20);
c number(20);
d number(20);
begin
x:=&masukkan_nilai_x;
y:=&masukkan_nilai_y;
c:=x+y+x+y;
d:=x*y;
dbms_output.put_line('Persegi panjang ini kelilingnya '||c||'cm');
dbms_output.put_line('Luasnya '||d||'cm');
end;
/
8. output : Hari, Tanggal, Bulan, Tahun
script :
declare
begin
dbms_output.put_line ('Sekarang hari '||to_char(sysdate,'DAY')
||'tanggal '||to_char(sysdate,'DD ')
||'bulan '||to_char(sysdate,'MM ')
||'tahun '||to_char(sysdate,'YYYY'));
end;
/
9. input : nama, harga_buku, jumlah_diskon
output : Selamat datang ... (enter) Harga yang harus dibayar Rp ...
script :
declare
a varchar (30);
b number (10);
c number (10);
d number (10);
e number (10);
begin
a:='&masukkan_nama';
b:=&masukkan_harga_buku;
c:=&masukkan_diskon;
d:=b*c/100;
e:=b-d;
dbms_output.put_line('Selamat Datang '||a);
dbms_output.put_line('Harga yang harus dibayar Rp '||e);
end;
/
10. input : nama, harga_buku, jumlah_diskon
output : Harga < 50 (Ih, pelit banget) (enter) Harga > 50 (Wow, baik banget)
script :
declare
a varchar (30);
b number (10);
c number (10);
d number (10);
e number (10);
f varchar (50);
begin
a:='&masukkan_nama';
b:=&masukkan_harga_buku;
c:=&masukkan_diskon;
d:=b*c/100;
e:=b-d;
--mengeluarkan tampilan dengan kata ih, pelit banget
if c<=50 then
dbms_output.put_line('Ih, pelit banget');
--mengeluarkan tampilan dengan kata ih, baik banget
else
dbms_output.put_line('Wow, baik banget');
end if;
dbms_output.put_line('Selamat Datang '||a);
dbms_output.put_line('Harga yang harus dibayar Rp '||e);
end;
/
output : Hasil pengurangan (jika a<b penjumlahan; a>b pengurangan; a=b sama dengan)
script :
declare
a number (9);
b number (9);
c number (9);
d number (9);
begin
a:=&masukkan_nilai_a;
b:=&masukkan_nilai_b;
c:=a+b;
d:=a-b;
if a<b then
dbms_output.put_line('Hasil penjumlahan '||c);
else if a>b then
dbms_output.put_line('Hasil pengurangan '||d);
else if a=b then
dbms_output.put_line('a sama dengan b');
end if;
end if;
end if;
end;
/
12. input : masukkan_nilai_x
output : n
.
.
.
1
script :
declare
x number (3);
begin
x:=&berapa;
for i in 1..x loop
dbms_output.put_line(x);
x:=x-1;
end loop;
end;
/
13. input : masukkan_nilai_x
output : 1 ganjil
genap
3 ganjil
genap
.
.
.
n
script :
declare
x number(2);
begin
x:=&nilai_x;
for i in 1..x loop
if mod(i,2)=1 then
dbms_output.put_line(i||' ganjil');
else
dbms_output.put_line('genap');
end if;
end loop;
end;
/
14. input : angka 1-7
output : Nama hari (Senin, Selasa, Rabu, Kamis, Jum'at, Sabtu, Minggu)
script :
declare
a number (9);
begin
a:=&masukkan_angka;
if a='1' then
dbms_output.put_line('hari senin');
else if a='2' then
dbms_output.put_line('hari selasa');
else if a='3' then
dbms_output.put_line('hari rabu');
else if a='4' then
dbms_output.put_line('hari kamis');
else if a='5' then
dbms_output.put_line('hari jumat');
else if a='6'then
dbms_output.put_line('hari sabtu');
else if a='7' then
dbms_output.put_line('hari minggu');
end if;
end if;
end if;
end if;
end if;
end if;
end if;
end;
/
15. input : harga_buku, jumlah_buku
output : Total_harga (jika > 50000 diskon 10%)
script :
declare
a number (9);
b number (9);
c number (9);
d number (9);
begin
a:=&masukkan_harga_buku;
b:=&jumlah_buku;
c:=a*b;
if c>50000 then
d:=c-(c*10/100);
dbms_output.put_line('Total Harga '||d);
else
dbms_output.put_line('Total Harga '||c);
end if;
end;
/
16. input : nama
output : Selamat Pagi/ Siang/ Sore/ Malam
(catatan : pagi 05-12, siang 12-16, sore 16-21, malam sisanya)
clue : to_char(Sysdate,"HH24")
script :
declare
a varchar (30);
b varchar (3);
begin
a:='&masukkan_nama';
b:=to_char(sysdate,'HH24');
if (b>05 and b<=12) then
dbms_output.put_line('Selamat Pagi');
else if (b>12 and b<=16) then
dbms_output.put_line('Selamat Siang');
else if (b>16 and b<=21) then
dbms_output.put_line('Selamat Sore');
else
dbms_output.put_line('Selamat Malam');
end if;
end if;
end if;
end;
/
created by :
Novia Liestarini
30109097
Pis-09-04
Manajement Infromatika
1 komentar:
tulisan yang lengkap dan ada ilustrasinya... good, apalagi kalo dilengkapi dengan referensi. terima kasih
Posting Komentar