Phidgets Forums

Code: Select all

procedure TForm1.btnTempClick(Sender: TObject);
begin
  Try
    //Zero the iteration count
   iter:=0;

   //Create and connect our 1045 object
   phTemp:=TTemperatureSensor.Create();
   phTemp.TemperatureChange:=Self.phTempTemperatureChange;
   phTemp.Attach:=Self.phTemperatureAttach;
   phTemp.DeviceSerialNumber:=424905;
   phTemp.IsLocal:=True;
   phTemp.IsRemote:=False;

   phTemp.Open(250);

   if phTemp.Attached = True then
    lblAttach.Caption:='Attached';

  Except
   On e:Exception do
    ShowMessage(e.Message);
  End; {Try}

end; {btnTempClick}

{*}

procedure TForm1.phTemperatureAttach(sender: IClrBaseObject;  e: IAttachEventArgs);
begin
   //Enable our timer to update the display
   tTemp.Enabled:=True;
   phTemp.TemperatureChangeTrigger:=0;
   phTemp.DataInterval:=phTemp.MinDataInterval;

end;

procedure TForm1.phTempTemperatureChange(sender: IClrBaseObject; e: ITemperatureSensorTemperatureChangeEventArgs);

begin
  Try
   //Set our variable depending on the channel
   If (Sender as TTemperatureSensor).Channel = 1 Then
    Self.dAmbient:=(Sender as TTemperatureSensor).Temperature
   Else
    Self.dIRTemp:=(Sender as TTemperatureSensor).Temperature;

   //Increment count so we can see how many change events happened
   inc(iter);
  Except
   On e:Exception do
    Begin
     ShowMessage(e.Message);
     tTemp.Enabled:=False;
   End;
  End; {Try}

end; {phTempTemperatureChange]

{*}

procedure TForm1.tTempTimer(Sender: TObject);
begin
  tTemp.Enabled:=False;
  lbl1.Caption:='Direct: ' + FloatToStr(self.dIRTemp);
  lbl2.Caption:='Ambient: ' + FloatToStr(self.dAmbient);

  lblIteration.Caption:='Iterations: ' + IntToStr(iter);
  tTemp.Enabled:=True;

end; {tTempTimer}