hi,
any body can help me i need a source code for a simulation of elevator in vb
or any single-queue, multi-queue simulation

Re: elevator simulation 80 80

Private Sub down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button.Click
Dim a As Integer = CInt(CType(sender, Button).Tag)
elev(a).lower()
bu(a).Text = elev(a).ntrl
picturebox1.Refresh()

Dim a As Integer = CInt(CType(sender, Button).Tag)
elev(a).verhoog()
bu(a).Text = elev(a).ntrl

End Sub

Re: elevator simulation 80 80

Ok.....;)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of 1.19 million developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.