tudev - บลอกเกี่ยวกับ-computer-programming และอื่นๆ: June 2007

13 June 2007

Mastermind

ข้อความเกี่ยวกับ คำนี้ ครับ
ได้ยินมา จาก Yuri.exe เกมส์ น่ะครับ Red Alert เลยหามาให้อ่านๆกัน เผื่อใครเล่นเกมส์นี้ บ่อยๆ
" yuri is master " :)
" he enlighted me " :)

http://en.wikipedia.org/wiki/Mastermind_%28Role_Variant%29
http://en.wikipedia.org/wiki/INTJ
http://en.wikipedia.org/wiki/Intuition_%28MBTI%29

http://keirsey.com/personality/nt.html
http://keirsey.com/personality/ntej.html

ส่วนอันนี้เป็น พวก Field Marshal
http://keirsey.com/personality/ntij.html
http://en.wikipedia.org/wiki/Field_Marshal
http://en.wikipedia.org/wiki/INTJ

แบบประเมินผลคร่าวๆ ในทางทฤษฏี ยังไม่ได้อ่านเลย
http://en.wikipedia.org/wiki/Keirsey_Temperament_Sorter

สภาประชาชน ekklesia cratia ความหมายคร่าวๆ

คำว่าสภาประชาชน
ช่วงนี้ได้ยินๆมาบ้าง ก็เลยสงสัยว่ามันคืออะไรกันแน่

เลยไปค้นหามา ได้จากเวปต่างๆดังนี้

http://pagebang.com/cgi/nph-proxy.cgi/111011A/http/th.wikipedia.org/wiki/%E0%B8%9B%E0%B8%A3%E0%B8%B0%E0%B8%8A%E0%B8%B2%E0%B8%98%E0%B8%B4%E0%B8%9B%E0%B9%84%E0%B8%95%E0%B8%A2

ประมาณ คร่าวๆ คือ

สภาประชาชน หรือ “ekklesia” ซึ่งเป็นที่รวมของรายชื่อประชาชนทั้งหลาย) อีกคำหนึ่งที่ประกอบคือ “cratia” ที่มีความหมายถึง ระบอบการปกครอง อันอาจจะสรุปความหมายของประชาธิปไตยได้จากสุนทรพจน์อันลือเลื่องของประธานาธิบดีลิงคอล์น อดีตประธานาธิบดีสหรัฐอเมริกาที่ว่า ประชาธิปไตยคือการปกครอง “ของประชาชน โดยประชาชนและเพื่อประชาชน”

และโดย เวปที่เกี่ยวกับ ศาสนาคริส อธิบายการแปลความหมายจาก ศัพท์ ของคำนี้
คือเวปนี้ http://www.bible-truth.org/Ekklesia.html#N_2_
เขียนแปลไว้ว่า

In classical Greek the word "ekklesia" meant "an assembly of citizens summoned by the crier, the legislative assembly."(2) The word as used in the New Testament is taken from the root of this word, which simply means to "call out." In New Testament times the word was exclusively used to represent a group of people assembled together for a particular cause or purpose. It was never used exclusively to refer to a religious meeting or group.

แปลคร่าวๆว่า รีบด่วน
คือแปลว่า คนมารวมๆกัน เพื่อวัตถุประสงค์หนึ่งๆน่ะ ไม่จำเป็นต้องเป็นทางด้าน ศาสนาเพียงอย่างเดียว

หรือถ้าจะอ้างอิงให้ชัดกว่านั้น ก็ ที่ http://www.searchgodsword.org
http://www.searchgodsword.org/lex/grk/view.cgi?number=1577
จะเป็น dictionary ของคำศัพท์ ที่อยู่ใน bible
เป็น New Testament Greek Lexicon

ส่วน cratia นั้น หาข้อมูลไม่ค่อยเจอ เหนื่อยเลย
พบ ที่ Encarta ของ msn ที่
http://encarta.msn.com/dictionary_/democracy.html

ด้านล่างสุดเขียน ผมแปลเอาเองว่า เป็น คำลาติน มาจากคำว่า demo cratia ซึ่งมาจาก คำว่า ปกครองโดยผู้คน
demo = people + kratos ( greek ) = rule

ดังนั้นจึง คล้องจองกับ ความหมายของคำว่า democracy ในข้อ 4
ที่แปลว่า control of organization by members ที่
แปลง่ายๆว่า ระบบที่ถูกควบคุมโดยสมาชิกของระบบเอง

คำนิยาม ง่ายๆ จริงๆ เลย แต่หายาก

ไม่แน่ใจ ว่าเหมือน self -organizing System (SOS) ใน Computer หรือเปล่าน่ะ
ก็ลอง เอาๆ มาฝาก เรื่อง SOS ไว้ ว่างๆ จะลองอ่านดู คร่าวๆ ก็น่าจะต่างกันนะ
แต่ ชื่อคล้ายกัน เลยพาให้นึกถึง เลยเอาลิงค์มาฝากไว้หน่อยแล้วกัน
http://www.calresco.org/sos/sosfaq.htm#6.1

new program uploaded & Ruby generate html

เมื่อวาน เพิ่งทำโปรแกรมแกรมดูข้อมูล HardDisk ใช้เอง ที่ทำงาน เสร็จ
Tsb::FileSize.NET
แสดงขนาดของแฟ้ม พร้อมด้วย แสดงกราฟแบบวงกลมได้ (Pie Graph )
รวมถึง อาจใช้เพื่อคำนวณ ขนาดของ Folder ที่เลือกหลายๆ Folder ได้ด้วย
แล้วก้อบ ไป ไว้ที่ MS Excel เพื่อทำกราฟ ออกรายงานต่อไป ก็ได้
( อันนี้ต้อง Manual หน่อย นะครับ )

วันนี้ ลองใช้ Ruby มา Generate HTmL File ดู
หลังจากเคยลองด้วย vb.netแล้ว
แต่ Ruby เขียนสั้นดี

ทีแรกกะว่าจะลองเขียน Parse TextFile ด้วย Ruby ด้วยแต่ยังไม่ค่อยชำนาญ
ช่วงๆนี้เลยแค่ๆ ลองเขียน ด้วย VB.netก่อน

ตัวอย่าง โค้ด Ruby ก็ดังนี้นะครับ

ให้เปลี่ยน < ===> "<"
> ==> ">"




def contentheight
  200
end
def html
    "<html>#{title}#{body}"
end
def title
  "<title>Test Html Gen</title>"
end
def menuitem(i )
  "<div style='background-color:lightblue;'>
  menu #{i}</div>
  "
end
def leftmenu
  tab2("
  #{menuitem(1)}
  #{menuitem(2)}
  #{menuitem(3)}
  #{menuitem(4.2)}
  ",
    "width=150 bgcolor=silver ",
    "height=#{contentheight} valign=top "  )
end
def tab1(s  , att)
  "<table border=0  cellspacing=0 cellpadding=1 #{att}>
  <tr><td>
  #{s}
  </td></tr>
  </table>"
end
def tab2(s  , att ,attrtd)
  "<table border=0   cellspacing=0 cellpadding=1 #{att}>
  <tr><td #{attrtd}>
  #{s}
  </td></tr>
  </table>"
end
def footer
  tab2(" Copyright ",
  "width=100% bgcolor=lightyellow " ,
  " colspan=2 valing=center align=center ")
end
def topmenu
    tab1("home  download ","width=100% bgcolor=orange")
end
def data
  tab2(
    "data ",
    "bgcolor=white width=100% height=#{contentheight}",
   " valign=top " )
  end
def tabtr
  "
  </td></tr>
  <tr><td>
  "
end
def tabtd(attr)
  "
  </td>
  <td #{attr}>
  "
end
def content
  s = leftmenu +  tabtd("align=left valign=top")
  s =  s  +data
  tab2(s  ,
  "width=100%  bgcolor=lightnavy" ,
  "width=100 valign=top ")
end
def body
  topmenu + content + footer
end
def main
  html
end

p main

f = File.open('htm.html',"w")
f.print(main )
f.close

08 June 2007

ตัวอย่างโปรแกรม Ruby ลบแฟ้มและ directory



ตัวอย่างโปแกรม  Ruby สำหรับ ลบ  TempFile 
ใน Internet Explorer  
โดยลบทั้ง file และ folder  
และป้องกันปัญหาที่เกิดขึ้นเมื่อ มีการ ลบแฟ้มที่ลบไม่ได้ ซึ่งจะแจ้ง error แล้ว ทำงานต่อไป  

ในที่นี้ สมมุติ user login windowsxp คือ css1  

listtempfile(false)  สำหรับ แสดงข้อมูล เท่านั้น 
listtempfile(true)    สำหรับลบ ด้วย 

การ Run Program  
C:\>ruby app1.rb 


#---------------------------------
#file :  app1.rb

dir1 = 'C:\Documents and Settings\css1\Local Settings\Temp'
dir1 ='C:\Documents and Settings\css1\Local Settings\Temporary Internet Files'
dir1 ='C:\Documents and Settings\css1\Local Settings\Temporary Internet Files\Content.IE5'


def listallfile(dir1)
puts dir1
i = 0
delcount = 0
Dir.chdir(dir1 )
Dir.foreach(dir1) { x
 i += 1
 print("Got #{i} " + x  + ' ' + File.size(x).to_s)
 if FileTest.directory?(x) and x != '.' and x != '..'
    print ('  [dir]')
    Dir.foreach(x) {y
   puts "  Gots #{y}" + '  ' +  FileTest.directory?(y).to_s
    }
 end
 puts ""
}
end

def listtempfile( isdel )
dir1 ='C:\Documents and Settings\css1\Local Settings\Temporary Internet Files\Content.IE5'
puts dir1
i = 0
delcount = 0
Dir.chdir(dir1 )
Dir.foreach(dir1) { x
 i += 1
 print("Got #{i} " + x  + ' ' + File.size(x).to_s)
 if FileTest.directory?(x) and x != '.' and x != '..'
    print ('  [dir]')
    Dir.foreach(x) {y
   puts "  Gots #{y}" + '  ' +  FileTest.directory?(y).to_s
   if isdel and  ( not FileTest.directory?(y)) 
    begin
      fname = x + '\\' + y
      print 'try delete ' + fname
      File.delete(fname ) 
             print " deleted"
    rescue Exception => ex
      print " can not delete " + ex
    end    
    puts "" #new line
   end
   
    }
    # del dir
    if isdel
     begin
    puts "try to delete " + x
    Dir.delete(x )
     rescue
    puts "can not delete dir " +  x
     end
    end
 end
 puts ""
}
end


def delallfile(dir1)
i = 0
delcount = 0
Dir.chdir(dir1 )
Dir.foreach(dir1) { x
 i += 1
 puts("Got #{i} " + x )
 begin
  if ( File.stat(x).file? )
   delcnt = File.delete(x )
   delcount += delcnt
  end
 rescue Exception => detail
  puts "can not delete " + x + " " + detail  
 end
}
puts "deleted #{delcount} file(s) "
end

#-----------------

#listtempfile(false)
listtempfile(true)

#---- end of file

อย่ารันเล่นนะครับ ไม่รับประกัน ความผิดพลาด นะครับ

05 June 2007

Ruby On Rails กับ MySQL , Thai Character display

การแสดงผล ภาษาไทย
รับข้อมูล ภาษาไทย จาก form
ใส่ใน mysql อาจทำให้ ตัวหนังสือที่แสดงออกภายหลัง กลายเป็น ???????? แทน

แก้ไขได้ ดังนี้ คือ

เพิ่ม โค้ด

---------------------------------------------
before_filter :configure_charsets

def configure_charsets
@headers["Content-Type"] = "text/html; charset=TIS620"

suppress(ActiveRecord::StatementInvalid) do
ActiveRecord::Base.connection.execute 'SET NAMES TIS620'

end
end
----------------------------------------------

ไว้ที่ส่วนต้น ของ ทุกๆ Controlers แล้วก็ ลองป้อนและแสดงข้อมูลใหม่ทาง browser
ไม่จำเป็น ต้อง Restart webserver ครับ ลองๆ
ดูแล้ว ก็ใช้งานได้

ผมใช้ AppServ mysql เป็น ฐานข้อมูล ก็ใช้งานได้ เปลี่ยนจาก ??? มาเป็น ภาษาไทยได้ทันที

ตัวอย่าง เช่น
class EbitController < ApplicationController
before_filter :configure_charsets

def configure_charsets
@headers["Content-Type"] = "text/html; charset=TIS620"

suppress(ActiveRecord::StatementInvalid) do
ActiveRecord::Base.connection.execute 'SET NAMES TIS620'
end

end #def

...... โค้ด ส่วนอื่นๆ เช่น def

end #class
----------------------------------

จริงๆแล้วก็ไม่เข้าใจความหมายหรอก
อ่านมาจาก คนที่ชำนาญกว่า ที่เวปนี้ครับ
http://weblog.punneng.com/index.php?m=200607&paged=2

Ruby update ข้อมูล กับ database ด้วย console

หลังจาก ลองมั่วๆ Ruby OnRails มาสักสามสี่วันแล้ว มึนๆเลย

ก็เลยลองทวน basic กันหน่อย
โดยใช้

Ruby script/console เพื่อช่วยเรียน rubyเอง

สร้าง model ชื่อว่า user (table users )
ด้วย ruby script/generate model user user <-- ไม่ค่อยแน่ใจ
กับ controller
ด้วย ruby script/generator scaffold mydb user
แล้วเปิด ruby script/server เป็น web server
แล้ว เข้า page ด้วย http://localhost:3000/user

พอดีต้อง ปรับปรุง model แต่ไม่ค่อยเข้าใจ ActiveRecord เลยหาทาง
ทำความเข้าใจ ก็เลย ลองใช้วิธี console ช่วยให้เข้าใจ มากนิดนึง

ก็ เปิด ruby script/console
ทีนี้ ลองสร้าง
u = User.new ( ) ทำเท่าไร ก็ error เลยหาข้อมูลสักพัก หลังจากไปนั่งอ่านเวปสนุกๆ
พอ กลับมา ก็เปิด fxri ปรากฏว่าโหลดนานพอดู เพราะเครื่องช้าไปนิด
แล้วก็ ใส่ keyword ลองเดามั่วๆ หาคำว่า connection

พบ ActiveRecord::Base.establish_connection ก็เป็นการเดาล้วนๆ
เดาจาก ADODB ของ VB6 เพราะว่า ก่อน ใช้ RecordSet ต้องเปิด connectionก่อน
เพราะ เดิม แจ้ง error ว่า login เข้าเบส ไม่ได้คล้ายๆ ไม่มี การใส่ password

ได้คำอธิบายว่า ทำแนวๆนี้
ActiveRecord::Base.establish_connection( :adapter => "mysql", :host => "localhost", :username => "myuser", :password => "mypass", :database => "somedatabase" )

ก็เลยแก้ไขนิดหน่อย แล้วก็ไป Paste ใน console
ผลคือ มันคล้ายๆทำงานแทน database.yml ใน directroy config
ซึ่งก็คือ มีการเปิด connection ใหม่ให้
คราวนี้
ก็ลอง

u = User.new( )
ได้ผล ใช้งานได้ ได้ instance u สำหรับจัดการ Table Users มาแล้ว

ทีนี้ลองใช้ ดึงข้อมูลล่ะ
rows = User.find ( :all ) ได้ผลครับ ออกมา 2 แถว
อ้างได้ด้วย
rows[0].name = "new name"
rows[0].save
ผล คือ database ใน phpMyAdmin เปลี่ยนตามทันทีเลย

หรือจะลองด้วย เงื่อนไข where กับ first
cond = [ "name=? and password = ? " , "myname" ,"mypass" ]
row = User.find (:first , :conditions => cond )
ก็ได้ผลเหมือนกัน แต่ได้ แถวเดียว
แล้วแก้ไขโดย
row.name= "newname1"
row.save

หากจะค้นหาด้วยเงื่อนไขอื่นๆ อาจใช้ like เช่น
row = User.find(:first, :conditions=> "name like '%user%'" ) ก็ได้