Çevrimdışı

S.a Arkadaşlar ,

benim aklıma bir şey takıldı çözmeye çalıştım ama yapamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ben bazı miRC lerde gördüm mıRC Dialogu açınca, dialog sagdan sola doğru , aşarığan yukarı , yukardan aşağı , çaprazlamasına açılıyo vs. vs. vs.

Bunun Kodlarını yazabilirmisiniz size zahmet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Acele ile yazdığım bir code oldu... Ama fikir vermek açısından işine yarar umarım... Bu aralar zaten bu code üzerinde çalıshıyordum...




Daha güzel bir kodlama yapacaq arkadashlar vardır elbet ama acemi ishi bu kadar oldu idare et...

 

Çevrimdışı

Arkadaşım bu ne yapıo ki dialoga sag-sol asagı-yukarı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Mc_AyALa Nickli Üyeden Alıntı

Arkadaşım bu ne yapıo ki dialoga sag-sol asagı-yukarı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kodu kullanırsan anlarsın... Üst köşeden çaprazlama kayan bir dialog... Neyse... Ben maça gidiyom... Şampiyon Fenerbahçe... Hadi kolay gele...


Bu arada kullanmak için F11 e basman yeterli
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bunu da örnek olarak verdim sen kendine göre gelishtirirsin artıq...

 

Çevrimdışı

öncelikle iyi bir post kasmıştım sorun çıktı uctu yazılar hep o yüzden hiar internet diyiyim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


şimdi o kadar uzun post kasamam geneoyüzden kısaca bir kaç bilgi vereyim kodlan oynayabilmen için mc_ayala:

alias deneme {
var %i = 1
while (%i <= 450) {
dialog -s deneme $calc(1 + %i) $calc(1 + %i) 160 160
inc %i
}
}


var %i = 1 --> bu satırdaki 1 sayısı kodun mirc toolbarının 1.ci sırasından en sol üst köşesinden çarprazlama olarak aşağıya kaydırır. O Sayıyı mesela 10 yaparsan dialog daha aşağıdan ve daha sağdan açılır.


while (%i <= 450) { --> bu satırdaki 450 sayısı ise yukardan aşağıya kayan dialogun en son noktada tam nerede açılacağını belirler. bu 450 sayısı dialogu orta-sağ köşeye ve alt kısma yakın bir yerde açtırır. o Sayı 350 olduğu vakit dialog tam ortalarda açılır. o sayı 100 olursa direkt sol üst köşede açılır dialog.


dialog -s deneme $calc(1 + %i) $calc(1 + %i) 160 160 --> bu satırdaki 160 sayıları ise dialogun genişlik ve uzunluk ayarlarıdır. İlk 160 sayısı genişlik ayarı, sonraki 160 sayısı ise uzunluk ayarıdır. sen 250 250 yapınca sayıları dialogun boyutlarının daha da büyüdüğünü görürsün..

 

Çevrimdışı

McKruGer Nickli Üyeden Alıntı

öncelikle iyi bir post kasmıştım sorun çıktı uctu yazılar hep o yüzden hiar internet diyiyim Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. şimdi o kadar uzun post kasamam geneoyüzden kısaca bir kaç bilgi vereyim kodlan oynayabilmen için mc_ayala: alias deneme { var %i = 1 while (%i <= 450) { dialog -s deneme $calc(1 + %i) $calc(1 + %i) 160 160 inc %i } } var %i = 1 --> bu satırdaki 1 sayısı kodun mirc toolbarının 1.ci sırasından en sol üst köşesinden çarprazlama olarak aşağıya kaydırır. O Sayıyı mesela 10 yaparsan dialog daha aşağıdan ve daha sağdan açılır. while (%i <= 450) { --> bu satırdaki 450 sayısı ise yukardan aşağıya kayan dialogun en son noktada tam nerede açılacağını belirler. bu 450 sayısı dialogu orta-sağ köşeye ve alt kısma yakın bir yerde açtırır. o Sayı 350 olduğu vakit dialog tam ortalarda açılır. o sayı 100 olursa direkt sol üst köşede açılır dialog. dialog -s deneme $calc(1 + %i) $calc(1 + %i) 160 160 --> bu satırdaki 160 sayıları ise dialogun genişlik ve uzunluk ayarlarıdır. İlk 160 sayısı genişlik ayarı, sonraki 160 sayısı ise uzunluk ayarıdır. sen 250 250 yapınca sayıları dialogun boyutlarının daha da büyüdüğünü görürsün..

Sağolasın McKruger maçtan dolayı yazdığım kodu açıklama vaktim olmamıshtı... Açıklamasını yaptığın için çoq sağol...

 

Çevrimdışı

Peki üstadlar bunlara başka örneklerde verebilirmiyiz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ne biliyim aşagıdan yukarı doğru kayan bi dialog
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


bide kızmıcaksanız bi soru daha
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


ben dialog'a bi html sayfası eklemeye calıstım olmadı sadece kodları cıktı bunu nasıl yapabilirim

loadbuf -o 1 $dname kem küm.html yaptım olmadı

Yardımlarınız için şimdiden teşekkürler

 

Çevrimdışı

lacces Nickli Üyeden Alıntı

ben dialog'a bi html sayfası eklemeye calıstım olmadı sadece kodları cıktı bunu nasıl yapabilirim

Bunu için nHTML.DLL adlı DLL dosyasına ihtiyacın var.

Bu DLL'yi indirmek için:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
face="Tahoma">Dll'yi indirdikten sonra bu dll'yi mIRC.exe'nin olduğu klasöre çıkar ve aşağıdaki kodu kopyala ve yapıştır.(Nereye yapıştırılacağını biliorsundur inş.)

Seni ilgilendiren kısım init event'ının olduğu kısımdır...Oradakileri incelersen
anlayacağını umuyorum...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
dialog url {
  title "Örnek"
  size -1 -1 285 152
  option dbu
  list 1, 2 13 282 124, size
  button "Kapat!", 2, 245 138 37 12, cancel
  text "Yeni url:", 3, 3 3 20 8
  edit "", 4, 24 1 227 10
  button "Git!", 5, 253 1 25 11, disable
}
alias ornek { if (!$dialog(url)) dialog -m url url }
 
;Seni ilgilendiren kısım
on *:dialog:url:init:*: {
  ;Dialog'daki listbox'ın hwnd'si alınıyor...
  var %hwnd = $dll(nhtml.dll,item,$dialog(url).hwnd id:1)
  ;Burda ise listbox bir html görüntüleyicisine dönüştürülüyor...
  dll nhtml.dll attach %hwnd
  ;Bu da gidilecek adres...
  ;url adresi yerine,   $shortfn(index.html) yada about:blank(yani boş sayfa) yazabilirsin...
  dll nhtml.dll navigate 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:dialog:url:edit:4: $iif($did(4),did -e $dname 5,$did -b $dname 5)
on *:dialog:url:sclick:5: dll nhtml.dll navigate $did(4)

Örneği açmak için: /ornek yazın.

 

Çevrimdışı

bitanede ben ekliyim bari animasyonlu dialog açılımı diğerlerinden farkı her açılışta değişik bir animasyonla açılması tabi seni biraz zorluyacak çünkü açılış komutu /dialog -m falan falan değil dialogları açarken aliases kullanıcaksın örneğin ben aşağıda error diye bir dialog yaptım kısa yol olacak /aç komutunu verdim komutun tam açıklaması : alias kısayol { opdialog dialogismi sabit180 180 en boy } şeklinde kolay gelsin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


alias aç { opdialog error 180 180 400 260 }
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
if $$1- != $null {
if $$1 = a {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
}
if $$1 = b {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
}
if $$1 = c {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
}
if $$1 = d {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.w
opendl.h
}
if $$1 = e {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.h
opendl.w
}
if $$1 = f {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.mvr
}
if $$1 = g {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.b
}
if $$1 = h {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.t
}
if $$1 = i {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.l
}
if $$1 = j {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.r
}
if $$1 = k {
dialog -m $$2 $$2
set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.r1 = 1 {
if %temp.d.r2 = 1 { opendl.r | opendl.t }
if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
}
if %temp.d.r1 = 2 {
if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
}
if %temp.d.r1 = 3 {
if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
if %temp.d.r2 = 2 { opendl.t | opendl.r }
}
if %temp.d.r1 = 4 {
if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
}
}
if $$1 = ? {
linesep
linesep
linesep
}
}
}
alias opendl.w {
:start
inc %temp.d.w 2 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlw off
}
alias opendl.h {
:start
inc %temp.d.h 2 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
.timeropendlh off
}
alias opendl.wh {
:start
inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlwh off
}
alias opendl.mvr {
set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
:start2
inc %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
:end2
}
alias opendl.b {
set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
:start
inc %temp.d.h 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
:end
}
alias opendl.t {
:start
inc %temp.d.h 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
}
alias opendl.l {
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
alias opendl.r {
:start
inc %temp.d.w 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
dialog error {
title " ( Dikkat )"
size -1 -1 250 100
button "Tamam" 2, 80 70 80 19, ok
}