hace tiempo que no preguntaba
cambie disco y perdi la contraseña
y todo lo demas
estaba tratando de hacer el contador calculadora
mas detalles aqui http://www.taringa.net/posts/hazlo-...alculadora.html
solo que en version pc
entonces buscando encontre el siguiente codigo en delphi
que permite conectar hasta cuatro interuptores al puerto serie pintar unos shapes segun su estado
abierto o cerrado
begin
If HComm > 0 then
Begin
GetCommModemStatus (HComm, MdmSts);
If MdmSts And MS_RLSD_ON = 0 Then Shape1.Brush.Color := clRed
Else Shape1.Brush.Color := clTeal;
If MdmSts And MS_DSR_ON = 0 Then Shape2.Brush.Color := clRed
Else Shape2.Brush.Color := clTeal;
If MdmSts And MS_CTS_ON = 0 Then Shape3.Brush.Color := clRed
Else Shape3.Brush.Color := clTeal;
If MdmSts And MS_RING_ON = 0 Then Shape4.Brush.Color := clRed
Else Shape4.Brush.Color := clTeal;
SoundAlarm;
End;
end;
If HComm > 0 then
Begin
GetCommModemStatus (HComm, MdmSts);
If MdmSts And MS_RLSD_ON = 0 Then Shape1.Brush.Color := clRed
Else Shape1.Brush.Color := clTeal;
If MdmSts And MS_DSR_ON = 0 Then Shape2.Brush.Color := clRed
Else Shape2.Brush.Color := clTeal;
If MdmSts And MS_CTS_ON = 0 Then Shape3.Brush.Color := clRed
Else Shape3.Brush.Color := clTeal;
If MdmSts And MS_RING_ON = 0 Then Shape4.Brush.Color := clRed
Else Shape4.Brush.Color := clTeal;
SoundAlarm;
End;
end;
mirando la documentacion de gambas
no es problema solo se necesita el componente serial y un timer y facilmente se puede hacer lo mismo
y estube probando y funciona
el problema es como hacer un contador
algo como i=1+1 dentro del timer no funciona
debido a que segui contando todo el tiempo que este activada la linea
o sea si pulso el interruptor 1 segundo i=1+1 se repetira muchas veces segun el tiempo que este configurado en el timer
cuando deberia solo contar una vez
e estado durante horas y horas pensando una solucion y no se me ocurre nada
pd