ikilik tabandaki sayılara AND ve OR işlemi uygulamak

[fth_murat]

mrb arkadaşlar
ben yine burdan bulduğum kompanentle paralel porta bilgi yolluyorum, ancak ben D7 bitini diğerleri ne olursa olsun 1'lemek ve 0'lamak istiyorum,
bunuda programlamada kullanılan maskeleme yöntemi ile yapmak istiyorum, bunun için delphi de bu komutlara ihtiyacım var, yardımcı olursanız sevinirim...

[lazio]

D7 biti ne demek??
değeri D7 olan bir sayıyımı set yada reset etmek istiyorsun?

Kod: Tümünü seç

var
  x : Byte;
begin
  x := $D7;
  ShowMessage(IntToStr(x));
  //  x := x or 1;  // set
  //  x := x and 0; // reset
  ShowMessage(IntToStr(x));

eğer herhangi bir bit e set/reset uygulayacaksan
x or (1 shl $D7); gibi kullanabilirsin..

[ulu coder]

D7, Data7 herhalde.

Kod: Tümünü seç

var
  eski:byte;
begin
  eski:=SmallPort1.Port[$378];
  eski:=eski mod 128 //D7 mutlaka sıfır.
  eski:=eski+128  //D7'yi 1 yapmak isterseniz bunu da yazın.
  SmallPort1.Port[$378]:=eski;
end;

Kolay gelsin.