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

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

Ok.....;)

Be a part of the DaniWeb community

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