Blog Ra Nggenah: [php]Kurs BCA berbentuk image

[php]Kurs BCA berbentuk image

02:32

Hmmm, postingan hari ini bakal berisi source code php tentang grabbing valas BCA dan hasilnya ditampilkan sebagai image / file gambar.
Syarat : cURL, GD, url fopen.

<?php

header("Content-type: image/png");
header("Cache-Control: no-cache, must-revalidate");
$im = @imagecreate(160, 230)
    or die("Cannot Initialize new GD image stream");
$text_color = imagecolorallocate($im, 0, 0, 0); // warna text, hitam

$background_color = imagecolorallocate($im, 210, 210, 210); //warna latar, abu-abu
$seling_color = imagecolorallocate($im, 245, 245, 245); //warna selingan, abu-abu lebih terang
imagefilledrectangle($im, 0, 0, 160, 230, $background_color); // buat gambar background
for($x=0;$x<=6;$x++){
$start=($x*26)+34;
$stop=$start+11;
imagefilledrectangle($im, 0, $start, 160, $stop, $seling_color); //buat selingan
}

imageline($im, 35, 0, 35, 203, $text_color); // garis tabel kiri
imageline($im, 95, 0, 95, 203, $text_color); // garis tabel kanan
imageline($im, 0, 16, 160, 16, $text_color); // garis dibawah header tabel
imagerectangle($im, 0, 0, 159, 203, $text_color); // border
imagerectangle($im, 0, 203, 159, 229, $text_color); //border footer
imagestring($im, 3, 53, 2,  'JUAL     BELI', $text_color); //tulis header tabel

//imagestring($im, 2, 5, 15,  $text2, $text_color);

function antara($kalimat, $awal, $akhir){
        $ini = strpos($kalimat,$awal);
        if ($ini == 0) return "";
        $ini += strlen($awal);   
        $panjang = strpos($kalimat,$akhir,$ini) - $ini;
        return substr($kalimat,$ini,$panjang);
}
//memulai grabbing BCA
    $url = 'http://www.klikbca.com/individual/silver/ind/rates.html';
    $ch = curl_init($url);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($ch, CURLOPT_USERAGENT, $_SERVER['HTTP_USER_AGENT']);
    set_time_limit(0);
    $handle = curl_exec($ch);
 $tabel=antara($handle,'<strong>DD/TT</strong><br>','</table>');
 $tabel=str_replace("width=\"80\" ","",$tabel);
 $tabel=str_replace("'","\"",$tabel);
 $tabel=str_replace("   ","",$tabel);

$belah=explode('<TR', $tabel);
$jmlbelah=count($belah);
for($i=1;$i<$jmlbelah;$i++){
 $buang=array('BGCOLOR="#f0f0f0"><td  valign="top" align="left"> <center>  ','bgcolor="#e0e0e0">','<td  valign="top" align="left"> <center>  ',' </td></tr>');
 $baris=str_replace("\r\n","",$belah[$i]);
 $baris=str_replace($buang,"",$baris);
 $baris=str_replace('</center></td><td valign="top" align="right">','  ',$baris);
 $baris=str_replace(' </td><td valign="top" align="right">','  ',$baris);
 $jarakbaris=($i*13)+7;
 imagestring($im, 2, 5, $jarakbaris,  $baris, $text_color);  //tuliskan hasil grabbing
}
//tanggal
$tanggal=antara($belah[0],'>','<');
$tanggal=str_replace("\r\n","",$tanggal);
$tanggal=str_replace(" ","",$tanggal);
$tanggal=str_replace("WIB","",$tanggal);
imagestring($im, 2, 10, 209,  "$tanggal by BCA", $text_color);
imagepng($im);
imagedestroy($im); 
?>

Contoh jadi :

itu aja :)
UPDATE, sorry script sebelumnya ngaco, agak susah nih nulis html ke blog :). tapi dah bener kok sekarang, dah bisa di copas :)

agus

php

6 Responses to "[php]Kurs BCA berbentuk image"

Anonymous said :

Saturday, 11 April, 2009

keren tuh, copas ya ?////////

Julia said :

Saturday, 09 May, 2009

udah di coba tapi gak bisa ???

razor ramon said :

Friday, 25 September, 2009

sebagian web Hosting ada yang mematikan fungsi Curl.. coba contact web hosting anda.

chodirin said :

Monday, 28 September, 2009

saya coba dilocalhost kok gagal ya?
walaupun localhost, tapi saya online.

Muncul tulisan: The image “http://localhost/kurs.php” cannot be displayed, because it contains errors.

cURL, GD, url fopen sudah di enablekan.

Anonymous said :

Tuesday, 05 January, 2010

udah di upload internet blom???

Anonymous said :

Tuesday, 05 January, 2010

bwt yg udah upload,minta link nya donk....
thx

Ecek-ecek

Blog Ra Nggenah

[php]Kurs BCA berbentuk image

6 Responses to "[php]Kurs BCA berbentuk image"

Post a Comment

Labels

Recent Post

Recent Comments

ShoutBox

Followers