Za VB mojstre

Mhm, sem že malo zarjavel v VB-ju, vendar bom vseeno probal kej povedat.
Torej, rabiš buffer, kar je v VB-ju zelo nerodno delat (Java bi bla veliko boljša - uporabiš threade pa en sklad pa je stvar narjena ). No, pa da ne bo kompliciral.

Najbolj simpl bi blo, da bi dal en public array, v katerega bi dodajal in odvzemal podatke (dodajal na vrh, odvzemal spodaj - sklad). Alora, poskusimo:


Public Buffer() As Variant

Public Sub Init()
Buffer(0) = vbNull 'al pa kej druzga
End Sub

Sub DodajPodatek(data As String)
Dim cnt As Integer

' dobi število podatkov in povečaj za ena
cnt = UBound(Buffer) + 1
' Povečaj buffer za en podatek
ReDim Preserve Buffer(cnt)
' dodeli nov podatek v buffer
Buffer(cnt) = data
End Sub

Function NaslednjiPodatek() As String
Dim data As String

' dobi prvi podatek z bufferja
data = Buffer(0)

' odstrani dobljen podatek in premakni
' podatke za eno mesto navzdol
For i = 1 To UBound(Buffer)
Buffer(i - 1) = Buffer(i)
Next

' no, zdej pa pobriši zadnji prazen prostor (malo počistimo pomnilnik)
ReDim Preserve Buffer(UBound(Buffer) - 1)

' vrni podatek
Return data
End Function


No, to je zdej tle ena osnovna stvarca, ki se jo da naredit brez problemov. Zdej moraš samo še dodelat svoj sistem, da si npr. ta dva podprogramčka ne bosta skakala v zelje (npr. eden pisal v buffer, ko drugi bere ipd.)
Bom še to malce poštimal (sej sistem imam že zamišljen, kako bi se dalo nardit, ma si morem vzet pol urce cajta, da napišem, pa objavim.

Hja,ko pritisnem da bi lahko downloadal tvoj zip mi napiše da ne more odpreti strani .
Za pošiljanje pa uporabljam MSComm kontrolo.

Lp