Forum
Aktif konular
Üyeler
Kurallar
Arama
Turbo Pascal İle Ekranda Bir Yazıyı Kaydırma Turbo Pascal İle Ekranda Bir Yazıyı Kaydırma
-
Bir kod da ben yazıyım dedim...
{****************** Coder MaCHo
Not : Bu Program Kodu Ekrana Yazdıgımız Yazıyı Düzenli Bir sekilde kaydırır
Bilgi Paylaştıkca cogalir *******************}
uses crt;
var
t:char;
I:integer;
begin
clrscr;
I:=0;
repeat
clrscr;
gotoxy(I,15);
writeln("Ekranda Kaydırmak İstediginiz Yazıyı Buraya yazınız");
I:=I+1;
if I=80 then I:=1;
delay (100);
until keypressed;
end. -
eyvallah bro.
-
hojucuk Sorun Degil Brother :) Böylece birşeyleri unutmuyorsun aslında iyi birşey tekrar olayı artiyor ..
-
Bir başka kayan yazı programı
{-- Reges Tarafından Yazılmıştır---}
Uses Crt;
var
a:Integer;
Begin
Repeat
a:=14;
While a>=1 Do
Begin
clrscr;
textcolor(5);
gotoxy(a,15);
Writeln('Erkan');
a:=a-1;
delay(100);
Sound(a*100);
End;
nosound;
Until keypressed;
End.
Ayrıca ses efektleride kullanılmıştır.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 3016 Toplam Mesaj: 4
Cevapla