35888894 发表于 2008-12-26 08:30:56

人体三节律优生测试

一款自制的娱乐软件:face (29):

35888894 发表于 2008-12-26 08:38:53

附件再传一次...

[ 本帖最后由 35888894 于 2009-1-5 20:51 编辑 ]

annison 发表于 2008-12-26 10:45:47

晕迷 男人用不到这个
对了 你那个滚动字幕怎么做得啊

35888894 发表于 2008-12-26 11:25:52

Dim $zm1="Copyright2007-2008 XuanFengStudio Corporation, All Rights Reserved"
        Dim $zm2="               欢迎使用人体三节律优生--圣诞节测试V1.0"
        Dim $zm3="软件作者：小旋风                         软件设计：小旋风"

Func cp1()

If $baohu=0 Then
       
        $num+=1
        For $i=1 To $num
                Switch $zx
                        Case 1
                If $num> StringLen ($zm2)Then
                        $zx=2
                        $num=0
                        $baohu=1
                ExitLoop
                EndIf
                $zfc=StringLeft($zm2,$num)
        Case 2
                If $num> StringLen ($zm3)Then
                        $zx=3
                        $num=0
                        $baohu=1
                ExitLoop
                EndIf
                $zfc=StringRight($zm3,$num)
        Case 3
                        If $num> StringLen ($zm1)Then
                        $zx=1
                        $num=0
                        $baohu=1
                ExitLoop
                EndIf
                $zfc=StringLeft($zm1,$num)
EndSwitch
Next
GUICtrlSetData($Label3,$zfc)

Else
        $baohu2-=1
        If $baohu2=0 Then
                $baohu=0
                $baohu2=50
        EndIf
EndIf
        EndFunc

make2855 发表于 2008-12-28 10:02:33

狂晕，连月经都有，拿这个来有什么用？，，，:face (1):

t01001 发表于 2009-5-13 23:30:04

都说是 自制的娱乐软件 啦,为女朋友而设。。。

vclshy 发表于 2009-5-22 08:22:55

没钱了回复一下。。。。。。。。。。。

ydpd 发表于 2009-5-22 10:13:26

下了不会用

ydpd 发表于 2009-5-22 10:13:45

怎么验证呀

botanycc 发表于 2009-5-22 10:50:24

顺便进来看看

foxdcj 发表于 2009-6-4 23:38:22

没钱了回复一下。。。。。。。。。。。

kn007 发表于 2009-6-5 02:48:56

可以干什么的？

wanwan 发表于 2009-6-21 09:45:37

哈.....楼主真是逗..

kafkasmaze 发表于 2009-8-19 16:59:56

这东西也就男人才会用吧？……

心照不宣 发表于 2009-8-20 21:34:06

好资源，支持，感谢
页: [1] 2
查看完整版本: 人体三节律优生测试