Rabu, 25 Februari 2009

Tutorial Membuat Komentar pada artikel

Sering kita temui halaman-halaman tutorial pada web yang selalu memiliki fasilitas untuk memberikan komentar kepada penulisnya, maupun tulisannya. Sering pula ditemui komentar-komentar yang tidak diinginkan selalu hadir meramaikan isi komentar.

Ya langsung saja saya berikan sedikit penjelasan bagaimana cara membuatnya, yang perlu kita butuhkan untuk memasukkan komentar adalah halaman tutorial itu sendiri disamping fasilitas untuk memasukkan komentar.

Sehingga diperlukan sebuah tabel yang berfungsi untuk menyimpan isi artikel/tutorial dan sebuah tabel lagi yang digunakan untuk menyimpan komentar.

Berikut ini adalah struktur tabelnya :

create table artikelnya (id int(5) primary key auto_increment, penulis varchar(50), judul varchar(50) not null, isi_artikel text );

Kemudian tabel untuk menyimpan komentarnya :

create table komentarnya (id int(5) primary key auto_increment, nama_komentar varchar(40), email_komentar varchar(30), isi_komentar varchar(200), id_artikel int(50));


Langkah selanjutnya adalah membuat php script untuk membuat koneksi antara mysql dengan php, berikut ini adalah scriptnya :

config.php

$host = "localhost";
$username = "root";
$password = "";
$databasename = "cms_artikel";

$connection = mysql_connect($host, $username, $password);
mysql_select_db($databasename, $connection) ;
?>

Kemudian script untuk menampilkan judul artikelnya ...

main.php

require_once "config.php";

$query = "select * from artikelnya";
$runquery = mysql_query($query);

while($result = mysql_fetch_array($runquery))

{

$id = $result['id'];
$judul = $result['judul'];
$isi_artikelnya = $result['isi_artikel'];
$isi = substr($isi_artikelnya,0,400);
$isi = substr($isi_artikelnya,0,strrpos($isi," "));

print "$judul
$isi...";
print "Selengkapnya

";

}
?>

Script untuk menampilkan artikel secara keseluruhan ...

view.php

require_once "config.php";
$id = $_GET['page_detil'];

if (ISSET($_GET['page_detil']))
{

$query = "select * from artikelnya where id=$id";
$runquery = mysql_query($query);
$result = mysql_fetch_array($runquery);
$isi_artikel = $result['isi_artikel'];

print $isi_artikel ;
print "
Kembali ...

";

print "Komentarnya :

";
require_once "comment.php";
}
else
print "";

if ($_REQUEST['entry'] == "comment")
{

$id_artikel = $_POST['id_artikel'] ;
$nama = $_POST['nama'];
$komentar = $_POST['komentar'];

$query2 = "insert into komentarnya values('','$nama','$komentar','$id_artikel')";
$runquery2 = mysql_query($query2);

print "Berhasil di masukkan
";
print "Kembali...";

}
?>

Ini adalah script untuk menampilkan komentar, sekaligus form untuk memasukkan komentar

comment.php
require_once "config.php";
$query = "select nama_komentar, isi_komentar from komentarnya where id_artikel=$id order by id desc";
$runquery = mysql_query($query);

while ($result = mysql_fetch_array($runquery))
{

$nama_komentar = $result['nama_komentar'];
$isikomentar = $result['isi_komentar'];

print "Nama : $nama_komentar
$isikomentar
" ;

}
?>




Isi Komentar :

nama :

komentar :







Sedikit penjelasan mengenai script-script diatas.

Pada file config.php terdapat koneksi yang menghubungkan php dengan database mysql disitu tertulis
mysql_connect($host, $username, $password);
Yang merupakan inti yang menangani koneksi tersebut.


Dalam file main.php tertulis
$isi = substr($isi_artikelnya,0,400);
$isi = substr($isi_artikelnya,0,strrpos($isi," "));

Fungsi substr( ) disini berfungsi untuk memotong value dalam suatu record, dalam kasus ini record isi_artikelnya. Sehingga dalam halaman main.php yang ditampilkan hanyalah 400 karakter pertama, dengan range 0 - 400. Yang tampil pada browser hanya sebagian saja, tidak keseluruhan artikel. Selebihnya di sediakan link "selengkapnya ..." untuk melihat artikel secara keseluruhan.

Sedangkan strrpos( ) berfungsi mencari spasi dalam suatu variable dalam hal ini string.

Sehingga bila variable $isi berisi :
"loka keren sekali" :D~
dan variable tersebut mendapatkan fungsi substr( ) :
$isinya = substr($isi,0,5)

maka yang akan ditampilkan nanti adalah :
"loka k"

Sehingga perlu adanya fungsi strrpos( ) untuk menghilangkan karakter yang tidak perlu.
Sehingga variable $isi mendapatkan fungsi lagi yaitu :

$isinya = substr($isi,0,strrpos($isinya," ");

Ya, cukup sekian penjelasan saya mengenai tutorial membuat komentar pada artikel. Script ini masih terdapat banyak kekurangan, sehingga saya harapkan anda bisa mengembangkannya sendiri. Selamat mencoba. :D~
Dan jangan lupa kasih komentar agar lebih baek lagi dalam penulisan yang berikutnya.

Label:

diposting oleh Master Setan @ 23.21 0 Komentar

Membuat Program Sederhana Matrix Pada Programs Pascal

Setelah mengerti struktur program dengan pascal, marilah kita membuat program pertama. Silakan lihat kode di bawah ini:

Program Penjumlahan_Matrik;
uses wincrt;

var
matrikA,matrikB, hasil: array[1..3,1..3] of integer;
i,j :integer;

Begin
Clrscr;
Writeln(‘Program Penjumlahan Matrik dengan Satu Baris dan Satu Kolom’);
Writeln(‘=====================’);
Writeln;
{input matrik A}
writeln('elemen matrik A');
i:= 1;
begin
for j:= 1 to 3 do
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikA[i,j]);
end;
end;
writeln;
{input matrik B}
writeln('input elemen B');
for i:=1 to 2 do
begin
j:= 1;
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikB[i,j]);
end;
end;
{proses penjumlahan matrik A dan matrik B}
for i:= 1 to 3 do
begin
for j:= 1 to3 do
begin
hasil[i,j]:= matrikA[i,j] + matrikB[i,j];
end;
end;
writeln;
{proses cetak hasil}
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
writeln(‘matrik C adalah : ‘);
write(hasil[i,j]:4);
end;
writeln;
end;
readln;
end.
PROGRAM PERKALIAN
Program Perkalian_Matrik;
uses wincrt;

var
matrikA,matrikB, hasil: array[1..3,1..3] of integer;
i,j :integer;

Begin
Clrscr;
Writeln(‘Program Perkalian Matrik dengan Satu Baris dan Satu Kolom’);
Writeln(‘==================’);
Writeln;
{input matrik A}
writeln('elemen matrik A');
i:= 1;
begin
for j:= 1 to 3 do
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikA[i,j]);
end;
end;
writeln;
{input matrik B}
writeln('input elemen matrik B');
for i:=1 to 3 do
begin
for j:=1;
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikB[i,j]);
end;
end;
{proses perkalian matrik A dan matrik B}
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
hasil[i,j]:= matrikA[i,j] * matrikB[i,j];
end;
end;
writeln;
{proses cetak hasil}
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
writeln(‘matrik D adalah : ‘);
write(hasil[i,j]:4);
end;
writeln;
end;
readln;
end.



Mudah - mudahan bisa bermanfaat bagi anda...!!

diposting oleh Master Setan @ 12.20 1 Komentar