hvordan man bruger Visual Basic 6 køer

Indlæg af Dorte Søndergaard Pe     opdateret: 2012-01-06

En kø er måde at organisere data, så det er forarbejdet " Først ind-først ud ", ligesom linje på en købmand , i modsætning til en "Først ind-sidst ud " stack , der er som en stak plader . Selvom en kø er en grundlæggende begreb i datalogi , er Visual Basic 6, som ikke gennemføre den oprindeligt . Du kan oprette din egen kø klasse fra bunden , og bruge det i stedet
1
Klik . "Fil > Ny > Klasse Module " i Visual Basic Editor og navngive den nye klasse , du oprettede " kø . "
2
Kopier og indsæt følgende kode i den nye klasse kodevinduet : .

"dette er den samling, holder værdier
Dim colValues Som ny samling

' tilføje en ny værdi til køen
Sub enqueue ( værdi som Variant )
colValues. Add værdi
End Sub

' læse den næste værdi fra kø og fjerne det
' rejser og fejl , hvis køen er tom
Funktion Dequeue ( ) Som Variant
Dequeue=colValues . Konto (1 )
colValues. Remove 1
End Function

' Retur den næste værdi fra køen , uden at fjerne det
' rejse fejl , hvis køen er tom
Funktion Peek ( ) Som Variant
Peek=colValues. Item (1 )

End Function

' Return antallet af værdier i køen
Funktion Count ( ) As Long

Tæl=colValues. Count
End Function

"klare køen
Sub Clear ( )
Set colValues = Ny samling
End Sub
3 .
Kopier og indsæt følgende kode i hoveddelen af dit program til at oprette en ny kø og bruge den :

Dim myQueue som ny kø

myQueue. Enqueue 1234
myQueue. Enqueue 5678
Debug. Print " Count=" myQueue. Count

Debug. Print " Peek=" myQueue. Peek
gøre, mens myQueue. Count
Debug. Print " Næste punkt på dagsordenen=" myQueue. Dequeue

Loop

gode råd og advarsler


  • klasse moduler er Visual Basic moduler, der indkapsler dele af uddannelsen , hvilket betyder at de er adskilt og organisere software, der skal lettere at genbruge .


  • Previous:Hvordan finder jeg ud en multi - dimensional array kolonne størrelse i Visual Basic ? Next:hvordan man åbner en postsættet



     

    Kommentarer

    Code:
    change