Comenzando con Delphi

[huichoman]

Hola, estoy comenzando a programar con Delphi. Así que a darle duro jeje. Iré posteando por acá cada programita que vaya haciendo, a modo de historial. La intención principal (o a largo plazo) es aprender a programar en Delphi. Y la intención espécifica (o a corto plazo, por el momento) es realizar la interfaz para el monitoreo la humedad y temperatura dentro de un invernadero, utlizando rs485 para comunicación serial entre el circuito del sensor y la pc corriendo el programa hecho en delphi.  Deseo utilizar las tpapro. Ya hice unas pequeñas pruebas, pero no logro controlar el rts, bueno hice una prueba modificando un poco el programa de ejmplo que viene y proteus isis utilizando el compimp, pero no me activa el rts, o no se logra ver, pero voy a tratar de leer a conciencia la documentación, y hacer las pruebas físicamente. Cualquier ayuda brindada y consejos (cuando postee los programas (y dudas)), serán de valiosa ayuda. Saludos, y a dar el mejor esfuerzo.

Ganbatte kudasai.

1. Hola mundo.
2. Codcol (Calculadora de valores de resistencias).

[RedPic]

Muy bien huichoman, muy bien. Te recuerdo que para las comunicaciones serie hay un juego de VCL freeware muy bueno, que son las Async Professional (APRO) que son las que yo uso y van de lujo. 

[micro_cadaver]

me apunto. 

[huichoman]

Antes que nada lo primero 

Versión de Delphi que utilizaré: Borland Delphi Enterprise Versión 7.0 (Build 4.453) .

[huichoman]

Bueno, lo prometido es deuda, comienzo con delphi. Como no, mi primer programa "Hola mundo". Voy a ir rápido, sin ahondar mucho, pues necesito ayuda de los expertos en las partes que no entienda, siempre y cuando tengan tiempo, que es lo que la mayoría no tenemos jeje. Saludos y aca vamos.


0.- Creamos una nueva aplicattion. En mi caso la guardé como hola_mundo.pas.

1.- Colocamos un button (de la pestaña standard).




Despues al darle doble click a su evento onclick, escribimos: Showmessage('Hola mundo');  entre el begin y el end;


El código debe lucir así:

Código: [Seleccionar]

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Hola mundo');
end;

end.

2.- Una vez hecho lo anterior, le damos click al botón run para ejecutar nuestro programa, el cual debe desplegar el  mensaje hola mundo, al clickar el botón.





Listo, mi primer programa. Son bienvenidas las dudas para los principiantes como su servidor, y con mas entusiasmo las sugerencias y/o consejos de los avanzados. Saludos y a dar el mejor esfuerzo.

Ganbatte kudasai.

[jfh900]

Si pulsas directamente dos veces sobre el botón te crea el evento OnClic y te lleva a él.

Un saludo

[huichoman]

Bueno, despues del primer programa hola mundo, leí unos manuales, descargué unos componentes, visité algunas páginas como la de Trucomanía, le tuve moviendo por aquí, por allá. Y pues me lancé de lleno con el segundo programa, el cual debería de ser algo útil para que compensara las horas de estudio  . Así que me pusé a hacer una calculadora de valores de resistencias mediante el código de colores.

Componentes externos utilizados:

Coolcontrols. (Para los botones de colores).
Alphacontrols. (Pa que se vea chipocluda la interfaz).

OJO: No soy experto en utilizar esos componentes. De hecho tengo varias dudas, pero trasteando se checa que hace cada cosa.


Este es el ejecutable en acción.




Este es el aspecto del Form. (o la form?)



Y este es el código fuente:

Código: [Seleccionar]


unit resistencias;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CoolCtrls, Math, sSkinManager, sSkinProvider,
  sLabel, sPanel, sButton, sTabControl, sScrollBox, sFrameBar;

type
  TForm1 = class(TForm)
    btn_black1: TCoolBtn;
    banda1: TShape;
    btn_brown1: TCoolBtn;
    btn_red1: TCoolBtn;
    btn_orange1: TCoolBtn;
    boton_yellow1: TCoolBtn;
    btn_green1: TCoolBtn;
    btn_blue1: TCoolBtn;
    btn_purple1: TCoolBtn;
    btn_gray1: TCoolBtn;
    btn_white1: TCoolBtn;
    Shape1: TShape;
    banda2: TShape;
    banda3: TShape;
    Shape4: TShape;
    btn_black2: TCoolBtn;
    btn_brown2: TCoolBtn;
    btn_red2: TCoolBtn;
    btn_orange2: TCoolBtn;
    boton_yellow2: TCoolBtn;
    btn_green2: TCoolBtn;
    btn_blue2: TCoolBtn;
    btn_purple2: TCoolBtn;
    btn_gray2: TCoolBtn;
    btn_white2: TCoolBtn;
    btn_black3: TCoolBtn;
    btn_brown3: TCoolBtn;
    btn_red3: TCoolBtn;
    btn_orange3: TCoolBtn;
    boton_yellow3: TCoolBtn;
    btn_green3: TCoolBtn;
    btn_blue3: TCoolBtn;
    btn_purple3: TCoolBtn;
    btn_gray3: TCoolBtn;
    btn_white3: TCoolBtn;
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sPanel1: TsPanel;
    sPanel2: TsPanel;
    lbl_valor: TsLabel;
    salir: TsButton;
    sLabel1: TsLabel;
    sPanel3: TsPanel;
    sPanel4: TsPanel;
    sPanel5: TsPanel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
   
    procedure salirClick(Sender: TObject);
    procedure btn_black1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_brown1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_red1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_orange1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure boton_yellow1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_green1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_blue1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_purple1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_gray1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_white1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_black2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_brown2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_red2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_orange2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure boton_yellow2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_green2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_blue2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_purple2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_gray2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_white2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_brown3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_black3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_red3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_orange3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure boton_yellow3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_green3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_blue3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_purple3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_gray3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure btn_white3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure FormCreate(Sender: TObject);

    procedure calculaClick(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
    vb1,vb2,vb3,vb3_aux:integer;
    valor:Real;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.salirClick(Sender: TObject);
begin
close;
end;

//Banda 1

procedure TForm1.btn_black1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clBlack;
  vb1:=0;
end;

procedure TForm1.btn_brown1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
     banda1.Brush.Color:=$00024480;
     vb1:=10;
end;

procedure TForm1.btn_red1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clRed;
  vb1:=20;
end;

procedure TForm1.btn_orange1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=$000080FF;
  vb1:=30;
end;

procedure TForm1.boton_yellow1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clYellow;
  vb1:=40;
end;

procedure TForm1.btn_green1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clGreen;
  vb1:=50;
end;

procedure TForm1.btn_blue1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clNavy;
  vb1:=60;
end;

procedure TForm1.btn_purple1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clPurple;
  vb1:=70;
end;

procedure TForm1.btn_gray1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clGray;
  vb1:=80;
end;

procedure TForm1.btn_white1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda1.Brush.Color:=clWhite;
  vb1:=90;
end;

//Banda 2

procedure TForm1.btn_black2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clBlack;
  vb2:=0;
end;

procedure TForm1.btn_brown2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=$00024480;
  vb2:=1;
end;

procedure TForm1.btn_red2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clRed;
  vb2:=2;
end;

procedure TForm1.btn_orange2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=$000080FF;
  vb2:=3;
end;

procedure TForm1.boton_yellow2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clYellow;
  vb2:=4;
end;

procedure TForm1.btn_green2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clGreen;
  vb2:=5;
end;

procedure TForm1.btn_blue2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clNavy;
  vb2:=6;
end;

procedure TForm1.btn_purple2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clPurple;
  vb2:=7;
end;

procedure TForm1.btn_gray2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clGray;
  vb2:=8;
end;

procedure TForm1.btn_white2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda2.Brush.Color:=clWhite;
  vb2:=9;
end;

//Banda 3

procedure TForm1.btn_black3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
Begin
  banda3.Brush.Color:=clBlack;
  vb3:=1;
  vb3_aux:=0;
end;

procedure TForm1.btn_brown3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
     banda3.Brush.Color:=$00024480;
     vb3:=10;
     vb3_aux:=0;
end;

procedure TForm1.btn_red3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clRed;
  vb3:=1;
  vb3_aux:=1;
end;

procedure TForm1.btn_orange3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=$000080FF;
  vb3:=10;
  vb3_aux:=1
end;

procedure TForm1.boton_yellow3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clYellow;
  vb3:=100;
  vb3_aux:=1;
end;

procedure TForm1.btn_green3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clGreen;
  vb3:=1;
  vb3_aux:=2;
end;

procedure TForm1.btn_blue3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clNavy;
  vb3:=10;
  vb3_aux:=2;
end;

procedure TForm1.btn_purple3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clPurple;
  vb3:=100;
  vb3_aux:=2;
end;

procedure TForm1.btn_gray3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clGray;
  vb3:=1000;
  vb3_aux:=2;
end;

procedure TForm1.btn_white3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  banda3.Brush.Color:=clWhite;
  vb3:=10000;
  vb3_aux:=2;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
vb1:=1;
vb2:=0;
vb3:=1;
vb3_aux:=1;
lbl_valor.Caption:='1 '+ 'K'+char(234);
end;


procedure TForm1.calculaClick(Sender: TObject);
begin
   valor:=(vb1+vb2)*vb3;

      if (vb3_aux=1) then begin
    lbl_valor.Caption:=FloatToStr(valor/10)+' K' + #$EA;
   end else
    if vb3_aux=2 then begin
      lbl_valor.Caption:=FloatToStr(valor/10)+' M' +char(234);
    end else
      lbl_valor.Caption:=FloatToStr(valor)+' ' +#$EA;

    end;

end.


Mis dudas:

1.- En mi compu se desplega bien el caracter Omega, pero en otras compus no. ¿Como puedo solucionarlo?.
2.- Comohacerle para que el programa se quedé del tamaño que le puse. (Que el usuario no lo pueda  redimensionar.)
3.- Es una buena manera de hacer este programa, o se puede depurar un poco? Tips, sugerencias...

A los novatos como su servidor, si tienen dudas de como le hice para poner, quitar, descomponer, etc  , con gusto les explicaré.

Saludos. Y a dar el mejor esfuerzo.

Ganbatte kudasai.

[jfh900]

Aquí tienes un programilla echo en Delphi para trabajar con las resistencias. Se puede mejorar el valor de las resistencias generadas aleatoriamente, pero como lo que se pretende es la didáctica de la lectura de las resistencias, de momento lo dejo tal y como está.

Un saludo

[RedPic]

La mejor forma de aprender Delphi es viendo ejemplos y modificándolos, tomando prestados bloques de código y mezclando unos con otros.

Todo Delphi tiene un directorio de ejemplos que tiene casi de todo. Abrid cada proyecto compiladlo y ved que hace. Por ahí empecé yo y llevo quince años ganándome la vida con él. 

C:\Archivos de programa\Borland\Delphi6\Demos o similar.

[huichoman]

1.- En mi compu se desplega bien el caracter Omega, pero en otras compus no. ¿Como puedo solucionarlo?.

Me autorespondo  .  Le busqué y rebusqué como desplegar el caracter omega en otras compus diferentes a la mía, pero no lo logré. Utilicé, char, ansichar y widechar pero nomas no. Algo leí por ahi, que se debe a que Delphi no puede desplegar caracteres unicode o algo por el estilo, así que tenía dos opciones o cambiaba el símbolo omega por "Ohms" o le metía una imagen. Puesto que soy muy testarudo y me gusta que las cosas me salgan como las visualizo, pos me incliné por la segunda opción.

Les dejo el ejecutable por si alguien desea probarlo, y una captura de pantalla del programa funcionando.



Saludos.

Ganbatte kudasai

[huichoman]

Muy bien huichoman, muy bien. Te recuerdo que para las comunicaciones serie hay un juego de VCL freeware muy bueno, que son las Async Professional (APRO) que son las que yo uso y van de lujo.

La mejor forma de aprender Delphi es viendo ejemplos y modificándolos, tomando prestados bloques de código y mezclando unos con otros.

Hola Redpic, ya instalé las apro, estoy leyendo los dos pdfs que vienen con los archivos, pero me sería de muchísima ayuda si me pudieras proporcionar un ejemplo sencillo, de como utilizar la comunicación con el rs485. Como se configura para que automáticamente controle el pin RTS, y cual la configuración para hacerlo manualmente. Y coincido contigo que la mejor manera de aprender es viendo ejemplos y modificándolos  . Así se le puede meter mano y ver que hace si le modifico por aquí, si le pongo esto allá, si quito esta parte, etc. jejeje.  Saludos y gracias de antemano por la ayuda que puedas brindarme.

Ganbatte kudasai.

[RedPic]

Ahora estoy en la oficina, cuando llegue a casa te pongo un ejemplo del RS485 en Delphi con las APro. 

[huichoman]

Ahora estoy en la oficina, cuando llegue a casa te pongo un ejemplo del RS485 en Delphi con las APro. 

Muchisimas gracias. Mañana checo despues de la escuela. Estoy leyendo el APRO_ReferenceGuide.pdf. Son la 1:20 am por acá, mañana tengo examen, así que me voy a dormir. Al rato entre clases estudiaré un poco  . jejeje

Saludos y gracias de nuevo.


Ganbatte kudasai.

[Modulay]

¿La versión de AlphaControls que tienes es la de prueba?
Yo los he usado y si no recuerdo mal la limitación que tenía era la de que no se podía usar en un pc que no tuviera instalado el IDE.
Por cierto Diego ¿qué añadidura usas para esos forms tan chulos con barra de titulo negra como el de tu analizador lógico?

[huichoman]

Hola Modulay.  La puedes encontrar xxxxxxxxxxxxxxxxxxxxxxxxxxxx

EDITADO X  MODERADOR: ViTAL---> A ver si nos leemos las normas....