求一个电梯开关门模拟的vb程序，大神们 - vb吧

level 6

xiangzuokun 楼主

2016年12月06日 11点12分 1

level 12

sbj518

这个界面设计的很好啊

2016年12月06日 11点12分 2

xiangzuokun

界面设计好了，但是程序不会写

2016年12月06日 11点12分

level 11

teark

开门：timer2关闭
do while 开之后边距的值
关门：timer1关闭
do while 开之前的边距值

2016年12月06日 11点12分 3

xiangzuokun

还是不会

2016年12月06日 11点12分

level 13

VB♀NET

2682817925可写

2016年12月06日 12点12分 4

level 11

骄傲地蚂蚁

填空会吧
dim a as boolean
...form_load()
...interval=......
...enabled=......
end sub
...command1_click()
　　a=1
　　timer1.enabled=...
　　command1.enabled=...
　　command3.enabled=...
end sub
...command2_click()
　　timer1.enabled=...
end sub
...command3_click()
　　a=0
　　timer1.enabled=...
　　command1.enabled=...
　　command3.enabled=...
end sub
...timer1_timer()
　　picture1.width=picture1.width+iif(a, -100, 100)
　　picture2.width=picture2.width+iif(a, -100, 100)
　　picture2.left=picture2.left+iif(a, 100, -100)
　　if picture1.width<100 then timer1.enabled=0
　　if picture1.width+picture1.left>picture2.left then timer1.enabled=0
end sub

2016年12月06日 13点12分 5

xiangzuokun

大神，受我一拜

2016年12月07日 03点12分

level 15

oshi001

好

2016年12月07日 04点12分 6

level 11

teark

根据楼上写的
n＝0时停止还没实现

2016年12月08日 04点12分 8

level 6

xiangzuokun 楼主

为啥我写的达不到最后的这个要求啊 [泪]

2016年12月08日 05点12分 9

ihlfocn945

从没见过电梯有暂停键的，关一半门，如果有人想进，直接按开门就行了，弄什么暂停呀。门要开不开的，人怎么进呀。

2016年12月08日 06点12分

ihlfocn945

两个按钮就可以了，开关关门，暂停完全是多次一举。

2016年12月08日 06点12分

xiangzuokun

@ihlfocn945 但是要求必须有暂停啊

2016年12月08日 06点12分

ihlfocn945

@xiangzuokun 那么暂停有什么功能呢，是就那样半开不开的，还是门全开。

2016年12月08日 06点12分

level 8

静待花开wfy

有偿帮做

2016年12月08日 06点12分 10

level 1

goddess小小难

ww

2017年04月27日 14点04分 11

level 11

333xxxyyywww33

暂停按钮始终灰色不可用状态！？？？？
代码：
Dim a As Boolean
Private Sub Command1_Click()
a = 1
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Command2_Click()
If Command2.Caption = "暂停" Then
Timer1.Enabled = False
Command1.Enabled = False
Command2.Caption = "继续"
Command3.Enabled = False
Else
Timer1.Enabled = True
Command1.Enabled = False
Command2.Caption = "暂停"
Command3.Enabled = False
End If
End Sub
Private Sub Command3_Click()
a = 0
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Picture1.Width = Picture1.Width + IIf(a, -100, 100)
Picture2.Width = Picture2.Width + IIf(a, -100, 100)
Picture2.Left = Picture2.Left + IIf(a, 100, -100)
If Picture1.Width < 100 Then Timer1.Enabled = 0
If Picture1.Width + Picture1.Left > Picture2.Left Then Timer1.Enabled = 0
Command2.Enabled = False
Command3.Enabled = True
If Picture1.Width + Picture1.Left > Picture2.Left Then Timer1.Enabled = 0
Command2.Enabled = False
Command3.Enabled = True
End Sub

2017年11月19日 00点11分 12

熠397

所以你的command2暂停按钮能用了吗

2024年11月21日 17点11分

level 8

tbzp666

我也写一个

2024年11月22日 01点11分 13