2012年12月7日 星期五
以 embed 語法貼上YouTube影片
以 embed 語法貼上YouTube影片
打開YouTube影片在網列上複製 V= 後面文字，就是
範例1: 般若心経(清新版）Prajna Paramita Heart Sutra (Relaxing Version)
網址在 http://www.youtube.com/watch?v=OGM4lYJ6E1E
複製V= 後面文字 OGM4lYJ6E1E
要自動播放可在後面加上 &autoplay=1
要連續重播可在後面加上 &loop=1
貼上那影片的ID，螢幕寬高度在width及height自行修改，
<embed allowscriptaccess="never" src="http://www.youtube.com/v/OGM4lYJ6E1E?version=3&hl=zh_TW" type="application/x-shockwave-flash" width="420" height="315" allowfullscreen="true"></embed>
可將 ?version=3&hl=zh_TW 刪掉
<embed height=315 type=application/x-shockwave-flash width=420 src=http://www.youtube.com/v/OGM4lYJ6E1E allowfullscreen="true" allowscriptaccess="never"></embed>
範例2: 般若波羅蜜多心經（輕快版）
網址在 http://www.youtube.com/watch?v=_674Eb5QckE
複製V= 後面文字 _674Eb5QckE
貼上那影片的ID，螢幕寬高度在width及height自行修改，
<embed allowscriptaccess="never" src="http://www.youtube.com/v/_674Eb5QckE" type="application/x-shockwave-flash" width="420" height="315" allowfullscreen="true"></embed>
2012年11月26日 星期一
VFP 筆記 Visual FoxPro
資料來源: 朱孝國的筆記本
簡介
- 早期開發資料庫系統的開發工具：dBase=>Clipper。
- 微軟公司買下Foxbase之後，在Windows上改名為 Foxprow=>Visual Foxpro。
- 上述開發工具都可存取副檔名為DBF的資料庫格式，我們通稱為xBase。
- 開發軟體核心就能處理資料庫的不多，現存的僅存VFP,Delphi等。
- 大多數的開發軟體核心都不具有資料庫處理能力(VB,Java,C++.....)，而是透過ODBC或JDBC這種開放架構來存取。
- VFP的Rushmore技術使得搜尋效率在filebase資料庫中穩站第一名。
- 因為xBase這種存取關連式資料庫的開發工具在早期十分流行，因此許多學校到目前還使用VFP
- VFP加入了現代物件導向的特點後，加上微軟持續發展，目前最新的版本為9.0
VFP基本語法 vs. VFP的SQL語法
| 操作 | VFP基本語法 | VFP的SQL語法 |
|---|---|---|
| 瀏覽資料庫 | use emp browse | select * from emp |
| 設定條件瀏覽資料庫 | use emp browse for salary>50000 | select * from emp where salary>50000 |
| 建立資料庫 | create emp | CREATE TABLE emp (id c(6)) |
| 修改紀錄 | use emp replace salary with 60000 for name="Peter" | update emp set salary=60000 where name="Peter" |
| 新增紀錄 | use emp append blank replace name with "Tom" | INSERT INTO emp (name) values ("Tom") |
| 刪除紀錄 | use emp delete for name="Tom" | delete from emp where name="Tom" |
OLE/COM/ActiveX的使用
- 拜物件導向技術發展之功，微軟創造了COM的環境，讓我們可以使用不同的程式來使用相同COM元件(*.dll,*.ocx)，節省了許多的時間，但其實VFP對於這些COM control的相容性並沒有VB,VC等那麼好，並不是所有的control都能拿到VFP中用喔。
- 透過選單中tools/object browser開啟其Com Libraries便可掃瞄登錄檔中所有已註冊的com元件，並檢視其屬性,方法與事件等，取得如何使用的資訊。
COM元件的註冊
就微軟的DCOM技術而言，可供重複使用的control必須先在 Windows 中註冊才能使用，註冊control一般來說有5種方法，它們有各自的優點，運用範圍也不同。
使用安裝程式註冊
- 利用VFP本身的InstallShield製作安裝程式，安裝時可將系統所需要的control註冊，反安裝時亦可將control解除註冊。
- 此方法最適合給使用者使用。
使用regsvr32.exe註冊
利用微軟系統提供的regsvr32.exe可註冊指定的元件，若成功註冊，會跳出一視窗「DllRegisterServer in xxx.ocx succeeded」，若解除成功則會跳出「UnDllRegisterServer ...........」代表成功的執行了元件內部的註冊函數DllRegisterServer或解註冊函數UnDllRegisterServer。
- 於命令提示字元手動執行
- 註冊control：regsvr32 \windows\system\netshare.ocx &&需注意control的路徑
- 解除control：regsvr32 /u \windows\system\netshare.ocx
- 透過自訂函數執行
- 撰寫自訂函數MyRegsvr
- Function MyRegsvr ( lpcRegFilename, lplIsreg )
If File(lpcRegFilename)
lpcRegFilename = iif(llisreg, lpcRegFilename, [ /u ] + lpcRegFilename)
Run /n regsvr32 &&lpcRegFilename
Endif
Return
Endfunc - 註冊control：MyRegsvr( "netshare.ocx", .T.) &&需注意control的路徑
- 解除control：MyRegsvr( "netshare.ocx", .F.)
使用VFP註冊
- 進入VFP後，透過選單中tools/options/controls/ActiveX controls，可看見所有已註冊的 control，可透過右側的Add...來增加想要註冊的control
- 此方法只能用在系統開發者，因為使用者並沒有VFP的主程式。
使用元件本身的註冊函數
- 註冊controldeclare integer DllRegisterServer IN myserver.dll
?DllRegisterServer() - 解除controldeclare integer DllUnregisterServer IN myserver.dll
?DllUnregisterServer() - 若撰寫成函數，範例如下Function MyDllRegister ( lpLibFileName, isReg)
isReg = iif(type("isReg")="U", .T., isReg)
lpProcName = iif(isReg, "DllRegisterServer", "DllUnregisterServer" )
Declare INTEGER (lpProcName) in (lpLibFileName)
return &&lpProcName.() &&傳回0表示成功
Endfunc
MyDllRegister( "netshare.ocx", .T.) &&若為解除註冊則為 MyDllRegister( "netshare.ocx", .F.)
Clear Dlls
VFP連接Sql Server的範例
*********************
* SQL Server 連結設定
*********************
lcUserName="sa"
lcServerName="127.0.0.1"
lcUserPass="123456"
lcDBName="master"
ConnectionHandle=SQLSTRINGCONNECT([DRIVER=SQL Server;SERVER=]+lcServerName+[;DATABASE=]+lcDBName+[;UID=]+lcUserName+[;PWD=]+lcUserPass )
if ConnectionHandle <= 0
messagebox('無法連接至 SQL SERVER ('+ lcServerName +')',16,"SQL Connect Error" )
quit
endif
* SQL Server 連結設定
*********************
lcUserName="sa"
lcServerName="127.0.0.1"
lcUserPass="123456"
lcDBName="master"
ConnectionHandle=SQLSTRINGCONNECT([DRIVER=SQL Server;SERVER=]+lcServerName+[;DATABASE=]+lcDBName+[;UID=]+lcUserName+[;PWD=]+lcUserPass )
if ConnectionHandle <= 0
messagebox('無法連接至 SQL SERVER ('+ lcServerName +')',16,"SQL Connect Error" )
quit
endif
*********************
* 執行 SQL
*********************
SQLCOMMAND="select a.uname, a.upass, a.udep ,s.address ;
from admin a, schools s where a.uname=s.scode and s.scode = '034729'"
mret=sqlexec(ConnectionHandle,SQLCOMMAND)
if mret<=0
messagebox('sql敘述執行失敗' )
quit
endif
*********************
* 取回後處理
*********************
copy to tmp\tmp.dbf
browse
*********************
* 離線與關閉
*********************
mret=SQLDISCONN(ConnectionHandle)
if mret<=0
messagebox('離線失敗' )
quit
endif
* 執行 SQL
*********************
SQLCOMMAND="select a.uname, a.upass, a.udep ,s.address ;
from admin a, schools s where a.uname=s.scode and s.scode = '034729'"
mret=sqlexec(ConnectionHandle,SQLCOMMAND)
if mret<=0
messagebox('sql敘述執行失敗' )
quit
endif
*********************
* 取回後處理
*********************
copy to tmp\tmp.dbf
browse
*********************
* 離線與關閉
*********************
mret=SQLDISCONN(ConnectionHandle)
if mret<=0
messagebox('離線失敗' )
quit
endif
VFP讀寫與開啟excel的範例
開啟Excel 檔的範例
Exl_file = GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要開啟的Excel檔')
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要開啟的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要開啟的Excel檔是 "+Exl_file
ENDCASE
oExl=CREATEOBJECT("Excel.application")
if VARTYPE(oExl) <> "O"
= MESSAGEBOX("EXCEL沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif
oExl.SheetsInNewWorkbook?=1
oExl.Visible=.T.
oExl.workbooks.Open('&Exl_file')
oExl.activesheet.rows(1).insert
oExl.activecell.formular1c1 = "表頭"
with oExl.SELECTION.font
.name = "細明體"
.fontstyle = "normal"
.size = 20
.strikethrough = .f.
.superscript = .f.
.subscript = .f.
.outlinefont = .f.
.shadow = .f.
endwith
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要開啟的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要開啟的Excel檔是 "+Exl_file
ENDCASE
oExl=CREATEOBJECT("Excel.application")
if VARTYPE(oExl) <> "O"
= MESSAGEBOX("EXCEL沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif
oExl.SheetsInNewWorkbook?=1
oExl.Visible=.T.
oExl.workbooks.Open('&Exl_file')
oExl.activesheet.rows(1).insert
oExl.activecell.formular1c1 = "表頭"
with oExl.SELECTION.font
.name = "細明體"
.fontstyle = "normal"
.size = 20
.strikethrough = .f.
.superscript = .f.
.subscript = .f.
.outlinefont = .f.
.shadow = .f.
endwith
讀入Excel 檔的範例
Exl_file = GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要讀入的Excel檔')
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要讀入的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要讀入的Excel檔是 "+Exl_file
ENDCASE
import from &Exl_file Type xl8
browse
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要讀入的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要讀入的Excel檔是 "+Exl_file
ENDCASE
import from &Exl_file Type xl8
browse
寫出為Excel檔的範例(含欄位名稱)
use Student
copy to stu_info type XL5
copy to stu_info type XL5
寫出為CSV 檔的範例(含欄位名稱)
use Student
copy to stu_info type CSV
copy to stu_info type CSV
寫出為文字檔的範例1(不含欄位名稱)
use Student
copy to stu_info type DELIMITED
copy to stu_info type DELIMITED
寫出為文字檔的範例2(不含欄位名稱)
use Student
copy to stu_info type SDF
copy to stu_info type SDF
使用技巧
抓取指定目錄下的所有檔案
counter=adir(testarray,'*.txt')
dimension myarray(counter,5)
counter=adir(myarray,'*.txt')
for i =1 to counter
filename=myarray(i,1)
? filename
next
dimension myarray(counter,5)
counter=adir(myarray,'*.txt')
for i =1 to counter
filename=myarray(i,1)
? filename
next
錯誤攔截
ON ERROR DO errhand WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM( ),LINENO( ) && Trap OLE & other errors.
******************************************
* 說 明：錯誤處理程式
******************************************
PROCEDURE errhand
PARAMETER merror, mess, mess1, mprog, mlineno
CLEAR
IF merror=1426
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生了一個OLE的錯誤，例如：呼叫的OLE程式重複開啟了檔案 "+CHR(13)+;
"Usually this is caused by quitting Word or canceling out of a dialog box in Word. "+CHR(13)+;
"錯誤訊息為："+mess)
ELSE
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生錯誤在程式第"+mlineno+"行"+CHR(13)+;
"錯誤訊息為："+mess+" 錯誤代碼為"+merror)
ENDIF
ON ERROR
quit
RETURN
* 說 明：錯誤處理程式
******************************************
PROCEDURE errhand
PARAMETER merror, mess, mess1, mprog, mlineno
CLEAR
IF merror=1426
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生了一個OLE的錯誤，例如：呼叫的OLE程式重複開啟了檔案 "+CHR(13)+;
"Usually this is caused by quitting Word or canceling out of a dialog box in Word. "+CHR(13)+;
"錯誤訊息為："+mess)
ELSE
mlineno=LTRIM(STR(LINENO()))
merror=LTRIM(STR(merror))
MESSAGEBOX("發生錯誤在程式第"+mlineno+"行"+CHR(13)+;
"錯誤訊息為："+mess+" 錯誤代碼為"+merror)
ENDIF
ON ERROR
quit
RETURN
設定預設目錄
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart) + 1
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart) + 1
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
跳出對話視窗選擇檔案
gcXLS=GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要處理的 Excel 檔')
DO CASE
CASE EMPTY(gcXLS)
Messagebox("並未選擇要處理的 Excel 檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要處理的 Excel 檔是 "+gcXLS
ENDCASE
DO CASE
CASE EMPTY(gcXLS)
Messagebox("並未選擇要處理的 Excel 檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要處理的 Excel 檔是 "+gcXLS
ENDCASE
偵測目錄存在與否，若不存在則建立之
IF !DIRECTORY("tmp")
MKDIR tmp
ENDIF
MKDIR tmp
ENDIF
網路資源
2012年10月7日 星期日
足底筋膜炎--下床踩地，足底刺痛
在足底筋膜炎的治療處理可運用以下幾項原則：
(一)回復肌肉之柔軟度及強度：
因足底筋膜炎的發生會促使足跟肌腱(即小腿後側肌肉)縮短，這種狀況會增強對足底筋膜的拉扯力，更惡化足底筋膜的發炎症狀。在運動治療方面，建議患者平日在家可多練習回復足底筋膜及足跟肌腱肌肉柔軟度及強化的運動，即可改善此類症狀。
運動一：回復足底筋膜柔軟度
呈坐姿，膝蓋彎曲，腳底板平貼於地，用手將腳趾朝上扳動，停留十秒後休息。接著將腳底板朝上，再用手將腳趾朝上扳動，一樣停留十秒。此兩項動作交叉重覆十次即可。
運動二：回復足跟肌腱柔軟度
雙腳以弓箭步站立，雙腳腳跟著地，身體重心往前移停留十秒，即可感受到在後方的小腿肌肉被拉扯的力量。雙腳輪流前後練習數次即可(圖一)。或可面牆而立，雙手打直扶牆面，之後，雙手彎曲身體往前傾，腳跟不可離地，即可感受到兩腳小腿後側肌肉同時被拉扯的力量(圖二)。
運動三：足底小肌肉強化運動
呈坐姿，膝蓋彎曲，腳底踩毛巾，腳底板平貼於地，練習以腳趾頭抓毛巾即可。
一般而言，在做任何肌肉伸展運動前，患者應先做暖身運動；對於要伸展的部位要有良好的支撐，以免發生拉傷或危險。
(二)下降疼痛及發炎症狀：
可運用物理治療方式，如超音波治療及冰敷、電療來減輕疼痛及發炎症狀。患者一般可在運動後，在足跟及足底部位冰敷約十分鐘。此外，也可以局部注射類固醇或口服非類固醇藥物來減緩疼痛及發炎症狀。
(三)利用足弓支撐鞋墊加上足跟墊來減少組織壓力。
良好的足弓支撐可在下肢承重時有效減少對足底筋膜之拉力，藉此減緩重覆牽張對足底筋膜產生之傷害。
足底筋膜炎若要以手術方式處理，主要是在保守療法無效時才會被建議。而時間並無明確限制，但症狀在四至六個月期限內無改善就會考慮手術處理，手術處理是以開放式或內視鏡足底筋膜部份切開術為主。研究顯示：手術治療可以減少74％至87％病人主訴症狀。而手術後，病患仍需進行復健治療才可完全解決足底疼痛之症狀。
 |  | |
圖一
|
圖二
|
資料來源:
復健科 蔡宗育物理治療師 黃茂雄主任(90年6月)
常有求診，主訴早上一下床踩到地板時，腳跟會有強烈刺痛，在步行三、四十分鐘後，刺痛感才漸漸舒緩。但行動一段時間後，痛覺又再度產生，這類一陣陣腳底刺痛的困擾，不時地干擾患者的生活行動。在求助於復健科，經過物理治療或指引患者穿著特殊鞋墊後，疼痛即逐漸消除。此類症狀即為困擾大部分足部疼痛患者的足底筋膜炎。
足底筋膜為腳底足弓之最主要支撐，其主要功能為吸收在正常步態週期中著地期所產生之反作用力。因此，從生物力學之觀點，任何可能導致足底筋膜不正常拉力之因素，皆可能導致筋膜對附著端之骨骼及其相連之組織產生牽拉及傷害。例如：扁平足、空凹足、足跟肌腱過短等等，皆可能改變正常步態的生物力學而導致增加足底筋膜之張力，也就產生腳底刺痛。
足底筋膜炎最常見之症狀為足跟底部疼痛與不適。一般而言，疼痛會在未承重一段時間之後，因再度承重而出現。病患通常會在早晨起床之後，足踏地時產生劇痛，但其不適會在之後的三十至四十五分鐘後漸漸緩解。原因在於，足底筋膜在經過長時間休息後，會維持在較短的長度，當腳下床踩地時，就會對足底筋膜造成一個快速而強的拉力，可能造成對足底筋膜的傷害，而經過一段時間的行走後，足底筋膜會逐漸變得較鬆，因此症狀會漸漸緩解。一般而言，唯有在承重活動時所產生的疼痛，也就是足踏地時所產生的疼痛才是所謂的足底筋膜炎，其疼痛強度在病人症狀發生時不盡相同。
2012年9月28日 星期五
購物-我的廠商
| 廠商名稱 | 主要商品 | 電話 | 手機 | 連絡人 | 時間/分店 |
| W.D.S 3C量販 | 記憶卡 | ||||
| 台北市忠孝西路一段72號8f之3 | |||||
| 歐映通訊 | 記憶卡 | 02-2381-8682 02-2331-3330 |
0976-048885 0937-982642 |
||
| 北市萬華區西寧南路192號1樓 | 台北後站總店 | ||||
| safehome 商品旗艦店 |
電腦周邊、 家電 |
02-86981017 | |||
| 汐止區新台五路一段75號(台灣企銀) | |||||
| 集英堂写真機 SHUEIDO | 相機 | 02-25450800 | 0911-244333 | ||
| 台北市南京東路3段223巷53號 | 1~5 13~22:00 | ||||
| GoGoJapan | 相機 | 02-2552-0883 | 0987-122-065 |
||
| 台北市大同區民權西路122號(捷運1出口) | 1~6 12~22:00 | ||||
住家地理
1.『廚房』：
廚房門有樑從門上穿入，此為｢穿心煞｣會有｢有苦說不出、吃悶虧、犯小人｣之效應，因為是廚房所以對家中女主人影響較大，建議您可以在門內外樑上各掛一顆水晶球或是麒麟踩八卦來化解。
有樑壓爐灶之問題，這對家運和女主人健康相當不利，建議您需在瓦斯爐上方之樑上懸掛一對葫蘆和一對麒麟踩八卦來作化解。
瓦斯爐旁緊臨窗戶，需注意窗戶不可開得太低，窗戶之高度要高過爐面20公分以上才不會有影響，如果低於此高度將會有｢漏財、內分泌失調、血液循環發生阻礙｣之效應，建議您可以封掉部分窗戶來化解。
廚房門入門正對冰箱門，這都會影響健康建議您可以在廚房門加掛門簾和一串五帝錢或六帝錢來作化解。
還有需注意瓦斯爐和水槽間之距離不可低於45公分，不然會有｢水火相剋｣之效應發生，請特別留意。
〔1〕前陽台之落地窗直接正對後陽台之落地窗此為相當典型之｢穿堂煞｣沒錯，會有｢嚴重漏財、意外血光、身體不適｣之效應，建議您需設置不透光之屏風或是櫃子來家以遮擋才能徹底化解此煞氣。
〔2〕主臥室窗戶正對房門在對到書房門這還不至於夠成穿堂煞，要書房門在正對到書房內之窗戶這樣算是穿堂煞。
書房上方樑不算穿心煞，所謂穿心煞需要樑從房門上垂直穿入，像目前圖面廚房門就有穿心煞之問題。
〔3〕財位和文昌為我會在下面一一分析。
2.『財位』：
貴宅為座西南朝東北之陽宅，貴宅之財位分別落於｢西南方和正東方｣，貴宅西南方落於｢神桌、衣櫃間、和儲物櫃處｣，於財旺方安置神桌這相當好，對家運和財運都會有正面之幫助，只不過比較可惜就是面牆擺設無法看出去此為遺珠之憾；而衣櫃間和儲物櫃建議您可以在此擺放｢陶瓷製之聚寶盆｣來聚氣聚財可以加速貴宅財富之累積。
正東方落於｢主臥室內和廁所內｣，財位落於廁所對貴宅之財運會有｢嚴重之阻礙｣建議您廁所需保持乾淨乾燥不可積水潮濕，將其對財運之影響降到最低，而主臥室內因為房間內不宜擺放盆栽，建議您可以改放｢陶瓷製之聚寶盆｣來聚氣聚財。
『文昌位』：
貴宅文昌位落於｢正西方｣，貴宅正西方落於｢餐廳和廚房內｣，文昌位落於餐廳和廚房不需佈置保持乾淨整齊即可，文昌位落於廚房對家中女主人｢相夫教子｣會有正面之幫助，而餐廳處可以安置｢文昌筆｣一組於此，對家中小孩之讀書、考試，對大人之事業都會有相當正面之注意。
『驛馬位』：
60年次屬豬者其驛馬位落於｢東南南方｣，貴宅東南南方落於｢書房內｣建議您可以在此擺放｢陶馬｣一座，對您個人之事業推展、職位升遷、工作運勢都會有相當大之幫助。
59年次屬狗者其驛馬位落於｢西南西方｣，貴宅西南西方落於｢儲物櫃處｣，如果家中女主人有自己之事業和工作，一樣可以在此安置｢銅雕馬｣一座，對其事業和工作都會有所助益，但如果為專職之家庭主婦，那就不需作任何之佈置。
『文曲方』：
貴宅文曲方落於東南方，貴宅東南方落於書房內，在此擺放書桌辦公並安置｢文房四寶或是文昌筆一組｣對家中大人之事業和工作運都會有所幫助。
『缺角』：
西北方輕微缺角，您需注意家人有關｢腦疾、長年頭疼、中風、腦溢血、肺病、車禍腦震盪｣之情形發生，建議您可以在此擺放｢金屬置之圓缸或是圓球底下鋪上黃色之地墊｣，讓其土生金補足此處所缺之金氣來作化解。
3.『大門』：
大門入門正對鞋櫃，記住鞋櫃要保持乾淨整齊不可有異味不然會影響貴宅之納氣好壞間接影響佳運和財運。
大門上 方有樑，此為｢樑壓大門｣會有｢運勢無法開展、前途受阻、壓力大、財運不順｣之效應，建議您可以在量的兩端懸掛麒麟踩八卦或是在樑下大門兩側地上擺放晶柱來化解。
大門入門之斜對角落於儲物櫃處，此處剛好也是貴宅｢財位｣之所在，所以此處佈置相形就重要很多，建議您在此擺放｢陶瓷製之聚寶盆｣來聚氣聚財可以加速貴宅財富之累積。
4.『客廳』：
客廳主沙發之擺設正確，主沙發背靠實牆主有貴人相助有靠山可靠，且可以順利監看到大門人員出入之情形，這可以幫您｢鎮小人、防小人背後中傷陷害｣相當得宜之擺設不需作任何調整。
客廳前陽台窗戶正對後陽台窗戶此為相當嚴重之穿堂煞，導致｢嚴重漏財、意外血光、身體不適｣之效應，建議您需在客廳和餐廳之間設置一道屏風或是櫃子來家以遮擋才能徹底化解此煞氣，我會以圖面供您參考。
樑壓餐桌這會造成｢人丁受損、丁口不寧｣之效應，建議您需調整餐桌避開樑下之位置才能徹底化解此煞氣。
公用廁所門位於走道盡頭，走道沖射之氣直沖廁所內導致穢氣亂竄影響家人健康，建議您可以在廁所門加掛門簾並於門檻安置一組五帝錢來壓住門氣擋住走道之沖射來作化解。
另外電視位於神桌之虎邊，這會有引虎發凶之虞，建議您可以在電視櫃上安置一對麒麟來制化白虎。
5.『廚房』：
廚房門有樑從門上穿入，此為｢穿心煞｣會有｢有苦說不出、吃悶虧、犯小人｣之效應，因為是廚房所以對家中女主人影響較大，建議您可以在門內外樑上各掛一顆水晶球或是麒麟踩八卦來化解。
有樑壓爐灶之問題，這對家運和女主人健康相當不利，建議您需在瓦斯爐上方之樑上懸掛一對葫蘆和一對麒麟踩八卦來作化解。
瓦斯爐旁緊臨窗戶，需注意窗戶不可開得太低，窗戶之高度要高過爐面20公分以上才不會有影響，如果低於此高度將會有｢漏財、內分泌失調、血液循環發生阻礙｣之效應，建議您可以封掉部分窗戶來化解。
廚房門入門正對冰箱門，這都會影響健康建議您可以在廚房門加掛門簾和一串五帝錢或六帝錢來作化解。
還有需注意瓦斯爐和水槽間之距離不可低於45公分，不然會有｢水火相剋｣之效應發生，請特別留意。
6.『主臥室』：
房門正對書房門和廁所門成｢品字門｣會有｢嚴重口角｣之效應，建議您需在這三扇門都加掛門簾遮擋化解；
房門入門正對窗戶會有｢漏財不聚氣｣之效應，建議您需加掛窗簾遮擋化解，房間床位之擺設床頭靠一櫃這相當不妥，這會讓人有壓迫感，且衣櫃有塵蹣和灰塵、物品掉落之問題，這會影響呼吸道健康和睡眠品質，建議您將衣櫃移到床尾或是廁所這邊之牆面，如果樑壓床頭您用床頭櫃避開即可化解。
廁所門沖床頭您目前有設置牆面遮擋這樣可以化解此煞氣。
7.『書房』：
書房內不建議擺放床為這會影響讀書情緒建議將其移除，書桌壓樑會有｢前途受阻、運勢無法開展、壓力大、思緒不清、作出錯誤判斷｣之效應，建議您將書桌作180度調整，樑煞用書櫃避開讓坐位靠書櫃來作化解，我會以圖面供您參考。
以上建議請參考！
如何化解橫樑煞
所有的煞分兩種:
1. 形煞:屬於看得見的，心理不舒服，心理作用為大。或內含物貭成份和人体磁場產生干擾作用。
2. 氣煞:無形的來氣，而其性貭和方向不利于生活在其中之人的磁場。
樑柱因須承受樓板的重量，其中包含了大量的鋼筋，而人体血液中帶有鐵，經由心臟壓縮透過血管乃至佈滿全身的微血管不斷運行，流動之間便形成磁場，而二者之間定會產生干擾作用。尤其長時間的停留的地方更須避免。
以下為對横樑壓床做出分析:
横樑壓頭容易造成頭痛、神經衰弱的毛病。注意力不集中，易和長上無緣。
橫樑壓胸容易造成呼吸及心臟的疾病，耐力不足且合夥易出問題。
橫樑壓腹易有胃腸、泌尿方面的疾病，易有感情的困擾。
橫樑壓腳易造成手腳疼痛及骨折的毛病，心不在焉，不想回家。
橫樑煞屬於形煞能避開儘量避開，無柰之下化解之道有以下幾種:
1. 在横樑兩端的牆壁擺放較高的傢俱如衣櫥或由天花板至地板的櫃子，材質以木材（原木）最佳，其外在用意為承接其氣將其煞氣導入其它方向，視覺上可減輕其壓迫感。而內在用意利用其五行屬性，鋼筋為金、櫃子為木，金剋木拙其銳氣，減低煞氣。
2. 既然是形煞以釘上天花板，遮蓋其形在視覺感受上減少了心理作用，在另一層面以一大片的木板封住，有五行生剋制化之用，也把原本一線的煞氣引導為一片，力量多少減弱些。
3. 水晶目前被科學界肯定其能量磁場較強的天然礦石，而其放射的波為螺旋狀和一般物質大不相同可用來調節人體氣場，調和煞氣，因在臥室之中建議用圆形迼型能量較溫和，位置擺放在橫樑下既可。
4. 在橫樑兩端牆邊（任其一邊）擺放一盞立灯向上照射，其原理利用五行鹵素灯泡其光線會產生熱能，此光線屬火，金遇火，必見銷熔，火性向上，也把煞氣向上帶動也減少向下的影响力。
5. 利用五帝錢懸掛在横樑兩端的牆壁上，五帝錢指的是清帝順冶、康熙、乾隆、嘉慶、雍正五位皇帝時代所使用的古錢幣，一般皆用複製品，最重要其錢幣上皆有其名号，常被用來制煞擋災，在此更利用錢幣皆屬圓形，圓形屬水而金生水洩其煞氣。可用紅絲線以中國結的方式串成一線懸掛在橫樑下即可。
以上所指是橫樑，床和樑垂直又稱為擔樑，若床和樑平行，床正好在樑下如此狀況就叫騎樑這種傷害更大，迅速搬離為上策。
資料來源: http://www.van698.com/movie/vod-play-id-41652-sid-0-pid-37.html
小心觸犯風水大忌
或許是近年來國際間戰亂頻傳、人心思定，人們渴望沉寂的心引發了“家”的效應，再加上E世代的消費方式逐漸趨向於個人與品牌化，因此動輒千萬甚至上億的豪宅，無形中就成了企業家及政商名流們的最愛，顯見金字塔尖端的消費群將是未來房市的寵兒，而豪宅除了代表事業成功的圖騰外，其座落處的風水更是他們一生運勢的指標呢！
從風水的觀點看，豪宅不光是與大坪數劃上等
(1)左右護衛不佳，格局座空朝滿。
(2)屋前的道路及流水反背無情。
(3)門前面對三棟高聳的建物或煙囪。
(4)庭院種植榕樹、芭蕉或竹子等植物。
(5)大門雕簷畫棟，形似廟宇。
(6)臥室窗外即見假山水池。
(7)室內天花板裝潢成八卦圖樣。
(8)擺放猛獸雕像、出土古物或兵器戲偶等飾物。
某人經商一夕致富，在台北的高級社區買了一棟豪宅，裝潢得美輪美奐、富麗堂皇，唯進入屋內先遇廚房、浴室，再逢臥室，最後才到客廳，與一般住宅的動線恰恰相反，在風水上這種房子會造成運勢節節敗退，力勸其修改卻不以為意，不出一年其事業即每況愈下，終致傾家蕩產，所謂前車之鑑，身為豪宅的主人不可不察，否則步其後塵就後悔莫及了！
主臥房風水9大禁忌
客廳風水乃決定陽宅風水吉凶之首要關鍵外，主臥房
客廳風水乃決定陽宅風水吉凶之首要關鍵外，主臥房風水可說是陽宅風水中最重要的一環，客廳風水如主男主人之運勢，主臥房風水則主女主人運勢，重要性可說不言而喻。主臥房風水的好壞，主要會影響夫妻情愛的濃淡、桃花情緣的深淺、子嗣緣分及男女主人身體健康的好壞，甚至男女主人對外關係也由它來決定！
主臥房宜留意的風水事宜眾多，在此僅提供十條犖犖大者加以闡釋，以便幫肋大家了解主臥房風水該悉心留意的重點，如此方能開創宅運，締造美好人生。
一、主臥房不宜太亮：俗話說：「光廳暗房。」意指不同於客廳風水之重明亮，臥房則重的是浪漫，所以不可太過光亮。如果太亮，在外易犯小人，夫妻纏綿的情調亦較難醞釀。家人健康容易受損，而家庭成員的和諧度也較不易保持，故乃主臥房風水之一大禁忌。
二、主臥房不宜太大或太小：主臥房如大過客廳，則家人在行事上易犯喧賓奪主的現象，是非口舌，部屬背叛、諸事不順。反之，如果主臥房太小，則先生易犯大男人主義，缺乏該有的尊重與體貼。而女主人方面，則易有器量狹小的傾向，個人成就也嚴重受限。
三、床頭不宜遭樑壓：床頭如遭樑壓，則不但男女主人之身體健康會遭受損害，尤其是頭部或神經系統易出毛病，睡眠狀況不佳，甚至也會影響到男女主人的工作運，以至於事業難以伸展；日常生活的壓力不易排除，憂鬱苦悶，有志難伸之感難免。
四、床頭不宜空蕩：床頭一走得有靠，亦即床頭後面必須是堅實的牆壁。床頭安於玻璃下，或床頭懸空而無靠，乃風水之大忌。犯者不但容易發生婚姻之嫌隙，夫妻緣分淡薄，欠缺溝通，未婚者犯此「孤相」，而會有「紅鸞不動」的傾向。
五、房門入口不宜阻塞：屋門入口如遭阻塞，夫妻問的感情容易惡化，彼此間容易發生誤解。或是，配偶根本不想回家，鎮日在外嬉戲而樂不思蜀；甚至，連財運都受到阻隔，時運不濟。
六、不宜開門見鏡：主臥房如果一進門便正對鏡子，則夫妻間關係容易惡化，要不是夫妻關係失去和諧，便是配偶留戀上外面的男人或女人，未婚男女，則紅鸞不動，姻緣遙遙無期。
七、床頭不宜擺放懸掛宗教文物或消極的字畫：床頭如果擺放或懸掛宗教文物如心經、大悲咒、或張貼蕭瑟的圖畫，以及消極文字如「獨愴然而泣下」、「怎一個愁字了得」等，則容易犯孤相。未婚者婚期阻隔，獨立蒼茫；已婚者，則興趣索然，溝通無法淋漓暢通；彼此相互疏離，興趣想法歧異，閨房怠忽無味。
八、床頭左右角不宜擺放或懸掛美女圖像：不當地擺放或懸掛美女圖像，一方面容易招惹陰煞，危害健康，損及家運；一方面則會引來桃花劫或桃花煞，爆發婚外情，或不倫之戀，帶來婚姻極大的殺傷力，甚至還有粉碎掉原來穩定甜美的婚姻。
九、不宜擺放魚缸：主臥房內擺上魚缸，往往會影響夫妻情感的穩定性；使人心煩意亂。
資料來源: http://maxfate.blogspot.com/
訂閱：
文章 (Atom)