Pages

Kamis, 20 Oktober 2011

Definition of BLOG

Blog is short for Weblog, a term first used by Jorn Barger in December 1997. Jorn Barger used the term to describe a group Weblog personal website is always updated continuously and contains links to other websites that they find interesting along with the comments of their own.

Broadly speaking, the Weblog can be summarized as a collection of personal websites that allow their makers display different types of content on the web with ease, such as paper, a collection of Internet links, documents (Word files, PDF, etc.), pictures or multimedia.

The creator of the blog called Blogger. Through this blog, Blogger personality to be easily identified based on what topics they like, what the response to the links in the select and the issues therein. Therefore it is very personal blog.

Other developments of the Blog is the Blog load when writing about what a Blogger think, feel, to what he does everyday. Blog Online Diary then also be located on the Internet. The only thing that distinguishes Blog from Diary or Journal of the ordinary that we have is that the Blog is created to read others.

HISTORY of the BLOG

The first blog is most likely the page “What’s New” on the Mosaic browser created by Marc Andersen in 1993. If we still remember, Mosaic was the first browser before the Internet Explorer even before Netscape.

Then in January 1994 Justin Hall started his personal website “Justin’s Home Page” which later changed to “Links from the Underground” which may be called the first blog as we know it today.

Until in 1998, the number of Blogs that are still very few. This is because the time required expertise and specialized knowledge about website creation, HTML, and web hosting to create a blog, so that only those working in the fields of Internet, System Administrator or Web Designer who later in his spare time creating their own blogs.

But this time, we do not have to be a programmer to be a Blogger, because we can display the entire contents of the Web with ease via the menu editor that has been provided.

The advantage of using Weblog is:

1. Through this weblog, we can expand the relationship of friends / acquaintances to be able to form a great community.
2. Weblog exceed electronic mail (email), because a blog post that you mentioned, can be read by unlimited visitors to your blog. Differences with the email that can only be read by people who we send. In addition, visitors to the blog also can quickly respond to blog posts via the comments that can be directly written on the blog.

As the development of weblogs from time to time, the meanings of weblog will also be developed along with the ideas and the willingness of Blogger.

Jumat, 18 Juni 2010

PERINTAH SQL (DDL, DML & DCL)

RDBMS (Relational Database Management System)

Relational Database Management System (RDBMS) atau yang dalam bahasa Indonesia dikenal sebagai Sebuah sistem manajemen basisdata relasional adalah sebuah program komputer (atau secara lebih tipikal adalah seperangkat program komputer) yang didesain untuk mengatur/memanajemen sebuah basisdata sebagai sekumpulan data yang disimpan secara terstruktur, dan melakukan operasi-operasi atas data atas permintaan penggunanya. Contoh penggunaan DBMS ada banyak sekali dan dalam berbagai bidang kerja, misalnya akuntansi, manajemen sumber daya manusia, dan lain sebagainya.

Meskipun pada awalnya DBMS hanya dimiliki oleh perusahaan-perusahaan berskala besar yang memiliki perangkat komputer yang sesuai dengan spesifikasi standar yang dibutuhkan (pada saat itu standar yang diminta dapat dikatakan sangat tinggi) untuk mendukung jumlah data yang besar, saat ini implementasinya sudah sangat banyak dan adaptatif dengan kebutuhan spesifikasi data yang rasional sehinggal dapat dimiliki dan diimplementasikan oleh segala kalangan sebagai bagian dari investasi perusahaan.



Sejarah RDBMS

Edgar F. Codd memperkenalkan istilah ini pada makalah seminarnya yang berjudul "A Relational Model of Data for Large Shared Data Banks". Salah satu definisi yang cukup dikenal secara luas atas sebuah sistem basisdata relasional adalah 12 hukum Codd. Namun demikian, pada awal-awal implementasinya banyak model relasional yang tidak mengikuti seluruh elemen-elemen yang terdapat dalam hukum-hukum Codd tersebut yang menjadikan terminologinya berkembang untuk mendeskripsikan sebuah tipikal sistem basisdata yang lebih luas.

Dalam cakupan yang minimum sistem tersebut memenuhi kriteria berikut:
· menyajikan data pada pengguna dalam bentuk relasional (ditampilkan dalam bentuk tabular, sebagai koleksi dari tabel dimana setiap tabel beriisi sekumpulan baris dan kolom)
· menyediakan operator relasioanl untuk memanipulasi data dalam bentuk tabular
Sistem yang pertama kalinya yang secara relatif memenuhi implementasi atas sebuah model relasional adalah Pusat Studi Ilmiah IB, Inggris, di Peterlee; IS1 (1970-1972) dan implementasi lain yang mengikutinya PRTV (1973-1979).

Sistem yang pertama kalinya dijual secara komersil sebagai RDBMS adalah Multics Relational Data Srore pada tahun 1978. Yang lainnya adalah Berkeley Ingres QUEL dan IBM BS12.

apa itu Microsoft SQL Server? Apa itu? Apakah sama dengan SQL? Melalui tulisan kali ini kita akan bahas mengenai masalah ini.

Microsoft SQL Server merupakan produk RDBMS (Relational Database Management System) yang dibuat oleh Microsoft. Orang sering menyebutnya dengan SQL Server saja. Ini kadang-kadang membingungkan bagi kalangan awam karena sebelumnya sudah ada pula terminologi SQL. Untuk lebih jauh mengenal apa itu SQL silakan Anda baca artikel pada alamat ini klik disini. Microsoft SQL Server juga mendukung SQL sebagai bahasa untuk memproses query ke dalam database dan kita tahu bahwa SQL ini sudah digunakan secara umum pada semua produk database server yang ada di pasaran saat ini. Microsoft SQL Server banyak digunakan pada dunia bisnis, pendidikan atau juga pemerintahan sebagai solusi database atau penyimpanan data. Berbagai macam skala bisnis mulai yang kecil sampai skala enterprise bisa menggunakan Microsoft SQL Server sebagai database servernya. Anda mungkin tahu bahwa ada banyak produk sejenis Microsoft SQL Server seperti Oracle Database, Interbase, MySQL, Firebird, Sybase, IBM DB2 dan lain sebagainya.

Pemanfaatan RDBMS Saat Ini

Definisi yang paling populer dari sebuah RDBMS seringkali
dianggap kurang tepat; beberapa kalangan berargumentasi bahwa penyajian data sebagai kumpulan baris dan kolom sudah cukup memenuhi syarat untuk dikatakan sebagai sebuah RDBMS. Tipikalnya, sebuah sistem basisdata dikatakan memenuhi kriteria sebagai RDBMS apabila memenuhi hukum-hukum yang ditetapkan dalam 12 hukum Codd, namun pada kenyataannya justru kebanyakan sistem basisdata tidak mendukung sepenuhnya implementasi hukum-hukum Codd tersebut.

Kalangan lainnya beranggapan apabila sebuah sistem basisdata tidak mengimplementasikan keseluruhan hukum-hukum Codd tersebut, maka sistem tersebut tidak dapat disebut sebagai relasional. Pandangan seperti ini, yang banyak diterima oleh para teoritis dan kalangan-kalangan lainnya yang memegang teguh prinsip-prinsip Codd, tentunya akan mendiskualifikasikan banyak sistem basisdata yang ada saat ini "tidak murni relasional". Dalam kenyataannya, sistem basisdata yang menggunakan SQL (Structured Query Language) untuk mengakses dan memodifikasi data tidak bisa dikatakan sebagai RDBMS menurut definisi ini. Sementara itu, para pendukung atas sistem basisdata yang ada menyebutkan sebuah sistem basisdata yang menerapkan hanya beberapa dari hukum-hukum Codd tersebut disebut sebagai Sistem Manajemen Basisdata Semi-Relasional/Pseudo-Relational Database Management Systems (PRDBMS). Untuk sistem manajemen basis data yang sepenuhnya menerapkan hukum-hukum Codd tersebut selanjutnya disebut sebagai Sistem Manajemen Basisdata Murni-Relasional/Trully-Relational Database Management Systems (TRDBMS).
Saat ini, hampir seluruh RDBMS yang ada menerapkan SQL sebagai bahasa query namun juga menyediakan dan mengimplementasi beberapa alternatif lainnya. Alpora Dataphor adalah RDBMS yang tersedia secara komersil yang mengikuti secara penuh ke dua belas hukum-hukum Codd, dan kedua kelompok mengenalnya sebagai RDBMS.
SQL (Structured Query Language)

SQL merupakan kependekan dari kata “Structured Query Language”. SQL merupakan suatu bahasa permintaan yang terstruktur. Dikatakan terstruktur karena pada penggunaannya, SQL memiliki beberapa aturan yang telah distandarkaan oleh asosiasi yang bernama ANSI.
SQL (Structured Query Language) adalah sebuah bahasa yang dipergunakan untuk mengakses data dalam basis data relasional. Bahasa ini secara de facto merupakan bahasa standar yang digunakan dalam manajemen basis data relasional. Saat ini hampir semua server basis data yang ada mendukung bahasa ini untuk melakukan manajemen datanya.

SQL Juga dapat diartikan sebagai Antar muka standar untuk sistem manajemen basis data relasional, termasuk sistem yang beroperasi pada komputer pribadi. SQL memungkinkan seorang pengguna untuk mengakses informasi tanpa mengetahui dimana lokasinya atau bagaimana informasi tersebut disusun. SQL lebih muedah untuk digunakan dibandungkan dengan bahasa pemrograman tetapi lebih rumit dibanding software lembar kerja dan pengolah kata. Sebuah pernyataan SQL yang sederhana dapat menghasilkan set permintaan untuk informasi yang tersimpan pada komputer yang berbeda di berbagai lokasi yang tersebar, sehingga membutuhkan waktu dan sumber daya komputasi yang banyak. SQL dapat digunakan untuk investigasi interatif atau pembuatan lapiran ad hoc atau disisipkan dalam program aplikasi.

SQL juga merupakan Bahasa pemrograman yang dirancang khusus untuk mengirimkan suatu perintah query (pengaksesan data berdasarkan pengalamatan tertentu) terhadap sebuah database. Kebanyakan software database yang ada saat ini dapat diakses melalui SQL. Setiap aplikasi yang spesifik dapat mengimplementasikan SQL secara sedikit berbeda, tapi seluruh database SQL mendukung subset standar yang ada.

Jadi, SQL adalah bahasa permintaan yang melekat pada satu database atau SMBD tertentu. Dengan kata lain, SQL adalah perintah atau
bahasa yang melekat di dalam SMBD. Sebagai suatu bahasa permintaan, SQL didukung oleh SMBD seperti : MySQL Server, MsQL, PostgreSQL, Interbase, dan Oracle. Selain itu SQL juga didukung oleh database bukan server seperyi Ms. Access maupun Paradox.



Sejarah SQL

Sejarah SQL dimulai dari artikel seorang peneliti dari IBM bernama EF Codd yang membahas tentang ide pembuatan basis data relasional pada bulan Juni 1970. Artikel ini juga membahas kemungkinan pembuatan bahasa standar untuk mengakses data dalam basis data tersebut. Bahasa tersebut kemudian diberi nama SEQUEL (Structured English Query Language).
Setelah terbitnya artikel tersebut, IBM mengadakan proyek pembuatan basis data relasional berbasis bahasa SEQUEL. Akan tetapi, karena permasalahan hukum mengenai penamaan SEQUEL, IBM pun mengubahnya menjadi SQL. Implementasi basis data relasional dikenal dengan System/R.

Di akhir tahun 1970-an, muncul perusahaan bernama Oracle yang membuat server basis data populer yang bernama sama dengan nama perusahaannya. Dengan naiknya kepopuleran Oracle, maka SQL juga ikut populer sehingga saat ini menjadi standar de facto bahasa dalam manajemen basis data.

Pada tahun 1988, Microsoft mengeluarkan versi pertama dari SQL Server. Pada saat itu masih didesain untuk platform OS/2 dan didevelop bersama antara Microsoft dengan Sybase. Selama awal tahun 1990an, Microsoft mulai untuk membuat versi baru dari SQL Server untuk platform NT-nya. Selama proses development tersebut Microsoft memutuskan bahwa Microsoft SQL Server ini harus bisa terintegrasi dengan kuat dengan sistem operasi NT-nya.

Pada tahun 1993, Windows
NT 3.1 dan SQL Server 4.2 untuk NT dirilis oleh Microsoft. Target Microsoft untuk mengkombinasikan antara performa database server yang tinggi serta kemudahan cara penggunaan dan administrasinya rupanya tercapai melalui SQL Server ini. Microsoft terus berhasil memasarkan SQL Server dan menjadi database server yang terkenal. Pada tahun 1994, Microsoft dan Sybase secara resmi mengakhiri kerjasamanya. Di tahun 1995 Microsoft merilis versi 6.0 dari SQL Server. Versi ini merupakan versi yang penting karena sebagian besar merupakan hasil tulis ulang dan juga redesain dari core technology sebelumnya. Versi 6.0 ini menawarkan peningkatan pada performa, built-in replication dan juga administrasi yang tersentralisasi. Pada tahun 1996, Microsoft merilis SQL Server versi 6.5 yang berisi berbagai macam kemampuan tambahan dan juga fitur-fitur baru. Pada tahun 1997, Microsoft merilis SQL Server 6.5 Enterprise Edition. SQL Server 7.0 dirilis Microsoft pada tahun 1998 dan database engine-nya ditulis ulang agar lebih optimal. Akhirnya tahun 2000 Microsoft mengeluarkan SQL Server 2000 yang merupakan versi yang banyak digunakan sampai tulisan ini dipublikasikan. Versi SQL Server 2000 ini berbasis pada framework yang ada pada versi 7.0 sebelumnya.

Fitur-fitur menarik pada SQL Server 2000

Berikut ini adalah beberapa fitur yang menarik untuk diangkat dari sekian banyak fitur yang ada pada SQL Server 2000. Diantaranya adalah:
· XML Support
· Multi-Instance Support
· Data Warehousing/Business Intelligence Improvements
· Performance and Scalability Improvements
· Query Analyzer Improvements
· DTS Improvements
· Transact SQL Enhancements

XML Support

XML saat ini sudah menjadi standar dalam dunia bisnis untuk komunikasi dan juga sharing informasi. SQL Server dalam hal ini sudah mendukung format XML. Dengan ini Anda bisa menyimpan dokumen XML dalam suatu tabel, meng-query data ke dalam format XML melalui Transact-SQL dan lain sebagainya.

Multi-Instance Support

Fitur ini memungkinkan Anda untuk menjalankan beberapa database engine SQL Server pada mesin yang sama. Fitur ini sebelumnya juga sudah ada pada Oracle Database. Fitur ini sangat menarik karena memungkinkan seorang DBA (Database Administrator) untuk mengkombinasikan beberapa lingkungan misalnya untuk development, testing dan produksi dalam satu mesin yang sama. Ini juga menarik bagi penyedia jasa hosting (baik ASP maupun ISP) dimana mereka dapat menghost beberapa aplikasi dalam satu mesin yang sama.
Data Warehousing and Business Intelligence (BI) Improvements
SQL Server dilengkapi dengan fungsi-fungsi untuk keperluan
Business Intelligence melalui Analysis Services (sebelumnya bernama OLAP Services pada versi 7.0). Analysis Services menawarkan OLAP (Online Analytical Processing) yang bisa diakses lewat web sehingga bisa diakses juga dari internet. Sebagai tambahannya SQL Server 2000 juga ditambahi dengan tools untuk keperluan data mining.
Performance and Scalability Improvements
Dari sisi performa dan skalabilitas, SQL Server juga sudah memperhitungkannya. Ini dicapai dengan menerapkan distributed partitioned views yang mana memungkinkan untuk membagi workload ke beberapa server sekaligus. Peningkatan lainnya dicapai di sisi DBCC, indexed view dan index reorganization.

Query Analyzer Improvements

Ada banyak peningkatan disini, misalnya hadirnya integrated debugger untuk mendebug stored procedure, object browser untuk melihat semua object dari database secara hirarki dan juga fasilitas object search untuk mencari suatu object dalam database.

DTS Enhancement

Fasilitas ini sekarang sudah mampu untuk memperhatikan primary key dan foreign key constraints. Ini berguna pada saat migrasi tabel dari RDBMS lain.
Transact-SQL Enhancements
Salah satu peningkatan disini adalah T-SQL sudah mendukung UDF (user-definable function). Ini memungkinkan Anda untuk
menyimpan rutin-rutin ke dalam database engine.

Apa itu T-SQL?
Setiap database server semuanya pasti mendukung SQL dan SQL Server dalam hal ini mengembangkan ekstensinya sendiri yang diberi nama T-SQL atau Transact-SQL. Ini bisa Anda analogikan seperti PL/SQL jika pada Oracle Database. T-SQL merupakan superset dari SQL-92 (standar ISO untuk SQL yang disertifikasi pada tahun 1992). T-SQL menambahkan beberapa sintaks baru yang hanya dikenal di SQL Server. Seperti diketahui bahwa standar SQL mengharuskan transaksi database dengan istilah ACID yaitu Atomic, Consistent, Isolated dan Durable.

Apa ada varian dari SQL Server?
Versi sederhana dari SQL Server dikenal dengan nama MSDE (Microsoft SQL Server Desktop Engine) dan didistribusikan bersama dengan produk Microsoft yang lainnya seperti Visual Studio, Visual FoxPro, Microsoft Access dan yang lainnya. Batasan dari MSDE ini adalah maksimal database yang bisa dihasilkan adalah 2 GB dan tidak dilengkapi dengan tool untuk mengadministrasi databasenya. Berita baiknya adalah Microsoft sedang menyiapkan versi lanjutan dari MSDE yang akan diberi nama SQL Server Express. SQL Server Express ini akan dilengkapi dengan SQL Server Express Manager untuk mengadministrasi database dengan mudah.

Memahami Perintah SQL

Telah dikatakan sebelumnya bahwa SQL merupakan sebuah bahasa permintaan yang melekat pada suatu SMBD termasuk MySQL. Perintahnya dapat kita sebut dengan query. Dalam penggunaannya, perintah SQL dikategorikan menjadi tiga sub perintah, yaitu DDL (Data Definition Language), DML (Data
Manipulation Language) dan DCL (Data Control Language).


DDL (Data Definition Language)

Data Definition Language (DDL) merupakan sub bahasa SQL yang digunakan untuk membangun kerangka database. Ada tiga perintah yang termasuk dalam DDL, yaitu :
· CREATE : Perintah ini digunakan untuk membuat, termasuk diantaranya membuat database baru, tabel baru, view baru, dan kolom.
· ALTER : Perintah ini digunakan untuk mengubah struktur tabel yang telah dibuat. Pekerjaannya mencakup mengganti nama tabel, menambah kolom, mengubah kolom, menghapus kolom, maupun memberikan atribut pada kolom.
· DROP : Perintah ini digunakan untuk menghapus database dan tabel.
Statement DDL adalah perintah-perintah yang digunakan untuk
menjelaskan objek dari database. Dengan kata lain DDL digunakan
untuk mendefinisikan kerangka database.
Statement DDL
Create database drop database
Create table drop table alter table
Create index drop index
Create view drop view
Contoh Penerapan :
Create database : untuk membuat database.
Syntax : CREATE DATABASE nama_db;
Contoh : CREATE DATABASE Perkuliahan;
Create table : untuk membuat table.
Syntax : CREATE TABLE nama_tabel
(nama_kolom1, type_kolom1,
nama_kolom2, type_kolom2,…);
Contoh : CREATE TABLE MHS
(NPM char(8) not null,
Nama char(25) not null,
Alamat char(30) not null);
Ket : Not null bersifat optional.
Create index : untuk membuat index.
Syntax : CREATE [UNIQUE] INDEX nama_index ON
nama_tabel (nama_kolom);
Contoh : CREATE INDEX KRSx ON KRS(Kd_mk);
Ket : Spesifikasi unique akan menolak key yang sama dalam file.
Create view : untuk membuat view.
Syntax : CREATE VIEW view_name [(column1, column2,… )]
AS SELECT statement FROM table_name
[WITH CHECK OPTION];
Contoh : CREATE VIEW MHSv AS SELECT * FROM MHS;
Ket : View_name : nama view yang akan dibuat.
Column : nama atribut untuk view.
Statement : atribut yang akan dipilih dari table basis data.
Table_name : nama table basis data.
Drop database : untuk menghapus database
Syntax : Drop database nama_db;
Contoh : Drop database Perkuliahan;
Drop table : untuk menghapus tabel
Syntax : Drop table nama_table;
Contoh : Drop table MHS;
Drop index : untuk menghapus index
Syntax : Drop index nama_index;
Contoh : Drop index KRSx;
Drop view : untuk menghapus view
Syntax : Drop view nama_view;
Contoh : Drop view MHSv;
Alter table : untuk mengubah table
Syntax : ALTER TABLE nama_table
ADD (nama_kolom_baru type_kolom
[BEFORE nama_kolom])
MODIFY (nama_kolom_lama type_kolom)
DROP (nama_kolom_lama type_kolom);
Contoh : ALTER TABLE MHS ADD (JKEL char(1));
SQL - Data Manipulation Language (DML)
Statement DML adalah perintah-perintah yang digunakan untuk
mengoperasikan atau memanipulasi isi database.
SQL menyediakan 4 perintah DML yaitu Select, insert, update, dan
delete.
INSERT
Syntax : INSERT INTO nama_table [(nama_kolom,..)] VALUES
(data1,...);
Contoh : INSERT INTO MKUL VALUES (”KK222”,”BERKAS
Akses”,2);
Atau
INSERT INTO MKUL (KDMK,MTKUL,SKS) VALUES
(”KK222”,”BERKAS Akses”,2);
UPDATE
Syntax : UPDATE nama_tabel SET nama_kolom=ekspresi
WHERE kondisi;


Data Manipulation Language (DML)

Data Manipulation Language (DML) merupakan sub bahasa SQL yang digunakan untuk memanipulasi data dalam database yang telah terbuat. Perintah yang digunakan, diantaranya :
· INSERT : perintah ini digunakan untuk menyisipkan atau memasukkan data baru ke dalam tabel. Penggunaannya setelah database dan tabel selesai dibuat.
· SELECT : Perintah ini digunakan untuk mengambil data atau menampilkan data dari satu tabel atau beberapa tabel dalam relasi. Data yang diambil dapat kita tampilkan dalam layar prompt MySQL secara langsung maupun ditampilkan pada tampilan aplikasi.
· UPDATE : Perintah ini digunakan untuk memperbaharui data lama menjadi data terkini. Jika anda memiliki data yang salah atau kurang Up To Date dengan kondisi sekarang,
maka dapat diubah isi datanya dengan menggunakan perintah UPDATE.
· DELETE : Perintah ini digunakan untuk menghapus data dari tabel. Biasanya data yang dihapus adalah data yang tidak diperlukan lagi. Pada saat menghapus data, perintah yang telah dijalankan tidak dapat digagalkan, sehingga data yang telah hilang tidak dapat dikembalikan lagi.


DCL (Data Control Language)

Data Control Language (DCL) merupakan sub bahasa SQL yang digunakan untuk melakukan pengontrolan data dan server databasenya. Perintah DCL, diantaranya :
· GRAND : Perintah ini digunakan untuk memberikan hak / izin akses oleh administrator (pemilik utama) server kepada user (pengguna biasa). Hak akses tersebut berupa hak membuat (CREATE), mengambil (SELECT), menghapsu (DELETE), mengubah (UPDATE) dan hak khusus berkenaan dengan sistem databasenya.
· REVOKE : perintah ini memiliki kegunaan terbalik dengan GRAND, yaitu untuk menghilangkan atau mencabut hak akses yang telah diberikan kepada user oleh administrator.

PETRUK KELOMPOK

program tugas_kel_petruk;
uses wincrt;


const
spasi=#32;
type
namamhs=array[1..100]of string[20];
nilaimhs=array[1..100]of integer;
matakuliah=array[1..100]of string[20];

data_akademik=record
nmmhs: namamhs;
nilai:nilaimhs;
matakul:matakuliah;
end;
var
jumdata,x,m,n:integer;
datakad:data_akademik;
i:integer;
lagi:char;


procedure input_mahasiswa;
begin
clrscr;
gotoxy(15,2);write('Masukkan jumlah data mahasiswa : ');readln(jumdata);
for i:=1 to jumdata do
begin
clrscr;
gotoxy(15,2);write('DATA NAMA MAHASISWA KE - ',i);
gotoxy(15,3);write('===========================');
gotoxy(15,5);write('Nama Mahasiswa : ');readln(datakad.nmmhs[i]);
end;
end;


procedure tampil_mahasiswa;
begin
clrscr;
GOTOXY(21,2);writeln('DATA MAHASISWA');
GOTOXY(21,3);writeln('==============');
WRITELN;
gotoxy(15,5);writeln('==========================');
gotoxy(15,6);writeln(' NO NAMA MAHASISWA');
gotoxy(15,7);writeln('==========================');
m:=8;
for i:=1 to jumdata do
begin
gotoxy(15,m);
write(i:3,' ');
WRITELN(datakad.nmmhs[i] ,spasi:20 - length(datakad.nmmhs[i]));
m:=m+1;
end;
gotoxy(15,m);writeln('==========================');
m:=m+1;
gotoxy(17,m);
readln;
end;


procedure data_mhs;

begin
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
CLRSCR;
gotoxy(15,3);writeln('DATA MAHASISWA');
gotoxy(15,4);WRITELN('==============');
WRITELN;
gotoxy(15,6);writeln('1. INFUT DATA MAHASISWA');
gotoxy(15,7);writeln('2. TAMPIL DATA MAHASISWA');
gotoxy(15,8);writeln('3. KELUAR');
gotoxy(15,10);write('MASUKKAN PILIHAN ANDA [1..3] ? ');READLN(x);
case x of
1:input_mahasiswa;
2:tampil_mahasiswa;
3:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN KELUAR DARI MENU "DATA MAHASISWA"...???');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=3;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KEMBALI KE MENU UTAMA...??? [Y/T] ');READLN(lagi);
end;
end;


procedure input_nilai;
begin
clrscr;
for i:=1 to jumdata do
begin
clrscr;
gotoxy(15,2);writeln('INPUT DATA NILAI MAHASISWA KE - ',i);
gotoxy(15,3);writeln('==================================');
gotoxy(15,5);writeln('Nama Mahasiswa : ',datakad.nmmhs[i]);
gotoxy(15,6);write('Nilai Mahasiswa : ');readln(datakad.nilai[i]);
end;
end;


procedure tampil_nilai;
begin
clrscr;
GOTOXY(21,2);writeln('DATA NILAI MAHASISWA');
GOTOXY(21,3);writeln('====================');
WRITELN;
gotoxy(15,5);writeln('===============================');
gotoxy(15,6);writeln(' NO NAMA MAHASISWA NILAI');
gotoxy(15,7);writeln('===============================');
m:=8;
for i:=1 to jumdata do
begin
gotoxy(15,m);
write(i:3,' ');
write(datakad.nmmhs[i],spasi:20 - length(datakad.nmmhs[i]));
WRITELN(datakad.nilai[i]:5);
m:=m+1;
end;
gotoxy(15,m);writeln('===============================');
m:=m+1;
gotoxy(17,m);
readln;
end;


procedure data_nilai;
BEGIN
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
CLRSCR;
gotoxy(15,3);writeln('DATA NILAI MAHASISWA');
gotoxy(15,4);WRITELN('====================');
WRITELN;
gotoxy(15,6);writeln('1. INFUT DATA NILAI MAHASISWA');
gotoxy(15,7);writeln('2. TAMPIL DATA NILAI MAHASISWA');
gotoxy(15,8);writeln('3. KELUAR');
gotoxy(15,10);write('MASUKKAN PILIHAN ANDA [1..3] ? ');READLN(x);
case x of
1:input_nilai;
2:tampil_nilai;
3:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN KELUAR DARI MENU "DATA NILAI MAHASISWA"...???');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=3;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KEMBALI KE MENU UTAMA...??? [Y/T] ');READLN(lagi);
end;
end;


procedure input_matakul;
begin
clrscr;
for i:=1 to jumdata do
begin
clrscr;
gotoxy(15,2);writeln('INPUT DATA MATA KULIAH MAHASISWA KE - ',i);
gotoxy(15,3);writeln('==================================');
gotoxy(15,5);writeln('Nama Mahasiswa : ',datakad.nmmhs[i]);
gotoxy(15,6);write('Nilai : ',datakad.nilai[i]);
gotoxy(15,7);write('Mata Kuliah : ');readln(datakad.matakul[i]);
end;
end;


procedure tampil_matakul;
begin
clrscr;
GOTOXY(21,2);writeln('DATA MATA KULIAH MAHASISWA');
GOTOXY(21,3);writeln('==========================');
WRITELN;
gotoxy(15,5);writeln('=======================================================');
gotoxy(15,6);writeln(' NO NAMA MAHASISWA NILAI MATA KULIAH');
gotoxy(15,7);writeln('=======================================================');
m:=8;
for i:=1 to jumdata do
begin
gotoxy(15,m);
write(i:3,' ');
write(datakad.nmmhs[i],spasi:20 - length(datakad.nmmhs[i]));
WRITE(datakad.nilai[i]:5,' ');
WRITE(datakad.matakul[i],spasi:20 - length(datakad.matakul[i]));
m:=m+1;
end;
gotoxy(15,m);writeln('=======================================================');
m:=m+1;
gotoxy(17,m);
readln;
end;


procedure data_matakul;
BEGIN
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
CLRSCR;
gotoxy(15,3);writeln('DATA MATA KULIAH MAHASISWA');
gotoxy(15,4);WRITELN('==========================');
WRITELN;
gotoxy(15,6);writeln('1. INFUT DATA MATA KULIAH MAHASISWA');
gotoxy(15,7);writeln('2. TAMPIL DATA MATA KULIAH MAHASISWA');
gotoxy(15,8);writeln('3. KELUAR');
gotoxy(15,10);write('MASUKKAN PILIHAN ANDA [1..3] ? ');READLN(x);
case x of
1:input_matakul;
2:tampil_matakul;
3:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN KELUAR DARI MENU "DATA MATA KULIAH MAHASISWA"...???');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=3;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KEMBALI KE MENU UTAMA...??? [Y/T] ');READLN(lagi);
end;
end;

procedure menu;
begin
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
clrscr;
gotoxy(20,2);WRITELN('******************');
gotoxy(20,3);writeln('** MENU UTAMA **');
gotoxy(20,4);WRITELN('******************');
writeln;
gotoxy(20,6);writeln('1. DATA MAHASISWA');
gotoxy(20,7);writeln('2. DATA NILAI');
gotoxy(20,8);writeln('3. DATA MATA KULIAH');
gotoxy(20,9);writeln('4. KELUAR');
gotoxy(20,11);write('MASUKKAN PILIHAN ANDA [1..4] ? ');READLN(x);
case x of
1:data_mhs;
2:data_nilai;
3:data_matakul;
4:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN SEGERA KELUAR APLIKASI...!!!');
GOTOXY(10,18);READLN;
END;

end;
end;
until x=4;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KELUAR APLIKASI...??? [Y/T] ');READLN(lagi);
end;
END;

{PROGRAM UTAMA}
begin
menu;
end.

Praktek 1

<html> <head> <title> Halaman Utama </title> </head>
<body bgcolor="green"> <font color="yellow"><h1 align="center">STMIK KHARISMA</h1></font color="blue"> <font face="arial" size=4 color="white"> <marquee direction="LEFT"> WILUJENG SUMPING DI DUNIA MAYA</MARQUEE> </FONT> <p><font color="navy"><h1>X<sup>2</sup><sub><u>y</u></sub></h1><font color></p> </body>
</html>

Buat Frame

<html> <head> <title> Membuat frame </title> <frameset rows="25%,75%"> <frame src=judul.html> <frameset cols="25%,50%,25%"> <frame src=menu.html> <frame src=isi.html name=frameisi> <frame src=link.html> </frameset> </frameset>
</head>
<body> </body>
</html>

PENGURUTAN NAIK/TURUN

program nawin_sorting;
uses wincrt;



type

pengurut=array[1..100]of longint;
nama_barang=array[1..100]of string;
harga_sat=array[1..100]of longint;
jumlah=array[1..100]of integer;
total=array[1..100]of longint;
var
urut:pengurut;
nmbar:nama_barang;
hrgsat:harga_sat;
jml:jumlah;
ttl:total;
data,i,x,y,c,pil:integer;
temp:longint;
lagi:char;

procedure input;
begin
clrscr;
gotoxy(15,2);write('masukkan jumlah data barang : ');readln(data);
for i:= 1 to data do
begin
clrscr;
gotoxy(15,2);writeln('DATA BARANG ',i);
gotoxy(15,3);writeln('--------------');

gotoxy(15,5);write('Masukkan Nama Barang : ');readln(nmbar[i]);
gotoxy(15,6);write('Masukkan Harga Barang : ');readln(hrgsat[i]);
gotoxy(15,7);write('Masukkan Jumlah Barang : ');readln(jml[i]);
ttl[i]:=hrgsat[i]*jml[i];
end;
readln;
end;


procedure tampil;
begin
clrscr;
gotoxy(15,2);writeln('DAFTAR PENJUALAN');writeln;
WRITELN('---------------------------------------------------------------------');
writeln(' NO NAMA BARANG HARGA/S JUMLAH TOTAL HARGA');
WRITELN('---------------------------------------------------------------------');
for i:= 1 to data do
begin


write(' ',nmbar[i]:10);
write(' ',hrgsat[i]:14);
write(' ',jml[i]:14);
writeln(' ',ttl[i]:14);

end;
WRITELN('---------------------------------------------------------------------');readln;
end;


procedure terendah;

begin
clrscr;
for c:=1 to data do
urut[c]:=hrgsat[c];



for x:=1 to data do
begin
for y:=x to data do
begin

if urut[y]
begin
temp:=urut[y];
urut[y]:=urut[x];
urut[x]:=temp;
end;
end;


end;

gotoxy(15,2);writeln('DAFTAR HARGA TERENDAH');writeln;
WRITELN('-----------------------------------');
writeln(' NO NAMA BARANG HARGA/S ');
WRITELN('-----------------------------------');
write(' ',nmbar[i]:10);



writeln(' ',urut[1]); WRITELN('-----------------------------------');
readln;
end;


procedure tertinggi;

begin
clrscr;
for c:=1 to data do
urut[c]:=hrgsat[c];



for x:=1 to data do
begin
for y:=x to data do
begin

if urut[y]>urut[x] then
begin
temp:=urut[y];
urut[y]:=urut[x];
urut[x]:=temp;
end;
end;


end;
gotoxy(15,2);writeln('DAFTAR HARGA TERTINGGI');writeln;
WRITELN('-----------------------------------');
writeln(' NO NAMA BARANG HARGA/S ');
WRITELN('-----------------------------------');
write(' ',nmbar[i]:10);


writeLN(' ',urut[1]);
WRITELN('-----------------------------------');
readln;
end;



{PROGRAM UTAMA}
begin
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
REPEAT
begin
clrscr;
gotoxy(10,2);writeln('MENU PILIHAN');
gotoxy(10,3);writeln('------------');
WRITELN;
gotoxy(10,5);writeln('1. INFUT BARANG');
gotoxy(10,6);writeln('2. TAMPILKAN PENJUALAN BARANG');
gotoxy(10,7);writeln('3. CEK BARANG DENGAN HARGA JUAL TERENDAH');
gotoxy(10,8);writeln('4. CEK BARANG DENGAN HARGA JUAL TERTINGGI');
gotoxy(10,9);writeln('5. KELUAR');

gotoxy(10,12);write('MASUKKAN PILIHAN ANDA [1..5] ? ');READLN(pil);
case pil of
1:input;
2:tampil;
3:terendah;
4:tertinggi;

5:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA SEGERA AKAN KELUAR APLIKASI...!!!');
GOTOXY(10,18);READLN;
END;
else
GOTOXY(10,12);
writeln('PILIHAN YANG ANDA MASUKKAN SALAH...!!!');
GOTOXY(10,14);
writeln('SILAHKAN MASUKKAN KEMBALI PILIHAN ANDA...!!!');
GOTOXY(10,16);READLN;
end;
end;
UNTIL pil=5;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KELUAR APLIKASI...??? [Y/T] ');READLN(lagi);
end;

END.

SCANNER 2

program scanner_2;
uses wincrt;
var
a:text;
kar:array [1..1000] of char;
c:char;
token:array [1..50]of string;
nama_token:array[1..50]of string;
i,j,k,m:integer;
ch:set of char;
huruf:set of char;

procedure baca;
begin
assign (a,'scanner2.txt');
reset(a);
end;

procedure tampil;
begin
i:=0;
repeat
read(a,c);
i:=i+1;
write(c);
kar[i]:=c;
until (c='#');
j:=i;
end;

procedure cek_token;
begin
ch:=['a'..'z']+['A'..'Z']+['0'..'9']+['+']+['-']+['*']+['/']+[':']+[';']+['=']+['<'];
reset(a);
token[1]:='';
k:=0;
i:=1;
huruf:=['a'..'z']+['A'..'Z'];
for i:=1 to j do
begin
while kar[i] in ch do
begin
k:=k+1;
if kar[i] in huruf then
nama_token[k]:='Tpengenal'
else
nama_token[k]:='Tbilbulat';
repeat
token[k]:=token[k]+kar[i];
i:=i+1;
until not(kar[i] in ch);
if kar[i]='.' then
begin
token[k+1]:=kar[i];
nama_token[k+1]:='Ttitik';
end;
end;
end;
k:=k+1;
end;

procedure cek_nama_token;
begin

for i:=1 to k do
begin
if token[i]='Mulai' then
nama_token[i]:='Tmulai';
if token[i]='Jika' then
nama_token[i]:='Tjika';
if token[i]='=' then
nama_token[i]:='Tsama';
if token[i]='Maka' then
nama_token[i]:='Tmaka';
if token[i]=':=' then
nama_token[i]:='Tmasukan';
if token[i]='div' then
nama_token[i]:='Tdiv';
if token[i]='Beda' then
nama_token[i]:='Tbeda';
if token[i]='mod' then
nama_token[i]:='Tmod';
if token[i]=';' then
nama_token[i]:='Ttkoma';
if token[i]='Selesai' then
nama_token[i]:='Tselesai';
if token[i]='.' then
nama_token[i]:='Ttitik';

end;
end;

procedure tampil_token;
begin
clrscr;
writeln(' keyword Token');
writeln(' ******* *****');

for i:=1 to 22 do
begin
writeln(token[i]:10,' = ',nama_token[i]);
end;

gotoxy(35,1);writeln(' keyword Token');
gotoxy(35,2);writeln(' ******* *****');

m:=3;
for i:=23 to k do
begin
gotoxy(35,m);writeln(token[i]:10,' = ',nama_token[i]);
m:=m+1;
end;


end;

begin
baca;
tampil;
cek_token;
cek_nama_token;
tampil_token;
end.

Link

<html> <head> <title> Membuat frame </title>
</head>
<body> <font color="red"><h1>Klik Link-link ini</h1></font><br> <a href="masukyahoo.html" target=frameisi>Masuk ke situs yahoo</a><br> <a href="masukgoogle.html" target=frameisi>Masuk ke situs Google</a> </body>
</html>

Spirituous Of Mine (By Phietz)

Hidup ini penuh misteri
Semua serba tidak pasti
Susah senang antri silih berganti
kesuksesan dan keterpurukan menghampiri tanpa permisi

kita tak mungkin bernegosiasi dg nasib baik dan buruk
Kapan kita diatas?
Kapan kita di bawah?
Datangnya tak dpt kita prediksi

takdir tak pernah pilih kasih
Dia tak mengenal gender, usia dan rasa iba
dia datang tanpa kompromi
Dan pergi tanpa ber-kata2

Link Absolut

<html>
<head>
<title>
Halaman Utama
</title>
</head>


<body>
<h1>Halaman Utama</h1>
Silahkan Klik Pada Link-link berikut :<br>
<a href="http://www.yahoo.com">Masuk ke situs Yahoo</a>

</body>

</html>

Ramalan(Horoscop)

inc.koneksi.php

<?php $my['host'] = "localhost"; $my['user'] = "root"; $my['pass'] = ""; $my['dbs'] = "db_nilai"; $koneksi = mysql_connect($my['host'], $my['user'], $my['pass']); if (! $koneksi) { echo "Gagal koneksi boss..!"; mysql_error(); } // memilih database pda server mysql_select_db($my['dbs']) or die ("Database nggak ada tuh".mysql_error()); ?>

isi

<html> <head> <title> Membuat frame </title>
</head>
<body> <font color="blue"><h1>Ini adalah Halaman Isi</h1></font> </body>
</html>

Menu

<html> <head> <title> Halaman Utama </title> </head>
<body> <h1>Halaman Hiji</h1> <h2> Silahkan klik Pada Link-link berikut :<br> <a href="halpertama.html">Halaman Pertama<a><br> <a href="halkedua.html">Halaman Kedua<a><br> </body>
</html>

Link Gambar

<html> <head> <title> Link dengan Gambar </title> </head>
<body bgcolor="blue"> <font color="red" size="18"> klik <a href="http://www.google.com"> <img src="google.bmp"align"center"width=200 height=100> </a>
</body>
</html>

Link Dalam Dokumen yang sama

<html> <head> <title> Memanggil Dokumen Dalam Halaman Yang Sama </title> </head>
<body bgcolor="blue"> <a name="bagianatas"> <a href=#bagianbawah>Bagian Bawah</a><br> <a href=#bagiantengah>Bagian Tengah</a><br> </a> <p> <font color="yellow" size="3" style="bold"> <h3>Bagian atas</h3> <pre> Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen
</pre>
<a name="Bagian Tengah"> <a href="#bagianatas">Bagian Atas</a><br> <a href="#bagianbawah">Bagian Bawah</a><br>
</a>
<font color="red" size="3" style="bold">
<h3>Bagian Tengah</h3> <pre> Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen pemanggilan bagian dalam dokumen
Tulisan ini adalah acak hanya untuk membedakan </pre>
</name="bagianbawah"></a href="#bagianatas">Bagian Atas</a><br></a href="#bagiantengah">Bagian Tengah</a><br></a><fontcolor="magenta" size="3"><h3>Bagian Bawah</h3><pre> Tulisan ini adalah acak hanya untuk membedakan pemanggilan Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen
</pre>
</body>
</html>

Judul

<html> <head> <title> Halaman Utama </title> </head>
<body bgcolor="green"> <font color="yellow"><h1 align="center">STMIK KHARISMA</h1></font color="blue"> <font face="arial" size=4 color="white"> <marquee direction="LEFT"> WILUJENG SUMPING DI DUNIA MAYA</MARQUEE> </FONT> <p><font color="navy"><h1>X<sup>2</sup><sub><u>y</u></sub></h1><font color></p> </body>
</html>