Форум РадиоКот

Код: Выделить всё

uchar   usbFunctionWrite(uchar *data, uchar len)
{
    uchar    on_off;
    on_off = data[0];
    
    DDRB |= 0x80;
    
    if (on_off==0) { 
      PORTB &= ~ ( 0x80 );
      }

    return 1; /* return 1 if this was the last chunk */
}

Код: Выделить всё

uchar   usbFunctionWrite(uchar *data, uchar len)
{
    uchar    on_off;
    on_off = data[0];
    
    DDRB |= 0x01;
    
    if (on_off==0) { 
      PORTB &= ~ ( 0x01 );
      }
    else if (on_off==1) {
      PORTB |= ( 0x01 );
      }
    return 1; /* return 1 if this was the last chunk */
}

Код: Выделить всё

.....
var
  Form1: TForm1;
  FeatureReportLen: integer = 0;
  MyReport: array[0..8] of byte;
  on_off:integer=0;

implementation

{$R *.dfm}

function TForm1.JvHidDeviceController1Enumerate(HidDev: TJvHidDevice;
  const Idx: Integer): Boolean;
begin
  FeatureReportLen := HidDev.Caps.FeatureReportByteLength;
  fillchar(MyReport, 8, 0);

  if on_off=0 then
    begin
    MyReport[1] := 0;
    on_off:=1;
    end
  else begin
    MyReport[1] := 1;
    on_off:=0;
  end;
  Result := HidDev.SetFeature(MyReport, FeatureReportLen);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
JvHidDeviceController1.Enumerate;
end;