Bir kod örneği, maalesef sonsuz döngüye gidiyor :mrgreen: :D
*Not: Pascal,Delphi bilenler daha rahat çözerler.
Procedure Jeaquares.Initiate (Sender:TSDNForum);
var OstrojenMiktari, MurebbiyeSure,TherapyNumber:integer;
begin
OstrojenMiktari:=0;
MurebbiyeSure:=0;
TherapyNumber:=0;
end;
procedure Jeaquares.Discipline (Sender:TSDNForum);
var OstrojenMiktari, MurebbiyeSure, TherapyNumber:integer;
femininity,ladylikeness,gracefulness,respect,politeness:boolean;
begin
Get.Jeaquares.Properties(femininity,ladylikeness,gracefulness,respect,politeness);
While not Jeaquares.femininity=True Do
begin
OstrojenMiktari:=OstrojenMiktari+10;
MurebbiyeSure:=MurebbiyeSure+1;
TherapyNumber:=TherapyNumber+1;
Jeaquares.CheckStatus;
end;
end;
end;
procedure Jeaquares.CheckStatus (Sender:TSDNForum);
var femininity,ladylikeness,gracefulness,respect,polit eness:boolean;
begin
if Jeaquares.ladylikeness=True and Jeaquares.gracefulness=True and Jeaquares.respect=True and Jeaquares.politeness=True then
Jeaquares.femininity:=True
else
Avoid(Jeaquares, From People);
Jeaquares.Discipline;
end;
Cevaplar
Y
2009'den beri12 bin mesaj
Beğendim. :) (Ciddiyim.)
E
güzeldi :D:D
O
Programlama bilmeyenler için açıklama yok mu :)
Programlama bilmeyenler için açıklama yok mu :)
Onu Jeaquares'e sor, beğendiğine göre gayet güzel anlatır....:D
I
Mükemmel :D östrojen haaha :D
C
2007'den beri17 bin mesaj
neden Jeaquares ile uğraşılıyor??? :hammer::hammer::hammer:
O
Ama olmadı ki. :D Benim de bilmeye hakkım var :D
Y
2009'den beri12 bin mesaj
Programlama bilmeyenler için açıklama yok mu :)
Programlama bilmeye gerek yok ki.
Benim bayan olduğuma inanmıyor sanırım. Eğer ladylikeness'ım, gracefulness'ım, respect'im ve politeness'ım
True ise, o zaman femininity'im
True'ymuş. Diğer türlü ise banlanmam gerekiyormuş. :)
[COLOR=Blue][B]if [/B][/COLOR]Jeaquares.ladylikeness=True [COLOR=Blue]and[/COLOR] Jeaquares.gracefulness=True[COLOR=Blue] and[/COLOR] Jeaquares.respect=True [COLOR=Blue]and[/COLOR] Jeaquares.politeness=True [COLOR=Blue][B]then[/B][/COLOR]
Jeaquares.femininity:=True
[COLOR=Blue][B]else[/B][/COLOR]
Avoid(Jeaquares, From People);
Bu da Türkçesi olsun bakalım ....
Prosedür Jeaquares.Başlat (Gönderen:TSDNForum);
Değişkenler ÖstrojenMiktari, MurebbiyeSüre,TerapiSayısı:Tamsayı;
Başla
ÖstrojenMiktari:=0;
MurebbiyeSüre:=0;
TerapiSayısı:=0;
son;
proedür Jeaquares.Disiplin (Gönderen:TSDNForum);
Değişkenler ÖstrojenMiktari, MurebbiyeSure, TerapiSayısı:Tamsayı;
Kadınsılık,nezaket,zerafet, saygı, edep: Doğru, Yanlış;
Başla
Bul.Jeaquares.Özelliklerini(Kadınsılık,nezaket,zerafet, saygı, edep);
Jeaquares.Kadınsılık=Doğru olmadığı sürece yap
başla
ÖstrojenMiktari:=ÖstrojenMiktari+10;
MurebbiyeSüre:=MurebbiyeSüre+1;
TerapiSayısı:=TerapiSayısı+1;
Jeaquares.DurumKontrolu;
son;
son;
son;
prosedür Jeaquares.DurumKontrolu (Gönderen:TSDNForum);
Değişkenler Kadınsılık,nezaket,zerafet, saygı, edep: Doğru, Yanlış;
Başla
Eğer Jeaquares.nezaket=Doğru ve Jeaquares.zerafet=Doğru ve Jeaquares.saygı=Doğru ve Jeaquares.edep=Doğru ise
Jeaquares.kadınsılık:=Doğru
Değilse
UZaktut(Jeaquares,İnsanlardan );
Jeaquares.Disiplin;
son;
O
Programlama bilmeye gerek yok ki.
Benim bayan olduğuma inanmıyor sanırım. Eğer ladylikeness'ım, gracefulness'ım, respect'im ve politeness'ım
True ise, o zaman femininity'im
True'ymuş. Diğer türlü ise banlanmam gerekiyormuş. :)
[COLOR=Blue][B]if [/B][/COLOR]Jeaquares.ladylikeness=True [COLOR=Blue]and[/COLOR] Jeaquares.gracefulness=True[COLOR=Blue] and[/COLOR] Jeaquares.respect=True [COLOR=Blue]and[/COLOR] Jeaquares.politeness=True [COLOR=Blue][B]then[/B][/COLOR]
Jeaquares.femininity:=True
[COLOR=Blue][B]else[/B][/COLOR]
Avoid(Jeaquares, From People);
Anlamayınca okumadım valla :) Boşver Merve, ben inanıyorum senin bayan olduğuna :D
Y
2009'den beri12 bin mesaj
Anlamayınca okumadım valla :) Boşver Merve, ben inanıyorum senin bayan olduğuna :D
Teşekkür ederim ama kimseye bayan olduğumu inandırma gibi bir derdim yok ki?
Maalesef ama maalesef kimsenin dediğini takamayan bir yapım var. :) Sadece benim için önemli olanların sözleri önemlidir bana. Bu arada, kullanıcı adımın veya gerçek adımın bir programın kodlarında geçiyor olması beni çok mutlu eder. cgrszone'a sorabilirsiniz. :) O sebeple beğenmiştim, amacının ne olduğunun bir önemi olmadan.
C
2007'den beri17 bin mesaj
ben beğenmedim :hammer:
ben beğenmedim :hammer:
Beğeneceğini de sen yaz görelim:dirol:
neden Jeaquares ile uğraşılıyor??? :hammer::hammer::hammer:
O konuyu kendisine sor. Akşam ki mevzuyu sana anlatsın...
G
okadarda önemli bşi değilmiş :D
Y
2009'den beri12 bin mesaj
Beğeneceğini de sen yaz görelim:dirol:
O konuyu kendisine sor. Akşam ki mevzuyu sana anlatsın...
Akşamki mevzuyu ilk O gördü. Hatta konuyu benden önce görmüştü, gördüğü anda da "Merve görünce çok kızar." diye düşünmüş. :)
P
Birbirinizle bir alıp veremediğiniz ne var bilmiyorum ama forumu saçma şeylerle doldurmayla çok meraklısınız.
Yakışmıyor arkadaşlar.
C
2007'den beri17 bin mesaj
Birbirinizle bir alıp veremediğiniz ne var bilmiyorum ama forumu saçma şeylerle doldurmayla çok meraklısınız.
Yakışmıyor arkadaşlar.
Katılıyorum...
T
Son günlerde kimsenin kimseye Tehamülü kalmamış.
Sanalda bile birbirimizi yiyoruz nezaket bir ufak gülümseme veya teşekkür etme bile yok
En kanıtlayıcı örnek şudur
Sdn puanlama sistemi koydu puanlama sisteminde bonus veriliyor buda bi nevi nezaket insanlar konu açıyorlar ama bonus Verilmiyor yorum bile yapılmaya tenezül gösterilmiyor neredeyse 1 2 ay olucak bonus sisteminde ancak belirli kişilerin bonusları fazla sebebi ya çok tanınmş olmaları yada moderetör olmaları Teşekkür bile unutuldu neredeyse biri çıkıp derse bonusun ne önemi var bence çok önemi var insanlar teşvik edici bir yönü var.
en azından sanal ortamda birbirimizi yemeyelim cinsiyet ayrımına ne gerek var bayansa bayandır erkekse erkek. Kimsenin ne olduğu kimseyide ilgilendirmez ama arkadaş espirsine açmış gülüp geçelim Eğer Burada şaka yapılan şahıs sinirlenmiyorsa öteki üyelerin Ses çıkarması saçmalık ve kuru kalabalık Kısacası Sanane!
Y
2009'den beri12 bin mesaj
Son günlerde kimsenin kimseye Tehamülü kalmamış.
Sanalda bile birbirimizi yiyoruz nezaket bir ufak gülümseme veya teşekkür etme bile yok
En kanıtlayıcı örnek şudur
Sdn puanlama sistemi koydu puanlama sisteminde bonus veriliyor buda bi nevi nezaket insanlar konu açıyorlar ama bonus Verilmiyor yorum bile yapılmaya tenezül gösterilmiyor neredeyse 1 2 ay olucak bonus sisteminde ancak belirli kişilerin bonusları fazla sebebi ya çok tanınmş olmaları yada moderetör olmaları Teşekkür bile unutuldu neredeyse biri çıkıp derse bonusun ne önemi var bence çok önemi var insanlar teşvik edici bir yönü var.
en azından sanal ortamda birbirimizi yemeyelim cinsiyet ayrımına ne gerek var bayansa bayandır erkekse erkek. Kimsenin ne olduğu kimseyide ilgilendirmez ama arkadaş espirsine açmış gülüp geçelim Eğer Burada şaka yapılan şahıs sinirlenmiyorsa öteki üyelerin Ses çıkarması saçmalık ve kuru kalabalık Kısacası Sanane!
Katılıyorum. Sinirlenmedim, güldüm bu yapılana, hatta yerine göre hoşuma da gitti ama bu konu yüzünden erkek arkadaşımla kavga ettik ve şu an küsüz.
Hani eğer amaç benim canımı sıkmaktıysa arkadaş bunu başardı. Değildiyse canı sağ olsun. :) Yapılan şeyi hala bir hakaret olarak algılamıyorum. Öyle bile olsa, ne diyebilirim ki?
C
2007'den beri17 bin mesaj
yetkili mecraların kızması sorun oluşturmaz...
A
Jeaquares i tanımlamamışsın ama? Bu ne biçim bir dil. bizim kısa devrelerimiz yandı "System Halted!" "Error String in Codes" "Unnamed string a value tespit edildi"
"SecondSec.Jeaquares.Common.ContainerObjectModel.NonValue"
"There is no data" Kahretsin anlamadım :)))
(ama çok güzel yazmıssın tebrik ederim valla)
O
Jeaquares i tanımlamamışsın ama? Bu ne biçim bir dil. bizim kısa devrelerimiz yandı "System Halted!" "Error String in Codes" "Unnamed string a value tespit edildi"
"SecondSec.Jeaquares.Common.ContainerObjectModel.NonValue"
"There is no data" Kahretsin anlamadım :)))
(ama çok güzel yazmıssın tebrik ederim valla)
Biz ne diyoruz ne sen ne diyorsun be kardeşim...
A
Biz ne diyoruz ne sen ne diyorsun be kardeşim...
kardeşin diilim
O
kardeşin diilim
Kardeşim dediysem hemen kan bağı var mı sandın? :huh:
A
Kardeşim dediysem hemen kan bağı var mı sandın? :huh:
yani tanımadığım insanların bana dostum, kardeşim, arkadaşım vs. gibi sıfatlar kullanmasını sevmem. yani sadece zıtlık yapıyonuz. sadece muhalefet. biri yanlış birşey yazsada hemen binsem tepesine. itiraz etsem, muhalefet olsam. arkadaşın biri doğru yazmış. insanlar artık teşekkürü unuttu, kibarlığı bıraktı. biri koluna çarpsa "ne çarpıyon lan" oldu. kan bağı olsa keşke, keşke kardeşim olsan. o zaman belki güler geçerdim :)@evowinds; bilgini daha faydalı işlerde kullansana ?
Tamam, herkes hata yapabilir. Ama o daha küçük bir kız, bazen fazla yükleniyorsunuz gibime geliyor. Farklılıklarımız bizim zenginliğimizdir, herkese saygılı olmalı ve rencide edecek davranışlardan kaçınmalıyız.
E
Programlama bilmeye gerek yok ki.
Benim bayan olduğuma inanmıyor sanırım. Eğer ladylikeness'ım, gracefulness'ım, respect'im ve politeness'ım
True ise, o zaman femininity'im
True'ymuş. Diğer türlü ise banlanmam gerekiyormuş. :)
[COLOR=Blue][B]if [/B][/COLOR]Jeaquares.ladylikeness=True [COLOR=Blue]and[/COLOR] Jeaquares.gracefulness=True[COLOR=Blue] and[/COLOR] Jeaquares.respect=True [COLOR=Blue]and[/COLOR] Jeaquares.politeness=True [COLOR=Blue][B]then[/B][/COLOR]
Jeaquares.femininity:=True
[COLOR=Blue][B]else[/B][/COLOR]
Avoid(Jeaquares, From People);
Bir ufak espiri yapacaktım ama sonraki sayfalar beni vazgeçirdi. Senin bayan olduğun, yeni duydum ve şaşırdım.
Y
2009'den beri12 bin mesaj
Bir ufak espiri yapacaktım ama sonraki sayfalar beni vazgeçirdi. Senin bayan olduğun, yeni duydum ve şaşırdım.
Yapabilirsin o espiriyi. Yazılanları umursayamayacak kadar kötüyüm zaten. :)
Bu arada bayan olduğumu duyanların şaşırmasına da şaşırmıyorum artık, inanmayanlara da. Hangi salak erkek kız taklidi yapar ki? :)
O
Yapabilirsin o espiriyi. Yazılanları umursayamayacak kadar kötüyüm zaten. :)
Bu arada bayan olduğumu duyanların şaşırmasına da şaşırmıyorum artık, inanmayanlara da. Hangi salak erkek kız taklidi yapar ki? :)
Harbiden yahu. Neden bayan olduğunu duyanlar şaşırıyor hala aklım almış değil :confused1:
Cevabını yaz
Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.
