Bara några sorter av grundläggande lista datatyper finns i datavetenskap , och två av de mest populära är stackar och köer . Stackar och köer är nästan identiska , förutom att stackarna är " först-in sista ut ", vilket innebär att när ett dataobjekt skall läggas till det , är det bearbetas sista , ungefär som en bunt plattor : den första plattan läggs till stacken är den sista plattan tas bort . Köer är först -in -först- ut , precis som linjen vid en livsmedelsbutik. Om du får i linje första , du får serveras först . Köer genomförs inte inbyggt i Visual Basic 6 , men det är möjligt att genomföra en klass modul med samma funktionalitet .
1 .
Skapa en ny klass modul i Visual Basic-programmet genom att klicka på " Arkiv> Nytt > klassmodul. " Namnge den " CQueue "
2
Kopiera och klistra in följande kod i modulen du just skapat: .
'------------ --------------------------------------
"
" Den CQUEUE klass
" Dim qu som ny CQueue
"
" enqueue till objekt i kö
" qu. Enqueue 1234
" qu . Enqueue 5678
"" visas antalet element i kön
" Debug. Print " Räkna=" qu. Count
" titt på elementet på väg att läsa
" Debug. Print " Peek=" qu. Peek
" skriva ut elementen i kön när du tar bort dem
" göra medan qu. Count
" Debug. Print " Nästa punkt=" qu. Dequeue
" Loop
'--------------------------------- -----------------
" detta är den samling som innehåller de värden
Dim colValues Som ny samling
'Lägg till ett nytt värde till kön
Sub Enqueue ( värde As Variant )
colValues . Skapa värde
End Sub
" läsa nästa värde från kön och ta bort den
" väcker och fel om kön är tom
Funktion dequeue () As Variant
dequeue=colValues. Item (1 )
colValues. Remove 1
End Function
" Return nästa värde från kön utan att ta bort det
" höja fel om kön är tom
Funktion Peek () As Variant
Peek=colValues. Item (1 )
End Function
" Returnera antalet värden i kön
Function Count () As Long
Count=colValues . Räkna
End Function
"klara kön
Sub Clear ( )
Set colValues=Ny samling
End Sub
3 .
instansiera kön klassen i kroppen av din ansökan :
Dim qu som New Cqueue
4
Kopiera och klistra in följande kod under linjen från . steget ovan för att testa klassen :
qu. Enqueue 1234
qu. Enqueue 5678
Debug. Print "Count=" qu. Count
Debug . Skriv ut " Peek=" qu. Peek
göra medan qu. Count
Debug. Print " Nästa punkt=" qu . Dequeue
Loop
Previous:nothing Next:Qt Designer tutorials