Listing
Dim dir1, it, z, fpr As Integer
Dim vvv(1 To 6) As Boolean
Dim vvn(1 To 6) As Boolean
Private Sub down_Click(Index As Integer)
vvn(Index) = True
down(Index).Enabled = False
End Sub
Private Sub Form_Load()
Frame1.Visible = True
Timer1.Enabled = True
lift.Itah = 6
dir1 = 1
End Sub
Private Sub move1()
Frame1.Enabled = False
O.Enabled = False
If lift.Itah > it Then lift.Down1 = True: Timer3.Enabled = True: dir1 = 1
If lift.Itah < it Then lift.Up1 = True: Timer3.Enabled = True: dir1 = 2
If lift.Itah = it Then lift.Down1 = False: lift.Up1 = False: Timer2.Enabled = True: z = 1: sbros (it)
End Sub
Private Sub stop1()
lift.Down1 = False: lift.Up1 = False
Timer3.Enabled = False: z = 1: Timer2.Enabled = True
sbros (lift.Itah)
Frame1.Enabled = True
End Sub
Private Sub sbros(it1)
prikaz(it1).Value = 0: up(it1).Value = 0: down(it1).Value = 0
prikaz(it1) = False: vvv(it1) = fasle: vvn(it1) = False
O.Enabled = True: up(it1).Enabled = True: down(it1).Enabled = True
For i = 1 To 6 Step 1
prikaz(i).Enabled = True
Next
End Sub
Private Sub O_Click()
For i = 1 To 6 Step 1
prikaz(i).Enabled = False
Next
Timer2.Enabled = True: Timer1.Enabled = False
O.Enabled = False
z = 1
End Sub
Private Sub prikaz_Click(Index As Integer)
For i = 1 To 6 Step 1
prikaz(i).Enabled = False
Next
End Sub
Private Sub Timer1_Timer()
If dir1 = 1 Then
iin = 1
iik = 6
iis = 1
End If
If dir1 = 2 Then
iin = 6
iik = 1
iis = -1
End If
fpr = 0
For i = iin To iik Step iis
If fpr = 0 Then
If prikaz(i) Then fpr = 1: Timer1.Enabled = False: it = i: move1
End If
Next
If fpr = 0 Then
For i = iin To iik Step iis
If fvv = 0 Then
If vvv(i) Or vvn(i) Then fvv = 1: Timer1.Enabled = False: it = i: move1
End If
Next
End If
End Sub
Private Sub Timer2_Timer()
If z = 1 Then lift.Open1 = True
If z = 150 Then lift.Open1 = False: lift.Close1 = True: Frame1.Visible = True:
If z = 500 Then
O.Value = 0: O.Enabled = True
For i = 1 To 6 Step 1
prikaz(i).Enabled = True
Next
Timer2.Enabled = False: Timer1.Enabled = True
End If
z = z + 1
End Sub
Private Sub Timer3_Timer()
If prikaz(lift.Itah) Then stop1
If vvn(lift.Itah) And dir1 = 1 Then stop1
If vvv(lift.Itah) And dir1 = 2 Then stop1
If vvn(lift.Itah) And fpr = 0 Then stop1
If vvv(lift.Itah) And fpr = 0 Then stop1
End Sub
Private Sub up_Click(Index As Integer)
vvv(Index) = True
up(Index).Enabled = False
End Sub