02-11-2019, 01:27 PM
arkadaşlar raspery pi ye uygun role kartı aldım
kartın tanıtımında 21 -22 -23 -24 çıkışlar rolelere bağlanmıştır diyor
lazarusdaki örnekleri inceleyerk 21 çıkış için bir örnek yaptım ve ilk roleyi çalıştırdım
fakat aynı kodları kullarak diğer roleleri çalıştıramıyorum
problem ne olabilir acaba saygılar sunarım
aşagıdaki örnekde 24 ler 21 yaptıgımda role çekiyor veya kapatıyor
ama 22 23 veya 24 yaptığımda diğer roleyi kontrol etmiyor
kartın tanıtımında 21 -22 -23 -24 çıkışlar rolelere bağlanmıştır diyor
lazarusdaki örnekleri inceleyerk 21 çıkış için bir örnek yaptım ve ilk roleyi çalıştırdım
fakat aynı kodları kullarak diğer roleleri çalıştıramıyorum
problem ne olabilir acaba saygılar sunarım
aşagıdaki örnekde 24 ler 21 yaptıgımda role çekiyor veya kapatıyor
ama 22 23 veya 24 yaptığımda diğer roleyi kontrol etmiyor
Kod:
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,Unix, BaseUnix;
type
const
PIN_ON: PChar = '1';
PIN_OFF: PChar = '0';
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
fileDesc: integer;
begin
try
fileDesc := fpopen('/sys/class/gpio/gpio24/value', O_WrOnly);
gReturnCode := fpwrite(fileDesc, PIN_ON[0], 1);
finally end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
fileDesc: integer;
begin
try
fileDesc := fpopen('/sys/class/gpio/gpio24/value', O_WrOnly);
gReturnCode := fpwrite(fileDesc, PIN_OFF[0], 1);
finally end;
end;