AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TSerial

Ein Thema von MatthiasW · begonnen am 29. Jan 2003 · letzter Beitrag vom 29. Jan 2003
Antwort Antwort
Seite 1 von 2  1 2      
MatthiasW

Registriert seit: 29. Jan 2003
Ort: Reichenbach
253 Beiträge
 
Delphi 2009 Professional
 
#1

TSerial

  Alt 29. Jan 2003, 19:11
Hallo,

ich möchte mit der ToolBox - Kompo an meine Serielle Schnittstelle zwei LED's betreiben. Die eine soll blinken wenn ein Befehl abgearbeitet wird und die andere soll anzeigen ob der Rechner On/ Offline ist. Ich hatte gedacht ob ich dazu das TSerPort verwenden könnte, da ich jede PIN einzeln ansprechen möchte. Aber irgendwie funktioniert das net, es passiert überhaupt nix keine LED keuchtet nichts.

Ich verwende folgenden Code:

SerPort1.Out_RTS := true;
SerPort1.Active :=True;

Weiß jemand wieso das net get?

Mfg Matthias
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#2
  Alt 29. Jan 2003, 19:19
Hi,

ich benutze eine andere Komponente, daher kann cih zu Deiner nicht viel sagen, aber was Du vor hast, kann nicht gehen.
An der Seriellen gibt es nur zwei Leitungen, eine fürs Senden und eine fürs Empfangen. Dann noch die Handshake Leitungen, die Du jetzt mal nicht brauchst. Dabei werden die Daten hintereinander gesendet. Wenn Du egal was für Daten auf die Schnittstelle ausgeben würdest, dann würde Deine LED dauern leuchten, wenn es nicht gerade ein Befehl ist der in einer ms schon wieder weg ist, dann wirst Du warscheinlich das "kurze" aufblitzen der LED nicht mehr wahrnehmen.
Was Du brauchst ist die Parallele Schnittstelle, die hat 8 "einzelne" Leitungen die Du dann einzeln auch ansprechen kannst und somit irgend welche LEDs zum leuchten bringen kannst oder auch nicht.
Wenn Du wissen möchtest ob Dein Rechner an ist, dann häng Dir doch eine LED direkt ans Netzteil Oder Du arbeitest mit der parallelen Schnittstelle.

Grüsse, Daniel
  Mit Zitat antworten Zitat
MatthiasW

Registriert seit: 29. Jan 2003
Ort: Reichenbach
253 Beiträge
 
Delphi 2009 Professional
 
#3

TSeriel

  Alt 29. Jan 2003, 19:53
Hallo,

gut das würde einiges erklären. Aber es gibt doch für Unix das CPanel und da geht das mit dem COM1 doch auch, deswegen verstehe ich das ganze net.
Beim CPanel fürs Unix kann man damit zwei LED's ansteuern und mit 4 Tasten den Rechner steuern. Sowas wollt ich eben für mein Windows 2000 auch machen.

Na gut, vielleicht sollte ich das mal mit der parallelen Schnittstelle versuchen.

Mfg Matthias
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#4

Re: TSeriel

  Alt 29. Jan 2003, 20:11
Zitat von MatthiasW:
...Na gut, vielleicht sollte ich das mal mit der parallelen Schnittstelle versuchen.
Laß das lieber gleich bleiben. Genau für das, was Du vorhast ist die serielle nämlich gedacht Vor allem, um Geräte anzusteuern, die mit dem PC nichts zu tun haben, z.B. LED. Habe mir mal gerade ein externes Modem geschnappt, da gibt es LEDs für : RTS,CTS,LINE,RXD,TXD usw. Mit denen läuft das genau so, wie das auch bei Deinen eigenen LEDs laufen müßte. Von der Parallel-Schnittstelle eine Rückmeldung zu bekommen, da muß man ganz schön ackern, um sowas hinzubekommen. Im Prinzip ist die unidirektional. Ich tippe auf den handshake, was nichts anderes bedeutet, wie : "Stopp, hör auf zu senden, ich komme nicht mehr nach" und später dann "Mach weiter, ich habs gepackt".

Gruß
Hansa
  Mit Zitat antworten Zitat
MatthiasW

Registriert seit: 29. Jan 2003
Ort: Reichenbach
253 Beiträge
 
Delphi 2009 Professional
 
#5
  Alt 29. Jan 2003, 20:25
Zitat:
laß das lieber gleich bleiben. Genau für das, was Du vorhast ist die serielle nämlich gedacht Vor allem, um Geräte anzusteuern, die mit dem PC nichts zu tun haben, z.B. LED. Habe mir mal gerade ein externes Modem geschnappt, da gibt es LEDs für : RTS,CTS,LINE,RXD,TXD usw. Mit denen läuft das genau so, wie das auch bei Deinen eigenen LEDs laufen müßte. Von der Parallel-Schnittstelle eine Rückmeldung zu bekommen, da muß man ganz schön ackern, um sowas hinzubekommen. Im Prinzip ist die unidirektional. Ich tippe auf den handshake, was nichts anderes bedeutet, wie : "Stopp, hör auf zu senden, ich komme nicht mehr nach" und später dann "Mach weiter, ich habs gepackt".
Aber wieso kann ich dann nicht die PIN's einzeln ansprechen?

Mfg Matthias
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#6
  Alt 29. Jan 2003, 20:32
Natürlich kannst Du das, aber es hakt halt irgendwo. Nur Wo ? Geh doch einfach mit dem Holzhammer hin, mache eine Endlosschleife und schicke daten ohne Ende. Irgendwann muß das Teil doch leuchten. Dazu mußt Du natürlich den richtigen Draht finden. Wahrscheinlich ist Dein Signal nur zu kurz.

Gruß
Hansa
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#7

Re: TSeriel

  Alt 29. Jan 2003, 20:33
Zitat von Hansa:
da gibt es LEDs für : RTS,CTS,LINE,RXD,TXD usw.
Und die hängen direkt an der seriellen Anschlussbuchse?
Zitat:
Mit denen läuft das genau so, wie das auch bei Deinen eigenen LEDs laufen müßte.
Wenn man Daten langsam genug drüber lässt.
Man kann natürlich an die Sendeleitung eine LED dran machen, und schick mal eine Datei zur seriellen, da wird die LED schon leuchten, aber ob das gewollt ist?
Ein einfach Ein- und Ausschalten der LED erreicht man am einfachsten mit der parallelen, dafür gibt es zig-Delphi Projekte, die nichts anderes machen als an der parallelen Port zu setzen und wieder zu löschen.
Achja, entkoppeln wäre auch nicht schlecht, und vergleiche mal die Daten die rausgehen, mit denen die wieder rein kommen. Würde mich mal interessieren ob die gleich sind.

Das mit den zwei LEDs und vier Tastern, erklär mir mal bitte wie Du das mit der seriellen machen willst! Ohne extra Hardware!!
Mit der parallelen kein Thema. Wie das unter UNIX ist weiss ich nicht, glaube aber nicht das die serielle da anders aussieht.

Grüsse, Daniel
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#8
  Alt 29. Jan 2003, 20:42
Zitat:
Und die hängen direkt an der seriellen Anschlussbuchse?
Nicht direkt, aber indirekt, eventuell sind sie tatsächlich nur durchgeschleift. Ich mußte mal einen Schrittmotor ansteuern, vor und wieder zurück. LEDs sind da eher noch einfacher zu handeln. Wo sind denn die überhaupt angeschlossen, also an welcher Leitung ?

Gruß
Hansa
  Mit Zitat antworten Zitat
MatthiasW

Registriert seit: 29. Jan 2003
Ort: Reichenbach
253 Beiträge
 
Delphi 2009 Professional
 
#9
  Alt 29. Jan 2003, 20:45
Nee, funktioniert nicht: Wenn ich die TSerPort - Kompo nehme und den Holzhammer auspacke und die Schnittstelle 50 mal in der Sekunden mit Daten bombardiere leuchtet nix. Ich habe im Test die RTS Leutung verwendet.

Wenn ich TSeriel verwende und nen Text über die Schnittstelle schicke dann
leuchtet die LED die ich an PIN 3 und 5 habe sowie die an 4 und 5 aber auch an 5 und 7. Es kommt also auf allen eine Spannung an. Was mache ich nur verkehrt?

Mfg Matthias
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#10
  Alt 29. Jan 2003, 20:54
Ich beahupte das da ein schöner Controller dazwischen hängt. Sonst würdest Du niemals ein Blinken wahrnehmen, sondern alles LEDs würden leuchten und sonst nichts.
Du kennst ja die zwei Monitore unten rechts im Tray, die Blinken beim Senden und Empfangen, das ist nichts anderes.
Die einzigste möglichkeit die ich sehe, um eine LED an der seriellen zum leuchten zu bringen, ist sie TxD und Masse, mit einem Vorwiderstand, und dabei ständig die serielle zu füttern, ständiges Daten raus schreiben. Und zwar nicht gerade wenig. Schreib in einer Endlosschleife irgend ein Ascii-Zeichen raus. Und zwar schnell. Dann würde sie auch nur dauerleuchten.
Aber das halte ich für nciht gerade sinnvoll.
Anders ist es bei der parallelen.
Da hat man 8 Port, die als Ein- oder Ausgänge benutzt werden können.
Da könnte man auch mit LEDs und Tastern arbeiten.
Man muss nur alles schön entkoppeln, wenn man sich das Motherboard nicht kaputt machen will!
Da kann man einzelne Ports einfach Ein.- und weider Ausschalten. Ich denke sowas hat Er gesucht.
An der seriellen gibts das TxD fürs Senden, das RxD fürs Empfangen und CTS und RTS fürs Handshake. Das man aber Hardware-Technisch setzen muss. Man kann per Software nur das Handshake Einschalten! Und überprfüen ob es gerade gesetzt ist. Aber nicht selbst setzen. Das regelt der IC der seriellen.
Man könnte das ganze natürlich wieter treiben.
Man besorge sich einen PIC. Ein einfachen 16F84, lernt etwas ASM, der 16F83 hat nur 32 Befehle.
Da könnte man ein Programm schreiben, das Daten von der seriellen auswertet und entsprchend die Ports des PICs setzt. Aber das würde jetzt etwas zuweit gehen.
Wie gesagt, ich schlage immernoch die parallele vor.
Ist die einfachste Möglichkeit. Nur das Entkoppeln sollte man nicht auslassen und vorsichtig sein mit dem was man anschliesst, denn der Port liefern nur sehr wenig Strom!

Grüsse, Daniel //<-- dem jetzt langsam die Tinte in der Tastatur ausgeht
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz