Results 1 to 9 of 9

Thread: /

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Mar:2008
    Location:
    Posts: 483

    /

    PAL / + . , 4

    var Nachalo : TSongInfo;
    Aux1.Eject;

    Nachalo := CAT['Station IDs (All)'].ChooseSong(smRandom, NoRules);
    Aux1.QueueSong(Nachalo);
    Aux1.Volume := 255;

    Aux1.Status=0
    ( )
    begin
    PAL.WaitForTime('+00:00:27');
    Aux1.Volume := 225;
    PAL.WaitForTime('+00:00:01');
    Aux1.Volume := 200;
    PAL.WaitForTime('+00:00:01');
    Aux1.Volume := 150;
    DeckA.FadeToPlay;
    end;
    DeckA.Status = 1
    Aux1.Stop

  2. #2
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    while Aux1.Status<>0 do ;
    .....

    ? CPU.
    , 100ms , , .

  3. #3
    Registered User
    Join Date: Mar:2008
    Location:
    Posts: 483
    begin end , , begin end.

    PAL 1

    T := 0;
    while T < 20 do
    begin
    xxxx
    xxxx
    T := T + 1;
    end



    ---------- 10:53 ---------- 10:42 ----------

    NOP
    Last edited by the_tiana; 8th July 2010 at 10:50.

  4. #4
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    , (<>0). =0, .

  5. #5
    Exhumator's Avatar
    Join Date: Jan:2005
    Location: Sofia
    Posts: 14,687
    while Aux1.Status<>0 do Sleep;

    , (Sleep) . , - ( , ). , .
    (Aux1.Status 0), .

    P.S. "Sleep" . Pascal 15 , . Sleep- Wait- ().

    , :

    Code:
    //
    // delay in milliseconds, uses the system time, also uses 
    // Application.ProcessMessages, which allows access to other events 
    // during the delay, the Win32 API function Sleep() does not
    //
    procedure Delay(msecs: integer);
    var
      FirstTickCount: longint;
    begin
      FirstTickCount := GetTickCount;
       repeat
         Application.ProcessMessages;
       until ((GetTickCount-FirstTickCount) >= Longint(msecs));
    end;
    Last edited by Exhumator; 8th July 2010 at 11:42.
    | Aorus X570 Master | Ryzen 9 5900X | Hellhound 7900XT | G.SKILL 32GB DDR4 3800 CL16 | Enermax Galaxy 1000W | SSD Corsair MP510 960GB & WD-RE3 2 x 1TB RAID0 | Pioneer BDR-209EBK | Creative X-Fi Titanium Fatal1ty & GigaWorks S750 | ViewSonic VX3276-2K-MHD |

  6. #6
    Registered User
    Join Date: Mar:2008
    Location:
    Posts: 483
    ..
    "" "" , (.. ),

  7. #7
    Exhumator's Avatar
    Join Date: Jan:2005
    Location: Sofia
    Posts: 14,687
    ";" . BEGIN END . .
    , . , 100 ms.

    , . PAL .
    | Aorus X570 Master | Ryzen 9 5900X | Hellhound 7900XT | G.SKILL 32GB DDR4 3800 CL16 | Enermax Galaxy 1000W | SSD Corsair MP510 960GB & WD-RE3 2 x 1TB RAID0 | Pioneer BDR-209EBK | Creative X-Fi Titanium Fatal1ty & GigaWorks S750 | ViewSonic VX3276-2K-MHD |

  8. #8
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    , , , 6 /, , . - , -.
    the_tiana, .

  9. #9
    Registered User
    Join Date: Mar:2008
    Location:
    Posts: 483
    ( ) . Writeln . 100 1 0,5-0,7 . .

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |