Timer ile kelime değiştirme(?)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
bengoz
Üye
Mesajlar: 6
Kayıt: 28 Eki 2021 03:10

Timer ile kelime değiştirme(?)

Mesaj gönderen bengoz »

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?
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: Timer ile kelime değiştirme(?)

Mesaj gönderen Commandx »

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;
Cevapla