Öncelikle 330 Ohm direnç, led ve 5V dan oluşan malzemelerle yanda görülen bağlantıyı yapınız.
B100D_Ornek.Dpr Delphi proje dosyasını tıklayın ve form üzerine buton ekleyin. Butonun click procedure başlığına MotorOn(); ve Pwm(1000); komutlarını ekleyin.
procedure Tform1.Buton1Click(Sender: Tobject);
begin
MotorOn();
Pwm(1000);
Pwm(1000);
end;
Programı çalıştırın. Init tuşuna basın.
Usb modül hazır
B100 işlemcisi harekete geçirildi
B100 kartı hareket komutları için hazır mesajlarını alacaksınız.
Şimdi, forma eklediğiniz Butonu tıkladığınızda pwm çıkışına bağladığınız ledin ışıldadığını göreceksiniz. Işığın parlaklığını Pwm(1000); satırındaki 1000 rakamı değiştirerek ayarlayabilirsiniz. Bu değeri 0 ile 4095 arasında değiştirebilirsiniz.
Foruma bir başka buton daha ekleyip bunun click procedure içine MotorOff(); yazarsanız bu buton tıklandıgında lediniz sönecektir. Form üzerine ekleyeceğiniz ayar çubuğu (ScrollBar) ile ledin ışığını program çalışırken de ayarlayabilirsiniz.
Bunun için ScrollBar1Change procedure içine MotorOn(); ve Pwm(ScrollBar1.position); komutlarını ekleyin.
Object Inspector penceresinde Properties menüsünden ScrollBar ın min değerini 0, max değerini de 4095 olarak set ederseniz ledin ışığını en kısıktan en parlak değere kadar dilediğiniz gibi ayarlayabilirsiniz.
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
MotorOn();
Pwm(ScrollBar1.Position);
end;
Küçük güçlü 9..12v 1Amp. gibi fırçalı DC motorları PWM çıkışından kontrol etmek isterseniz yukarıda şeması verilen devreyi kurabilirsiniz.
Hiç yorum yok:
Yorum Gönder