极易拿分的timer控件问题

Question

大哥们睡醒没有啊~~~?......
或者我可以用time这个含数?

Answer 1

Private Sub a_Click()n=n+1timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()
if n = 奇数 then事件一
Timer1.Interval = 5000
timer1.Enabled=falsecall a_Click()
exit sub事件2Timer1.Interval = 2000timer1.Enabled=false
call a_Click()End Sub

Answer 2

if n = 奇数 then
不怎么好理解?
if n=1 then
??????????

Answer 3

if int(n/2)=n/2  则n为偶数，这你都不会？？/

Answer 4

还是失败...它仍然不能执行最简单的text1.text="事件1"或2
是不是要先声明些什么?
写个最简单的吧....
进行1事件
timer1控件等待5秒
进行事件2
timer1控件再等待2

Answer 5

http://gddd.net/load/6czsc.zip
我去掉了个WINSOCK的控件..
你下载再说.
源代码.

Answer 6

楼上的程序好像少了个else 和 endif 哦，在a_click时也没有初始Interval属性-计时不能开始，而且使用n=n+1也终有一天会溢出。我也做了一个，请多多指教：Private Sub a_Click()
    Call Timer1_Timer
End SubPrivate Sub Timer1_Timer()
    Static mybool As Boolean
    If mybool = False Then
        Timer1.Interval = 5000
        Timer1.Enabled = True
        mybool = Not mybool
        MsgBox "已进行事件1，开始等待5秒。"
    Else
        Timer1.Interval = 2000
        Timer1.Enabled = True
        mybool = Not mybool
        MsgBox "已进行事件2，开始等待2秒。"
    End If
End Sub

Answer 7

b按钮的代码：Private Sub a_Click()
    Timer1.Enabled = false
End Sub

Answer 8

b按钮的代码：Private Sub b_Click()
    Timer1.Enabled = false
End Sub

Answer 9

哈哈我的自动传播聊天程序写好了.
欢迎大家下载源代码兼测试...呵呵.
先版权声明如下:娱易网版权声明:
1.csdn成员可做任意改动.但不可向外界公布(指csdn.net以外的网站)源代码,只可对外发布生成的exe,非csdn成员不可对此程序作任何改动.
2.由于此程序的原开发权和完全改版属于技术十虎为原创,所以修改此源代码的同志请不要乱拿碧海聊天室的技术论坛测试.
3.此源程序代码属gddd和众多非常需要感谢提供技术支持的人共同开发的成果,请大家发行源代码的程序记得加上
中国软件http://www.csdn.net
娱易网http://gddd.net
作为是您修改者
技术十虎,http://202.96.140.82:2004
(以上排名不分先后)四个必不可少的合作或技术技术支持站点.
4.为免惹祸,请大家发布exe程序的时候前声明,使用此程序者所产生任何后果由该使用者负责,与开发人员无关.
5.发布新开发的源程序应一起将此版权声明一起发布.在乎是您的杰作,你当然可以加上6啦,7啦8啦什么的.谢谢大家.

Answer 10

下载地址
http://gddd.net/temp/gdddsilversandchat.zip
或
http://61.146.118.138/temp/gdddsilversandchat.zip

Answer 11

to
xxlroad(土八路):
我不是浙江的啊.不过想到台州找份工作.
什么2级练习题啊?不懂?说明白些楼上的N位...还要不要分呀?呵呵.