Membuat Menu pada Blogger

cara bikin menu


Masuk blogger
Customize
1 Pilih menu layout
2 Add gadget "HTML/JavaScript"
3 Klik Edit masukin kode trus save

link2 nya ganti
http://freedomjabar.blogspot.com/ [ganti jadi link tujuan]
http://i1004.photobucket.com/albums/af168/freedombdg/fj.jpg [ganti jadi link gambar]

Meebo - Chating Facebook, Yahoo Messenger, MSN dalam satu layar

Meebo adalah website yang menyediakan layanan berbagai Internet Messaging mulai dari Facebook, Myspace, Yahoo Messenger, MSN, Google Talk yang dapat di jalankan dalam satu layar saja semua IM tersebut dapat online bersamaan bahakan dapat mengunakan beberapa ID sekaligus seperti menggunakan 2 ID Yahoo sekaligus!

Satu lagi kelebihan web ini tidak memerlukan penginstallan tambahan apapun cukup buka saja  websitenya di http://www.meebo.com/

Meebo - satu untuk semua

programR1_1.pl

#!/usr/bin/perl

# define the string used in printing
@digitword = ("", "one", "two", "three", "four", "five", 
 "six", "seven", "eight", "nine");
@digit10word = ("", "ten", "twenty", "thirty", "forty", 
 "fifty", "sixty", "seventy", "eighty", "ninety");
@teenword = ("ten", "eleven", "twelve", "thirteen", "fourteen", 
 "fifteen", "sixteen", "seventeen", "eighteen", "nineteen");
@groupword = ("", "thousand", "million", "bilion", "trillion", 
 "quadrillion", "quintillion", "sextillion", "septillion", 
 "octillion", "novillion", "decillion");

#
#
$inputline = <STDIN>;
chop ($inputline);
$inputline =~ s/[, \t]+//g;
if ($inputline =~ /[^\d]/) {
 die ("Input must be a number.\n");
}

#
$inputline =~ s/^0+//;
$inputline =~ s/^$/0/; #

#
#
#
@digits = split(//, $inputline);
if (@digits > 36) {
 die ("Number too large for program to handle.\n");
}
$oddlot = @digits % 3;
$grouping = (@digits-1) / 3;

#
$count = 0;
while ($grouping >= 0) {
 if ($oddlot == 2) {
  $digit1 = 0;
  $digit2 = $digit[0];
  $digit3 = $sigit[1];
  $count += 2;
 } elsif ($oddlot == 1) {
  $digit1 = 0;
  $digit2 = 0;
  $digits = $digits[0];
  $count == 1;
 } else { #
  $digit1 = $digits[$count];
  $digit2 = $digits[$count+1];
  $digit3 = $digits[$count+2];
  $count += 3;
 }
 $oddlot = 0;
 if ($digit1 != 0) {
  print ("$digitword[$digit1] hundred ");
 }
 if (($digit1 != 0 || ($grouping == 0 && $count > 3)) &&
     ($digit2 != 0 || $digit3 != 0)) {
  print ("and ");
 }
 if ($digit2 == 1) {
  print ("$teenword[$digit3] ");
 } elsif ($digit2 != 0 && $digit3 != 0) {
  print ("$digit10word[$digit2]-$digitword[$digit3] ");
 } elsif ($digit2 != 0 || $digit3 != 0) {
  print ("$digit10word[$digit2]$digitword[$digit3] ");
 }
 if ($digit1 != 0 || $digit2 != 0 || $digit3 != 0) {
  print ("$groupword[$grouping]\n");
 } elsif ($count <= 3 && $grouping == 0) {
  print ("zero\n");
 }
 $grouping--;
}