本人收集到一套Delphi语言编写的玄空风水相命软件源码,现上传到论坛,请懂Delphi和VB语言的高手把它翻译成VB源码,让广大VB爱好者学习交流.
  很长时间没得到正确答案,通过自已努力现已编写出另类风格的风水软件，所以结束本帖。2013年2月23日

[ 本帖最后由 曙光电子 于 2013-2-23 09:47 编辑 ]

发给你的就是源代码


[ 本帖最后由 益西翁登 于 2013-2-17 09:31 编辑 ]

电脑算命。。

这不是算命的，这是看风水用的

[ 本帖最后由 益西翁登 于 2013-2-16 07:03 编辑 ]

有些赋值的代码可以写的很简洁，不需要这么复杂，比如天干地支的赋值可以这么写
'====================================================================================
const tgdz="壬,子,癸,丑,艮,寅,甲,卯,乙,辰,巽,巳,丙,午,丁,未,坤,申,庚,酉,辛,戌,乾,亥"
dim sx1() as string
sx1=split(tgdz,",")
'====================================================================================
就上面三句可以将你的sx(0)到sx(23)的值全部给出，而你整整用了25行代码。

反正现在没事，帮你把二楼代码简化下：


[ 本帖最后由 lowxiong 于 2013-2-17 11:32 编辑 ]

完善后的程序排出的盘式：
[attach]68726[/attach][attach]68727[/attach][attach]68728[/attach][attach]68729[/attach]

[ 本帖最后由 益西翁登 于 2013-2-17 09:33 编辑 ]

你那些运行结果的图片是哪来的？你确定算法就是你提供的那些吗？没有其他的了？

没有别的，就是这些

已经替你完成了，你运行下，看符合你要求不？我真闲的蛋疼啊，做这个


[ 本帖最后由 lowxiong 于 2013-2-17 11:32 编辑 ]