IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  turkish chat



Instagram takipçi satın al
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Nisan 2009, 14:41   #21
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam
return komutunun kullanımı hakkında bilgi verebilir misiniz?

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 17 Nisan 2009, 17:12   #22
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




Hocam anlattığınız şeyler gerçekten önemli ve eggdrop tcl öğrenmek isteyen bizler için çok güzel şeyler. Fakat üzülerek belirtiyorum ki hala mantığını çözebilmiş değilim anlatmış olduğunuz kısımların. Bende mi bi anormallik var yoksa gerçekten karışık olduğu için mi anlayamıyorum , Oysaki çok iyi anlatıyorsunuz bunu fark ettiriyorsunuz bizlere.

  Alıntı ile Cevapla

Alt 17 Nisan 2009, 19:13   #23
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




Bir işe Başlarken, Öğrenmek istediğin Şey Zor Olarak Görünebilir Tabi ki Baslarda. Örneğin, Okula Baslamadan Önce, Gazetelerde yahut dergilerde Gördüğün Harfleri Anlayamazsın Burdada Aynı Durum Söz Konusu. Üzerinde Uygulama Yaptıkca Zaten Mantığı Daha da iyi Anlar, Kaparsın.

  Alıntı ile Cevapla

Alt 17 Nisan 2009, 20:49   #24
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




toXic Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir işe Başlarken, Öğrenmek istediğin Şey Zor Olarak Görünebilir Tabi ki Baslarda. Örneğin, Okula Baslamadan Önce, Gazetelerde yahut dergilerde Gördüğün Harfleri Anlayamazsın Burdada Aynı Durum Söz Konusu. Üzerinde Uygulama Yaptıkca Zaten Mantığı Daha da iyi Anlar, Kaparsın.

Tebrik ederim hocam çok güzel söylediniz fakat nasıl başlayacağımı bilmiyorum , elbette herşey zamanla olucak sonuç itibari ile istek var içimizde bu işi öğrenmeyi istiyorum ve umarım istediğim şeyleri yapabilirim.

  Alıntı ile Cevapla

Alt 17 Nisan 2009, 20:56   #25
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




Zaten İcinde istek Olunca, Farkında Olmadan Öğrenmeye Baslıyorsun Kodların Yapısını Biraz inceleyince Aklına Yatınca Zaten Ufak tefek Kodlamaya baslıyorsun Zevkli Bir iş İmkansız diye Birşey, Yapamam Diye Birşey Yoktur, İmkansız, İmkansız demektir.

  Alıntı ile Cevapla

Alt 17 Nisan 2009, 22:08   #26
Çevrimdışı
SaW
SaW - ait Kullanıcı Resmi (Avatar)
Cevap: TCL scripting öğrenmek istiyorum




Siber55 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam
return komutunun kullanımı hakkında bilgi verebilir misiniz?

return kelime manası olarak dön anlamına gelir. Yani bir proc içerisinde kullanırken daha çok if-elseif-else gibi kısımların içerisinde ve döngü içlerinde kullanırız. Oraya geldiğinde o sonuca dön manasında. Bir kaç örnek verince daha da anlaşılır hale gelecektir.
sıklıkla kullanılan return 0 ve return 1 değelerini de açıklayayım. Eğer 0 dersek, kod orada durur ve daha ilerisine bakmaz. peki return 1'i ne için kullanırız? Biliyorsunuz ki if içerisinde yazdığımız mantıksal değer'in sonucu 1 ise kod if içerisindeki işlemleri uygular, eğer 0 ise o if içerisine hiç girmez. İşte if içerisinde kullandığımız komut return 1 olarak döndüyse if içerisine girer ve oradaki işlemleri uygular. 0 ve 1'in haricinde herhangi istediğimiz bir değere de return yaptırabiliriz. Mesela return deneme şeklinde kullanabiliriz. İşte bu elde edilen deneme değerini de if içerisinde ="deneme" şeklinde kullanabiliriz. Şuana kadar anlatıklarımdan çok fazla birşey anlamamış olabilirsiniz, ama örneklerle pekiştirecez.

proc don {} {
if {[donbak]} {
putlog "if içerisindeyim"
return 0
}
putlog "donbak değeri 0 olarak döndü"
}

proc donbak {} {
return 1
}

İlk önce don adında bir komut oluşturduk. O komut içerisinde if sorgusu yapıyoruz. "Eğer donbak adlı komutun değeri 1 ise" diyoruz. Eğer sonuç 1 ise if içerisine giriyor ve bize if içerisindeyim sonucunu veriyor ve return 0 ile de işlemi durduruyoruz. Eğer donbak komutu içerisindeki return değeri 0 olarak dönseydi if içerisine hiç girmeyecek ve bize donbak değeri 0 olarak döndü diyecekti.

Şimdi ise aynı örneği 0 ve 1 değerinden farklı olarak gösterelim.

proc don {} {
if {[donbak]=="evet"} {
putlog "if içerisindeyim"
return 0
}
putlog "donbak değeri 0 olarak döndü"
}

proc donbak {} {
return evet
}


Burada ise sonuç evet ise if içerisine gir ve orada mesajı ver, sonra işlemi durdur diyoruz, eğer cevap evet'ten farklı birşey ise if içerisine hiç girme sonraki işlemleri uygula diyoruz.

Genel kullanım bu şekildedir, herzaman söylediğim gibi örnekleri yapıp konsoldan da takip ederek denerseniz daha iyi anlayacaksınız. Örnekler çoğaltılabilir, anlamadığınız yerler olursa sorarsınız daha fazla örneklerle açıklarız.

  Alıntı ile Cevapla

Alt 28 Nisan 2009, 20:07   #27
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




selam nebileym ve diğer arkadaşlar. ben; emeklerin ve bizlere bu konu ile ilgili öğretme çabasında olduğun için öncelikle tşkler.

sorum şu olacak "global" komutu hakkında bilgi verebilirmisiniz

  Alıntı ile Cevapla

Alt 28 Nisan 2009, 20:11   #28
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




kardeş birde

set tgcolourstart "04" ;#Oyun Başlatildi.
set tgcolourstop "04" ;#Oyun Durduruldu.
set tgcolourskip "04" ;#Oyun Geçildi.
set tgcolourerr "02,15" ;#Oyun Hata Bildirimi.
set tgcolourmiss "02" ;#Nobody answered the question.
set tgcolourqhead "06" ;#Soru Basligi.
set tgcolourqbody "02" ;#Soru Rengi.
set tgcolourhint "03" ;#Ip Ucu.
set tgcolourstrk "00,01" ;#Person is on a winning streak.
set tgcolourscr1 "06" ;#Score of person in first place.
set tgcolourscr2 "06" ;#Score of person in second place.
set tgcolourscr3 "06" ;#Score of person in third place.
set tgcolourrset "11,01" ;#Scores have been reset.
set tgcolourstend "11,01" ;#Winning streak ended.
set tgcolourmisc1 "06" ;#Miscellaneous colour #1.
set tgcolourmisc2 "04" ;#Miscellaneous colour #2.


bu tcl icerisinde: tgc ile başlayan komutlar sabitmidir yoksa dinamikmidir. yani değişkenliği varmıdır. istedigimiz kelimeleri yazabilirmiyiz.

  Alıntı ile Cevapla

Alt 14 Haziran 2009, 03:44   #29
Çevrimdışı
Raw
Raw - ait Kullanıcı Resmi (Avatar)
Cevap: TCL scripting öğrenmek istiyorum




çok güzel bir konu bence ilk defa okudum bende deneme yanılma yöntemi ile kendime göre bişeyler değiştirip yapmaya çalışıyorum .örneğin ;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pub - opver opver proc opver {n u h c a} { if {[isop $n $c] || [onchan $n "#Ops"]} { global gnick set gnick $n set kanal [lindex $a 0] putserv "sajoin $n $kanal" putserv "PRIVMSG operserv :raw :chanserv mode $kanal +o $n" } }

bu kod botun bulunduğu kanallarda op olanlara ve #ops kanalında olanlara kanal genelinde opver #kanal yazanları o kanala sajoinleyip op veriyor.ben bunu kanal genelinde değilde botun özeline yazılsın olarak yapmak istedim ve şöyle değiştirdim ;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind msgm - opver op_ver proc op_ver {n u h c a} { if {[isop $n $c] || [onchan $n "#Ops"]} { global gnick set gnick $n set kanal [lindex $a 0] putserv "sajoin $n $kanal" putserv "PRIVMSG operserv :raw :chanserv mode $kanal +o $n" } }

ama bir sonuç alamadım acaba nerde hata yaptım ?

__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
  Alıntı ile Cevapla

Alt 14 Haziran 2009, 12:43   #30
Çevrimdışı
Cevap: TCL scripting öğrenmek istiyorum




özelde kanal parametresi olamayacağı için önce {n u h c a} kısmını {n u h a} olarak değiştir ve [isop $n $c] kısmında $c yerine belli bir kanal yaz veya o kısmı sil.

  Alıntı ile Cevapla

Cevapla

Etiketler
istiyorum, ogrenmek, scripting, tcl, öğrenmek

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 Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Scripting laglagorg mIRC Scripting Sorunları 1 17 Aralık 2007 03:50
TCL Scripting'den anlayan? bLackStar Eggdrop, NeoStats, BNC 10 11 Nisan 2006 21:58
mIRC Scripting Öğrenmek İstoyorum... DoStNaMe mIRC Scripting Sorunları 19 27 Şubat 2006 13:50