LClick*5

[JRL]

Could LClick and RClick be included with the keyboard functions that accept a multiplier?

[Marcus Tettmar]

Yes, have added to the list.

[JRL]

Excellent!
Thank you.

Code: Select all

Let>RP_Windowmode=0
//DeleteFile>%temp_dir%DateStampPuzzlerTrial.txt
DeleteFile>%temp_dir%PuzzlerCPULoad.txt
//LibFunc>Winmm,timeBeginPeriod,vResB,1

//Setup for running secondary background macros
//A substitute for multithreading
StringReplace>Command_Line,",,Command_Line
UpperCase>Command_Line,Command_Line
Uppercase>Script_Dir,Script_Dir
ExtractFileName>Command_Line,vExecutorName
StringReplace>vExecutorName,.EXE ,.EXE,vExecutorName
If>%vExecutorName%=MSCHED.EXE
Else
  StringReplace>Command_Line,%script_Dir%\%vExecutorName%,,Command_Line
EndIf


Min>vMM

Dialog>Dialog1
object Dialog1: TForm
  Left = 661
  Top = 207
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'Timing Test'
  ClientHeight = 103
  ClientWidth = 180
  Color = 16177200
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 55
    Top = 16
    Width = 31
    Height = 13
    Caption = 'Cycles'
  end
  object Label2: TLabel
    Left = 56
    Top = 40
    Width = 32
    Height = 13
    Caption = 'Label2'
  end
  object MSButton1: tMSButton
    Left = 50
    Top = 64
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 0
    DoBrowse = False
    BrowseStyle = fbOpen
  end
end
EndDialog>Dialog1

GetTime>vPreTime
SetDialogProperty>Dialog1,,Caption,vPreTime
AddDialogHandler>Dialog1,MSButton1,OnClick,Quit
AddDialogHandler>Dialog1,,OnClose,Quit
Show>Dialog1
Let>vCycleCount=0
GoSub>GetCPU

Label>ReTime
  GetTime>vPreTime
  SetDialogProperty>Dialog1,,Caption,vPreTime
  //A few seconds of tight loop
  Sec>vSS
  If>vSS>55
  //LibFunc>Winmm,timeBeginPeriod,vResB,1
  Label>NoWait
    //Min>vMM2
    //If>%vMM%<>%vMM2%
    Let>ww=0
    Repeat>ww
      WriteLn>%temp_dir%Make a file to wake the drive.txt,wres,Arbitrary Text
      Add>ww,1
    Until>ww=5
      DeleteFile>%temp_dir%Make a file to wake the drive.txt
      Let>RP_Wait=0
      RunProgram>%command_Line% %Script_Dir%\P13 Min Test Called Macro.scp /vData=%vData%

      //Macro>%script_Dir%\P13 Min Test Called Macro.scp /vData=%vData%
      //Min>vMM

      //DateStamp>%temp_dir%DateStampPuzzlerTrial.txt,%vData% - %vLastTime%
      GetTime>vLastTime
      SetDialogProperty>Dialog1,Label2,Caption,vLastTime
      Min>vMM
      DeleteFile>%temp_dir%PuzzlerCPULoad.txt
      GoSub>GetCPU
      Add>vCycleCount,1
      SetDialogProperty>Dialog1,Label1,Caption,Cycles = %vCycleCount%
      //LibFunc>Winmm,timeEndPeriod,vResE,1
      Goto>Control
    //EndIf
    Goto>NoWait
  EndIf
  Label>Control
  GetTime>vPreTime
  SetDialogProperty>Dialog1,,Caption,vPreTime
  Sec>vSS
  If>vSS>55
    Wait>0.01
    Goto>Control
  EndIf
  Wait>0.01
Goto>ReTime

SRT>GetCPU
  Let>RP_Wait=1
  RunProgram>cmd /c wmic cpu get loadpercentage > %temp_dir%PuzzlerCPULoad.txt
  ReadLn>%temp_dir%PuzzlerCPULoad.txt,2,vData
  Trim>vData,vData
END>GetCPU

SRT>Quit
  //LibFunc>Winmm,timeEndPeriod,vResE,1
  ExecuteFile>%script_Dir%\Analyze_timestamp_Output.scp
  Exit>0
END>Quit

Exit>0

Code: Select all

Let>RP_Wait=1
Let>RP_Windowmode=0

//LibFunc>Winmm,timeBeginPeriod,vResB,1

Min>vMM

//Two seconds of tight loop
LibFunc>Winmm,timeBeginPeriod,vResB,1
Label>NoWait
  Min>vMM2
  If>%vMM%<>%vMM2%
    DateStamp>%temp_dir%DateStampPuzzlerTrial.txt,%vData%
    LibFunc>Winmm,timeEndPeriod,vResE,1
    Goto>Control
  EndIf
  Goto>NoWait
EndIf
Label>Control

Exit>0

[Dorian (MJT support)]

Added to v15.0.23