Alphabet per Timer ausgeben

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 13:19:45 GMT

Nawed — Fri, 27 Jan 2006 13:19:45 GMT

Ja also ich wollte in der Edit-Box mit nem Timer das alphabet (interval = 100) von A bis Z ausgeben ich hab es so gemacht:

Edit1->Text = "A";
Sleep(100);
Edit1->Text = "B";
Sleep(100);
Edit1->Text = "C";
Sleep(100);
Edit1->Text = "D";
Sleep(100);
Edit1->Text = "E";
Sleep(100);
Edit1->Text = "F";
Sleep(100);
Edit1->Text = "G";
Sleep(100);
Edit1->Text = "H";
Sleep(100);
Edit1->Text = "I";
Sleep(100);
Edit1->Text = "J";
Sleep(100);
Edit1->Text = "K";
Sleep(100);
Edit1->Text = "L";
Sleep(100);
Edit1->Text = "M";
Sleep(100);
Edit1->Text = "N";
Sleep(100);
Edit1->Text = "O";
Sleep(100);
Edit1->Text = "P";
Sleep(100);
Edit1->Text = "Q";
Sleep(100);
Edit1->Text = "R";
Sleep(100);
Edit1->Text = "S";
Sleep(100);
Edit1->Text = "T";
Sleep(100);
Edit1->Text = "U";
Sleep(100);
Edit1->Text = "V";
Sleep(100);
Edit1->Text = "W";
Sleep(100);
Edit1->Text = "X";
Sleep(100);
Edit1->Text = "Y";
Sleep(100);
Edit1->Text = "Z";

also mit sleep geht es nicht ! den er gibt gleich Z aus und lässt die anderen weg.. auch ohne sleep

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 13:23:22 GMT

HEZ — Fri, 27 Jan 2006 13:23:22 GMT

Probiers doch mal mit... nem Timer...? TTimer, um genau zu sein. Dann noch ne char-Variable, die du hochzählst und wieder haben wir deine Hausaufgaben gemacht.

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 13:26:45 GMT

[[global:guest]] — Fri, 27 Jan 2006 13:26:45 GMT

Du mußt da, vor jedem Sleep noch ein Application->ProcessMessages(); setzen.

Allerdings würde ich das in einer Schleife machen.

for (char Zeichen = 'A'; Zeichen <= 'Z'; ++Zeichen)
{
   Edit->Text = AnsiString(Zeichen);
   Application->ProcessMessages();
   Sleep(100);
}

Application->ProcessMessages() arbeitet die Botschaftswarteschlange ab. Ohne das wird die Oberfläche der Anwendung nur aktualisiert, wenn Sie 'idle' ist.

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 13:53:38 GMT

Braunstein — Fri, 27 Jan 2006 13:53:38 GMT

Sieht man denn da noch was? Immerhin wird auf einen Zeichenwechsel nur 0.1s gewartet.

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 13:58:31 GMT

[[global:guest]] — Fri, 27 Jan 2006 13:58:31 GMT

Na ja, ist ja einfach anzupassen. Ich habs gerade mal ausprobiert, ist zwar recht zügig, aber noch lesbar.

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 15:24:56 GMT

masterfu — Fri, 27 Jan 2006 15:24:56 GMT

also man kann das auch mit einer schleife machen oder?

for (int i=0 ; i<26 ; i++)
{
 Edit1->Text = (char)i+65;
 Application->ProcessMessages;
 Sleep(100);
}

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 15:28:34 GMT

akari — Fri, 27 Jan 2006 15:28:34 GMT

Hallo

wenn dann so

for (int i=0 ; i<26 ; i++)
{
 Edit1->Text = char(i+65);
 Application->ProcessMessages();
 Sleep(100);
}

Halte aber Joes Variante für lesbarer.

bis bald
akari

Reply to Alphabet per Timer ausgeben on Fri, 27 Jan 2006 16:24:20 GMT

adds — Fri, 27 Jan 2006 16:24:20 GMT

Über Timer sieht das ungefähr so aus:

#include 
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}

char alph;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   alph='a';
   Timer1->Interval = 100;
   Timer1->Enabled = true;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Edit1->Text = alph;
   if(alph=='z') Timer1->Enabled = false;
   else alph++;
}