Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   C++ Builder 6 Ayuda (https://www.clubdelphi.com/foros/showthread.php?t=86839)

aguml 14-10-2014 22:22:28

bueno, yo voy a compartir el fuente, lo que pasa es que, primero, tuve que salir corriendo a otro sitio donde no tengo pc y hasta mañana no puedo, y segundo, a este chico se lo han pedido como un trabajo de estudios y si se lo doy hecho no aprenderá nada. Mis codigos siempre intento comentarlos al maximo para que cualquiera pueda entenderlo.

Casimiro Noteví 14-10-2014 22:26:39

Cita:

Empezado por aguml (Mensaje 483090)
bueno, yo voy a compartir el fuente, lo que pasa es que, primero, tuve que salir corriendo a otro sitio donde no tengo pc y hasta mañana no puedo, y segundo, a este chico se lo han pedido como un trabajo de estudios y si se lo doy hecho no aprenderá nada. Mis codigos siempre intento comentarlos al maximo para que cualquiera pueda entenderlo.

^\||/^\||/^\||/

aguml 15-10-2014 11:49:08

1 Archivos Adjunto(s)
Ahi está el adjunto y aquí una imagen de como se ve: http://postimg.org/image/xb6u827f9/

Gonza10 15-10-2014 15:29:45

Muchisimas Gracias, estuve ayer hablando con el profesor y me ayudo bastante voy hacerlo desde 0 como lo pense con el, voy a tomar algunas cosas del tuyo, sino no voy a poder aprender nada. Saludos, cualquier cosa consulto!.

ecfisa 15-10-2014 17:17:43

Cita:

Empezado por Gonza10 (Mensaje 483130)
Muchisimas Gracias, estuve ayer hablando con el profesor y me ayudo bastante voy hacerlo desde 0 como lo pense con el, voy a tomar algunas cosas del tuyo, sino no voy a poder aprender nada. Saludos, cualquier cosa consulto!.

Te felicito por tu decisión ^\||/

Saludos :)

aguml 15-10-2014 18:07:36

¿podrias explicar como piensas hacerlo? Asi quizas ayudes a otros a plantear el problema y quizas tu planteamiento sea mejor que el mio y asi yo tambien aprendo algo.

Gonza10 17-10-2014 15:46:37

Cita:

Empezado por aguml (Mensaje 483146)
¿podrias explicar como piensas hacerlo? Asi quizas ayudes a otros a plantear el problema y quizas tu planteamiento sea mejor que el mio y asi yo tambien aprendo algo.

hola si mira ya tengo el tablero dibujado, vos definiste uno por uno los leds yo lo hice con un for que me cuente la cantidad de leds de -10 hasta 400(es la dimensión de mi paintbox) después del for le puse x=x+10 para que vaya separando y no me forme una linea continua y abajo puse paintbox->canvas->Draw (x,1,led); asi hasta llegar a 80, mi paintbox es de 400x80, y ahora estoy pensando como empezar a dibujar las letras y luego me queda hacer el movimiento :rolleyes:.

aguml 17-10-2014 19:35:55

¿a que llamas paintbox? Sinceramente veo mas sencillo que uses como yo hice un contenedor y TShapes porque trabajas directamente con objetos y te ahorras tener que estar redibujandolo todo ya que no es lo mismo redibujar varios mini TSapes que redibujar un TImage o lo que sea que uses de mayor tamaño. Para encender o apagar un led tu tienes que usar canvas y pintar en la misma posicion del led mientras que yo simplemente le cambio el color de relleno al objeto. Igualmente puedes crear los TShapes de forma dinamica y destruirlos al salir dela aplicacion pero yo no lo hice porque como es de tamaño fijo no me quise complicar pero basicamente seria usar un for en el evento oncreate, le pones la propiedad parent al contenedor, como brush el color que tendrá como apagado, como name por ejemplo "Led"+AnsiString(x), como width 4, como height 4, como left por ejemplo x*10 y un condicional que decida cuantos leds quieres que tenga cada linea, supongamos 60, if(x%60==0) y++;x=0; donde y se usa paraTop con Top=y*10 por ejemplo y el valor de salida del bucle seria y<7 en mi caso. Con eso crearias la pantalla en ejecucion con memoria dinamica. Ya ves que no es complejo para nada. Luego haces lo mismo que yo para conseguir un array de TShapes y listo. Luego en el onclose del form liberas la memoriay listo.

Gonza10 18-10-2014 16:46:52

si el tuyo esta bueno porque para dibujar pusiste true o false dándole la forma en cambio yo no puedo porque me obligaron a usar el paintbox tengo que dibujar los leds para darle la forma a las letras, ahora se me esta complicando porque ponele te muestro un ejemplo yo escribo A y ahora escribo B se me encima todo en una misma posición estoy analizando como hacer para que cuando yo escriba cualquier letra se reserve ese espacio que ocupo y que la siguiente letra la escriba a su derecha, nose si me entendes. saludos!

aguml 18-10-2014 18:13:41

si te fijas como lo hago yo es estrapolable a tu caso. Por ejemplo, supongamos que un caracter ocupa 20, pues supongo que para pintar las letras usarás un bucle for y si no puesda igual, usas un index que inicializas a 0 y que se incrementa cada vez que pintes una letra y entonces haces pos=index*tam_caracter+espacio_entre_caracteres. Pos la primera vez te dará 0 + el espacio entre caracteres, la segunda vez index valdra 1 con lo que te daria 20 + espacio y asi con todos. Espero te sirva de ayuda. Por cierto, el modo que uso yo con los bools te sirve igual a ti ya que puedes pintar el led apagado o encendido dependiendo de si es true o false. Sigo sin saber que componente es el paintbox ese.

Gonza10 18-10-2014 18:27:01

Creo que entendió lo que me queres explicar si no me equivoco supongamos que escribo A esa pintada que yo hice de caracteres se posiciona en 0 si yo escribo otro mas se aumenta el espacio desde donde tengo el A a 10 mas y así sucesivamente. Paintbox se encuentra en las pestaña System.

ecfisa 18-10-2014 22:43:05

Hola Gonza10.

Sería interesante saber que orientación te dió tu profesor cuando lo consultaste, eso nos ayudaría a darte sugerencias mas acertadas. Pero como no has comentado los requisitos que te fijó, me quedo con lo que mencionaste en tu primer mensaje: "recién estamos empezando a usar c++ builder". Por tanto sigo pensando que es mucho mas adecuado al nivel usar un modo similar al que te sugerí en el mensaje #20.

Si me dijeras que tenes que trabajar con una interface para manejar un display de matriz de leds, estaría de acuerdo con que te embrolles con matrices y demas yerbas. Pero tratándose de una simple presentación en pantalla, seguir el camino anterior es querer reinventar la rueda y desaprovechar todas las herramientas que C++ Builder (y Windows mismo) ponen a tu disposición.

Si el requisito es un TPaintBox, basta con hacer unos pequeños cambios:
Código PHP:

...
#define TO_LEFT  false
#define TO_RIGHT true

AnsiString oldmsg;
AnsiString spc;
int cont 0;
bool sentidoTO_RIGHT;

/* Inicializar */
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  
PaintBox1->Height 33;
  
PaintBox1->Align  alTop;
  
Timer1->Interval 40;
  
Timer1->Enabled  false;
  
btnStartStop->Caption "Comenzar";
  
Edit1->Width 530;
  
Edit1->Text  "PRUEBA DE DESPLAZAMIENTO DE TEXTO";
}

/* Timer OnTimer */
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if (
sentido)
    
old msg.SubString(msg.Length(), 1) + msg.SubString(1msg.Length()-1);
  else
    
old msg.SubString(2msg.Length()-1) + msg.SubString(11);
  
PaintBox1->Canvas->TextOutA(0PaintBox1->Height >> 1old);
  
msg old;
}

/* Sale de Edit */
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
  
spc spc.StringOfChar(' ',2*Edit1->Text.Length());
  
msg spc Edit1->Text spc;
}

/* Desplazar a la izquierda */
void __fastcall TForm1::btnToLeftClick(TObject *Sender)
{
  
sentido TO_LEFT;
}

/* Desplazar a la derecha */
void __fastcall TForm1::btnToRightClick(TObject *Sender)
{
  
sentido TO_RIGHT;
}

/* Detener - Comenzar */
void __fastcall TForm1::btnStartStopClick(TObject *Sender)
{
  
Timer1->Enabled = !Timer1->Enabled;
  
btnStartStop->Caption Timer1->Enabled "Detener" "Comenzar";


tomate el trabajo de probar este ejemplo y verás que la marquesina funciona sin problemas.

Saludos :)


La franja horaria es GMT +2. Ahora son las 03:01:12.

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