Controlar dispositivos por el puerto serie

Amigo disculpa, no podrías decirme como se hace esto mismo en visual basic. Yo se que esta pagina esta dedicada a delphi, pero nunca he programado en este lenguaje.. gracias

disculpa la molestia lo que necesito es enviar toda una trama bajo protocolo RS232, por ejemplo enviar una cadena de caracteres ASCII. Lo que no se es que si es posible hacerlo bajo WinXP, ya que me dijeron que los accesos a puertos están restringidos. De ante mano muchas gracias por todo.

Estimado:

Estoy experimentando poder utilizar este circuito y programacion para que al hacer un click en un programa de broadcasting se encienda una luz de ON AIR. es factible? Gracias desde ya!!
Un cordial abrazo.-

Buenos Días:

Gracias por compartir tus conocimientos con la humanidad ! : )

Haciendo un llamado a tu amabilidad y abusando de ella quiero hacerte unas preguntas esperando que me las puedas contestar:

Antes que eso, soy programador, no muy bueno pero lo soy, y de electrónica realmente no se mucho pero estoy elaborando un sistema
de control de acceso a una escuela por medio de credenciales con codigo de barras. Se trata entonces de que cuando una credencial pase la prueba de acceso, la computadora mande una señal a una "chapa" eléctrica de una puerta y se abra. Son muy comunes en los consultorios médicos para que la secretaria no se tenga que parar a abrir la puerta o en otros lados.
Normalmente ese tipo de chapas ya vienen listas para conectarles un par de cablecitos que vienen de un transformador o "eliminador" como les llamams en Mexico..de esas cajitas negras que venden para dar la corriente adecuada a dispositivos electrónicos de casa como juguetes, aparatos eléctricos domesticos como lamparas, celulares etc.

Este tipo de chapas funciona de tal manera que cada vez que se aprieta un boton..se envia una corriente electrica y se activa el mecanismo de la chapa y abre..asi de facil. ¿Esté circuito tuyo me sirve para eso?

Otra pregunta.. en el diagrama hasta arriba viene una V+ y supongo que esa se conecta al PIN Numero 7 del puerto y entonces:
Se conecta unicamente 1 solo cable a ese pin?? nomas así?

Que es el RTS y el GND?
El T! es un relay o que es? ¿EN caso de que alguno de los dispositivos tengan 3 patitas..cuales se deben usar?

Que partes de este circuito debo variar por ejemplo si resulta que la "chapa" de la puerta ocupa un voltaje mayor que el que da este circuito?

Es posible que "truene" la computadora si me equivoco y conecto mal algo?

Gracias. Perdón por el abuso de preguntas..pero me gustaría mucho entender esto.

Mira a mi me encargaron que hiciera un lector asignador (asi me dijo el profe) de codigos para tarjeta chip (como las de los celulares GSM) pero la verdad es que no he encontrado la forma de hacerlo podrias ayudarme la idea es que haga algo asi mas o menos como lo digo el colega Ivan solo que pues tu codigo me resuelve el abrir la puerta pero necesito que sea con ciertas claves que lo haga ye so la verdad es que no se

Hola esta muy buena la ayuda pero hay algo que me tiene loco, trate de hacer uno de estos procedimientos desde una DLL y la verdad no pude o no supe como ponerlo a funcionar, esta es mi función:

function AbrirPuerto: Boolean;stdcall;
var
  DeviceName: array[0..80] of Char;
  ComFile:Thandle;
begin
 
   { primero se abre la comunicacion para lectura y escritura.
     se utiliza la funcion de Win32 "create file".}
  StrPCopy(DeviceName, 'COM1:');
 
  ComFile := CreateFile(DeviceName,    GENERIC_READ or GENERIC_WRITE,      0,    nil,    OPEN_EXISTING,     FILE_ATTRIBUTE_NORMAL,   0);
 
 if ComFile = INVALID_HANDLE_VALUE then
    Result := False
  else
    Result := True;
end;

Pero inmediatamente me sale 6 errores cada uno perteneciente a los parámetros usados por la función "Create File" en las 2 lineas a continuación:

  ComFile := CreateFile(DeviceName,    GENERIC_READ or GENERIC_WRITE,    0,    nil,    OPEN_EXISTING,    FILE_ATTRIBUTE_NORMAL,    0);
 
  if ComFile = INVALID_HANDLE_VALUE then............

La verdad no se que estoy haciendo mal o que me falta colocar dentro de la DLL, sera alguna declaración dentro de "Uses" porque cuando lo hago en un form normal me funciona.

Me gustaría me pudieras ayudar.

Hola , Tengo 0 Conocimientos de electrónica, Como tengo que hacer para conectar una salida del puerto serie a un relé(donde lo compro) y luego para encender o apagar un Aire creo que necesito un Contactor, este puedo conectarlo al relé???

Quiero empezar con lo mas simple que es encender y apagar una luz, que elementos de hardware tengo que comprar y como los tengo que conectar para desde la computadora poder controlar el encendido y apagado de una luz??? Mi objetivo final es el de arriba pero pienso que primero debo poder prender y apagar una lamparita

Muchas Gracias

Hola, es interesante el circuito. Mi preguta es la siguiente, ¿Este ciruito funciona para activar solamente un torniquete de contacto seco? si es asi, ¿Como se conecta a la tarjeta del torniquete? Consulte al fabricante y me comentó que los contactos secos NO pueden recivir ningún tipo de voltaje. El contacto seco es simplemente hacer un puente entre los dos pin y eso activa el torniquete para permitir el acceso, cuando gira la perilla metálica, el mecanismo interno del torniquete pulsa un boto de un interuptor y bloquea nuevamente el torniquete. Disculpa tantas palabras, espero su respuesta. Gracias, y que tengan un buen tiempo todos en este importante foro.

Hola muy bueno muchas gracia todavía mucho no entiendo .. pero me va a servir jeje grax

Hola. Hice el programa, pero, como se que esta funcionando sin poner el relé. Como hago para poner mensajes de error en caso que no se active el puerto, hay alguna excepción que devuelva Windows?
Es interesante el programa, pero siento que falta eso. Por favor ayúdenme.

Muy buen articulo, enhorabuena. Espero no haber llegado muy tarde y que el hilo no esté cerrado. He probado el código y me funciona perfectamente. Con un led consigo encender, apagar, destellos a distintas velocidades .. con un pequeño control slide en delphi.

El siguiente paso era poder encender/apagar un bombilla común de una casa. He intentado probar a poner directamente a la salida de los pines del puerto un relé de 6v y no consigo que se mueva. (Como si no tuviese fuerza). Lo de simplificar ... como que quitar el transistor es pasarse n? xD

Voy a pillarme el transistor para probar. El único problema es q .. ¿el circuito debe alimentarse al usarse un transistor n?.
En caso que esto funcione .. a ver si se pudiese hacer algo similar mediante usb.

Gracias.

PD: Soy programador en delphi. Me gustan mucho estos temas relacionados con la "domotica" .. si puedo ayudar en algún proyecto.. estaría encantado. Enhorabuena!!

Hola, estoy queriendo abrir un portero electrónico con un sistema en delphi.
Esta función me sirve para tal caso?. El portero abre con 12volts.
SLDS y gracias.

AGRADECIMIENTO

Mis mas sinceros agradecimientos para el admin del tema.
Quisiera saber si el código de este proyecto me podría servir para
lograr controlar un lector de etiquetas RFID y recuperar el numero del identificador
en una variable del programa, no se como leer el valor obtenido por el lector
que tiene conexión RS232.

Gracias de antemano.

Hola, estoy por utilizar el circuito, pero no me queda claro la conexión del relevador y la toma de corriente eléctrica. Necesito encender/apagar una luz desde C#. Espero puedas aclarar un poco mas el circuito, tengo un relevador de 5 pines (JQC-3FC T73) azul.

Saludos Amigo:

La verdad es un excelente trabajo este diagrama, lo he probado y funciona a la perfeccion. Solo tengo una duda: para hacer el control de dos dispositivos con el mismo puerto, segun alguna vez leí, se tenian que utilizar las lineas de rts y gnd para uno y cts y gnd para el otro, es asi de simple?

es decir, seria el mismo circuito y funciones para cts? o me dieron informacion equivocada :D.

Muchas gracias por esta info, de verdad es muy valiosa

Saludos, una gran duda donde puedo comprar ese dispositivo o una guía paso a paso para construirlo, mis conocimientos de electrónica son prácticamente nulos pero creo que eso es exactamente lo que necesito para activar un pistón neumático conectado a un relevador desde mi programa.

Muchas gracias al administrador por este aporte... Muy bueno
Tengo una pregunta, yo estoy colocando el código, exactamente igual al primero de arriba y pienso hacerle un llamado con un botón es decir quedaría así:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Activar_RTS(COM1,4000);
end;

La pregunta sería, ¿como se yo cual es el COM que debo utilizar?, puesto que he hecho varias pruebas y midiendo con un voltimetro entre las patas RTS y GND, siempre obtengo casi 7 voltios y a pesar de que pasan 4 segundos, la señal siempre esta presente. ¿Cual podría ser mi error? saludos y muchísimas gracias

Hola mi estimado muy buena aportación y muy interesante para mi en particular de verdad lo que yo estoy intentando hacer es tener lectura de un termistor (esos que sirven para leer temperatura) sin embargo quiero saber si es posible tener la impresión en pantalla en ohmios (a través de cualquier pin)del puerto serie

El trabajo que nos pidieron realizar es un psicrometro pero yo intento adaptar el psicrometro a una pc a través del puerto serie gracias de antemano.

Mi proyecto es encender una calefaccion con el pc, es decir solo on/off con un rele o algo parecido. con el esquema electrico no tengo problemas, puesto que puedo acoplarlo a mis necesidades, pero el tema del software seme escapa. ¿Alguien me puede pasar un programa para xp o vista que controle el pin rts? es decir, un click = on permanente, otro click off. gracias
P.D. Se admiten sugerencias pero estoy pez en programacion

Muchas gracias!!!!

me vino más que muy bien esto, y apareció en google a la primera

Te felicito, y por siempre agradecido!!!

Y ya que estoy... (mangazo)
Estoy comenzando a usar a Anduino -nivel hobby-, pretendo manejar un par de servos desde la PC, en el microcontrolador tengo un muy pequeñisimo programa que lee el puerto USB (como puerto serie), al recibir una "A" incrementa en un grado un servo, con "S" decrementa en un grado, "K" y "L" para el otro servo, como notarás, nada complejo.

Ahora ya desde Delphi 2010: formulario, cuatro TButton... y aquí es justo donde encontré tu gran aporte, pregunta, ¿que cambio para enviar alguno de los caracteres mencionados?

ah!!!!
demás está que diga que acepto todo tipo de sugerencias para mi microproyecto.

No esperaba una respuesta tan completa y tan rápida.

Muchas gracias por el tiempo que le dedicas a esto.

Te cuento, este finde, experimentando con mi proyectito, hice lo siguiente:

Prog en el Arduino:

const byte Servo1=8, Servo2=9, Min=20, Max=160, Ret=5;
byte AngServo1, AngServo2;
int  APP; //Ancho Pulso Positivo
int  APN; //Ancho Pulso Negativo
char val;
 
void setup(){
  pinMode(Servo1, OUTPUT);
  pinMode(Servo2, OUTPUT);
  Serial.begin(9600);
  Centrar(AngServo1, Servo1);
  Centrar(AngServo2, Servo2);}
 
void PulsoServo(int Pin, int Ang){
  APP = (Ang * 10) + 600;
  APN = (Max * 10) + 600 - APN;
  digitalWrite(Pin, HIGH);
  delayMicroseconds(APP);
  digitalWrite(Pin, LOW);
  delayMicroseconds(APN);}
 
void loop(){
  if(Serial.available() > 0){
    val = Serial.read();
    switch (val){
      case '1': {AngServo1++; break;}
      case '2': {AngServo1--; break;}
      case '3': {AngServo2++; break;}
      case '4': {AngServo2--; break;}
      case '5': {AngServo1++;AngServo2++; break;}
      case '6': {AngServo1++;AngServo2--; break;}
      case '7': {AngServo1--;AngServo2++; break;}
      case '8': {AngServo1--;AngServo2--; break;}
      case '9': {Centrar(AngServo1, Servo1); Centrar(AngServo2, Servo2); break;}
    }
    PulsoServo(Servo1, AngServo1);
    PulsoServo(Servo2, AngServo2);
    Serial.print("Angulo Servo_1: ");
    Serial.print(AngServo1, DEC);
    Serial.print(" - Angulo Servo_2: ");
    Serial.print(AngServo2, DEC);
    Serial.println();
    Serial.flush();
    delay(Ret);}
}
 
void Centrar(byte &A, byte S){
  for(A = 90; A >=Min; A--){PulsoServo(S, A);}    
  delay(Ret);
  for(A =Min; A <=Max; A++){PulsoServo(S, A);}
  delay(Ret);
  for(A =Max; A >= 90; A--){PulsoServo(S, A);}
  delay(Ret);
  A = 90;
  PulsoServo(S, A);}

Y en Delphi:

procedure AbrirPuerto(Puerto: String);
var DCB: TDCB;
 
begin
  Puerto := Uppercase(Puerto);
  hPort  := CreateFile(PChar('\\.\'+Puerto),
                       GENERIC_READ or GENERIC_WRITE,0, nil,
                       OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hPort <> INVALID_HANDLE_VALUE then begin
    DCB.DCBlength := sizeof(DCB);
    if GetCommState(hPort,DCB) then begin
      with DCB do begin
        BaudRate := CBR_9600;
        ByteSize := 8;
        Parity   := NOPARITY;
        StopBits := ONESTOPBIT;
        Flags    := $01
      end;
      if SetCommState(hPort, DCB) then Exit
    end;
    CloseHandle(hPort);
    hPort:= INVALID_HANDLE_VALUE
  end else Form1.Error
end;
 
procedure CerrarPuerto;
begin
  if hPort <> INVALID_HANDLE_VALUE then begin
    CloseHandle(hPort);
    hPort:= INVALID_HANDLE_VALUE;
  end
end;
 
procedure Escribir(Dato: Char);
var
  NumberWritten: dword;
 
begin
  if hPort <> INVALID_HANDLE_VALUE
    then WriteFile(hPort,Dato,1,NumberWritten,nil)
    else Form1.Error
end;
 
 
Procedure TForm1.Error;
begin
  Label1.Caption := 'Hay un error con el puerto COM3.' + #13#10 +
                    'Probablemente esté ocupado.';
  Button1.Enabled := False;
  Button2.Enabled := False;
  Button3.Enabled := False;
  Button4.Enabled := False;
  ....
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Escribir('1')
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Escribir('2')
end;
 
.......
casi lo mismo para todos los demás tbutton´s
.......
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CerrarPuerto
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AbrirPuerto('COM3')
end;
 
end.

Y esto es todo, voy a probar YA lo que vos hiciste.

ah!!!!

Y para leer el puerto?? Cómo uso el ReadFile?? (es que la ayuda está en inglés...)

De nuevo, muchas gracias

Amigo estoy armando el circuito pero no consigo el BC517 y coloque fue un reemplazo BC617, pero no activa el rele, alguna sugerencia