Source Code :
<?php
if ($_POST[Submit])
{
$array1=array();
$array2=array();
$b=0;
$_POST[paragraf]=strtolower($_POST[paragraf]);
for($a=0;$a<=strlen($_POST[paragraf])-1;$a++)
{
if(!in_array($_POST[paragraf]{$a},$array1))
{
if(ord($_POST[paragraf]{$a}) >96 AND ord($_POST[paragraf]{$a})<123)
{
$array1[$b]=$_POST[paragraf]{$a};
$array2[$b]++;
$b++;
}
}
else {
$key=array_search($_POST[paragraf]{$a},$array1);
$array2[$key]++;
}
}
for($c = 0; $c < count($array2)-1; $c++)
{
for($d = 0; $d < count($array2)-1; $d++)
{
if($array2[$c] > $array2[$d])
{
$hold = $array2[$c];
$array2[$c] = $array2[$d];
$array2[$d] = $hold;
$temp = $array1[$c];
$array1[$c]=$array1[$d];
$array1[$d]=$temp;
}
}
}
?>
<table width="600" cellpadding="0" cellspacing="1" border="1">
<p>
<?
for($a=0;$a<=count($array1)-1;$a++)
{
echo '<tr><td width="10%" align="center">'.($array1[$a]==' '?'spasi':$array1[$a]).'</td><td width="15%" align="center">'.$array2[$a].' ('.number_format((($array2[$a]/array_sum($array2))*100),2,'.','').'%)</td><td><img src="bar.gif" height="20" width="'.($array2[$a]/array_sum($array2)*100).'%"</td></tr>';
}
echo
'<b>Total Semua Karakter :</b> ' .array_sum($array2);
}
else {
?>
<P align="center"><font color=red size=16><B>Aplikasi Menghitung Jumlah Karakter</B></font></P> </p>
<p> <font color=green><b>Masukkan teks pada kolom di bawah ini:</b></font></p>
<form name="form1" method="post" action="<?=$_SERVER['PHP_SELF']?>">
<label>
<textarea name="paragraf" cols="70" rows="5" wrap="virtual"></textarea>
</label>
<br>
<br>
<label>
<input type="submit" name="Submit" value="Mulai Hitung">
</label>
</form>
<?
}
?>
Contoh Kasus :
Menghitung Jumlah Karakter Dalam Artikel Bahasa Indonesia
Contoh artikel saya ambil dari http://www.detiknews.com/read/2008/11/11/154150/1035183/10/obama-akan-tutup-penjara-guantanamo-adili-tersangka-teroris
Selasa, 11/11/2008 15:41 WIB
Obama Akan Tutup Penjara Guantanamo & Adili Tersangka Teroris
Rita Uli Hutapea - detikNews
Washington - Para penasihat Barack Obama tengah menyusun rencana untuk menutup penjara Teluk Guantanamo di Kuba. Lantas bagaimana nasib para tersangka teroris yang ditahan di kamp tersebut?
Sebagian dari mereka akan dibebaskan. Sisanya akan diadili di pengadilan-pengadilan AS. Namun pejabat-pejabat Gedung Putih menyebut rencana itu gampang dikatakan namun sulit dilakukan.
Sebenarnya banyak dari sekitar 250 tahanan Guantanamo yang bisa dibebaskan. Namun pemerintahan Presiden George W Bush tidak mampu menemukan negara yang bersedia menerima mereka.
Demikian diungkapkan para penasihat Obama yang enggan disebutkan identitasnya seperti dilansir harian News.com.au, Selasa (11/11/2008).
Menurut penasihat kebijakan luar negeri Obama, Denis McDonough, Obama menginginkan Guantanamo ditutup. Namun belum ada keputusan soal bagaimana dan di mana akan mengadili para tahanan Guantanamo. Keputusan itu baru akan dibuat setelah tim keamanan nasional dan legal Obama terbentuk.
Juru bicara Gedung Putih Dana Perino menyatakan, Presiden Bush telah menghadapi banyak tantangan dalam mencoba menutup kamp tahanan teroris itu.
"Kami telah berupaya sangat keras untuk menjelaskan pada masyarakat bagaimana rumitnya soal itu," kata Perino. "Ketika Anda menciduk orang-orang dari medan tempur yang punya latar belakang teroris, maka tidak mudah untuk melepaskan mereka," tuturnya.
Penasihat Obama lainnya mengakui, membawa para tersangka teroris itu ke AS untuk diadili pasti akan menimbulkan pro dan kontra. "Namun kita tak bisa selamanya menyekap orang di tahanan tanpa diproses apakah mereka pantas berada di sana," ujarnya.
Hasil perhitungan :
Huruf a : 293 (20.63%)
Huruf n : 164 (11.55%)
Huruf e : 114 (8.03%)
Huruf i : 96 (6.76%)
Huruf t : 89 (6.27%)
***************************************************************************************
Menghitung Jumlah Karakter Dalam Artikel Bahasa Inggis
Contoh artikel saya ambil dari http://www.thejakartapost.com/news/2008/11/12/indover-graft-hard-probe-ago-claims.html
Indover graft hard to probe, AGO claims
Dian Kuswandini , The Jakarta Post , Jakarta | Wed, 11/12/2008 7:49 AM | Headlines
The Attorney General’s Office has outlined difficulties in probing alleged graft in the central bank’s Netherlands-based unit Indonesische Overzeese Bank N.V. (Indover), citing issues over jurisdiction and witnesses as the main obstacles.
The AGO has been requested by Finance Minister Sri Mulyani Indrawati to revive a suspended 2001 graft probe into Indover as it seeks to unravel the recent mess in the collapsed bank.
AGO spokesman Jasman Pandjaitan said Tuesday his office was still in the dark about following up on the case, due to different legal systems in Indonesia and the Netherlands, where the alleged graft took place.
“The alleged crime took place in the Netherlands where loan disbursement is not considered a criminal act,” he said.
“Therefore we’re looking for alternatives, including finding out whether any other violations have also taken place in Indonesia.”
Jasman said difficulty summoning witnesses posed another challenge for prosecutors.
“Most of the witnesses are abroad. This will take some time. Good coordination with the Foreign Ministry is therefore needed,” he said.
On Oct. 31, Bank Indonesia announced it would let Indover fold, after failing to execute a planned 545.6 million euro bailout. The central bank had earlier failed to secure written approval for the bailout from legislators before a deadline set by the Dutch authorities.
The initial decision to salvage Indover was driven primarily by a BI-issued “support letter” that was somehow misinterpreted as evidence of a central bank guarantee to the bank’s creditors, as well as binding the government to the bank’s obligations.
Local and overseas creditors insist BI be held responsible for leading them into the mess resulting from the support letter.
Enraged by the debacle, BI and the Finance Ministry demanded the AGO probe the case, with BI also launching an internal investigation to resolve the mess.
A source at the central bank, however, said some senior BI officials were attempting to foil the investigation by refusing to cooperate in providing necessary information on Indover, as well as trying to find a scapegoat for the fiasco.
“There is a crack in the central bank over the Indover issue. External auditors should step in to make things clear,” the source said.
In 2001, the AGO began an investigation into a US$1 billion loan scandal in Indover, naming the bank’s former president director Sidharta S.P. Suryadi and former managing director of its Hong Kong unit Permadi Gandapraja as suspects in the misappropriation of the loans.
To date, however, the case remains bogged down in uncertainty.
On Tuesday, BI announced it had formed a special team to settle problems with related parties over the settlement of Indover’s obligations.
“The team will represent BI in a deal with all local and overseas parties in relation to the Indover case,” BI said.
Farid Harianto, former deputy head of the Indonesian Bank Restructuring Agency (BPPN), has been appointed to lead the team in seeking mutually beneficial resolutions for all parties. (hwa)
Hasil perhitungan :
Huruf e : 323 (12.63%)
Huruf a : 234 (9.15%)
Huruf i : 224 (8.76%)
Huruf t : 219 (8.56%)
Huruf n : 216 (8.45%)
***************************************************************************************
Menghitung Jumlah Karakter Dalam Artikel Bahasa Sunda
Contoh artikel saya ambil dari http://cupumanik.com/manik/seratan/misteri-lembur-cipeuting-4/
Mistéri Lembur Cipeuting
Dilebetkeun 17-06-2008 12:45
Kategori: Carita Mistéri
Ku A. Sundira
BEUNGEUT Ceu Emur ngadadak pias. Awakna mani ngadégdég. Biwirna ngeleter. “Cilaka, Ujang…”
“Kumaha atuh, Ceu?” kuring milu reuwas.
“Enya, sugan téh moal kapanggih. Kieu wé atuh, Ujang mah nyumput ka para…”
“Urang lawan wé Ceu, pira gé awéwé. Naha maké kudu nyumput sagala. Teu rumasa salah ieuh!” bet ngadadak napsu.
“Ulah, Sujang. Maranéhna lain lawan-lawaneun. Keun ku Euceu disanghareupan. Ujang mah nyumput wéh…”
“Emur! Rék kaluar moal?” kadéngé deui nu ngagorowok ti luar.
“Sujang, gancang nyumput!”
Can gé cengkat, panto geus aya nu ngadobrak mantén. Sawatara awéwé rajeg di lawang, sabedogna-sabedogna.
*
BRAY beunta. Rét ka gigir. Si Among keur melong semu nu héran. Singhoréng di jero mobil kénéh.
“Ku naon ari silaing, ti tatadi tulung-tulungan?”
“Jadol téh! Ngimpi euy. Naha mani asa enya…” cék kuring bari ngusap beungeut. Kop kana cai, leguk nginum. Gancang mesat udud keur ngumpulkeun deui pangacian.
“Tah kitu ari réa ngalamun téh. Nya leuheung wé ari ngimpi panggih jeung nu geulis mah…”
“Bororaah, kalah ka ngimpi pikasieuneun. Iyyy…”
“Piraku lalaki ludeungan sieun ku ngimpi.”
“Buru atuh, kalah ka eureun geuning. Jam sabaraha ieu téh? Euleuh, geus tengah peuting geuning. Moal teu pasusubuh nepi ka Bandung…”
“Puguh kieu, euy. Heueuh, ieu mah déwék rumasa salah, henteu kontrol, henteu tarapti. Mobil téh mogok… béak béngsin!”
“Béak béngsin?” ngarénjagna kabina-bina, udud mani asa rék ngacleng.
“Enya. Tadi téh mobil ujug-ujug paéh. Disetater teu hirup waé. Ari dicék, béak béngsin. Silaing mah moal nyaho da keur tibra. Untung eureunna lain di tempat hara-haraeun, deukeut pisan warung…”
“Warung?”
“Enya, tuh geuning nu bogana keur ngajanteng di lawang. Ngora kénéh euy, randa teu boga anak.” Si Among nyakakak.
“Kana randa waé silaing mah… Terus ayeuna kumaha?”
“Lila déwék di dieu téh, da ngaguguyah silaing teu nyaring waé. Geus ngopi, geus dahar déwék mah…”
“Daharna jeung goréng jéngkol, lin?”
“Har? Naha bet nyaho?”
“Béda ambeuna…”
“Kacindekanana, najan nu boga warung nitah mondok, urang mah kudu balik. Ngan saratna kudu meunang heula béngsin. Déwék geus nanyakeun, cenah nu aya béngsin téh di lembur Cipeuting. Ti dieu mah kira-kira sapuluh menitan. Tah, wadahna geus nginjeum ka nu boga warung. Pangna déwék ngageuingkeun téh, bisi silaing reuwas pédah dina mobil euweuh sasaha. Enya, dagoan wé di dieu, mun rék bari ngopi di warung, dipangmesenkeun. Déwék rék néangan heula béngsin…”
“Ké heula, Mong. Ari nu boga warung saha ngaranna?”
“Naha bet nanya kitu? Tara-tara ti sasari. Sumi mun teu salah mah…”
“Sumi, nya?”
“Dédéngéan mah kitu…”
“Ari tadi di warung aya saha?”
“Aya lalaki tiluan, tapi ayeuna mah geus arindit?”
“Ti mana silaing meunang béja yén di Cipeuting aya nu dagang béngsin?”
“Ké, naha ieu téh jadi talété kieu?”
“Penting euy…”
“Mimitina mah ti lalaki nu keur ngadon ngopi, terus leuwih diécéskeun ku nu boga warung. Cenah ti dieu leumpang kira-kira lima puluh méter, lebah tangkal caringin méngkol ka kénca…”
“Diuk heula, euy. Déwék aya piobroleun. Silaing moal nitah déwék meuli béngsin, pan?”
“Ih, piraku teuing. Moal ngagawékeun déwék mah, nu matak silaing dagoan di dieu. Keun déwék nu balangsiar mah…”
“Cék déwék mah mending ngadagoan beurang, kajeun saré dina mobil…”
“Har? Apan silaing nu ngarurusuh gancang balik téh, rék ngantor, lin?” Si Among kerung.
“Urusan kantor mah bisa ku SMS. Meuli béngsin mah kajeun kénéh isuk nitah tukang ojég.”
“Nyungkun ieu téh?”
“Lain, daria déwék mah. Ké heula, ari silaing kungsi ngadéngé Lembur Cipeuting?”
“Nu matak rada kagét déwék téh…” cék Si Among, ngomongna rada laun. “Déwék téh tukang ngider, mindeng ngaprak lembur. Enya, déwék nyaho, di dieu téh aya Lembur Cipeuting. Tapi asana ukur kacatet dina sajarah. Lemburna mah baheula gé geus musna…”
“Musna?”
“Cenah ti jaman baheulana, Lembur Cipeuting téh daérah kotor. Mun jaman ayeuna mah, teu béda jeung lokalisasi meureun. Méh unggal awéwé di éta lembur sok daék ngalayanan lalaki. Ku salakina siga nu dihucuhkeun, dapon keur nyukupan pangabutuh sapopoé. Disebut Lembur Cipeuting téh, pédah raména ti peuting. Ramé ku lalaki nu ngadon…”
“Heueuh, teu kudu diteruskeun. Tapi naha éta lembur bet musna?”
“Cenah mah aya nu ngaduruk… pangeusina terus kalabur.”
“Silaing percaya kana éta béja?”
“Nyao teuing atuh. Tapi mungkin waé ayeuna mah di dinya geus aya deui lembur. Piraku Sumi ngabohong… Geus lah, déwék rék indit. Urang kudu balik, kajeun nepi pasusubuh. Éra ku pamajikan silaing déwék mah, bisi magarkeun salakina dibawa liwar…”
“Ké heula, puguh déwék téh ngimpi kieu…” cék kuring, bari barabat wé sakur nu kaimpikeun téh dicaritakeun deui. Si Among katémbong unggut-unggutan. Sakapeung gogodeg.
“Silaing percaya kana éta impian?” Si Among melong.
“Da mani asa enya euy…”
“Dung, déwék nyaho pisan silaing mah tara percaya kana tahayul. Tapi naha ayeuna ngadadak robah?”
“Cékéng gé éta mah ukur ngimpi. Nya mun ngimpi diudag maung mah, déwék moal geruh teuing. Ngan éta, mani aya nu sarimbag jeung kanyataan. Upamana, di jero warung tadi aya lalaki tiluan, nu boga warung ngaranna Sumi, jalan ka Cipeuting ngaliwatan tangkal caringin. Sarua, pan?”
“Mikirna maké logika geura. Déwék ngobrol jeung Sumi téh mimitina mah di dieu, deukeut panto mobil. Bisa jadi obrolan déwék téh kabawa kana ngimpi…”
“Enya. Ngan silaing nyaho, yén Sumi mah enya gé purah nungguan warung ti peuting, teu kagolongkeun awéwé bangor…”
“Bener, kitu pisan. Basa leungeunna dicekel gé geuwat diképéskeun… Lah, na ieu téh jadi ngawangkong teu puguh. Déwék mah rék maksa wé, rék indit ayeuna nyiar béngsin…”
“Silaing geus siap nénjo lalaki nu disiksa ku pamajikanana? Dikunclungkeun kana balong, diteunggeulan ku bébékan awi, diténggor ku halu?”
“Hahaha… éta mah ukur aya dina impian silaing!” pokna bari mukakeun panto mobil. “Meugeus, montong ngalindur waé. Cik kadieukeun éta sénter!”
“Nya ari rék nékad mah… Ngan sing inget, silaing bakal ngaliwatan kebon awi nu caénom …”
“Heueuh, keun baé…” pokna bari terus ngingkig, nepi ka lesna diteureuy belegbeg peuting.
Teu eureun ngahuleng. Boa enya ukur ngimpi. Ngan bet terus nyipta-nyipta Si Among nu keur leumpang ngajugjug Lembur Cipeuting. Dipapantes, nu kaimpikeun téh kaalaman ku manéhna.
Sajeroning diuk, pipikiran mah teu pararuguh. Asa dikepung ku kakeueung. Geus babacaan gé angger kénéh sawangan goréng téh narémbongan.
“Kang….!”
Rét, gebeg! Méh baé luncat ka deukeut setir. Tina kaca mobil katémbong aya nu ngajanteng… nu boga warung.
“Di lebet warung geura ngantosanana, béh tiasa bari ngopi…”
“Wios di dieu wé…” pok téh rada ngageter.
Sumi ngaléos deui. Cék pikir, lain teu hayang cikopi. Ngan… kumaha mun manéhna nawarkeun uyah? Sawangan lalaki nu keur disiksa némbongan deui.
Geus sapuluh menit. Si Among can datang kénéh. Boa kakara nepi. Dina gancangna, nepi ka balik deui téh kudu ngadagoan dua puluh menit. Tapi waktu téh mani asa lila naker.
Cahya lampu ti warung katémbong tina kaca mobil. Ngetét, siga damar kurang minyak. Si Awéwé ngajanteng kénéh di lawang, bangun nu milu hariwang. Di jalan éstuning simpé, euweuh kandaraan nu ngaliwat.
Rada tenang sotéh basa katémbong Si Among datang deui bari ngajingjing jarikén. Leumpangna semu rusuh. Bray manéhna muka panto mobil. Mani hahéhoh.
“Teu biasa leumpang jauh euy, mani asa capé pisan…” pokna bari ngahégak.
“Aya?”
“Aya. Kapaksa ngagedor imahna nu boga warung. Untung teu sangka bangsat gé. Béngsinna ngan aya dalapan léter, tapi sigana mahi nepi ka SPBU mah. Ké urang cicikeun heula…”
Geus kitu Si Among asup deui ka warung, mikeun jarikén jeung babayar tayohna téh. Bus deui kana mobil. Disetater, gerung wéh. Teu sakara-kara. Haté ngadadak longsong.
“Langsung balik wé nya…”
“Enya, tapi urang ka Cipeuting heula…”
“Har, rék nanahaon?” kuring kerung.
“Béngsin can dibayar. Tapi lain pédah duitna teu payu. Poho, tadi téh rusuh, singhoréng dompét déwék tinggaleun dina mobil. Rék balik deui kagok. Untungna téh nu boga warung percayaeun. Jadi wayahna ayeuna ka Cipeuting heula, kana mobil wé. Déwék geus jangji rék dibayar ayeuna kénéh…”
“Na atuh, mani teu tarapti!”
Sajeroning mobil maju ngajugjug lembur Cipeuting, maké jeung ngagerentes, moal ayeuna rék ngalaman naon nu kaimpikeun téh
Hasil perhitungan :
Huruf a : 1032 (16.70%)
Huruf n : 730 (11.81%)
Huruf u : 539 (8.72%)
Huruf i : 481 (7.78%)
Huruf g : 419 (6.78%)
***************************************************************************************
Tidak ada komentar:
Posting Komentar