Thema: Delphi USB Programmieren

Einzelnen Beitrag anzeigen

joehd

Registriert seit: 8. Okt 2008
Ort: Heidelberg
109 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#33

AW: USB Programmieren

  Alt 5. Jan 2014, 19:15
Also in einem anderen Thread habe ich eine Frage zur Seriellen Communikation gestellt darin ist auch eine Unit die sehr einfach ist.
Die kannst du nehmen und die Register schalten ..

Delphi-Quellcode:
//===========================================
procedure TForm1.Button6Click( Sender: TObject );
begin
  ComPort1.SetRTS( true );
end;

//===========================================
procedure TForm1.Button7Click( Sender: TObject );
begin
  ComPort1.SetRTS( false );
end;

//===========================================
procedure TForm1.Button8Click( Sender: TObject );
begin
  ComPort1.SetDTR( true );
end;

//============================================
procedure TForm1.Button9Click( Sender: TObject );
begin
  ComPort1.SetDTR( false );
end;

end.
Dann hast du schon mal 2 Ausgänge

Als Transistor würde ich einen NPN nutzen z.B. BC 546
die Grundschaltung ist einfach .

Emitter nach Minus GND
Basis über einen Widerstand ( 10 KOhm ) an den Ausgang positives Signal schaltet den Transistor durch
Deine z.B. LED Schaltest du über plus und einen Vorwiederstand ca 1 KOhm an +5 Volt
Siehe auch Bild .
R2 ist Quasi die LED und der Vorwiderstand der LED. Auf die Richtige Polung der LED achten ! sonst geht sie nicht ..
R_LED berechnet sich aus R = U/I = (UB -ULED)/ ILED = (5Volt-2Volt)/0,005 A = 600 Ohm ich nehme immer 1 KOHM das klappt dann schon ...

Über den BS546 kannst du ca 200 mA schalten und PTOT ( maximale Verlustleistung am Transistor dann ist er TOT ) sind 500 mWatt ...
wenn du ein Relais damit betreiben möchtest dann muss da noch eine Schutzdiode über die Spule die dann in Sperrrichtung betrieben wird. Also Kathode an + und Anode an -.
Die Schaltung kann man auch an einem µC ( Pic oder Microcontroller ) nutzen. Die Maximale Belastung eines USB Anschluss darf 500 mA nicht überschreiten. (USB 2.0 ) Sonst ist er futsch. Ich würde nicht mehr als 400 machen.
Grüße Joachim

ggf noch benötigte Links mit Delphi Beispielen wie schon jemand geschrieben der FT232R kann mehr ...

http://www.ftdichip.com/Drivers/VCP.htm

Die benötigte Unit für die Serielle Kommunikation ist die TCOMPORT die habe ich schon mal hier hochgeladen. Diese ist jedoch nicht von mir !
Miniaturansicht angehängter Grafiken
transistor-npn.jpg  
joe
immer wenn ich was suche finde ich es hier komisch oder ?
Arbeite mit D3 D5 D2007 DXE Prof
  Mit Zitat antworten Zitat