超人気ブログの10の秘訣

アメリカ最強ブロガーカップルが伝授する超人気ブログの10の秘訣
その秘訣とは.....
1. 好きだからブログを書く--マリアムさんは夫に勧められても自分が書きたいと思うまでブログをはじめなかった。書きたいという情熱がなければ人の心には届かない
2. 他人のブログを読む--他のブロガーが書いていることを読んで、それを自分のブログに反映させることで相乗効果が生まれる
3. 特化する--人と違った得意分野があれば、誰かが検索して読んでくれる。一般人に何となく読んでもらうより、熱心な読者がいたほうが良い
4. 他のブログにリンクする--スコーブル氏はマイクロソフトでブログを始めた時、マイクロソフトを批判しているブログにできるだけ多くコメントしリンクさせた。何か言われると言い返したくなるのが人間の本質。皆ブログを見に来るようになる
5. 間違いは認める--マリアムさんは夫がコメントで批判されるのを見て自分のブログをはじめるのが怖かった。 しかし、夫がきちんと間違いを認めると、その誠実さが認められることに気がついた
6. 良い「見出し」をつける--ブログが検索されるには見出しが良くなければならない。知恵を絞って検索されやすい見出しをつける
7. マルチメディアを使う--デザインや写真に加えて、ポッドキャスティングやビデオを使ってブログをひとつ上のコミュニケーションツールにする
8. 自分の意見をしっかり持つ--本当に伝えたいことがあれば、それは他の人に伝わる
9. ブログの世界にとどまらずに外の世界に踏み出す--セミナーや講演会に出て実際に人に会うことが、後にブログの人気を高めることになる
10. 自分をマーケティングする--スコーブル氏は千四百枚の人の名刺を持っているが、ブログのアドレスがないものが多い。名刺にも差をつけて自分をマーケティングする
http://d.hatena.ne.jp/quantumfusion/20061030
人気ブログの最大の秘訣は7.の画像を使うことにあるらしい。
私の場合はもともと、人気ブログなど夢物語だったので、自分の日記がランキングに表示されることなど考えもしなかった。
googlebiglobe、及び@niftyで「GDP 国別ランキング」を入れてみたら検索結果に「勝手に一人当たりGDP国別ランキング-2008年」がトップ表示されている。
これは事件だ。本当に冥土への土産にもってこ。こんなことは二度とないだろう。
画像も使わず、単に文章を書き込んだものがトップにもなるのだ。びっくりしたなぁ。もう。
自分を褒めてあげる。はてな星マーク一つ押した。
話変わって
rubyでもぐらたたきを作ることにした。
約8年前にtcl/tkで作ったもぐらたたきのプログラムをruby用に変えてみよう。
http://www.coolhjiji.com/tcl-tk/index.html
#!/bin/sh
#! make a 3x3 mogura demo out of an image
# 2001/01/12 h.hiratsuka create
# 最初に「穴」だけ9個並べる
proc init {image} {
  global intvalv marray

  set w [image width $image]
  set h $w
  foreach i {0 1 2 3 4 5 6 7 8} {
    [image create photo $i] copy $image
    set x [expr $w*($i%3)]
    set y [expr $h*($i/3)]
    button .$i -image $i -highlightthickness 0 -command "hit .$i" -bd 1
    grid .$i -row [expr $i / 3] -column [expr $i % 3]
    set marray($i) "ana"
  }
  after $intvalv PosCalc
}
# 0.5秒間隔で割り込んでくる
#「もぐら」をランダムに表示させる
#「もぐら」の他に「似せもぐら」も出すようにした
# 割り込み7回目で全部「穴」だけにしている
proc PosCalc {} {
  global intvalv marray count count2
  set r [expr int(floor(rand() * 100.))]
  set i [expr $r % 9]
  set nn [expr $count % 7]
  if {$nn == 0} {
    set dispimg "ana"
    foreach ii {0 1 2 3 4 5 6 7 8} {
      if {$marray($ii) == "mogura" || $marray($ii) == "mogura2" || $marray($ii) == "hmogura"} {
        destroy .$ii
        [image create photo $ii] copy $dispimg
         button .$ii -image $ii -highlightthickness 0 -command "hit .$ii" -bd 1
        grid .$ii -row [expr $ii / 3] -column [expr $ii % 3]
        set marray($ii) "ana"
      }
    }
  }
  set odd [expr $count % 2]
  if {$odd} {
    set dispimg "ana"
  } else {
    set dispimg "mogura"
  }
  if {$marray($i) == $dispimg} {
    after $intvalv PosCalc
    incr count
    return
  }
  if {$dispimg == "mogura"} {
    incr count2
    set nisemono [expr $count2 % 4]
    if {$nisemono == 0} {
      set dispimg "mogura2"
    }
  }
  destroy .$i
  [image create photo $i] copy $dispimg
  button .$i -image $i -highlightthickness 0 -command "hit .$i" -bd 1
  grid .$i -row [expr $i / 3] -column [expr $i % 3]
  set marray($i) $dispimg

  after $intvalv PosCalc
  incr count
}
#「もぐら」をたたくと「ヒットもぐら」に変えている
#「似せもぐら」をたたいても何もしない
# ここでスコアを表示させる (まだ未着手)
proc hit {btn} {
  global intvalv marray
  array set info [grid info $btn]
  set xy1 "$info(-column),$info(-row)"

  set dispimg "hmogura"
    foreach ii {0 1 2 3 4 5 6 7 8} {
    set x [expr $ii % 3]
    set y [expr $ii / 3]
    set xy2 "$x,$y"
    if {$xy1 == $xy2 && $marray($ii) == "mogura"} {
      destroy .$ii
      [image create photo $ii] copy $dispimg
       button .$ii -image $ii -highlightthickness 0 -command "hit .$ii" -bd 1
      grid .$ii -row [expr $ii / 3] -column [expr $ii % 3]
      set marray($ii) $dispimg
      break
    }
  }

}
set intvalv 500
set count 0
set count2 0
image create photo ana -file Ana.gif
image create photo mogura -file Mogura.gif
image create photo mogura2 -file Mogura2.gif
image create photo hmogura -file Hmogura.gif
init ana
# wm title . "Mogura Puzzle"