廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 3321 個閱讀者
命理服務》 數位論命舘 | 免費排盤 | 星僑易學 | 五術書籍 | 線上論命 | 影音論命 | 八字命書 | 星座分析 | 孔明神數 | 周公解夢 | fackbook 粉絲專頁 |
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
espua72
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x1 鮮花 x32
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[論命類][範例] 快速扫描各宫的飞化
编辑了一个小程式能快速的扫描各宫的飞化,如:

- 命宫化忌入夫妻宫冲官禄宫
- 田宅宫化可入命宫冲迁移宫

等等。与大家分享。

程式如下:

回圈:dz=0 到 11
     回圈:hx=0 到 3
           如果:hx=0
                 设定:化象='化禄'
           如果:hx=1
                 设定:化象='化权'
           如果:hx=2
                 设定:化象='化科'
           如果:hx=3
                 设定:化象='化忌'
           回圈:hg=0 到 11
                 如果:#{宫名$(dz)}#宫有:#{化象}#入#{宫名$(hg)}#宫
                       如果:dz=hg
                             #{宫名$(dz)}#宫 自#{化象}#<BR>
                       如果:dz<>hg
                             #{宫名$(dz)}#宫 #{化象}# 入 #{宫名$(hg)}#宫 冲 #{宫名$((hg+6)%12)}#宫<BR>



獻花 x0 回到頂端 [樓 主] From:馬來西亞 | Posted:2010-03-16 00:55 |
mainchen 葫蘆墩家族
個人頭像
個人文章 個人相簿 個人日記 個人地圖
社區建設獎
頭銜:
版主
級別: 版主 該用戶目前不上站
版區: 星僑五術軟體
推文 x22 鮮花 x36
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

感謝您的分享 表情


獻花 x0 回到頂端 [1 樓] From:台灣新世紀資通 | Posted:2010-03-16 09:47 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.059666 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言