Ir al contenido


Componente VrThermoMeter

Comenzado por Guest_Jose Fco_* , nov 01 2008 07:30

  • Por favor identifícate para responder
No hay respuestas en este tema

#1 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 01 noviembre 2008 - 07:30

Hola  amigos.

  Aqui les dejo un programita usando el componente VrThermoMeter, via puerto serie:

Imagen Enviada

Imagen Enviada

Aqui esta el codigo:


delphi
  1. uses
  2.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  3.   Dialogs, StdCtrls, CPort, VrControls, VrThermoMeter, Buttons;
  4. type
  5.   TForm1 = class(TForm)
  6.     vrThermoMeter1: TvrThermoMeter;
  7.     ComPort: TComPort;
  8.     Edit1: TEdit;
  9.     BitBtn1: TBitBtn;
  10.     BitBtn2: TBitBtn;
  11.     BitBtn3: TBitBtn;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     procedure Button1Click(Sender: TObject);
  15.     procedure ComPortRxChar(Sender: TObject; Count: Integer);
  16.     procedure BitBtn1Click(Sender: TObject);
  17.     procedure BitBtn2Click(Sender: TObject);
  18.     procedure BitBtn3Click(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24. var
  25.   Form1: TForm1;
  26. implementation
  27. {$R *.dfm}
  28. procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
  29. var
  30. Str: String;
  31. i: integer;
  32. temperatura: integer;
  33. begin
  34. ComPort.ReadStr(Str, Count);
  35. for i := 1 to Count do begin
  36. Temperatura:=Byte(Str[i]);
  37. Temperatura:= (Temperatura*100) div 256;
  38. VrThermoMeter1.Value.Value := Temperatura;
  39. end;
  40. end;
  41. procedure TForm1.Button1Click(Sender: TObject);
  42. var
  43.   Valor: integer;
  44.   Str: string;
  45. begin
  46.  Valor := StrToInt('$' + Edit1.Text) ;
  47.     if Valor in [0..255] then
  48.     Str := Chr(Valor);
  49.     ComPort.WriteStr(Str);
  50. end;
  51. procedure TForm1.BitBtn1Click(Sender: TObject);
  52. begin
  53. Close;
  54. end;
  55. procedure TForm1.BitBtn2Click(Sender: TObject);
  56. begin
  57. ComPort.ShowSetupDialog;
  58. end;
  59. procedure TForm1.BitBtn3Click(Sender: TObject);
  60. var
  61.   Valor: integer;
  62.   Str: string;
  63. begin
  64. Valor := StrToInt('$' + Edit1.Text) ;
  65.     if Valor in [0..255] then
  66.     Str := Chr(Valor);
  67.     ComPort.WriteStr(Str);
  68. end;
  69. end.



Espero les sea de utilidad.
Pueden conectar cualquier micro en el puerto serie y estaria recibiendo la informacion de temperatura.Tambien pueden usarlo uniendo los pines 2 y 3 del puerto serie, como una forma de probarlo sin tener que conectar un microcontrolador.

Un Saludo.

Volver a Componentes


  1. Comunidad Delphiaccess
  2. → COLABORACIÓN
  3. → Componentes
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.