Hafta içi her gün 20:00 - 21:00 arası "DJ ÖZEL" ile "Keyf-i Müzik" programını dinlemek için TIKLAYINIZ

Hafta sonu 15:00 - 16:00 arası "DJ EMRE" ile "Müzik Ekspres" programını dinlemek için TIKLAYINIZ

Canlı yayını dinlemek için bilgisayarınızda WINAMP kurulu olmalıdır.WINAMP indirmek için TIKLAYINIZ
forumENA - Knight Online , KOXP

 

Ekrana bir * yazdırıp bu yıldızı w,a,s,d yön tuşlarıyla hareket ettiren program

Pascal içinde Ekrana bir * yazdırıp bu yıldızı w,a,s,d yön tuşlarıyla hareket ettiren program konusu , Aşağıdaki kodları Turbu Pascal'a yazınız: Alıntı: uses crt; var tus:char; x,y:Integer; begin clrscr; x:=15; y:=15; gotoxy(x,y);write('*'); Repeat repeat tus:=Upcase(readkey); until tus In ['W','A','S','D',#27]; Case Tus of 'A':begin clrscr; x:=x-1; gotoxy(x,y);Write('*'); ...







Geri Dön   forumENA - Knight Online , KOXP > Program , Programlama, İnternet > Programlama > Pascal

Ekrana bir * yazdırıp bu yıldızı w,a,s,d yön tuşlarıyla hareket ettiren program Ekrana bir * yazdırıp bu yıldızı w,a,s,d yön tuşlarıyla hareket ettiren program

KAYIT OL Yönetim Takımı Üye Listesi Tüm konuları okunmuş kabul et

Cevapla

 

Konu Yönetim Seçenekleri Konu Gösterim Seçenekleri
Eski 02-10-2006, 01:28   #1 (permalink)
Yönetici
 
anıl1111 - ait Avatar
 
Üyelik Tarihi: 09-12-2005
Yer: İstanbul
Yaş: 17
Mesajlar: 5,311
Rep Gücü: 262
Rep Puanı: 17258
anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15anıl1111 Rütbe: +15
anıl1111 - MSN üzerinden mesaj gönder
Tanımlı Ekrana bir * yazdırıp bu yıldızı w,a,s,d yön tuşlarıyla hareket ettiren program

Aşağıdaki kodları Turbu Pascal'a yazınız:

Alıntı:
uses crt;
var
tus:char;
x,y:Integer;
begin
clrscr;
x:=15;
y:=15;
gotoxy(x,y);write('*');
Repeat
repeat
tus:=Upcase(readkey);
until tus In ['W','A','S','D',#27];
Case Tus of
'A':begin
clrscr;
x:=x-1;
gotoxy(x,y);Write('*');
end;
'W':begin
clrscr;
y:=y-1;
gotoxy(x,y);Write('*');
end;
'S':begin
clrscr;
y:=y+1;
gotoxy(x,y);Write('*');
end;
'D':begin
clrscr;
x:=x+1;
gotoxy(x,y);Write('*');
end;
#27:Halt;
end;
IF x=1 Then
Begin
clrscr;
Write('kaldnz');
delay(750);
Halt;
End;
IF y=1 Then
Begin
clrscr;
Write('kaldnz');
delay(750);
Halt;
End;
IF x=81 Then
Begin
clrscr;
Write('kaldnz');
delay(750);
Halt;
End;
IF y=50 Then
Begin
clrscr;
Write('kaldnz');
delay(750);
Halt;
End;
Until 1=2;
end.
Kolay gelsin...

__________________
Mesajınızda:

-> Mail Adresinizi verirseniz,
-> Konuyla alakasız yorum yaparsanız / Konuyla alakasız bir soru sorarsanız,
-> Amaçsız, içinde paylaşım olmayan, saçma konular açarsanız,
-> Üstüste mesaj yazarsanız ( Flood yapmakda denir),
-> Küfür ederseniz,
-> Konuyla alakasız bir başlık atarsanız,
-> Mesajınızın tamamını büyük harfler veya puntolar kullanarak yazarsanız,

Mesajınız SİLİNİR ayrıca siz BANLANIRSINIZ.



Bu tip mesajları ihbar etmek için yukarıda işaretlenmiş olan yere tıklayarak yönetim kadrosunu uyarabilirsiniz.
anıl1111 isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 12-10-2006, 22:57   #2 (permalink)
EN Açıkgözlü
 
kskizmir - ait Avatar
 
Üyelik Tarihi: 27-09-2006
Yer: İZMİR-KARŞIYAKA
Mesajlar: 14
Rep Gücü: 0
Rep Puanı: 284
kskizmir Rütbe: +6kskizmir Rütbe: +6kskizmir Rütbe: +6
Tanımlı

Saolasin Bİr Yazayim Bakayim Ne Oluyoo
kskizmir isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 07-05-2007, 16:35   #3 (permalink)
Moderator
 
killer man - ait Avatar
 
Üyelik Tarihi: 15-02-2007
Yer: Giderken Sağda Dönerken Solda
Mesajlar: 1,568
Rep Gücü: 49
Rep Puanı: 1223
killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7killer man Rütbe: +7
killer man - MSN üzerinden mesaj gönder
Tanımlı Cevap: Ekrana bir * yazdırıp bu yıldızı w,a,s,d yön tuşlarıyla hareket ettiren progra

Paylaşım İçin Teşekkürler..

__________________
birgünbirpalyaçovarmışbütünağlayanlarıgüldürürmüşb irgünbiradamvarmışyoğunağlamateşhisiyledoktorabaşv urmuşdoktordademişkigitpalyaçoyubulosenigüldürürde mişadamdademişkiobenim

Edirneye gittim ve Hakkari' ye,
Ankara'ya da gittim. Ne olmuş yani?



ßu şehir rakıyla yaşar,
Bu şehir cigarayı ceker.
Bu şehir gündüzü yaşar,
Bu şehir her geceyi sever!
Bu şehirin adamı söver,
Bu şehir kadınını döver...
killer man isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Cevapla

« Önceki Konu | Sonraki Konu »
Konu Yönetim Seçenekleri
Konu Gösterim Seçenekleri
Normal şekilde göster Normal şekilde göster

Yetkileriniz
Yeni konu açamazsınız
You may not post replies
Mesajınıza dosya ekleyemezsiniz
Mesaj düzenleme yapamazsın
BB code is Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı






En çok aranan 50 sonuç
Arama bulutu

1299 1299 data 1299 duvar hack 1299 full client 1299 gm komutları 1299 is koxp 1299 koxp 1299 wall hack 1709 seri cs andream server ardream server bedava d smart bifrost patch clan simgeleri d smart kaç para dragonfable dragonfable hileleri dönem ödevi kapağı forum ena forumena genco ko gerçek tecavüz gm komutları gta san andreas multiplayer hack shield hackshield hackshield hatası ko private server kohack mage server myko hack myko koxp mykohack noktako oto kutu toplama prokoxp pvp server ip leri pwp pwp serverlar seri cs seri cs 1709 seri skill special ko speed hack tecavüz videoları tecavüz videosu tecavüzvideo walkry patch youtubeye giriş zeusko


forumENA sistem saati: 11:14

İletişim - forumENA - Knight Online , KOXP - Arşiv - forumENA Kuralları - Yukarı Git

Powered by vBulletin Version 3.7.4
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.2.0
-------------------------------------------------------------------------
Türkçeleştirme izmirlinihat tarafından yapılmaktadır
forumENA sitesi ENAhosting© tarafından barındırılmaktadır