Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2016
Avatar de pnsd_89
pnsd_89 pnsd_89 is offline
Miembro
 
Registrado: mar 2007
Posts: 112
Poder: 20
pnsd_89 Va por buen camino
en el codigo me olvide de cambiar a false deberia ser asi
Código Delphi [-]
Comport1.open;
Comport1.SetRTS(true); //Segun la documentacion de TComport activa y envia una señal continua +15v al RTS( el pin 7 en un RS232) 
sleep(5000);
Comport1.SetRTS(false); // señal -15v
Responder Con Cita
  #2  
Antiguo 15-11-2016
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is online now
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.702
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
¿Necesita 5 segundos?
Responder Con Cita
  #3  
Antiguo 15-11-2016
Avatar de pnsd_89
pnsd_89 pnsd_89 is offline
Miembro
 
Registrado: mar 2007
Posts: 112
Poder: 20
pnsd_89 Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Necesita 5 segundos?
Don Casimiro! pensé que seria un comentario con el link de las normas de uso del foro jaja
Ayer no pude ir a modificar la placa, hoy tengo pensado hacerlo.
Los 5 segundos fue para poder probar si el voltaje se mantenia arriba en True, con un multimetro y fue asi, el colocar la agujas del multimetro y colocarlos sobre los pines del serial me llevaba 5 seg. jaja. pero hoy de noche podre ver si son necesarios realmente esos 5 seg.
Lo que hace el programa es que en una pc el usuario coloca su codigo, y si es correcto habilita la cerradura que esta a unos cuantos pasos de donde el usuario ingresa su codigo.
Responder Con Cita
  #4  
Antiguo 16-11-2016
Avatar de pnsd_89
pnsd_89 pnsd_89 is offline
Miembro
 
Registrado: mar 2007
Posts: 112
Poder: 20
pnsd_89 Va por buen camino
bingooooooooooo!!!!

fumciono!!!!!
el codigo final es este
Código Delphi [-]
            if activarTranca then
           begin
           // Para activar tranca
                ComPort.Port := sTrancaPort;//variable que lee de un .ini contiene COM1 o el puerto que fuere
                ComPort.Open;
                ComPort.SetRTS(True);
                Sleep(3000);// Casimiro este quedo en 3 segundos nada mas jeje
                ComPort.SetRTS(false);
                ComPort.Close;
                activarTranca := false;
           end;
Responder Con Cita
  #5  
Antiguo 16-11-2016
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is online now
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.702
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Estupendo.
¿Has probado con menos tiempo?
Responder Con Cita
  #6  
Antiguo 16-11-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.478
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Has probado con menos tiempo?
Yo he pensado lo mismo.
3 sg. me parece demasiado tiempo. Tal vez algo entre 200 ms. y 500 ms. parecería algo más lógico (de todas formas eso debería estar en las especificaciones).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #7  
Antiguo 16-11-2016
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is online now
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.702
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Cita:
Empezado por Neftali Ver Mensaje
Yo he pensado lo mismo.
3 sg. me parece demasiado tiempo. Tal vez algo entre 200 ms. y 500 ms. parecería algo más lógico (de todas formas eso debería estar en las especificaciones).
Hace tiempo programé una de esas y necesitaba entre 100 y 200 ms. Con 100, a veces no le daba tiempo, así que la dejé en 200 y siempre se abría.
Lo mismo la de este caso necesita más tiempo.
Responder Con Cita
  #8  
Antiguo 16-11-2016
Avatar de pnsd_89
pnsd_89 pnsd_89 is offline
Miembro
 
Registrado: mar 2007
Posts: 112
Poder: 20
pnsd_89 Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Estupendo.
¿Has probado con menos tiempo?
Si.. y la cerradura china que uso (creo que es por el mecanismo que usa) no mantiene abierta el tiempo suficiente
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Lista de directorios en delphiXE danielmj Varios 0 04-10-2013 18:07:28
Problema con dbExpress en DelphiXE elarys Conexión con bases de datos 2 02-11-2010 18:02:51
Abrir Cerradura Electrica desde delphi jourdan Varios 7 16-05-2010 01:25:22
programa En delphi que abra una cerradura de una caja fuerte lavendano Varios 8 23-05-2007 18:14:23
Generadores y corte de energia electrica FlacoNet Firebird e Interbase 9 26-12-2005 14:34:22


La franja horaria es GMT +2. Ahora son las 17:41:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi