Ir al contenido


Foto

Alguien me puede ayudar con codigo? delphi 2009

Comenzado por jackdp , feb 09 2010 03:38

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

#1 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 03:38

Tengo un problema, estoy en delphi 2009  escribiendo un codigo para hacer un display y se me enciendan unos paneles, pero me da errores en el código y no se por que ?

Seguro que lo estare4 haciendo!! habrá alguien que me heche una mano les envió una imagen ya que no se como se envia lo que tengo hecho en delphi si alguien me lo enseña se le agradecerá. ;)

Este es el código, me da fallos en el else y en el segun if



delphi
  1. unit ejercico_clases1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Panel3: TPanel;
  14.     Panel4: TPanel;
  15.     Panel5: TPanel;
  16.     Panel6: TPanel;
  17.     Panel7: TPanel;
  18.     Sbarra: TScrollBar;
  19.     procedure SbarraChange(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TForm1.SbarraChange(Sender: TObject);
  34. var N:Integer;
  35.  
  36. begin
  37. N:= sbarra.position;
  38. if (N<1) or (N>1) then
  39. begin
  40.     panel1.Color:=clred
  41. end
  42. else
  43.     panel1.color:=clface
  44. end
  45. if (N<5)or (N>6) then
  46. begin
  47.     panel2.color:=clred
  48. end
  49. else
  50.  
  51.  
  52.  
  53.  
  54.  
  55. end


Jackson Mora
  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 09 febrero 2010 - 03:40

Pues no veo la imagen :D
  • 0

#3 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 09 febrero 2010 - 03:43

Tengo un problema, estoy en delphi 2009  escribiendo un codigo para hacer un display y se me enciendan unos paneles, pero me da errores en el código y no se por que ?

Seguro que lo estare4 haciendo!! habrá alguien que me heche una mano les envió una imagen ya que no se como se envia lo que tengo hecho en delphi si alguien me lo enseña se le agradecerá. ;)

Este es el código, me da fallos en el else y en el segun if



delphi
  1. unit ejercico_clases1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Panel3: TPanel;
  14.     Panel4: TPanel;
  15.     Panel5: TPanel;
  16.     Panel6: TPanel;
  17.     Panel7: TPanel;
  18.     Sbarra: TScrollBar;
  19.     procedure SbarraChange(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TForm1.SbarraChange(Sender: TObject);
  34. var N:Integer;
  35.  
  36. begin
  37. N:= sbarra.position;
  38. if (N<1) or (N>1) then  // PUEDE SER CAMBIADO POR N <> 0 PORQUE N TOMA CUALQUIER VALOR EXCEPTO CERO
  39. begin
  40.     panel1.Color:=clred;   // FALTA ;
  41. end
  42. else
  43.     panel1.color:=clface;   // FALTA ;
  44. //end                          // ESTE END NO PERTENECE A NINGÚN BEGIN
  45. if (N<5)or (N>6) then
  46. begin
  47.     panel2.color:=clred;    // FALTA ;
  48. end
  49. else   // NO HAY CÓDIGO PARA EL ELSE ???
  50.  
  51.  
  52.  
  53.  
  54.  
  55. end


Jackson Mora


Hola amigo jackdp ...  Te he hecho algunos comentarios dentro de tu mismo código... Revísalos y nos comentas :D

Saludox ! :D
  • 0

#4 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 03:54

Gracias maestro; por la explicacion es muy buena  ;)

Ya te comentare como me va
  • 0

#5 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 09 febrero 2010 - 04:07

Gracias maestro; por la explicacion es muy buena  ;)

Ya te comentare como me va


Maestro ???  :|

Jejejeje, no amigo jackdp :p, soy niña... jejejeje... pero de todos modos, aquí andamos para cualquier cosa :D

Saludox ! :D
  • 0

#6 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 09 febrero 2010 - 04:09


Gracias maestro; por la explicacion es muy buena  ;)

Ya te comentare como me va


Maestro ???  :|

Jejejeje, no amigo jackdp :p, soy niña... jejejeje... pero de todos modos, aquí andamos para cualquier cosa :D

Saludox ! :D


Yo no quería decir nada de nada  :lipsrsealed: :D :D :D

Salud OS
  • 0

#7 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 04:13

Bueno ya veo que son muy colaboradores, y que este foro sirve..

Disculpa, por la ofensa quise decir que eras una Maestra.
  • 0

#8 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 09 febrero 2010 - 04:15

Bueno ya veo que son muy colaboradores, y que este foro sirve..

Disculpa, por la ofensa quise decir que eras una Maestra.


Jajaja, no te apures amigo... hice la aclaración para evitarme una semana de bromas de los demás miembros del foro... :p

Saludox ! :D
  • 0

#9 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 09 febrero 2010 - 04:27


Bueno ya veo que son muy colaboradores, y que este foro sirve..

Disculpa, por la ofensa quise decir que eras una Maestra.


Jajaja, no te apures amigo... hice la aclaración para evitarme una semana de bromas de los demás miembros del foro... :p

Saludox ! :D


No seas miedosa :D :D :D

Salud OS
  • 0

#10 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 09 febrero 2010 - 04:28



Bueno ya veo que son muy colaboradores, y que este foro sirve..

Disculpa, por la ofensa quise decir que eras una Maestra.


Jajaja, no te apures amigo... hice la aclaración para evitarme una semana de bromas de los demás miembros del foro... :p

Saludox ! :D


No seas miedosa :D :D :D

Salud OS


Digamos que no es miedo ego... es pura bendita precaución :p

Saludox ! :D
  • 0

#11 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 04:32

Ay maestro pero que hablador nos salistes jajajaja, ni que te fueramos a bromear con eso  :cool:
  • 0

#12 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 04:33

Ahora tengo este código, ya hecho pero no se como se hace para darle al play, ya que no se pone verde.
Ypoder ver si funciona o no..  ya que soy un bebe en esto



delphi
  1. unit ejercico_clases1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Panel3: TPanel;
  14.     Panel4: TPanel;
  15.     Panel5: TPanel;
  16.     Panel6: TPanel;
  17.     Panel7: TPanel;
  18.     Sbarra: TScrollBar;
  19.     procedure SbarraChange(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TForm1.SbarraChange(Sender: TObject);
  34. var N:Integer;
  35.  
  36. begin
  37. N:= sbarra.position;
  38. if (N<1) or (N>1) then  // PUEDE SER CAMBIADO POR N <> 0 PORQUE N TOMA CUALQUIER VALOR EXCEPTO CERO
  39. begin
  40.     panel1.Color:=clred;   // FALTA ;
  41. end
  42. else
  43.     panel1.color:=clface;   // FALTA ;
  44. //end                          // ESTE END NO PERTENECE A NINGÚN BEGIN
  45. if (N<5)or (N>6) then
  46. begin
  47.     panel2.color:=clred;    // FALTA ;
  48. end
  49. else                        // NO HAY CÓDIGO PARA EL ELSE ???
  50.    panel2.Color:=clface;
  51. if (N<6)or (N>2)and (N<9)or(N>7) then
  52. begin
  53.   panel3.Color:=clred;
  54. end
  55. else
  56.     panel3.Color:=clface;
  57. if (N<6)or(N>4) and (N=9)or (N>7) then
  58. begin
  59.   panel4.Color:=clred;
  60. end
  61. else
  62.   panel4.Color:=clface;
  63. if (N<2)or(N>2) then
  64. begin
  65.   panel5.Color:=clred;
  66.   end
  67.   else
  68.   panel5.Color:=clface;
  69. if (N>1)or(N<5)or (N=6)and (N>7) then
  70. begin
  71.   panel6.Color:=clred;
  72.   end
  73.   else
  74.   panel6.Color:=clface;
  75. if (N=2)or (N=6) or (N=8) then
  76. begin
  77.   panel7.Color:=clred;
  78. end
  79.   else
  80.   panel7.Color:=clface;
  81. end;
  82.  
  83.  
  84. end.









Gacias
  • 0

#13 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 09 febrero 2010 - 04:37

Pues me parece que no has creado una nueva aplicación, simplemente creaste la unidad más no la aplicación.
  • 0

#14 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 09 febrero 2010 - 04:41

Hola

En primer lugar esto no va a funcionar



delphi
  1. panelX.Color:=clface;



Imagino que quieres decir



delphi
  1. panelX.Color:=clBtnFace;



Por otro lado, no veo donde quieras poner verde solo estas poniendo rojo.

Si nos dices que intentas hacer, con gusto te ayudamos :)

Salud OS

Edito :D :D :D; quisiste decir el botón verde de Run :$
  • 0

#15 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 04:42

ya esta..

Ahora me da fallo en "clface" me lo pone con una linea roja.



delphi
  1. unit ejercico_clases1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Panel3: TPanel;
  14.     Panel4: TPanel;
  15.     Panel5: TPanel;
  16.     Panel6: TPanel;
  17.     Panel7: TPanel;
  18.     Sbarra: TScrollBar;
  19.     procedure SbarraChange(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TForm1.SbarraChange(Sender: TObject);
  34. var N:Integer;
  35.  
  36. begin
  37. N:= sbarra.position;
  38. if (N<1) or (N>1) then  // PUEDE SER CAMBIADO POR N <> 0 PORQUE N TOMA CUALQUIER VALOR EXCEPTO CERO
  39. begin
  40.     panel1.Color:=clred;   // FALTA ;
  41. end
  42. else
  43.     panel1.color:=clface;   // FALTA ;
  44. //end                          // ESTE END NO PERTENECE A NINGÚN BEGIN
  45. if (N<5)or (N>6) then
  46. begin
  47.     panel2.color:=clred;    // FALTA ;
  48. end
  49. else                        // NO HAY CÓDIGO PARA EL ELSE ???
  50.    panel2.Color:=clface;
  51. if (N<6)or (N>2)and (N<9)or(N>7) then
  52. begin
  53.   panel3.Color:=clred;
  54. end
  55. else
  56.     panel3.Color:=clface;
  57. if (N<6)or(N>4) and (N=9)or (N>7) then
  58. begin
  59.   panel4.Color:=clred;
  60. end
  61. else
  62.   panel4.Color:=clface;
  63. if (N<2)or(N>2) then
  64. begin
  65.   panel5.Color:=clred;
  66.   end
  67.   else
  68.   panel5.Color:=clface;
  69. if (N>1)or(N<5)or (N=6)and (N>7) then
  70. begin
  71.   panel6.Color:=clred;
  72.   end
  73.   else
  74.   panel6.Color:=clface;
  75. if (N=2)or (N=6) or (N=8) then
  76. begin
  77.   panel7.Color:=clred;
  78. end
  79.   else
  80.   panel7.Color:=clface;
  81. end;
  82.  
  83.  
  84. end.




  • 0

#16 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 09 febrero 2010 - 04:45

Como te comenté cambia clface por clBtnFace

Salud OS
  • 0

#17 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 04:48

Estoy haciendo un display con unos paneles, donde quiero que se enciendan, los paneles y me hagan el numero cuando doy un click con el tscrollbar.

Si me pueden ayudar se agradece mucho

Jackson Mora novato
  • 0

#18 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 09 febrero 2010 - 04:51

Mmmm, no he comprendido muy bien lo que necesitas amigo :$, podrías explicarlo un poco más detallado ?

Saludox ! :D

P.D. Intenta colocar tu código entre etiquetas Delphi para que se pueda entender un poco mejor amigo... de esta manera
[ code = delphi ] Códdigo[ / code ]... solo que sin los espacios (y)
  • 0

#19 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 09 febrero 2010 - 04:53

Estoy haciendo un display con unos paneles, donde quiero que se enciendan, los paneles y me hagan el numero cuando doy un click con el tscrollbar.

Si me pueden ayudar se agradece mucho

Jackson Mora novato


Ok, veamos, tienes 7 paneles, puedes decirnos como quieres que cambien de color en base a los numeros que estas buscando ?.

Salud OS
  • 0

#20 jackdp

jackdp

    Member

  • Miembros
  • PipPip
  • 30 mensajes
  • LocationVenezuela

Escrito 09 febrero 2010 - 04:58

Como te comente antes se trata de hacer un display, que cuando este el scrollbar, en posicion todo hacia la izquierda marque cero y segun vaya clicando me haga el numero 1 , 2 , 3 asta el 9
   
     


delphi
  1. unit ejercico_clases1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Panel3: TPanel;
  14.     Panel4: TPanel;
  15.     Panel5: TPanel;
  16.     Panel6: TPanel;
  17.     Panel7: TPanel;
  18.     Sbarra: TScrollBar;
  19.     procedure SbarraChange(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TForm1.SbarraChange(Sender: TObject);
  34. var N:Integer;
  35.  
  36. begin
  37. N:= sbarra.position;
  38. if (N<1) or (N>1) then  // PUEDE SER CAMBIADO POR N <> 0 PORQUE N TOMA CUALQUIER VALOR EXCEPTO CERO
  39. begin
  40.     panel1.Color:=clred;   // FALTA ;
  41. end
  42. else
  43.     panel1.color:=clface;   // FALTA ;
  44. //end                          // ESTE END NO PERTENECE A NINGÚN BEGIN
  45. if (N<5)or (N>6) then
  46. begin
  47.     panel2.color:=clred;    // FALTA ;
  48. end
  49. else                        // NO HAY CÓDIGO PARA EL ELSE ???
  50.    panel2.Color:=clface;
  51. if (N<6)or (N>2)and (N<9)or(N>7) then
  52. begin
  53.   panel3.Color:=clred;
  54. end
  55. else
  56.     panel3.Color:=clface;
  57. if (N<6)or(N>4) and (N=9)or (N>7) then
  58. begin
  59.   panel4.Color:=clred;
  60. end
  61. else
  62.   panel4.Color:=clface;
  63. if (N<2)or(N>2) then
  64. begin
  65.   panel5.Color:=clred;
  66.   end
  67.   else
  68.   panel5.Color:=clface;
  69. if (N>1)or(N<5)or (N=6)and (N>7) then
  70. begin
  71.   panel6.Color:=clred;
  72.   end
  73.   else
  74.   panel6.Color:=clface;
  75. if (N=2)or (N=6) or (N=8) then
  76. begin
  77.   panel7.Color:=clred;
  78. end
  79.   else
  80.   panel7.Color:=clface;
  81. end;
  82.  
  83.  
  84. end.


  • 0
Volver a General


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