Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Återställ Fästingar i VB6

    Att lära sig att spåra tid i ditt Visual Basic 6.0 -programmet är viktigt när man visar hur lång tid mellan olika åtgärder eller vid felsökning tiden för olika algoritmer . Den inbyggda " GetTickCount " -funktionen kan du spåra hur mycket millisekunder som gått mellan två händelser . Återställa tickningsantal görs genom att helt enkelt ringa " GetTickCount " funktionen igen . Subtrahera två " GetTickCount " läsningar ger dig ett mått på den tid som gått . Instruktioner
    1

    Öppna din VB6 -fil i Microsoft Visual Studio 6.0
    2

    Deklarera två variabler för att spåra timerns start och slut genom att lägga till följande kod i din funktion . :

    Dim lng_Beg As Long

    Dim lng_End As Long
    3

    Ring " GetTickCount " -funktion för att börja spåra tid genom att lägga in koden :

    lng_Beg = GetTickCount ( ) katalog

    " GetTickCount " -funktionen lagrar antalet millisekunder som har gått sedan systemet slås på . Om systemet är kvar längre än 49,7 dagar , är ett bräddavlopp möjligt eftersom tiden lagras som ett 32 - bitars DWORD . På många system den faktiska tiden mellan fästingar är 10 eller 16 ms .
    4

    Lägg koden du vill tid , till exempel en loop , bearbetar en fil eller hämta information från en databas .

    5

    Återställ fästingar genom att ringa " GetTickCount " funktionen igen , genom att lägga in koden :

    lng_Beg = GetTickCount ( ) katalog

    tidigare tickningsantal nu kasseras < . br >
    6

    Avsluta koden du vill tid och sedan kalla det " GetTickCount " funktionen igen genom att lägga till koden :

    lng_End = GetTickCount ( )
    7

    Visa mängden millisekunder som har gått sedan du återställer fästingen räknaren genom att lägga till koden :

    MsgBox CStr ( lng_End - lng_Beg ) katalog

    " CStr " omvandlar " Long " datatypen i en tryckbar sträng .
    8

    Spara VB6 filen och kompilera och köra programmet för att se hur lång tid det tar att köra din kod .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur till Redigera anteckningsblock med VB6
    ·Ställa indexvärden för ComboBox för VB
    ·Visual Basic Arrays Tutorial
    ·VBA Metoder
    ·Hur man dödar en process med VB.net
    ·Lägga till en bild till en bild i VB6
    ·Hur man tar bort en tom textruta i VBA
    ·Vad är en array i VB.NET
    ·Hur man skapar en fil från en textruta i VB6
    ·Hur man sparar ett VBA Query om tillgång
    Utvalda artiklarna
    ·Hur man stänger av JSP Validering i Eclipse
    ·Hur man använder Convert.Frombase64string i VBS
    ·Hur man skriver ut Call Stack i Python
    ·Hur man gör en rullgardinsmeny eller Tab i Visual Basi…
    ·Den metod funktion och klass i Python
    ·Vikten av buffertar
    ·Vikten av dataflödesdiagram
    ·Hur man tar bort en tom rad i en SQL textfil
    ·C + + och söka efter syntaxfel
    ·Hur man kompilerar C + + i Prompt
    Copyright © Dator Kunskap http://www.dator.xyz