IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
derya sohbet


2Beğeni(ler)
  • 1 Post By Mix
  • 1 Post By Funda


Kilitli
 
 
Seçenekler Stil
Alt 16 Kasım 2021, 07:34   #1
Lightbulb While Konu Anlatımı

Konu : While(-Iken)

____________________________________

Adimlar:

1. Event, alias, vb. islem olusturmak,
2. Variable meydana getirmek,
3. While dongusu sayisini belirlemek,
4. While islem kalibini olusturmak.

____________________________________

Soru-Cevap

Not: Soru-Cevap kisimlarini remote(Alt+r) bolumune entegre edip deneyin.

____________________________________
;Soru: " /okey " komutunu uyguladigimda #A kanalindaki kullanicilari yukardan assagi siralanacak sekilde, #B kanalina yansitacak While dongusu nedir?
;Cevap:
;Remote bolumunde kullanilmak uzere " okey " aliasini meydana getiriyorum islem ayiracini acip.
alias okey {
;" %! " adinda bir degisken meydana getirdim bu degiskeni 1 sayisina esitledim.
var %! 1
;While dongumuzu identifierimiz yardimi ile kanaldaki kullanici sayisina esitledim ve while islem ayiracini actim.
while (%! <= $nick(#A,0)) {
;While islem kalibini meydana getirdim %! degiskeni ile her adimda yapmasi gereken islemi bildirdim.
;Islem: Her adimda, #B kanalina %! degerine rast gelen #A kanalindaki useri yaz!
msg #B $nick(#A,%!)
;While islemi sirasinda her dongude %! degiskenini bir artacak sekilde ayarladim.
inc %!
;While islem ayiracimi kapattim.
}
;Alias islemi sonunda bildirim almam icin echo komutunu kullandim.
.echo -at 4Islem: tamamlandi!
;Alias islem ayiracimi kapattim.
}
____________________________________
;Soru: " Ozel " komutunu uyguladigimda aktif pencereye ozelimdeki nickleri, yukaridan assagi yazdirmak saglayacak While dongusu nedir?
;Cevap:
;Remote bolumunde kullanilmak uzere " ozel " aliasini meydana getirdim ve alias islem ayiracini actim.
alias ozel {
;" %' " adinda bir degisken meydana getirdim bu degiskeni 1 sayisina esitledim.
var %' 1
;While dongumuzu $ifmatch degeri bize her adimda degisen verileri vermesi icin ayarladim.
while $query(%') {
;Islem: Her adimda, degisen $ifmatch degerini aktif pencereye yaz!
echo -at $ifmatch
;While islemi sirasinda her dongude %' degiskenini bir artacak sekilde ayarladim.
inc %'
;While islem ayiracimi kapattim.
}
;Alias islemi sonunda bildirim almam icin echo komutunu kullandim.
.echo -at 4Islem: tamamlandi!
;Alias islem ayiracimi kapattim.
}
____________________________________
;Soru: " Bansil sayi " komutunu uyguladigimda, aktif penceredeki kanalda eger @p isem, belirttigim sayi kadar ban maskini banlist siralamasinda assagidan yukari dogru silmek istiyorum, bunu saglayacak While dongusu nedir?
;Cevap:
;Input event'inde
on *:input:#: {
;Eger " !bansil " 1 kelime ise yazdigimiz cumlemizde,
if $1 == !Bansil {
;Eger 2 kelime sadece sayisal bir deger ise,
if $2 isnum {
;Eger 2 kelime ban listteki mask sayisindan fazla ise,
if $2 > $ibl(#,0) {
;Uyari mesajini bildirsin.
echo -at 4Hata: $2 mask sayisindan fazla!
}
else {
;Eger 2 kelime ban listteki mask sayisindan fazla degil ise,
if $3 {
;Eger 3 kelime var ise, mesaji bildir ve islemin devam etmemesi icin halt'la.
echo -a 4Hata: Komut kullanimi yalnis!
halt
}
;Eger 2 kelime banlist'teki mask sayisindan fazla degil ve 3 kelime yok ise.
;%avdet isminde degiskeni meydana getirdim ve bu degiskeni banlist'teki mask sayisina esitledim.
var %avdet $ibl(#,0)
;Dongumu banlist'teki mask sayisindan belirttigimiz sayisal deger kadar azina esitledim.
;Bu yol ile variables dec komutu sayesinde banlistte atilan banlar arasindan son siralardaki masklari secebilecegim.
while %avdet > $calc($ibl(#,0) - $2) {
;Islem: Her adimda banlistten uyan maski kaldir.
mode # -b $ibl(#,%avdet)
;Her adimda degiskeni bir azalt.
dec %avdet
}
}
}
else {
;Eger 2 kelime sadece sayisal bir deger degil ise, uyarida bulun.
echo -at 4Hata: $2 sayisal bir deger degil!
}
}
}
____________________________________
________________

ƈҽʅʅαԃıɳα αşıƙ Ⴆιɾ ιԃαɱ ɱαԋƙυɱυ
 
Alt 16 Kasım 2021, 07:38   #2
Mix
★ GeneraL ★
Mix - ait Kullanıcı Resmi (Avatar)

Standart

Bunu ilk duydum. Öğrenmiş oldum artık. Emeğine sağlık.

________________

120
 
Alt 16 Kasım 2021, 08:02   #3
Standart

Birşeyler öğrenmene Vesile olduysam Ne Mutlu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

________________

ƈҽʅʅαԃıɳα αşıƙ Ⴆιɾ ιԃαɱ ɱαԋƙυɱυ
 
Kilitli


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı





Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:04.