Hola.
Dado que
Gonza10 aclara,
Cita:
Empezado por Gonza10
..., soy estudiante de programación recién estamos empezando a usar c++ builder 6 y todavía no le agarro la mano ...
|
voy a dar una versión apróximada de lo que yo pretendería de un estudiante que, con conocimientos básicos, intente implementar esa tarea:
Código PHP:
#define TO_LEFT false
#define TO_RIGHT true
AnsiString msg ="";
AnsiString spc;
int cont = 0;
bool sentido = TO_RIGHT;
/* Inicializar */
void __fastcall TForm1::FormCreate(TObject *Sender)
{
spc = spc.StringOfChar(' ',50);
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)
Caption = msg.SubString(msg.Length(), 1) + msg.SubString(1, msg.Length()-1);
else
Caption = msg.SubString(2, msg.Length()-1) + msg.SubString(1, 1);
msg = Caption;
}
/* Sale de Edit */
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
msg = spc + Edit1->Text;
}
/* 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";
}
Saludos
