Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
Share Thread:
lazarusda role kartı kontrolü hk.
#1
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


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;
Ara
Cevapla
#2
24 nolu portu çıkış olarak kaydetmek gerekiyormuş sonradan farkettim aşagıdaki kodu eklediğimde çalıştı arkadaşlar saygılar.

procedure TForm1.FormCreate(Sender: TObject);
var
fileDesc: integer;
begin
{ Prepare SoC pin 17 (pin 11 on GPIO port) for access: }
try
fileDesc := fpopen('/sys/class/gpio/export', O_WrOnly);
gReturnCode := fpwrite(fileDesc, PIN_24[0], 2);
LogMemo.Lines.Add(IntToStr(gReturnCode));
finally
gReturnCode := fpclose(fileDesc);
LogMemo.Lines.Add(IntToStr(gReturnCode));
end;
{ Set SoC pin 17 as output: }
try
fileDesc := fpopen('/sys/class/gpio/gpio24/direction', O_WrOnly);
gReturnCode := fpwrite(fileDesc, OUT_DIRECTION[0], 3);
LogMemo.Lines.Add(IntToStr(gReturnCode));
finally
gReturnCode := fpclose(fileDesc);
LogMemo.Lines.Add(IntToStr(gReturnCode));
end;

end;
Ara
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Pi 3 röle Kullanımı endoramax 1 1,505 08-02-2019, 04:24 AM
Son Yorum: Frankwilfried
  [Soru] Raspi 3 ile Röle Kontrolü mozkaradas 0 1,103 10-04-2017, 01:32 PM
Son Yorum: mozkaradas

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi