✨AI算命大師
您尚未登入系統. [登入] DestinyNet 命理網 » 討論區 » 五術討論 » 陰陽五行 » 太極圖VB程式
排盤工具     新使用者註冊    入口網站     討論區列表       最新議題    誰在線上    練功館(自助算命)     聊天室
討論區 » 五術討論 » 陰陽五行 » 太極圖VB程式
議題選項
議題評分
#127069 - 2002-07-28 12:08:24 太極圖VB程式
小凱哥 離線
雙喜臨門 		註冊: 2001-11-13
文章數: 2707
來自: 台北市
用Visual Basic程式來畫 太極圖



太極圖可看成六塊:

各2組陰陽半圓和一組陰陽圓形







程式如下：



Private Sub form_activate()

Const PI = 3.1415926

Dim bangle, eangle As Single

FillStyle = 0



FillColor = vbBlack

bangle = 90 * PI / 180

eangle = 270 * PI / 180

Circle (3000, 2500), 2000, vbBlack, -bangle, -eangle



bangle = 270 * PI / 180

eangle = 90 * PI / 180

FillColor = vbWhite

Circle (3000, 2500), 2000, vbWhite, -bangle, -eangle



FillColor = vbWhite

bangle = 90 * PI / 180

eangle = 270 * PI / 180

Circle (3000, 3500), 1000, vbWhite, -bangle, -eangle



bangle = 270 * PI / 180

eangle = 90 * PI / 180

FillColor = vbBlack

Circle (3000, 1500), 1000, vbBlack, -bangle, -eangle



FillColor = vbBlack

Circle (3000, 3500), 500, vbBlack



FillColor = vbWhite

Circle (3000, 1500), 500, vbWhite



End Sub





附加檔案
126123-taichie.JPG


_________________________
玄空風水數位門

玄空風水數位門是新時代應運之新風水學派,秉承三元派風水之精義,
另創特色之數位學理架構詮釋天地人三才風水系統架構,
數即一切之理,位即一切之時間與空間.數位亦是陰陽生化萬法由此生生造化.
陰陽協調三才互動,實踐人間淨土工程.

風水職業班新台幣50萬元整(港幣或人民幣10萬元整)
三元風水秘訣面授點訣(限有基礎者)
教學與進一步詳論者,潤金收費,請聯絡Mail下址
victor.chung@msa.hinet.net

拙著:六爻易斷精要講義下載

中醫藥保健資訊網

易經六十四卦占卜大衍版_打包新安裝(繁體中文版)
↑回到頂端↑
#127070 - 2002-07-29 02:16:39 動態太極圖VB程式
adamyeh 離線

亢龍有悔 		註冊: 2001-08-09
文章數: 859
來自: 葉柏賢(台灣/桃園)
Dear All:

我作了些修改,只要不斷地接著Enter鍵不放,
即可看到您從未發現的太極變化,
動態圖中,除了魚眼不變之外,其他都在變....
'--------------------------------------------
Const PI = 3.1415926

Private Sub form_activate()
Dim bangle, eangle As Single
Dim bangle1, eangle1 As Single

bangle1 = 90
eangle1 = 90

For i = 90 To 450

bangle1 = i
eangle1 = i

FillStyle = 0

FillColor = vbBlack
bangle = bangle1 * PI / 180
eangle = (eangle1 + 180) * PI / 180

bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI

Circle (3000, 2500), 2000, vbBlack, -bangle, -eangle

bangle = (bangle1 + 180) * PI / 180
eangle = eangle1 * PI / 180
FillColor = vbWhite
bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI
Circle (3000, 2500), 2000, vbWhite, -bangle, -eangle

FillColor = vbWhite
bangle = bangle1 * PI / 180
eangle = (eangle1 + 180) * PI / 180
bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI
Circle (3000, 3500), 1000, vbWhite, -bangle, -eangle

bangle = (bangle1 + 180) * PI / 180
eangle = bangle1 * PI / 180
FillColor = vbBlack
bangle = ((bangle / 2 / PI) - Int(bangle / 2 / PI)) * 2 * PI
eangle = ((eangle / 2 / PI) - Int(eangle / 2 / PI)) * 2 * PI
Circle (3000, 1500), 1000, vbBlack, -bangle, -eangle

FillColor = vbBlack
Circle (3000, 3500), 500, vbBlack

FillColor = vbWhite
Circle (3000, 1500), 500, vbWhite

MsgBox ("Press Me !!")

Cls

Next i

End Sub
_________________________
南無阿彌陀佛 感恩...
NAMO AMITABHA BUDDHA thanksgiving
↑回到頂端↑
#127071 - 2002-08-03 19:42:21 旋轉太極圖VB
小凱哥 離線
雙喜臨門 		註冊: 2001-11-13
文章數: 2707
來自: 台北市
'修改了一下程式,使用了一些拙劣的技巧終於讓它旋轉成功了

Private Sub Command2_Click()
Const PI = 3.1415926
Dim bangle, eangle As Single
Dim secX, secY As Single
Dim secangle As Single

For i = 90 To 450

For j = 1 To 1000000: Next j


FillStyle = 0 '設定繪圖屬性為填滿

bangle = i * PI / 180
If i > 360 Then bangle = (i - 360) * PI / 180

eangle = (180 + i) * PI / 180
If (180 + i) > 360 Then eangle = (180 + i - 360) * PI / 180

FillColor = vbBlack '黑色大半圓
Circle (3000, 2500), 2000, vbBlack, -bangle, -eangle

bangle = (180 + i) * PI / 180
If (180 + i) > 360 Then bangle = (180 + i - 360) * PI / 180

eangle = i * PI / 180
If i > 360 Then eangle = (i - 360) * PI / 180

FillColor = vbWhite '白色大半圓
Circle (3000, 2500), 2000, vbWhite, -bangle, -eangle

secangle = 2 * PI * ((180 - i) / 360)
secX = Cos(secangle) * 1000
secY = Sin(secangle) * 1000

bangle = i * PI / 180
If i > 360 Then bangle = (i - 360) * PI / 180

eangle = (180 + i) * PI / 180
If (180 + i) > 360 Then eangle = (180 + i - 360) * PI / 180

FillColor = vbWhite '白色小半圓
Circle (3000 + secX, 2500 + secY), 1000, vbWhite ', -bangle, -eangle
FillColor = vbBlack '黑色魚眼
Circle (3000 + secX, 2500 + secY), 500, vbBlack


secangle = 2 * PI * ((360 - i) / 360)
secX = Cos(secangle) * 1000
secY = Sin(secangle) * 1000

bangle = (180 + i) * PI / 180
If (180 + i) > 360 Then bangle = (180 + i - 360) * PI / 180

eangle = i * PI / 180
If i > 360 Then eangle = (i - 360) * PI / 180

FillColor = vbBlack '黑色小半圓
Circle (3000 + secX, 2500 + secY), 1000, vbBlack ', -bangle, -eangle
FillColor = vbWhite '白色魚眼
Circle (3000 + secX, 2500 + secY), 500, vbWhite

Next i

End Sub
_________________________
玄空風水數位門

玄空風水數位門是新時代應運之新風水學派,秉承三元派風水之精義,
另創特色之數位學理架構詮釋天地人三才風水系統架構,
數即一切之理,位即一切之時間與空間.數位亦是陰陽生化萬法由此生生造化.
陰陽協調三才互動,實踐人間淨土工程.

風水職業班新台幣50萬元整(港幣或人民幣10萬元整)
三元風水秘訣面授點訣(限有基礎者)
教學與進一步詳論者,潤金收費,請聯絡Mail下址
victor.chung@msa.hinet.net

拙著:六爻易斷精要講義下載

中醫藥保健資訊網

易經六十四卦占卜大衍版_打包新安裝(繁體中文版)
↑回到頂端↑
#127072 - 2002-08-04 06:01:05 旋轉太極圖VB 國際版
小凱哥 離線
雙喜臨門 		註冊: 2001-11-13
文章數: 2707
來自: 台北市


將修改後的程式碼放在附件裡面



這支程式碼範例也公佈在網站

http://www.planet-source-code.com/



輸入 TaiChie 關鍵字在Visual Basic分類就可以找得到



往後將會致力於易經占卜程式的國際化原碼製作,

這種東西說什麼也不能讓老外比下去啦!



附加檔案
128597-TaiChie.zip (90 )

_________________________
玄空風水數位門

玄空風水數位門是新時代應運之新風水學派,秉承三元派風水之精義,
另創特色之數位學理架構詮釋天地人三才風水系統架構,
數即一切之理,位即一切之時間與空間.數位亦是陰陽生化萬法由此生生造化.
陰陽協調三才互動,實踐人間淨土工程.

風水職業班新台幣50萬元整(港幣或人民幣10萬元整)
三元風水秘訣面授點訣(限有基礎者)
教學與進一步詳論者,潤金收費,請聯絡Mail下址
victor.chung@msa.hinet.net

拙著:六爻易斷精要講義下載

中醫藥保健資訊網

易經六十四卦占卜大衍版_打包新安裝(繁體中文版)
↑回到頂端↑




· 標示所有為已讀
· DestinyNet 命理網 · ↑回到頂端↑

本站是個命理討論的園地，如果您要問命，請務必詳閱各板板規，遵守發問規則，不要只留個生日或是命盤， 其他什麼都沒提。貼命盤的方法請特別注意算完命盤後的文字說明，不要貼個沒人看懂歪七扭八的命盤， 貼錯命盤及未遵守板規者，文章很有可能被不預警刪除 另外，如果您提了問題，而有人回覆的話，不論對與錯，請務必多上來回應論命者， 我們不歡迎那種提了問題就等人回答，也不回應的人。我們需要的是，「良好的互動」及「長期的追蹤」。
本站大多數的討論區都得要註冊才能發言，您若是要張貼討論，請務必註冊為使用者， 如果您忘了您的密碼，請在登入」的畫面， 輸入您的帳號，再按一下我忘記我的密碼了」， 此時系統會寄一封信到您當時註冊的 Email 信箱裡面， 裡面則附有一個臨時密碼，請您拿到密碼後用此臨時密碼登入。登入之後可以在 編輯個人檔案」裡面修改成您習慣的密碼。
快速排盤 四柱八字線上排盤 紫微斗數線上排盤 占星盤（astrolog 圖形版） 占星命盤 古典占星判斷程式 天步果老星宗(java applet) 大六壬金口訣線上起卦 命理網之命理練功館 六爻易卦排盤 梅花易數排盤 易經全文 繪製羅盤(新) 玄空挨星排盤 高精度節氣計算程式 真太陽時/均時差計算程式 月相計算程式（校正太陰月曆) 星體昇落計算程式 時辰確認 中國各地與東經120度時差示意圖 線上萬年曆 秘本諸葛神數 呂純陽祖師太極生生神數 六十甲子籤詩 線上聊天室 周公解夢 我的幸運地圖 塔羅圖像區 泡眼蛙製作的紫微斗數＆西洋占星線上排盤 中華預測網奇門遁甲起局
logo
欣洋網路有限公司