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

Gulsum · 22 Mayıs 2012, 18:52

merhaba
elimde bi radyo rometesi var bazı eklemeler yapmak istiyorum.ben 5 6 sunucu daki radyoları dinliyorum arabex veya türkü çalan olursa diyer sunucunun radyosuna geciyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kanal genelinde sağa tıklıyorum radyo aça tıklıyorum acılan kutucuğa sunucunun radyo linkini kopyalıyıp cal diyorum.örneklink [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama linki değiş kopyala yapıştır olmadı diyer radyonun lnkini kopyala yapıştır felan baya uğraştırıyo
bu radyo rometesine belirlediğim 10 tane radyo linki koyup beyenmediğim olursa diyer linke tıklıyıp değiştirmek istiyorum.bide ses kıs var sesi kısınca bilgisayarın seside kısılıyo sadece radyonun sesi kısılması mümkün değilmi. rometeyi veriyorum ilgilenmenizi bekliyorum.

alias cal {
if ($1 != Dur) {
set %caldir $+(sjn.,$ticks)
.comopen %caldir wmplayer.ocx
var %z $com(%caldir,Url,4,bstr,$1-)
%z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
%z = $com($+(%caldir,wmp),Play,3)
}
if ($1 == Dur) && ($com(%caldir)) {
%z = $com($+(%caldir,wmp),Stop,3)
unset %z
}
}

dialog nmkradio {
title "Radio"
size -1 -1 132 57
option dbu
edit "", 1, 32 12 98 10, autohs
text "Adres :", 2, 3 13 25 8
button "Çal", 3, 4 28 37 12
button "Dur", 4, 46 28 37 12
button "Gizle", 5, 89 28 37 12
text "Örnek : http://radyo.domainim.com:8088", 6, 28 2 101 8
button "Ses ver (+)", 7, 5 43 52 12
button "Ses kıs (-)", 8, 70 43 52 12
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
}
if ($devent == sclick) {
if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
if ($did == 4) { .cal dur }
if ($did == 5) { .dialog -x nmkradio nmkradio }
if ( $did == 7 ) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
if ( $did == 8 ) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
}
}

menu * {
-
Radio aç:.dialog -m nmkradio nmkradio
-
}

muratt_aziz · 23 Mayıs 2012, 01:58

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

alias cal {
  if ($1 != Dur) { 
    set %caldir $+(sjn.,$ticks)
    .comopen %caldir wmplayer.ocx
    var %z $com(%caldir,Url,4,bstr,$1-)
    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
    %z = $com($+(%caldir,wmp),Play,3) 
  }
  if ($1 == Dur) && ($com(%caldir)) {
    %z = $com($+(%caldir,wmp),Stop,3)
    unset %z
  }
}
dialog lnk {
  title "Radyo Listesi"
  size -1 -1 112 127
  option dbu
  list 3, 45 19 62 101, size vsbar
  edit "", 4, 44 6 62 12, return autohs autovs
  button "Ekle", 5, 8 8 25 11
  button "Çıkart", 6, 8 24 25 11
  box "", 7, 3 3 39 39
}
on *:dialog:lnk:*:*:{
  if ($regex($devent,^init$)) { if ($read(lnk.txt)) { 
    loadbuf -o $dname 3 lnk.txt } 
  }
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^5$)) { var %e = $did(4) | if (!%e) { $iif($input(link girmediniz.,y) == $true,halt,halt)
        halt
      } 
      else { $iif($read(lnk.txt,w,%e),$iif($input(Eklediğiniz link mevcut.,y) == $true,halt,halt),write lnk.txt %e)
        did -a $dname 3 %e | did -r $dname 4 
      }
    }
    if ($regex($did,^6$)) { var %r = $did($dname,3).sel
      if (!%r) { $iif($input(Herhangi bir link seçmediniz.,y) == $true,halt,halt)
        halt 
      }
      else { 
        var %- = $did($dname,3).seltext 
      did -d $dname 3 %r | write $+(-ds,%-) lnk.txt }
    }
  }
  if ($regex($devent,^dclick$)) { $iif($did == 3,entr $did($dname,3).seltext) } 
}
alias entr { cal dur | /cal $1 }
dialog nmkradio {
  title "Radio"
  size -1 -1 133 76
  option dbu
  edit "", 1, 32 12 98 10, autohs
  text " Adres :", 2, 3 13 25 8
  button "Çal", 3, 4 28 37 12
  button "Dur", 4, 46 28 37 12
  button "Gizle", 5, 89 28 37 12
  text "Örnek : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 6, 28 2 101 8
  button "Ses ver (+)", 7, 5 43 52 12
  button "Ses kıs (-)", 8, 70 43 52 12
  button "liste", 9, 48 56 37 12
}
on 1:dialog:nmkradio:*:*:{
  if ($devent == init) {
    did -a nmkradio 1 %radioadres
  }
  if ($devent == sclick) {
    if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
    if ($did == 4) { .cal dur }
    if ($did == 5) { .dialog -x nmkradio nmkradio }
    if ($did == 7) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
    if ($did == 8) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
    if ($did == 9) { dialog -m lnk lnk }
  }
}
menu * {
  -
  Radio aç:.dialog -m nmkradio nmkradio
  -
}

ses kısma mevzusu sade radyo için geçerli olabilmesi için bir program programa bağlı dll ve dosyalar gerekli'ki bu dosyaları kullana bilesiniz
şuanki kullanımınız koddaki mevcut dosyalar bilgisayar sistem sosyaları

daha gelişmiş rodyo addonları var bu addonlarda dll ve yardımcı dosyalarla ses calmakta olan radyodan kısılabiliyor bu kodlarla sanmıyorum ki bazı işletim sistemlerinde ses ve işlemde sorun cıkarta bilir

Gulsum · 23 Mayıs 2012, 02:53

istediğime çok yakın yapmışsın çok işime yaradı tşkler. ses olmuyosada salık olsun durdurmaktan başka care olmıcak ozaman tekrar saol.

Gulsum · 07 Haziran 2012, 11:34

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] liste ayrı kutucukta acılıyo acaba aynı kutucukta olması mümkünmü bide !link ve !durum butonuda ekleyebilirmisin durum butonuna tıkladığımda o kanala !durum yazısını yollasın. şimdiden tşkler.

Gulsum · 17 Haziran 2012, 11:28

yardım yokmu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Difuzyon · 30 Haziran 2012, 12:22

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

alias cal {
  if ($1 != Dur) { 
    set %caldir $+(sjn.,$ticks)
    .comopen %caldir wmplayer.ocx
    var %z $com(%caldir,Url,4,bstr,$1-)
    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
    %z = $com($+(%caldir,wmp),Play,3) 
  }
  if ($1 == Dur) && ($com(%caldir)) {
    %z = $com($+(%caldir,wmp),Stop,3)
    unset %z
  }
}
alias entr { cal dur | /cal $1 }
dialog nmkradio {
  title "Radio"
  size -1 -1 245 120
  option dbu
  edit "", 1, 32 12 98 10, autohs
  text " Adres :", 2, 3 13 25 8
  button "Çal", 3, 4 28 37 12
  button "Dur", 4, 46 28 37 12
  button "Gizle", 5, 89 28 37 12
  text "Örnek: http://turku.arabesk.com:8088", 6, 28 2 101 8
  button "Ses ver (+)", 7, 5 43 52 12
  button "Ses kıs (-)", 8, 70 43 52 12
  text "Radyo Listesi", 9, 158 5 101 8
  list 10, 149 26 62 89, size vsbar
  edit "", 11, 148 13 62 12, return autohs autovs
  button "Ekle", 12, 215 14 25 11
  button "Çıkart", 13, 215 30 25 11
  box "", 14, 145 1 98 117
  button "!durum", 15, 5 83 42 12
  button "!link", 16, 70 83 42 12
}
on 1:dialog:nmkradio:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
    if ($did == 4) { .cal dur }
    if ($did == 5) { .dialog -x nmkradio nmkradio }
    if ($did == 7) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
    if ($did == 8) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
    if ($did == 15) { msg #radyo !durum }
    if ($did == 16) { msg #radyo !link }
  }
  if ($regex($devent,^init$)) {
    did -a nmkradio 1 %radioadres  
    if ($read(lnk.txt)) { loadbuf -o $dname 10 lnk.txt } 
  }
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^12$)) { var %e = $did(11) | if (!%e) { $iif($input(link girmediniz.,y) == $true,halt,halt) | halt } 
      else { $iif($read(lnk.txt,w,%e),$iif($input(Eklediğiniz link mevcut.,y) == $true,halt,halt),write lnk.txt %e) | did -a $dname 10 %e | did -r $dname 11 }
    }
    if ($devent == sclick) { if ($did == 10) { did -r $dname 1 | did -a nmkradio 1 $did($dname,10).seltext } }
    if ($regex($did,^13$)) { 
      var %r = $did($dname,10).sel
      if (!%r) { $iif($input(Herhangi bir link seçmediniz.,y) == $true,halt,halt) | halt }
      else { var %- = $did($dname,10).seltext | did -d $dname 10 %r | write $+(-ds,%-) lnk.txt }
    }
  }
  if ($regex($devent,^dclick$)) { $iif($did == 10,entr $did($dname,10).seltext) } 
}
menu * {
  -
  Radio aç:.dialog -m nmkradio nmkradio
  -
}

Gulsum · 21 Temmuz 2012, 15:28

kanal acık ve hiç banım olmadı halde hatta kanal yetkilisiyim durum ve link butonlarına tıkladığımda sürekli bu cıkıyor
#Radyo kanalına gönderdiğiniz mesaj kanala gitmedi. Kanal yazışmaya kapatılmış veya banlısınız.

Difuzyon · 21 Temmuz 2012, 20:03

Kod dizininde belirtilen hata mesajını tetikleyecek bir durum yok.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo kanalına girince winampın oto açılıp radyo linkine baglanması	aspawa	Eggdrop, NeoStats, BNC	6	09 Nisan 2007 11:40

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.