My Blog List

Diberdayakan oleh Blogger.

Pengikut

Music

object width="445" height="364">
Download video clip Noah Separuh Aku

link bergerak

RSS
Post Icon

Web II Teori



<HTML>
<HEAD>
<TITLE> array multi dimensi </TITLE>
</HEAD>

<BODY>
<H3><B><blink><FONT SIZE="5" COLOR="#6600FF">DAFTAR HARGA HEWAN</blink></H3></B></FONT>
<FORM METHOD=POST>
<table border=1>
<tr><td>TOKO SETIA</td>
<td colspan=3 align=center>Harga Hewan/Jenis</td></tr>
<tr><td>Nama Hewan</td>
<td>Biasa</td>
<td>Sedang</td>
<td>Spesial</td>
</tr>
<?php
$NamaHewan=array(
"Anjing"=>array(100000,1200000,1500000),
"Monyet"=>array(60000,90000,120000),
"Kodok"=>array(900000,1000000,1350000),
"Kambing"=>array(1200000,1100000,1500000),
"Nyamuk"=>array(800000,1150000,1300000),
"Komodo"=>array(1200000,1100000,1500000),
"Kucing"=>array(300000,500000,700000),
"Ayam"=>array(6500000,4600000,8000000),
"Badak"=>array(7500000,6600000,5000000),
"Hamster"=>array(3500000,8600000,2000000));

while(list($Nh,$nilai1)=each($NamaHewan)){
echo("<tr><td>$Nh</td>");
while(list($indeks2,$nilai2)=each($nilai1)){
echo("<td>Rp. $nilai2</td>");
}
echo("</tr>");
}
?>
</table>
<FORM METHOD=POST>
TOKO Setia<br>
NAMA Hewan :
<select name="Nh">
<option selected value="Pilih">--Pilih--</option>
<option value="Anjing">Anjing</option>
<option value="Monyet">Monyet</option>
<option value="Kodok">Kodok</option>
<option value="Kambing">Kambing</option>
<option value="Nyamuk">Nyamuk</option>
<option value="Komodo">Komodo</option>
<option value="Kucing">Kucing</option>
<option value="Ayam">Ayam</option>
<option value="Badak">Badak</option>
<option value="Hamster">Hamster</option>
</select><br>
Jenis :
<select name="Jenis">
<option selected>--Pilh--</option>
<option value="0">Biasa</option>
<option value="1">Sedang</option>
<option value="2">Spesial</option>
</select><br>
<INPUT TYPE="submit" name="proses" value="Proses">
</FORM><br>
TOKO SETIA<br>
<?php
$Nh=$_POST['Nh'];
$MEREK=$_POST['Jenis'];
echo "NAMA Hewan : ".$Nh."<br>";
echo "Jenis Yang : ";
switch ($Jenis){

case 0:echo"Biasa";break;
case 1:echo"Sedang";break;
case 2:echo"Spesial";break;
}
echo "<br>Harga : ".$NamaHewan[$_POST['Nh']][$_POST['Jenis']];
?>

</table>
</BODY>
</HTML>



  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon

Naruto shippuden 273 Subtitle Indonesia

sinopsis: 
setelah mengalahkan kinkaku, tim ino-shika-cho baru diminta shikaku untuk melawan guru mereka asuma sarutobi karena mereka yg paling tahu gaya bertarung asuma. Di tengah pertarungan choji tetap tak bisa memukul asuma... Bagaimana pertarungan akan berlanjut...?? Pengen tau cerita selanjutnya,langsung aja Download filmnya ^_^


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon

New Document
Naruto Shippuden Episode: 272 
subtitle: Indonesia
Sub by: Naruminato
Title: Mifune vs Hanzo!






Sinopsis :
Kankuro yg terdesak oleh pasukan hanzo dan asap nya membuat mereka tak berdaya. Untunglah Mifune dan pasukan samurainya datang membantu. Hanzo yg juga seorang samurai merasa tidak terima karena

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon

Tugas Pemrograman Web


<html>
<head>
<title> Java Script</title>
</head>
<body>

<form name="form1" method="post">
<table border="0" cellpadding="10" align=center>
<tr><td>INPUT NILAI (0 s/d 100)</td><td> :</td><td> <input type="text" size="25" name="nilai"></td></tr>
<tr><td>NILAI HURUF </td><td> : </td><td> <input type="text" size="25" name="nh" readonly></td></tr>
<tr><td>PREDIKAT </td><td> : </td><td> <input type="text" size="25" name="predikat" readonly></td></tr>
<tr><td colspan="3" align="center"><input type="button" value="Proses" onclick="hitung();"><Input type="reset" value="Cancel"></td></tr>
</table>
</form>
<script>
function hitung()
{
var nilai=document.form1.nilai.value;
if (document.form1.nilai.value.length==0)
{

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon


uses crt;
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
    i: integer;
    kalimat: s255;
         procedure awalan(var t: tumpukan);
         begin
          t.atas:=0;
          end;
    procedure push (var t:tumpukan; x: char);
    begin
    t.atas:=t.atas+1;
    t.isi[t.atas]:= x;
    end;
function pop(var t:tumpukan):char;
begin

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon

Tugas Prak.Struktur Data


uses crt;
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
    i: integer;
    kalimat: s255;
         procedure awalan(var t: tumpukan);
         begin
          t.atas:=0;
          end;
    procedure push (var t:tumpukan; x: char);
    begin
    t.atas:=t.atas+1;
    t.isi[t.atas]:= x;
    end;
function pop(var t:tumpukan):char;
begin

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon

Cara Membuat Tombol twitter Bergerak


Cara membuat tombol twitter bergerak tidaklah sulit, hanya dengan beberapa kali klik tombol twitter langsung jadi, karena kita tinggal memilih salah satu diantara beberapa tombol twitter yang telah disediakan oleh situs www.twitterflash.net sesuai dengan keinginan.
1. Langkah pembuatannya yang pertama kunjungi http://www.twitterflash.net/?r=image

2.Pilih salah satu tombol twitter yang sobat suka, jika sudah dipilih klik Get the button
3.Maka akan tampil halaman seperti gambar di bawah ini, kemudian masukan id twitter sobat sendiri lalu klik Apply your Twitter Name to the code

4.Setelah itu  klik icon Klik Copy to Clipboard dan Copy paste kode yang sudah dibuat tadi ke dalam blog.

Langkah-langkah memasukan kode kedalam blog 
  • Login ke Blogger
  • Kemudian Pilih Tata Letak 
  • Selanjutnya Klik tab Elemen Halaman dan Klik Tambah Gadget 
  • Pilih Yang HTML/JAVASCRIPT 
  • Masukkan kode yang telah dibuat tadi kedalam kolom HTML/JAVASCRIPT 
  • Terakhir klik simpan

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon



___000000_____000000____00000_00000
___000000_____000000___0000000000000
___000000_____000000____00000000000
___000000_____000000______0000000
___000000_____000000________000
___000000_____000000_________0
___00000000000000000___0000000000000
___00000000000000000___0000000000000
___00000000000000000______0000000
___00000000000000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000______0000000
___000000_____000000___0000000000000


__**********______**********_____
__***________***__***________***___
_***___________****___________***__
***_____________**_____________***_
***____________________________***_
***___________THANKS__________***_
_***____________FOR__________***__
__***_________JOINING________***___
___***__________Our_________***____
_____***______GROUP______***______
_______***______________***________
_________***__________***__________
____________***____***_____________
______________**__**_______________
________________**_________________

╔♫═╗╔╗ ♥
╚╗╔╝║║♫═╦╦╦╔╗║♫╝╠═╦╦╗
╔╝╚╗♫╚╣║║║║╔╣╚╗╔╣║♫║♥
╚═♫╝╚═╩═╩♫╩═╝♫╚╝╚═╩═╝

☆┌─┐─┐☆
│▒│ /▒/
│▒│/▒/
│▒ /▒/─┬─┐
│▒│▒|▒│▒│
┌┴─┴─┐-┘─┘ ●●BEST group●●
│▒┌──┘▒▒▒│
└┐▒▒▒▒▒▒┌┘
└┐▒▒▒▒┌┘

_____________@_______@ @_____
_____________@@__@_@@@_____
_____________@__@@_____@_____
____________@@_@__@_____@_____
___________@@@_____@@___@@@@@_____
__________@@@@______@@_@____@@_____
_________@@@@_______@@______@_@_____
_________@@@@_______@_______@_____
_________@@@@@_____@_______@_____
__________@@@@@____@______@_____
___________@@@@@@@______@_____
__@@@_________@@@@@_@_____
@@@@@@@________@@_____
_@@@@@@@_______@_____
__@@@@@@_______@@_____
___@@_____@_____@_____
____@______@____@_____@_@@_____
_______@@@@_@__@@_@_@@@@@_____
_____@@@@@@_@_@@__@@@@@@@_____
____@@@@@@@__@@______@@@@@_____
____@@@@@_____@_________@@@_____
____@@_________@__________@_____
_____@_________@_____
_______________@_____

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Post Icon

Mencari Nilai Mata Uang


uses crt;

var uang : longint;

begin
  write('Nilai uang : ');readln(uang);

  if uang div 100000 &gt; 0 then begin
    writeln(uang div 100000, ' lembar seratus ribuan');
    uang := uang mod 100000;
  end;

  if uang div 50000 &gt; 0 then begin
    writeln(uang div 50000, ' lembar lima puluh ribuan');
    uang := uang mod 50000;
  end;

  if uang div 20000 &gt; 0 then begin
    writeln(uang div 20000, ' lembar dua puluh ribuan');
    uang := uang mod 20000;
  end;

  if uang div 10000 &gt; 0 then begin
    writeln(uang div 10000, ' lembar sepuluh ribuan');
    uang := uang mod 10000;
  end;

  if uang div 5000 &gt; 0 then begin
    writeln(uang div 5000, ' lembar lima ribuan');
    uang := uang mod 5000;
  end;

  if uang div 1000 &gt; 0 then begin
    writeln(uang div 1000, ' lembar ribuan');
    uang := uang mod 1000;
  end;

  if uang div 500 &gt; 0 then begin
    writeln(uang div 500, ' lembar lima ratusan');
    uang := uang mod 500;
  end;

  if uang div 100 &gt; 0 then begin
    writeln(uang div 100, ' ratusan');
    uang := uang mod 100;
  end;

  if uang div 50 &gt; 0 then begin
    writeln(uang div 50, ' limapuluhan');
    uang := uang mod 50;
  end;

  if uang &gt; 0 then begin
    writeln(uang, ' satuan');
  end;

end.


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS