Merhabalar, iyi günler.
Ben delphi öğrencisiyim, bir konuda bilgi eksikliğimden dolayı tam olarak istediğim şeyi yapamıyorum.
timer'da saniye de artan azalan sayıları gördüm, bunlarla alakalı çokca video ve kaynak kodlar bulabildim.
Fakat benim istediğim örneğin; 5 saniye de bir Ali , Ayşe, Ahmet, gibi Label'a yazması.
sanırım
kafamda mantıgını kurabiliyorum. değişken atayacağız. Sayıları kelimelerle entegre ediceğiz.
daha sonrasında bu değişken dizisini ... saniye de oynatmasını isteyeceğiz. Ama kodsal anlamda eksiğim var
birisi biliyorsa hangi kodları kullanmam gerek yazabilir mi?
Timer ile kelime değiştirme(?)
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Timer ile kelime değiştirme(?)
Rastgele isterseniz bu şekilde oluyor, bir fikir vermesi açısından Random kullandım
Kod: Tümünü seç
procedure TForm1.Timer1Timer(Sender: TObject);
VAR
DEGER:INTEGER;
begin
DEGER:= (RANDOM(11));
IF DEGER=1 THEN BEGIN EDIT1.Text:='ALİ' END;
IF DEGER=2 THEN BEGIN EDIT1.Text:='AYŞE' END;
IF DEGER=3 THEN BEGIN EDIT1.Text:='MEHMET' END;
IF DEGER=4 THEN BEGIN EDIT1.Text:='MURAT' END;
IF DEGER=5 THEN BEGIN EDIT1.Text:='DURSUN' END;
IF DEGER=6 THEN BEGIN EDIT1.Text:='KENAN' END;
IF DEGER=7 THEN BEGIN EDIT1.Text:='SÜLEYMAN' END;
IF DEGER=8 THEN BEGIN EDIT1.Text:='HAKAN' END;
IF DEGER=9 THEN BEGIN EDIT1.Text:='RECEP' END;
IF DEGER=10 THEN BEGIN EDIT1.Text:='AHMET' END;
IF DEGER=11 THEN BEGIN EDIT1.Text:='MUSTAFA' END;
LABEL1.Caption:=DATETIMETOSTR(NOW);
end;
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;