Basic: how to create calculator using HTML+PHP

Save file type as "saja2.html"

<html> <body> <form action="saja2.php" method="post"/> <table> <tr><td>data 1 </td><td><input type="text" name="data1"/></td></tr><br/> <tr><td>data 2 </td><td><input type="text" name="data2"/></td></tr><br/> <tr><td>symbol </td><td><input type="text" name="sym"/></td></tr><br/> </table> <input type="submit" /> </form> </body> </html> Save file type as "saja2.php" 

 

<?php $data1=$_POST["data1"]; $data2=$_POST["data2"]; $sym=$_POST["sym"]; echo " data 1 is $data1<br/>"; echo "data 2 is $data2<br/>"; echo "the symbol is $sym<br/>"; $pls = $data1+$data2; $tol = $data1-$data2; $dev = $data1/$data2; $tim = $data1*$data2; if ($sym=="+") echo " nilai tambah $pls<br/>"; else if ($sym=="-") echo " nilai tolak ialah $tol<br/>"; else if ($sym=="/") echo "nilai bahagi ialah $dev<br/>"; else if ($sym=="*") echo "nilai darab ialah $tim<br/>"; ?>

 

 

 

 

 

 

 

 

 

Munajad Cinta Lirik

Malam ini ku sendiri,
tak ada yang menemani,
seperti malam-malam,
yang sudah sudah

Hati ini, selalu sepi,
tak ada yang, menghiasi,
seperti cinta ini,
yang slalu pupus

Tuhan kirimkanlah aku,
kekasih yang baik hati,
yang mencintai aku,
apa adanya

Mawar ini semakin layu,
tak ada yang memiliki,
seperti, aku ini,
semakin pupus

PERL program that accepts input in from of day, month and year.

Write a complete PERL program that accepts input in from of day, month and year.
The program should display the following day from a given input.

---INPUT---
Enter day:    31
Enter month: 3
Enter year: 2013
---OUTPUT---
Day:    1
Month:    4
Year:    2013
__________________________________________________________________________________
OUTPUT OF PROGRAMS:

__________________________________________________________________________________
PROGRAM STRUCTURE:

#!/usr/bin/perl -w
print"\nEnter day: ";
$days=<STDIN>;
print"\nEnter month: ";
$month=<STDIN>;
print"\nEnter a year: ";
$year=<STDIN>;
print"\n";
$d1=1;
if($month<=12)
{
if($year%4==0)
{
if($month==1||$month==3||$month==5||$month==7||$month==8||$month==10)
{
if($days==31)
{
print"days:1\n";
$monthM=$month+1;
print"month:$monthM\n";
print"Year:$year\n";
}
elsif($days<31){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
elsif($month==4||$month==6||$month==5||$month==9||$month==11)
{
if($days==30)
{
print"days:1\n";
$monthM=$month+1;
print"month:$monthM\n";
print"Year:$year\n";
}
elsif($days<30){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
elsif($month==2)
{
if($days==29)
{
print"days:1\n";
$monthM=$month+1;
print"month:$monthM\n";
print"Year:$year\n";
}
elsif($days<29){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
elsif($month==12)
{
if($days==31)
{
print"days:1\n";
$monthM=$month+1;
print"month:1\n";
$year1=$year+1;
print"Year:$year1\n";
}
elsif($days<31){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
}
elsif($year%4!=0)
{
if($month==1||$month==3||$month==5||$month==7||$month==8||$month==10)
{
if($days==31)
{
print"days:1\n";
$monthM=$month+1;
print"month:$monthM\n";
print"Year:$year\n";
}
elsif($days<31){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
elsif($month==4||$month==6||$month==5||$month==9||$month==11)
{
if($days==30)
{
print"days:1\n";
$monthM=$month+1;
print"month:$monthM\n";
print"Year:$year\n";
}
elsif($days<30){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
elsif($month==2)
{
if($days==28)
{
print"days:1\n";
$monthM=$month+1;
print"month:$monthM\n";
print"Year:$year\n";
}
elsif($days<28){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
elsif($month==12){
if($days==31)
{
print"days:1\n";
$monthM=$month+1;
print"month:1\n";
$year1=$year+1;
print"Year:$year1\n";
}
elsif($days<31){
$days=$days+$d1;
print"Day:$days\n";
print"month:$month\n";
print"Year:$year\n";
}
else {print"error day\n"}
}
}
}
else{print"wrong input. please input actual days and month\n"};
print"Question 1 end\n";

 

Calculate the number of vowels in a given string. Using PERL.

Calculate the number of vowels in a given string (consider input using uppercase letters as well).
Example input: Calculate the number of vowels in a given string

Example output:                    
a=3                      
e=5                       
i=3                      
o=2                        
u=2

Program structure:

Input and Output:

Senyumku Untuk Siapa

Sudah lama menunggu hingga kini tiada jawapan yang pasti.  Jika aku boleh
undurkan masa, aku mahu pergi disaat pertama kali bertemu sidia. Pertemuan
yang sangat indah dan sukar dilupakan. Tetapi aku tidak punyai kuasa untuk mengundurkan waktu walaupon sesaat..

Kini senuanya hanya tinggal kenangan.. Aku selalu memikirkannya tidak kira waktu dan sekarang kehidupan aku semakin sunyi. Apa yang aku rasa adalah hanya tinggal secebis perasaan yang tidak berpunya. Perlahan-lahan aku cuba serasikan dengan kehidupan aku agar aku tidak terus lumpuh untuk meneruskan cita-cita demi masa depan aku..

"Aku milik siapa" itulah perkataan yang aku sering fikirkan dan memeningkan kepala aku. Aku tidak mahu kerana ayat itu aku menjadi pendiam, Apa yang aku lakukan waktu ini adalah mencari tempat untuk menggembirakan hati aku, tidak kira dari sesiapa, dan aku harap seseorang yang menggembirakan aku itu berniat ikhlas dan jujur.

Aku berusaha gembirakan orang lain dan berharap orang itu dapat menggembirakan aku juga. Aku suka melihat bibirnya tersenyum walaupon hanya "Senyum cikit" keikhlasannya dapat dirasa. Hari demi hari, hati aku dihiasi dengan senyumannya, walaupon sesaat ia dapat membuatkan aku tersenyum kembali padanya. "Amat bermakna bagiku".

Aku dapat berjumpa sidia hanya sekali buat waktu ini, aku harap suatu hari nanti aku dapat berjumpa sidia lagi dan mahu melihat senyumannya didepan mata hatiku. Senyumannya tidak dapat aku lupakan dan sukar untuk aku lukiskan bertapa manisnya bibir seorang yang ikhlas memberi senyuman. "Senyum itu sedekah" dan ia adalah senjata yang paling tajam untuk menggembirakan hati orang lain.

"Senyumlah selalu kerana ia dapat melembutkan hati dan pasti senyumanmu itu dibalas kembali"

Bicara Sang Pujangga

Aku sendiri sukar mengerti
Mengapa jantung ini berdebar bagaikan mahu gugur ke bumi
Aku sendiri tidak memahami
Mengapa terasa sepi di dunia ini apabila kau jauh dari sisi
Tersentak diriku apabila hati ini belajar mengenal erti cemburu.

Aku kelu sendiri, memikirkan keanihan yang menimpa diri
Seakan-akan melayang di udara
Ohh... indahnya perasaan ini, membuat aku sentiasa ingin
Tersenyum selalu.

Kupandang wajahnya yang tidak seindah ratu cantik Malaysia
Jauh sekali ratu cantik dunia
Kulihat senyumannya tidak semanis Nora Danish
Kulihat kerdipan matanya yang tidak selincah Ikin...
Oppss itu isteri Mawi.

Aku kelu sendiri, kaku bagaikan lumpuh seluruh badan
Oh... di manakah keindahan wanita ini
Aku tidak percaya bahawa aku boleh mencintai wanita ini
Tidak ada apa-apa keistimewaan padanya untuk aku banggakan
Sekelumit pun tidak ada ciri-ciri wanita idamanku.

Lalu, aku memilih untuk meninggalkannya,menjauhinya
Aku memilih untuk melukai hatinya
Melukai perasaannya. Aku memaksa diri untuk mengasarinya
aku terpaksa melakukannya demi membuang perasaan ini
Demi membunuh cinta ini, dan menamatkan rasa sayang ini.

Namun, sukarnya membuang rasa rindu
kosongnya jiwa ini tanpamu di sisi wahai gadisku
Aku mahu mengetepikan segalanya
Aku mahu kau jadi permaisuriku wahai gadis.
Namun malangnya kau kini dikebas musuhku
Peritnya hatu ini menyedari rupanya tiada cinta darimu
Untukku.

Namun egoku tidak akan menyerah kalah...
Kau akanku miliki
Tidak akan pernah aku membenarkan kesukaanku dirampas
Orang
Sekalipun kau menangis air mata darah untuk kembali
Kepada kekasihmu
Tidak akan aku lemah terhadap air matamu itu...
Kerana kini baru ku sedari,
Kaulah wanita yang sangat cantik dalam hidupku selain
nenekku
Wahai gadisku, akulah sang pujangga yang tidak pernah lelah.

Petikan Dari Novel Cinta Untukmu - Siti Nur Dhuha

Menghormati Hubungan Orang Lain.

Sebelum ini aku menyimpan perasaan yang aku tak berani nak luahkan. Tiba suatu masa tu aku terluahkan pada dia, dan dia pula meluahkan perasaan pada aku. Luahan dia sama seperti aku, tapi dia marah aku  sebab aku lambat luahkan pada dia dan tidak bagi hint apa-apa sebelum ni.. Erkk?? Kini dia sudah milik orang lain.. aku dan dia hanya kawan. Aku menghormati hubungan dia dengan kekasih pertamanya

Ceritanya begini. waktu itu di bulan puasa, puasa keberapa aku dah tak ingat, lepas habis class lepak kat  KT5 level 7 sementara nk tunggu pukul 5.30 petang nak pegi bazar Ramadhan. Time lepak tu la aku ternampak seseorang yang sedang lepak di meja sebelah. first pandang eh lawa laa, putih kulit dia, bila die perasan aku, aku just senyum je. Dia duduk sorang-sorang kat meja tu sambil on laptop. (tengah online fb la tu agaknyer)

Tidak lama lepas tu wifi kat level 7 tu ada problem, aku tngok dia macam gelisah sebab tak dapat Internet Access  sehingga  Miss Jamm datang cuba tolong. Miss Jamm tu kenal aku, ntah macam mana Miss tu boleh terniat panggil aku suroh aku tengokkan apa masalah sebenar laptop perempuan tu. Wah! ini la rezeki namanya. bila lagi nak cuba dekat dengan seorang perempuan yang lawa macam dia tu. Tapi ingat niat kena betol! dia mintak tolong kita tolong la baik-baik.

Tapi sayang, aku gagal tolong untuk dapatkan connection internet untuk laptop dia. Sampai Sr. ***** tolongpon masih tak dapat connection.. Aku dah agak dah problem ni bukan dari laptop dia, Access point tu yang problem sebenarnya. Ada cara lain untuk dapat internet tu tapi tak bagus untuk dia sebab dia nak beli ticket online. Cara nak dapat internet tu guna software "Bypass" aku memang tak galakkan dia guna, sebab  software tu ibarat orang tengah. software tu akan save segala user Accound dan password dekat server software Bypass tu. sebab itu la ramai orang kena hack. So aku tak nak ambil risiko aku diam je tak bagi tahu tentang software Bypass tu. Bila dah macam tu aku nak blah la tapi dia mintak no henpon aku. dia cakap mana tahu nanti boleh mintak tolong aku kalau dia ada masalah laptop.. aku pon bagi lahh..

Hari esoknya aku msg dia, aku tanya dia laptop dia dapat internet tak? dia cakap laptop dia okay  dapat connection internet seperti biasa. Hahaha semua seperti yang aku jangka... sejak dari kejadian tu aku mula tertarik dengan dia. Aku takde la kerap sangat msg dia, aku tanya dia "ini sy msg takde sape marah ke nanti?", dia bagi tahu aku yang dia single. ramai lelaki yang msg dia mintak nak couple tapi dia tak nak. "sy nak fokus blaja dulu" so takkan tak faham-faham lagi? Aku pon rilex la banyak lagi masa kalau nak ayat dia, dia nk fokus blaja jangan la ganggu...

Berapa bulan selepas itu dia msg aku "Awak saya dah ada bf.. Alhamdulillah..".. Mata aku terkebil kebil baca msg dari dia. Erkk?? Aku dengan dia just kawan belum ada apa-apa hubungan so  think positive. Baguslah hati dia terbuka untuk bercouple. Untung lelaki tu kerana menjadi CINTA PERTAMA dari sidia... Mungkin Allah nak tunjuk bahawa CINTA TERAKHIR aku bukan pada dia, tapi pada seseorang yang aku cinta sebelum ini NUR HIDAYAH BINTI AZIZ.

Sebenarnya aku tak berani nak upload entry ni sebab nak jaga hati cinta terakhir aku. tapi sebentar tadi dia bagi tahu dia sudah tidak cintakan aku lagi.. so tiada sebab untuk aku takut nak upload. inilah  sebab aku upload dan aku harap cinta terakhir aku faham apa yang aku cuba sampaikan... Kau cinta terakhir aku NUR HIDAYAH. jangan kau hilangkan perasaan cinta aku terhadap engkau. Kenangan aku bersama kau terlalu banyak. dan aku harap jangan terlalu selesa dengan cinta aku. Cinta aku ibarat bunga yang disiram air dan baja. jika tidak ia akan layu...