Dator > hur man använder en kö i Visual Basic 6

  • hur man använder en kö i Visual Basic 6


  • 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

    tips och varningar


  • klassmoduler är en speciell typ av modul som kapslar in funktionalitet i klasser , även kallad objekt .

Previous:nothing Next:Qt Designer tutorials





Relaterade artiklar


  • Systemkraven för Visual Studio 2008 Express
  • datorutbildning för Microsoft Certification
  • hur man bygger en server databas på Internet
  • hur man gör hemsida rubriker
  • Hur konvertera ett datum i kalendern i Java
  • hur man skapar en värdegrund
  • hur kopiera till Urklipp i Visual Basic
  • hur man ändrar färg kommandot i ett Visual Basic 6.0
  • hur man läser ett hålkort
  • hur man installerar Belkin Wireless hårdvara g-kort