Program mencari luas segitiga

0 Kritik post by: d'Joel


Wawasan Dasar : __________________________



- Uses CRT : Membuat referensi ke objek CRT

- Var : Variabel

- Begin : Mulai

- ClrScr : perintah Clear Screen.

- Write('text') : Mencetak string(text) ke layar.

- WriteLn('text') : Mencetak string(text) ke layar dan menambah baris baru.

- Read(X) : Meminta input dari pengguna ke dalam variabel X.


- ReadLn(X) : Meminta input dari pengguna ke dalam variabel X dan menambah baris baru.

- ReadKey : Perintah untuk meminta penekanan KeyBoard.

- End. : Mengakhiri/Akhir program.





Program Statis : __________________________



Program Luas_Segitiga;

Uses CRT;

Var


Alas,Tinggi:Integer;

 Luas:Real;

 SL:Char;



BEGIN

 ClrScr;

 WriteLn('Program Mencari Luas Segitiga');


 WriteLn;


 Alas:=10;

 Tinggi:=15;


 Luas:=(Alas*Tinggi)/2;


 WriteLn;

 WriteLn('Luasnya Adalah ',Luas:15:2);


 SL:=ReadKey;

END.






Program Dinamis : __________________________



Program Luas_Segitiga;

Uses CRT;

Var

 Alas,Tinggi:Integer;

 Luas:Real;


 SL:Char;


BEGIN

 ClrScr;

 WriteLn('Program Mencari Luas Segitiga');

 WriteLn;


 Write('Masukkan Alas ? ');ReadLn(Alas);

 Write('Masukkan Tinggi ? ');ReadLn(Tinggi);


 Luas:=(Alas*Tinggi)/2;


 WriteLn;


 WriteLn('Luasnya Adalah ',Luas:15:2);


 SL:=ReadKey;

END.

 

Kategori :

Operator-operator matematika

0 Kritik post by: d'Joel

- Operator

Exp :

+ : tambah

- : kurang

/ : bagi

* : kali

> : lebih dari

< : kurang dari


= : sama dengan

>= : lebih dari sama dengan

<= : kurang dari sama dengan

<> : tidak sama dengan



- Penjumlahan

Exp :

Panjang:=10+A;

Sisi:=B+A+G+56;




- Pengurangan

Exp :

Panjang:=10-A;

Hasil:=Laba-Pajak;



- Perkalian

Exp :

Panjang:=10*A*K;

Luas:=P*l;


L:=s*s;



- Pembagian

Exp :

Panjang:=A/3;

Hasil:=100/3;



- Campuran

Exp :

Hasil:=(((A+B)/2)-100)*3;


Luas:=(P*l)/2;



- Pangkat Dua

Exp :

Hasil:=SQR(5); -----> lima kuadrat.

Hasil:=SQR(r); -----> r kuadrat.



- Akar Dua


Exp :

Hasil:=SQRT(5); -----> Akar 2 dari 5

Hasil:=SQRT(n); -----> Akar 2 dari n



- Campuran

Exp :

LuasLing:=3.14*SQR(r);


K:=2*3.14*r;

 

Kategori :

Pernyataan logika / penyeleksian kondisi / rumus IF-Turbo Pascal 7

0 Kritik post by: d'Joel

Semoga Tulisan ini dapat membantu anda dalam belajar pemrograman Turbo Pascal 7
.
.
.

Tingkat 1 _________________________________



  If (Syarat) Then

    (yang dilakukan saat syarat terpenuhi);



  Keterangan :

  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, tidak dikerjakan sesuatu.


  Contoh :




  If A:=10 Then

    WriteLn('Selamat. Anda benar.');





Tingkat 2 _________________________________



  If (Syarat) Then

    (yang dilakukan saat syarat terpenuhi)

  Else

    (yang dilakukan saat syarat tidak terpenuhi);




  Keterangan :

  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.


  Contoh :



  If A:=10 Then

    WriteLn('Selamat. Anda benar.')

  Else

    WriteLn('Anda belum beruntung.');





Tingkat 3 _________________________________



  If (Syarat) Then

    Begin

      (yang dilakukan saat syarat terpenuhi);

      (...);

    End

  Else

    (yang dilakukan saat syarat tidak terpenuhi);




  Keterangan :

  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.


  Contoh :


    



  If B<>0 Then

    Begin

      H:=A/B;


      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End

  Else

    WriteLn('Harga H Imajiner.');





Tingkat 4 _________________________________



  If (Syarat) Then

    Begin


      (yang dilakukan saat syarat terpenuhi);

      (...);

    End

  Else

    Begin

      (yang dilakukan saat syarat tidak terpenuhi);

      (...);

    End;



  Keterangan :


  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.


  Contoh :


    



  If B<>0 Then

    Begin

      H:=A/B;

      WriteLn;


      WriteLn('Harga H = ',H:13:2);

    End

  Else

    Begin

      WriteLn;

      WriteLn('Harga H Imajiner.');

      WriteLn('Harga B tidak boleh NOL.');

      WriteLn('Silahkan coba lagi.');

    End;






Tingkat 5.A _________________________________



  If (Syarat1) Or (Syarat2) Then

    Begin

      (yang dilakukan saat salah satu syarat terpenuhi);

      (...);

    End


  Else

    Begin

      (yang dilakukan saat kedua syarat tidak terpenuhi);

      (...);

    End;



  Keterangan :

  Pernyataan Logika yang jika salah satu syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika kedua syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.



  Contoh :


    



  If (B<0) Or (C=0) Then

    Begin

      WriteLn;

      WriteLn('Harga H Imajiner.');

      WriteLn('Harga B tidak boleh kurang dari NOL dan.');


      WriteLn('Harga C tidak boleh NOL.');

    End

  Else

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End;




Tingkat 5.B _________________________________



  If (Syarat1) And (Syarat2) Then

    Begin

      (yang dilakukan saat Kedua syarat terpenuhi);

      (...);

    End

  Else


    Begin

      (yang dilakukan saat salah satu / kedua syarat tidak terpenuhi);

      (...);

    End;



  Keterangan :

  Pernyataan Logika yang jika kedua syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika salah satu syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.


  Contoh :



    



  If (B>=0) And (C<>0) Then

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End

  Else


    Begin

      WriteLn;

      WriteLn('Harga H Imajiner.');

      WriteLn('Harga B tidak boleh kurang dari NOL dan.');

      WriteLn('Harga C tidak boleh NOL.');

    End;




Tingkat 5.C* _________________________________



  Rumus Umum, sama seperti Tingkat 5.A




  Keterangan :

  Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.


  Contoh :


    



  If (B<0) Or (C=0) Then

    Begin

      WriteLn;


        If B<0 Then

          WriteLn('Harga B tidak boleh kurang dari NOL.');

        If C=0 Then

          WriteLn('Harga C tidak boleh NOL.');

      WriteLn('Harga H Imajiner.');

    End

  Else

    Begin


      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End;




Tingkat 5.D* _________________________________



  Rumus Umum, sama seperti Tingkat 5.B



  Keterangan :

  Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.



  Contoh :


    



  If (B>=0) And (C<>0) Then

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);


    End

  Else

    Begin

      WriteLn;

        If B<0 Then

          WriteLn('Harga B tidak boleh kurang dari NOL.');

        If C=0 Then

          WriteLn('Harga C tidak boleh NOL.');


      WriteLn('Harga H Imajiner.');

    End;


 

Kategori :

Download e-book php

0 Kritik post by: d'Joel

Setelah melakukan pencarian beberapa menit akhir kami dapat mengumpulkan beberapa e-book yang berhubungan dengan tutorial php. Silahkan anda download e-booknya, ini merupakan versiUpdatenya...

Silahkan ambil semua...

 

Kategori :

Membuat Polling dengan PHP

0 Kritik post by: d'Joel

Pasti pembaca sekalian tidak asing lagi dengan yang namanya ?polling?. Polling merupakan
tempat pemungutan suara dimana pengunjung dapat memberikan suaranya. Dengan adanya polling,
kita dapat mengetahui makanan apa yang paling digemari orang Indonesia, bahasa pemrograman apa
yang paling disukai, dll tergantung jenis polling tersebut. Nah, kali ini, saya akan mengajarkan
kepada anda bagaimana cara membuat polling dengan metode operasi file (tanpa database).

Dalam contoh kali ini, saya membuat polling tentang ?bahasa pemrograman web apa yang
paling anda suka.? Karena ini hanya contoh, saya hanya menyertakan 2 pilihan yakni PHP dan
ASP.Anda dapat menambahkan sendiri pilihan yang ketiga, keempat,dst.

Mari kita mulai membuat polling. Siapkan 4 file berikut :
1. ?asp.txt? lalu ketikkan angka 0 di dalamnya.
2. ?php.txt? lalu ketikkan angka 0 di dalamnya.
Ingat.. Jangan lupa ketikkan angka 0 pada 'asp.txt' dan 'php.txt'. Ini sangat penting. Ada seorang teman yang mengatakan bahwa kenapa program polling ini tidak jalan. Mungkin karena dia lupa mengetik angka 0 didalamnya..
3. File gambar ?poll.jpg? dengan ukuran 100x10px. Ini untuk membuat persentase polling.
Yang ini juga penting. Buat gambar 'poll.jpg' dengan photoshop/corel draw atau software pengolah gambar lainnya..
4. ?Index.php? lalu ketikkan script berikut :

<title>Polling dengan operasi file created by Ivan</title>
<style type="text/css">
<!--
.style1 {font-size: 24px}
.style2 {color: #0000FF}
-->
</style>
<form name="form1" method="post" action="index. php?isi=polling">
<p>
<label><span class="style1">Polling</span></label>
</p>
<p>
<label>Bahasa pemrograman web apa yang anda suka ? </label>
</p>
<p>
<label>
<input type="radio" name="vote" value="php">
PHP</label>
<br>
<label>
<input type="radio" name="vote" value="asp">
ASP</label>
</p>
<p>
<label>
<input type="submit" name="Submit" value="Submit">
</label>
<br>
</p>
</form>
<?php
if(@$_GET['isi'])
{
$vote = $_POST['vote'];
if ($vote == "") // jika belum menentukan pilihan
{
print "<font color=red>Anda belum mengisi polling</font>";
exit;
}
if($vote == "php") // menambah 1 untuk pilihan php
{
$buka = fopen("php.txt","r");
$baca = fgets($buka,65535);
fclose($buka);
$buka = fopen("php.txt","w");
$baca++;
fwrite($buka,$baca);
fclose($buka);
}
if($vote == "asp") //menambah 1 untuk pilihan asp
{
$buka = fopen("asp.txt","r");
$baca = fgets($buka,65535);
fclose($buka);
$buka = fopen("asp.txt","w");
$baca++;
fwrite($buka,$baca);
fclose($buka);
}
$buka_php = fopen("php.txt","r");
$bacaphp = fgets($buka_php,65535); //membaca nilai php yang telah di vote
fclose($buka_php);
$buka_asp = fopen("asp.txt","r");
$bacaasp = fgets($buka_asp,65535); //membaca nilai asp yang telah di vote
fclose($buka_asp);
$total_pemilih = $bacaphp+$bacaasp; //jumlah pemilih
$persentase_php = ($bacaphp/$total_pemilih)*100;
$persentase_asp = ($bacaasp/$total_pemilih*100);
print "Total pemilih : $total_pemilih <br><br>";
print "PHP : "; printf ("%1.0f","$persentase_php"); print " % <img src=poll.jpg
width=$persentase_php height=10> $bacaphp pemilih<br>";
print "ASP : "; printf ("%1.0f","$persentase_asp"); print " % <img src=poll.jpg
width=$persentase_asp height=10> $bacaasp pemilih<br>";
}
?>



Download Sourcenya Disini

 

Kategori :

Menginstall buku tamu Advanced Guestbook

0 Kritik post by: d'Joel

Buku tamu merupakan fasilitas yang biasa terdapat pada suatu situs. Dengan adanya buku tamu tersebut maka memungkinkan pengunjung untuk memberikan saran atau sekedar komentarnya.

Jika Anda ingin menambahkan fasilitas buku tamu pada situs Anda tanpa mau pusing-pusing bikin script-nya, Anda dapat mencoba puluhan script buku tamu gratis dari internet. Salah satu yang cukup baik (yang juga digunakan pada situs ini) adalah Advanced Guestbook.

Untuk menginstall Advanced Guestbook caranya sebagai berikut:

1.

Pertama download dahulu script Advanced Guestbook dari http://www.proxy2.de. Kemudian ekstrak ke folder di dalam C:\Inetpub\wwwroot (jika Anda menggunakan PWS). Misalnya C:\Inetpub\wwwroot\guestbook.

Buka file config.inc.php, kemudian ubah setting pada bagian database setting:

/* database settings */

$GB_DB["dbName"] = "MyGuestbook";// nama database yg
// digunakan
$GB_DB["host"] = "localhost"; // nama host
$GB_DB["user"] = "root"; // username
$GB_DB["pass"] = ""; // password

Dalam contoh ini nama database yang akan digunakan untuk menyimpan buku tamu adalah MyGuesbook.

2. Dengan menggunakan browser (misalnya Internet Explorer), jalankan file install.php. Jika Anda menginstall Advanced Guestbook di C:\Inetpub\wwwroot\Guestbook maka pada Address bar dari Internet Explorer Anda dapat mengetikkan http://localhost/guestbook/install.php/. Akan muncul tampilan seperti gambar di bawah ini:

Karena sebelumnya kita belum membuat databasenya maka klik pada tombol Create new DB and table. Jika sebelumnya Anda telah membuat tabel MyGuestbook Anda dapat mengklik pada tombol Create table.
3.

Jika proses pembuatan database dan tabel berhasil maka akan muncul pesan sebagai berikut:

Advanced Guestbook
---------------------------------------------------------
Database and Tables were created successfully!


Your new database: MyGuestBook
Your MySQL host: localhost
Your MySQL username: root

Click now here to setup the guestbook admin...

Klik pada link "Click now here to setup the guestbook admin... "
4.

Pada halaman Guestbook - Administration, masukkan username dan password Anda. Saat pertama kali diinstall usernamenya adalah "test" dan passwordnya "123" (tanpa tanda petik).

5.

Jika username dan password yang Anda masukkan benar, maka Anda segera masuk ke halaman G U E S T B O O K A D M I N. Pada halaman tersebut Anda dapat melakukan berbagai setting buku tamu. Misalnya, General Setting digunakan untuk mengatur setting umum dari buku tamu seperti jumlah data per halaman, bahasa, email notifikasi dan sebagainya.

Yang lebih penting lagi adalah Anda harus segera mengubah username dan password defaultnya, demi keamanan data Anda.
6.

Selamat mencoba..........

 

Kategori :

Membuat collapse menu

0 Kritik post by: d'Joel

ini adalah script membuat menu collapse :

<html>

<?

echo '<font face="verdana"
size="2">';


class submenu {



var $urls;

var $desps;

var $cot;

var $id;

//easily modify you menu symbols, can also
use image tags


var $openSymbol = '(+)';

var $closedSymbol = '(--)';

var $itemBranch = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp|---';



function create($id) {


$this->cot=0;

$this->id=$id;

}



function add($url, $desp) {

$this->urls[$this->cot]=$url;


$this->desps[$this->cot]=$desp;

$this->cot++;

}



function open() {


$i=0;

while($i<$this->cot) {

if ($i==0) {

global $PHP_SELF;

echo '<b><a href="'.$PHP_SELF.'?action=close&id=">'.$this->closedSymbol.$this->desps[0].'</a></b><br>';


}

else {

echo $this->itemBranch.'<a href="'.$this->urls[$i].'">'.$this->desps[$i].'</a><br>';


}

$i++;

}



}



function close() {


global $PHP_SELF;

if (! $this->id){



} else {



echo '<b><a href="'.$PHP_SELF.'?action=open&id='.$this->id.'">'.$this->openSymbol.$this->desps[0].'
</a></b><br>';




}



}



}




class menu {



var $submenus;

var $cot;

var $id;



function create() {


$this->cot=0;

$this->id=2;

}



function add($submenu) {

$this->submenus[$this->cot]=new submenu;


$this->submenus[$this->cot]=$submenu;

$this->cot++;

}



function show() {


$i=0;

$tmp = new submenu;

while ($i<$this->cot) {

$tmp=$this->submenus[$i];

if ($tmp->id==(string)$this->id) {


$tmp->open();

}

else {

$tmp->close();

}


$i++;

}

}



function hide() {

$tmp = new submenu;


$tmp->close();

}

}



$sm_1=new submenu;

$sm_1->create('1');


$sm_1->add('',' Download File');

$sm_1->add('http://www.winxpinfo.com','Windows
XP');

$sm_1->add('http://www.freestuffhome.net','Gratisan');

$sm_1->add('http://www.adcsoft.com','ADC
Software');

$sm_1->add('http://www.lutfian.com','Lutfian
Software');




$sm_2=new submenu;

$sm_2->create('2');

$sm_2->add('',' Search Engine');

$sm_2->add('http://www.google.com','Google');

$sm_2->add('http://www.yahoo.com','Yahoo');


$sm_2->add('http://www.Altavista.com','Altavista');

$sm_2->add('http://www.searchindonesia.com','Search
Indonesia');



$sm_3=new submenu;

$sm_3->create('3');

$sm_3->add('',' Tutorial Klik-Kanan.com');


$sm_3->add('http://www.klik-kanan.com/tutorial/perl/index.shtml','Perl');

$sm_3->add('http://www.klik-kanan.com/tutorial/registry/index.shtml','Registry');

$sm_3->add('http://www.klik-kanan.com/tutorial/php/index.shtml','PHP');

$sm_3->add('http://www.klik-kanan.com/desainweb/html/index.shtml','Desain
Web');



$sm_4=new submenu;


$sm_4->create('4');

$sm_4->add('',' Berita');

$sm_4->add('http://www.detik.com','Detik');

$sm_4->add('http://www.detikinet.com','Detikinet');

$sm_4->add('http://www.kompas.com','Kompas');


$sm_4->add('http://www.Astaga.com','Astaga');



$m_1=new menu;

$m_1->create();

$m_1->add($sm_1);

$m_1->add($sm_2);


$m_1->add($sm_3);

$m_1->add($sm_4);



if ($action=='') {

$m_1->show();


}




if ($action=='open') {

$m_1->id=$id;

$m_1->show();


}



if ($action=='close') {

$m_1->id=$id;

$m_1->hide();

$m_1->show();


}



echo '</font>';

?>








sumber : http://phpclasses.upperdesign.com/

Download


 

Kategori :

Membuat counter image

0 Kritik post by: d'Joel

Counter
ini terdiri dari 3 file utama, file pertama
bernama acounter.php3
yang merupakan halaman web yag digunakan untuk
menampilkan counter. Jumlah pengunjung disimpan
pada file kedua yang bernama acount.txt.
File terakhir adalah file ip.txt
yang
digunakan untuk menyimpan ip address pengunjung
web.



 










<html>

<head>

<title>Contoh Counter dengan image
www.klik-kanan.com</title>


</head>

<body bgcolor="#FFFFFF">

www.klik-kanan.com

<center>

<br>

<font size="2" face="Arial,
Helvetica, sans-serif">- Anda
pengunjung ke - <br>


<br>

</font>


<?php

// letak image yang digunakan sebagai
counter

$img = "http://localhost/php/counter/";


//
letak image animasi


$animated_img = "http://localhost/php/counter/ani/";


//
Berapa digit yang ditampilkan

$padding = 6;


//
ukuran lebar dan tinggi file image

$width = 16;

$height = 22;



//
letak file log

$fpt = "acount.txt"; //


$lock_ip
=0; // IP locking, 1=ya 0=tidak

$ip_lock_timeout =30; // dalam menit


$fpt_ip = "ip.txt"; // file
IP log


function
checkIP($rem_addr) {


global $fpt_ip,$ip_lock_timeout;

$ip_array = file($fpt_ip);

$reload_dat = fopen($fpt_ip,"w");

$this_time = time();

for ($i=0; $i<sizeof($ip_array);
$i++) {

list($ip_addr,$time_stamp) = split("\|",$ip_array[$i]);


if ($this_time < ($time_stamp+60*$ip_lock_timeout))
{

if ($ip_addr == $rem_addr) {

$found=1;

}

else {


fwrite($reload_dat,"$ip_addr|$time_stamp");

}

}

}

fwrite($reload_dat,"$rem_addr|$this_time\n");

fclose($reload_dat);


return ($found==1) ? 1 : 0;

}


if
(!file_exists($fpt)) {

$count_dat = fopen($fpt,"w+");

$digits = 0;

fwrite($count_dat,$digits);


fclose($count_dat);

}

else {

$line = file($fpt);

$digits = $line[0];

if ($lock_ip==0 || ($lock_ip==1 &&
checkIP($REMOTE_ADDR)==0)) {


$count_dat = fopen($fpt,"r+");

$digits++;

fwrite($count_dat,$digits);

fclose($count_dat);

}

}


$digits = sprintf ("%0".$padding."d",$digits);

$ani_digits = sprintf ("%0".$padding."d",$digits+1);

echo "<table cellpadding=0 cellspacing=0
border=0><tr align=center>\n";

$length_digits = strlen($digits);

for ($i=0; $i < $length_digits; $i++)
{


if (substr("$digits",$i,1)
== substr("$ani_digits",$i,1))
{

$digit_pos = substr("$digits",$i,1);

echo ("<td><img src=$img$digit_pos.gif
width=$width height=$height></td>\n");

}

else {


$digit_pos = substr("$ani_digits",$i,1);

echo ("<td><img src=$animated_img$digit_pos.gif
width=$width height=$height></td>\n");

}

}

echo "</tr></table>\n";


?>


</center>

</body>

</html>




Download


 

Kategori :

Membuat buku tamu

0 Kritik post by: d'Joel

Buku
tamu ini terdiri dari 2 file, file pertama bernama
guestbook.php3
yang merupakan file utama. File kedua bernama
entry.dat
yang digunakan untuk menyimpan isi buku tamu.







<html>


<head>

<TITLE>Contoh Guestbook www.klik-kanan.com</TITLE>

<STYLE>

FONT,body,td,table {font-family : verdana;font-size
: 11px;}

b {


font-family : Arial;

font-weight : bold;

}

a,a:hover,.link{font-family: verdana;font-size:
8pt;font-color: 66666;}

</STYLE>

</head>


<body bgcolor="#FFFFFF" leftmargin="0"
topmargin="30" marginwidth="0"
marginheight="0">

<b><center> BUKU TAMU <br></b>

dari www.klik-kanan.com</center>




<table
width="100%" border="0"
cellspacing="0" cellpadding="0">

<tr><td
height="50"></td> </tr>

<tr>

<td><form action="<?PHP_SELF?>"
method="post">


<table width="498" border="0"
cellspacing="0" cellpadding="0"
align="center">

<tr> <td>Nama</td> <td>
<input name="name" size=30
value=""> </td> </tr>


<tr> <td>Email</td> <td>
<input name="email" size=30
value=""> </td> </tr>

<tr> <td>Homepage</td>
<td> <input name="url"
size=30 value="http://"> </td>
</tr>


<tr> <td valign="top">Komentar</td>
<td> <textarea name="message"
cols=50 rows=10 wrap=soft></textarea>
</td> </tr>

<tr> <td valign="top">
<input type="hidden" value="ok"
name="send_status"> </td>


<td>

<input type="submit" value="Kirim"
name="submit">

<input type="submit" value="Lihat"
name="view_guestbook">

</td>

</tr>

</table></form>


</td>

</tr>

<tr>

<td> <center>


<?



if ($name == "" || $email == ""
|| $message == "")

{

for ($i=0; $i<3; $i++)

{

echo ".";

sleep(1);


flush();

}

$filesize = filesize("entry.dat");


$file = fopen("entry.dat","r");

$buffer = fread($file,$filesize);

echo "$buffer";


fclose($file);

}

else if ($send_status == "ok")

{

$filesize = filesize("entry.dat");


$file = fopen("entry.dat","r");


$buffer = fread($file,$filesize);

fclose($file);


$today
= getdate();

$bulan = $today[month];

$mday = $today[mday];

$tahun = $today[year];


$tanggal = "$bulan $mday, $tahun";



$file = fopen("entry.dat","w");



$parsed_message = strip_tags($message,"<a>,<i>");

$parsed_message_br = str_replace("\n","<br>",$parsed_message);



$today = date( "Ymd", time() );

$message_table ="<TABLE BORDER=\"0\"
CELLPADDING=\"1\" bgcolor=EEEEEE
width=\"500\"><TD colspan=\"2\"></TD></TR>
<TR><TD align=\"right\"
colspan=\"2\"><i>$tanggal</i></TD></TR>
<TR><TR><TD width=\"30%\"><B>Nama
:</B></TD> <TD>$name</TD></TR>
<TR><TD><B>Email :</B></TD>
<TD><A HREF=\"mailto:$email\">$email</A></TD></TR>
<TR><TD><B>Homepage :</B></TD>
<TD><A HREF=\"$url\"
target=\"_blank\">$url</A></TD></TR>
<TR><TD valign=\"top\"
colspan=\"1\"><B>Komentar
:</B></TD><TD>$parsed_message_br</TD></TR>
<TR><TD colspan=\"2\"></TD></TR></TABLE>";




fputs($file,"$message_table \n $buffer");

fclose($file);

}

else if ($view_guestbook == "View Guestbook"){



$filesize = filesize("entry.dat");


$file = fopen("entry.dat","r");

$buffer = fread($file,$filesize);

echo "$buffer";

fclose($file);



}


?></center>

</td>

</tr>

</tr>



</table>


<p>&nbsp;</p>

</body>

</html>


Download

 

Kategori :

Fungsi pd PHP yang berhubungan dg file 2

0 Kritik post by: d'Joel

boolean fclose(integer file_handle)

Digunakan untuk menutup file.
Lihat contoh sebelumnya.

boolean feof (integer file_handle)

Fungsi ini akan mengembalikan nilai true jika pointer terletak pada bagian akhir dari file (baris terakhir).

while (!feof($MyFile))
{
$MyLine = fgets ($MyFile, 255);
print ($MyFile);
}

Contoh di atas maksudnya adalah selama belum mencapai "baris terakhir" dari file (posisi pointer terakhir) maka program akan terus membaca isi file. Pendeknya program tersebut akan membaca keseluruhan isi dari file.

boolean file_exists(string filename)

Fungsi ini akan mengembalikan nilai true jika file yang dibaca exists (ada).

if (file_exists("data.txt"))
{
print ("Terdapat file data.txt");
}
else
{
print ("Tidak terdapat file data.txt");
}

Jika pada current direktory terdapat file data.txt maka program akan menampilkan tulisan "Terdapat file data.txt" (tidak pakai tanda petik).

 

Kategori :

Fungsi pd PHP yang berhubungan dg file

0 Kritik post by: d'Joel

integer fopen(string filename, string mode)

Fungsi ini digunakan untuk membuka file terlebih dahulu sebelum dilakukan proses penulisan atau pembacaan isi file.

contoh :

if(!($myFile = fopen ("http://localhost/php/dataku.txt", "r")))
{
print ("Gagal membuka file");
}
while (!feof($myFile))
{
$line = fgetss($myFile,255);
print ("$line \n");
}
fclose ($myFile);
?>

Untuk mengetahui dengan jelas fungsi fopen, silakan mencoba sendiri dengan berbagai mode yang ada seperti yang tercantum di bawah ini.

Mode
Operasi
r[b] hanya pross baca[binary]
w[b] hanya proses write, jika file belum ada maka akan dibuat file baru, jika file sudah ada maka isi file akan "ditimpa" oleh isi file yang baru [binary]
a[b] menambahkan ke isi file yang sudah ada [binary]
r+[b] baca dan tulis [binary]
w+[b] baca dan tulis jika file belum ada maka akan dibuat file baru, jika file sudah ada maka isi file akan "ditimpa" oleh isi file yang baru [binary]
a+[b] baca dan tulis, isi file yang baru ditambahkan setelah baris terakhir pada file yang sudah ada [binary]

string fgets (integer file_handle, integer length)

Fungsi ini digunakan untuk membaca string atau isi dari sebuah file.

contoh :

if($MyFile = fopen("data.txt", "r"))
{
while (!feof($MyFile))
{
$MyLine = fgets ($MyFile, 255);
print ($MyFile);
}
fclose ($MyFile);
?>

Jika Anda menjalankan script di atas maka yang nampak pada browser adalah isi dari file data.txt.

 

Kategori :

Mengenal function

0 Kritik post by: d'Joel

Function
atau merupakan sejumlah pernyataan yang dikemas
dalam sebuah nama. Nama ini selanjutnya dapat
dipanggil berkali-kali di beberapa tempat pada
program.

Tujuan penggunaan fungsi adalah:


- Memudahkan dalam mengembangkan program

- Menghemat ukuran program


Untuk membuat
fungsi, harus mengikuti syntax sebagai berikut:


function
namafungsi ($parameter1, $parameter2)

{

    pernyataan1;


    pernyataan2;

}


Contoh 1
: membuat fungsi yang tidak mempunyai parameter

Nama file : fungsi1.php






<?


function BukaTabel()

{

echo "<table align=center width=\"80%\"
border=0 cellspacing=1

cellpadding=0 bgcolor=#555555><tr><td>\n";


echo "<table width=\"100%\"
border=0 cellspacing=1 cellpadding=8

bgcolor=#ffffff><tr><td>\n";

echo "<center>";

}

function
TutupTabel()


{

echo "</td></tr></table></td></tr></table>\n";

}

?>



<html>

<head>

<title> Latihan Fungsi 1 </title>

</head>

<body>


<?php

BukaTabel();

print ("Ini tabel pertama");

TutupTabel();

print ("<br>");




BukaTabel();

print ("Ini tabel kedua");

TutupTabel();

?>

</body>


</html>

Contoh 2
: membuat fungsi yang mempunyai parameter

Nama file : fungsi2.php







<?

function BukaTabel($warna1, $warna2)

{

echo "<table align=center width=\"80%\"
border=0 cellspacing=1


cellpadding=0 bgcolor=\"$warna1\"><tr><td>\n";

echo "<table width=\"100%\"
border=0 cellspacing=1 cellpadding=8

bgcolor=\"$warna2\"><tr><td>\n";

echo "<center>";


}

function
TutupTabel()

{

echo "</td></tr></table></td></tr></table>\n";


}

?>


<html>

<head>

<title> Latihan Fungsi 2 </title>


</head>

<body>

<?php

BukaTabel("red", "#dddddd");

print ("Ini tabel pertama");

print ("<table border=1 width=100%>");


print ("<tr><td width=33%
align=center> Kolom 1 </td>");

print ("<td width=33% align=center>
Kolom 2 </td>");


print ("<td width=* align=center>
Kolom 3 </td> </tr>");

print ("</table>");

TutupTabel();


print ("<br>");

BukaTabel ("blue", "white");

print ("Ini tabel kedua");

TutupTabel();

?>


</body>

</html>

Download
contoh


 

Kategori :

Pengulangan dengan While

0 Kritik post by: d'Joel

Selain dengan
For, kita juga dapat melakukan pengulangan dengan
menggunakan While.







<html>

<head>

<title> Pengulangan dengan while </title>

</head>

<body>


<center>

<?

$count = 1;

while ($count <=10)

{

print ("Baris nomer $count<br>");


$count = $count + 1;

}

?>


</center>

</body>

</html>

Jika script
di atas dijalankan maka akan muncul tampilan seperti
di bawah ini.







Baris
nomer 1


Baris nomer 2

Baris nomer 3

Baris nomer 4

Baris nomer 5

Baris nomer 6

Baris nomer 7


Baris nomer 8

Baris nomer 9

Baris nomer 10

Pengulangan
tersebut akan terus dijalankan selama nilai
$count
lebih kecil atau sama dengan 10.



Download contoh


 

Kategori :

Pengulangan dengan For

0 Kritik post by: d'Joel

Seperti
halnya bahasa pemrograman lain, PHP juga menyediakan
fasilitas untuk melakukan pengulangan. Salah satunya
adalah dengan menggunakan For.








<html>

<head>

<title> Pengulangan </title>

</head>

<body>


<center>

<?

for ($count = 1; $count <= 10; $count++)

{

print ("Ini adalah baris ke-$count <br>");


}

?>

</center>

</body>

</html>

Jika script
di atas dijalankan maka akan muncul tampilan seperti
di bawah ini.







Ini
adalah baris ke-1

Ini adalah baris ke-2

Ini adalah baris ke-3


Ini adalah baris ke-4

Ini adalah baris ke-5

Ini adalah baris ke-6

Ini adalah baris ke-7

Ini adalah baris ke-8

Ini adalah baris ke-9


Ini adalah baris ke-10


Pada saat
baris pengulangan (yang dimulai dari for
($count = 1; $count <= 10; $count++)) dijalankan
untuk pertama kali, maka nilai $count
adalah 1. Oleh karena itu baris paling atas yang
tercetak pada browser adalah:



Ini
adalah baris ke-1


Pengulangan
tersebut akan terus dijalankan selama nilai
$count
lebih kecil atau sama dengan 10.


Download
contoh


 

Kategori :

Array

0 Kritik post by: d'Joel

Array merupakan tipe data terstruktur yang berguna untuk menyimpan sejumlah data yang bertipe sama. Bagian yang menyusun array disebut elemen array, yang masing-masing elemen dapat diakses tersendiri melalui indeks array.

Array berdimensi satu

$kota[0] = "Yogyakarta";
$kota[1] = "Jakarta";
$kota[2] = "Malang";
$kota[3] = "Purwokerto";

print ("Kota favorit saya adalah $kota[2]");
?>

Kode di atas bila dijalankan pada browser, akan muncul tulisan :

Kota favorit saya adalah Malang.

Indeks array dimulai dari 0. Jadi indeks array 0 menyatakan elemen pertama dari array, indeks array 1 menyatakan elemen array kedua, dan seterusnya.

Array multidimensi

Yang termasuk dalam tipe data ini adalah bilangan bulat (tidak pakai koma). contoh :

$buaht = array (
"apel" => array(
 "warna" => "merah",
 "rasa" => "manis"
),
 "pisang" => array(
 "warna" => "kuning",
 "rasa" => "manis"
)
);

print ("Warna buah apel adalah ");
print ($buah["apel"]["warna"])."
";
print ("Rasa buah pisang adalah ");
print ($buah["pisang"]["rasa"]);
?>

Kode di atas akan menghasilkan tulisan

Warna buah apel adalah merah
Rasa buah pisang adalah manis

 

Kategori :