24小时热门版块排行榜    

查看: 1215  |  回复: 10
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

tsl1980

铜虫 (正式写手)

[交流] [已应助,谢谢KILL]VB编程

那位高手能帮我编一下以下VB的程序吗?我刚学VB不久。非常感谢,在线等!

------------------------------------

      开始时,窗体上有两个按钮及两个标签,按钮1为故障,标签1显示:温度T=25,位移S=0。

当点击按钮1时,开始计时( t 以秒为单位,初始为0),温度及位移均变为时间的函数:

             T=25+t (时间从0开始上升,每秒t增加1)

             S=t*0.1(标签1显示该动态数据变化)

若此时点击窗体上另一结束按钮2时,计时结束,标签1温度及位移恢复T=25,位移S=0;

若不点结束按钮,当标签1,T>60或者S>5时,系统开始报警,发出报警声,当T>100或者S>12时,急促警报,标签1显示:爆炸



那位高手能帮帮我啊,在线等,非常感谢!!!!!!!!!

[ Last edited by tsl1980 on 2006-7-26 at 22:29 ]
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

killl

荣誉版主 (职业作家)

灌水

优秀版主

★ ★ ★ ★ ★
steincat(金币+5):热心的孩子! 哈哈,多谢您对求助版的一贯支持! 可以考虑申请版主哦。
刚才测试时忘了,需要修改一下t的初始值,为了测试我改成64了,需要改回来的话,注意红色部分:

Private Sub Form_Load()
    Label1.Caption = "温度T=25,位移S=0"
    t = 25
    s = 0
End Sub
灌水
11楼2006-07-25 22:55:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

yuzhan

木虫 (正式写手)

Keep moving forward

呵呵,很简单啊。
3楼2006-07-25 21:37:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tsl1980

铜虫 (正式写手)

简单的话帮我写写啦,谢谢了
4楼2006-07-25 21:44:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ftfget1

引用回帖:
Originally posted by tsl1980 at 2006-7-25 09:44 PM:
简单的话帮我写写啦,谢谢了

二楼不正在帮你写吗???
5楼2006-07-25 21:55:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复(可上传附件)
信息提示
请填处理意见