
step motor
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
step motor
merhaba ben delphide step motor kontrolü yapmak istiyorum. bana yardımcı olursanız sevinirim 

Kod: Tümünü seç
hCommFile : THandle;
CommPort : string;
Msg : string;
Buffer : DWord;
Kod: Tümünü seç
CommPort := 'COM3'; //Portu ac
hCommFile := CreateFile(PChar(CommPort), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hCommFile = INVALID_HANDLE_VALUE then
begin
ShowMessage('Port Acilamadi'+ CommPort);
exit;
end
else
ShowMessage('açıldı');
Kod: Tümünü seç
Msj := '11001101'
Buffer := 0;
if WriteFile(hCommFile, PChar(Msj)^, Length(Msj), Buffer, nil) = false then
begin
ShowMessage('Porta yazilamiyor' + CommPort);
end;
ama komponentlerle daha basit