《江蓝电脑随机抽奖程序》Ver3.00版发布
作者:江蓝 日期:2008-03-29
颜色值转换函数
作者:江蓝 日期:2008-03-14
用Visual Foxpor的GetColor函数取出的颜色值为0至16777215的十进制整数。那么如何把其转换成Rgb或是Hex形式呢？
Dec转Rgb函数：
程序代码
Dec转Rgb函数：
程序代码Function D2R(dColor)
Return AllTrim(Str(Mod(dColor,256))) + "," + AllTrim(Str(Int(Mod(dColor,256^2)/256))) + "," + AllTrim(Str(Int(dColor/256^2)))
EndFunc
Return AllTrim(Str(Mod(dColor,256))) + "," + AllTrim(Str(Int(Mod(dColor,256^2)/256))) + "," + AllTrim(Str(Int(dColor/256^2)))
EndFunc
Tags: VFP
一位超级富豪的真实独白
作者:江蓝 日期:2008-03-13
当今之中国，我当然算得上是一位超级富豪了。财富虽不及李嘉诚、霍英东前辈，但风光绝不亚于他们。我有巨额存款、豪宅别墅、奔驰宝马、妻妾成群、还是当地的人大代表……我到哪里，当地官员多是毕恭毕敬，笑脸相迎，虽不是倾城列队，也是前呼后拥，大有当年解放军进城的感觉。
每年我都要安排出国度假，什么夏威夷、巴黎我有些腻味了，听说国外时兴太空旅游，我期待这一天，争做中国第一个去太空旅游的富豪。人活到这份上，够显赫了吧！但我现在也不年轻了，过不了几年可能要隐退江湖。我是先富起来的那一部分人，现在讲究回馈社会，我也想让更多的人如我般富起来。俗话说授人以鱼不如授人以网，把我江湖几十年磨炼的暴富独门秘籍公知于众，大白于天下，让更多的人享受成功的喜悦。特别是那些在商场上苦苦奋斗而又看不到未来的青年才俊，来来来，我指引你们一条光明的捷径。务请你放心，此秘籍勿须大量投资，勿须很高的水平就可掌握，有高中学历就可。
先要给你们上点心理课。凡事要做到“三不怕”。即不怕离婚，不怕坐牢，不怕杀头。人活在世上，总得做点什么事。不说轰轰烈烈，光宗耀祖，也得受人尊重，养家糊口。做任何事得有吃苦打硬仗的准备。往雅里说就是“故天将降大任于斯人也，必先苦其心志，劳其筋骨，饿其体肤，空乏其身，行拂乱其所为”，往俗里说是不能只看到强盗吃肉，要看到强盗挨打。故那些前怕狼后怕虎之辈，就不要听我的课了，你去吃一辈子萝卜腌菜去吧，该干吗还是干吗。
每年我都要安排出国度假，什么夏威夷、巴黎我有些腻味了，听说国外时兴太空旅游，我期待这一天，争做中国第一个去太空旅游的富豪。人活到这份上，够显赫了吧！但我现在也不年轻了，过不了几年可能要隐退江湖。我是先富起来的那一部分人，现在讲究回馈社会，我也想让更多的人如我般富起来。俗话说授人以鱼不如授人以网，把我江湖几十年磨炼的暴富独门秘籍公知于众，大白于天下，让更多的人享受成功的喜悦。特别是那些在商场上苦苦奋斗而又看不到未来的青年才俊，来来来，我指引你们一条光明的捷径。务请你放心，此秘籍勿须大量投资，勿须很高的水平就可掌握，有高中学历就可。
先要给你们上点心理课。凡事要做到“三不怕”。即不怕离婚，不怕坐牢，不怕杀头。人活在世上，总得做点什么事。不说轰轰烈烈，光宗耀祖，也得受人尊重，养家糊口。做任何事得有吃苦打硬仗的准备。往雅里说就是“故天将降大任于斯人也，必先苦其心志，劳其筋骨，饿其体肤，空乏其身，行拂乱其所为”，往俗里说是不能只看到强盗吃肉，要看到强盗挨打。故那些前怕狼后怕虎之辈，就不要听我的课了，你去吃一辈子萝卜腌菜去吧，该干吗还是干吗。
