How to implement queues in vb 6.0

[User 3055467]

Hi Thanks for replying so soon I did not bet at all. The application is already developed in Vb 6.0. To convert it into .NET it takes some time. But we dont have much time as we have demo tomorow.

[DidiKunz]

There is no threading support in VB6. For a workaround (if you port your app to .NET later) I would try something with a timer control, that pools your serial. Thats NOT good practice, but probably a quick and dirty way... Regards: Didi

[User 3055467]

I'm trying to do the same. All I need is how to implement queues in vb 6.0. Is there any way like System.Collections.Queue in .NET. I want to put all the messages to be sent into a queue. when the comport receives response from the other end I will take out the first element in the queue and use that. regards

[DidiKunz]

There is no explcit queue. You could use an array instead. Good luck with your demo tomorow: Didi

[User 3055467]

Hi thanks a lot. array size is fixed. if i use redim it is intializing every time. the code should be in such a way that when the timer fires the msg to be sent should be appended to the list of previous msgs. regards

[DidiKunz]

...use ReDim Preserve and it will not reinitialze. Regards: Didi

[Nagy Vilmos]

There are collections in VB6, try:

Option Explicit

Private queue As Collection

Private Sub Class_Initialize()
Set queue = New Collection
End Sub

Public Sub Enqueue(newItem As String)
queue.Add newItem
End Sub

Public Function Dequeue() As String
Dim ret As String
ret = queue.item(1)
queue.Remove 1

Dequeue = ret

End Function

---

Panic, Chaos, Destruction. My work here is done.

[Nagy Vilmos]

ReDim Preserve is a painful solution, the memory usage is nasty as you need to have allocated both the old and new memory at the same time.

---

Panic, Chaos, Destruction. My work here is done.

[DidiKunz]

Yes, you are right, but we were talking about a dirty easy solution to save a presetation appointment tomorow. The guy is going to port the solution to .NET later. I never saied that this is good programming practice. Regards: Didi

[Nagy Vilmos]

I've seen so much 'quick and dirty for a demo' go into production code that I avoid it like the plague.

---

Panic, Chaos, Destruction. My work here is done.

[Jon_Boy]

Zing!

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison