RoR試開筆記(一)

Windows 下安裝 ROR
到…
http://rubyinstaller.rubyforge.org/
下載…
rubyinstaller ruby186-27_rc2.exe
安裝
套件管理程式 gem 要勾選隨同安裝

裝好後下指令安裝 mysql adaptor，才能用 mysql 作為資料庫…
gem install mysql [--no-ri --no-rdoc]

裝好後下指令…
gem install rails [--no-ri --no-rdoc]

開新專案(使用mysql，需先另外安裝好)…
rails HelloWorld -d myaql

啟動 server…
cd HelloWorld
ruby script\server


*要使用 mysql 也要將 libmysql.dll 拷貝到 ruby/bin 目錄下，才不會有錯誤訊息出現。
*mysql需支援 InnoDB，要修改 my.ini 重啟 MYSQL

FPPA教學簡報

FPPA基礎教學-使用組合語言…
第一章 FPPA簡介
第二章 FPPA程式架構
第三章 FPPA程式初探
第四章 FPPA程式設計
第五章 FPPA程式實習

FPPA實驗平台教學教材

由於ASSEMBLA即將開始收費，因此要把所有的SVN進行大搬家，連帶的一些教學文件也跟著搬家了，看來還是GOOGLE的窩最舒適(重點是免費)

FPPA實驗平台教學教材-使用C語言
FPPA實驗平台簡介
實驗(一) 8位元LED輸出單元 與 模組設計總論
實驗(二) 按鍵開關輸入單元 與 控制模組的設計
實驗(三) 飛梭編碼(帶開關)輸入單元
實驗(四) 6位數7字節顯示單元
實驗(五) RGB LED控制單元
實驗(六) LCM 模組控制

Windows 抓圖 API

相關函式…

HWND findChild = FindWindow( NULL, "視窗標題" );

HWND dc = ::GetWindowDC( findChild );

使用這個 DC HANDLE 來作圖形的拷貝動作

但是由於 windows 有外框、標題列等問題，所以實際抓圖的位要作細部的調整

使用 GetSystemMetrics WIN API，例如…

    int nCaptionY = ::GetSystemMetrics(SM_CYCAPTION);         //dialog的標題列

    int nBorderX = ::GetSystemMetrics(SM_CXEDGE)+1;         //BORDERX

    int nBorderY = ::GetSystemMetrics(SM_CYEDGE)+1;         //BORDERY

才可以準確得知，CLIENT 畫布的位置。

Samba Server 新增使用者

adduser id

smbpasswd -a id

若有 libssl.so.2 找不到 可找找底下替代 lib

ln -s /usr/lib/libssl.so.0.9.6 /usr/lib/libssl.so.2

ln -s /usr/lib/libcrypto.so.0.9.6 /usr/lib/libcrypto.so.2

POSTFIX 增加郵件群組的功能

nano /etc/postfix/main.cf

===================================

alias_maps = hash:/etc/aliases

alias_database = hash:/etc/aliases
===================================

nano aliases
===================================
maillist: aaa, bbb, ccc, ddd, eee
===================================

postalias /etc/aliases
postfix reload                    <== 如果 main.cf 有改到的話則需要重啟

使用VBS修改電腦IP、DNS、電腦名稱、工作群組

strComputer="."

strmask="255.255.255.128" 

dim ipv,gateway,lan,pcname

gateway="220.229.105.129"

ipv="220.229.105.123"

pcname="pc123"

Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress=Array(ipv)

strSubnetMask=Array(strmask)

strGateway = Array(gateway) '修改預設閘道

strDNS=Array("61.56.211.185","211.78.130.2","168.95.1.1") '// 三組 DNS

For Each objNetAdapter in colNetAdapters 

errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)'ip，子網路遮罩

errGateways = objNetAdapter.SetGateways(strGateway) '預設閘道

errDns=objNetAdapter.SetDNSServerSearchOrder(strDNS)'dns

Next

Set objWMIService = GetObject("winmgmts:" _

     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery _

   ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

     err = ObjComputer.Rename( pcname )'機器名稱

     ReturnValue = objComputer.JoinDomainOrWorkGroup("WORKGROUP")'工作群組

Next