[halil kundakci]

Rapberry pi 3 üzerinden lazarus h2wiringpi.pas kütüphanesi kullanılarak servo motor(sg90) kontrol edilebilir mi?

Şöyle bir örnek yaptım

Kod:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 ExtCtrls, h2wiringpi;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;

   procedure Button1Click(Sender: TObject);

 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }



procedure TForm1.Button1Click(Sender: TObject);
begin

 wiringPiSetupGpio;
  pinMode(18, PWM_OUTPUT);
  pwmSetMode(PWM_MODE_MS);
  pwmSetRange(200);
  pwmSetClock(1920);
  pwmWrite(18,150);

end;

end.

Derledi ve çalıştırdı. Ancak program içerisindeki button1'e tıklanınca program sonlanıyor.  Servo tepki vermiyor.

Neyi yanlış veya eksik yaptım bilmiyorum?
Servo'yu aynı pinlerde scratch'de denedim, sağlam.