Manuel Pastene
New Member
Hi everybody,
I'm currently developing a little piece of software that displays different frames depending on the buttons I click.
The first laser is connected through a switch to my computer. The problem comes when I connect a second laser to the switch and I order it to display a frame. The first laser does it flawlessly but the second doesn't even seem to get the instruction.
This is the method I'm using (supplied by a helpful Pangolin engineer):
procedure TForm1.Button1Click(Sender: TObject);
begin
//----------------------------------------------------------------------------
// Show 1st frame on 1st projector
//----------------------------------------------------------------------------
SetWorkingScanners(1);// Select 1st projector
SetWorkingTracks(1); //Display track 1, use it constantly
DisplayFrame(1);
//DisplayFrame(2); also works fine
DisplayUpdate;
end;
The procedure for the second laser is
procedure TForm1.Button3Click(Sender: TObject);
begin
MessageDlg('Second laser shooot!', mtInformation, [mbOk], 0);
//----------------------------------------------------------------------------
// Show 3rd frame on 2st projector
//----------------------------------------------------------------------------
SetWorkingScanners(2);// Select 2nd projector
SetWorkingTracks(1); //Display track 1, use it constantly
DisplayFrame(3);
DisplayUpdate;
end;
A simple video showing the program working is here: https://drive.google.com/file/d/0BytaR0f9cf3PNDNLZ0l0TmFnYlE/view?usp=sharing
How can I make the second laser to work? Is there an extra configuration I need to perform? I have added the main Pascal file for reference.
Thanks!
I'm currently developing a little piece of software that displays different frames depending on the buttons I click.
The first laser is connected through a switch to my computer. The problem comes when I connect a second laser to the switch and I order it to display a frame. The first laser does it flawlessly but the second doesn't even seem to get the instruction.
This is the method I'm using (supplied by a helpful Pangolin engineer):
procedure TForm1.Button1Click(Sender: TObject);
begin
//----------------------------------------------------------------------------
// Show 1st frame on 1st projector
//----------------------------------------------------------------------------
SetWorkingScanners(1);// Select 1st projector
SetWorkingTracks(1); //Display track 1, use it constantly
DisplayFrame(1);
//DisplayFrame(2); also works fine
DisplayUpdate;
end;
The procedure for the second laser is
procedure TForm1.Button3Click(Sender: TObject);
begin
MessageDlg('Second laser shooot!', mtInformation, [mbOk], 0);
//----------------------------------------------------------------------------
// Show 3rd frame on 2st projector
//----------------------------------------------------------------------------
SetWorkingScanners(2);// Select 2nd projector
SetWorkingTracks(1); //Display track 1, use it constantly
DisplayFrame(3);
DisplayUpdate;
end;
A simple video showing the program working is here: https://drive.google.com/file/d/0BytaR0f9cf3PNDNLZ0l0TmFnYlE/view?usp=sharing
How can I make the second laser to work? Is there an extra configuration I need to perform? I have added the main Pascal file for reference.
Thanks!