fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Prinzip Ringpuffer

Uploader:	Jojo
Datum/Zeit:	30.06.2010 21:08:58

' Ringpuffer mit 800 Elementen

#Define rbuflen 800



Dim As Integer werte(0 To rbuflen)

Dim As Integer curpos = 0



Do



    ' hier dem letzten wert was zuweisen

    werte((curpos + rbuflen - 1) Mod rbuflen) = Rnd



    For i As Integer = 0 To rbuflen

        ' hier was mit den Werten tun...

        Dim As Integer dieserWert = werte((curpos + i) Mod rbuflen)

    Next



    ' Eins weiterrücken im Ringpuffer

    curpos = (curpos + 1) Mod rbuflen



    ' Eigener Code



Loop

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.