Apparent Performance Problems

Apparent Performance Problems

Could you tell me why this takes a 150MHz Pentium with 64MB of RAM just to run fast enough to catch MCI time output?

 Private Sub Rply_Timer_Run()Dim ReplayTime As LongDim CTime As LongDim iTemp As LongDim iLong As LongDim j As IntegerReplayIndex = 0BaseData = 1000000000Do While Rply = True    ReplayTime = SaveData(ReplayIndex).CDTime_Data            iLong = frmCD2.MMControl1.Position        iTemp = iLong And &HFF00  &H100        CDTime = iTemp / 10        CTime = CStr(iTemp) / 10                frmCD2.lblCDTime.Caption = Format(CTime / 100, "0.000")        frmCD2.lblCDTime.Refresh                    If (ReplayTime >= CDTime And ReplayTime 

Any help would be very much appreciated. (Version: Version 4.0 Professional)

The kernel of the solution is that sixteen is 2 to the fourth power. Each position in the hex string can be translated into four binary digits to create the final result. To do this, you need to create a lookup table of the following structure and data;

 cHex  cBin    0   0000    1   0001    2   0010    3   0011    4   0100    5   0101    6   0110    7   0111    8   1000    9   1001    A   1010    B   1011    C   1100    D   1101    E   1110    F   1111 

Now, you can take the hex result that comes from the BINARY keyword and decode it using the lookup table, stacking your result with the least significant bit on the right (backwards).


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist