Member Avatar for lnimer

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

  • 3 Contributors
  • 2 Replies
  • 266 Views
  • 6 Years Discussion Span
  • Latest Post Latest Post by AndreRet
Member Avatar for alzin888

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

Member Avatar for AndreRet

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.