mIRC Hesap Makinesi B&W - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

BLaCK_and_WHiTe · 14 Temmuz 2009, 19:01

1. Editboxa yazma iptal edildi, böylece harfler yazılamayacak. editboxa 255 limiti getirldi ilkinde limiti 9 10 gibi birşeydi, dstudio dan daha fazlasını bilmek gerekmiş demekki
2. Mdx dll si sırf arka plan için kullanılmış ve gereksizdi iptal edildi.
3. 0 ve . nın item numaraları değiştirildi böylece isnum 1-10 kullanılabildi
4. . tuşunu 1 defa yazınca daha fazla yazılması engellendi
5. +/- buttonu çalışır hale getirildi
6. hesap makinesini çalıştırmak için /poly fonksiyonu eklendi

Değişimlere rağmen gözüken eksikler:
1. Memory işlemleri yok MC M+ M-
2. Tekrarlama fonksiyonu yok + ya sürekli basınca toplaması gibi
3. % yok

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

alias poly { unset %poly-var, %poly-do | if !$dialog(poly) { dialog -m poly BWcalc } }
dialog BWcalc {
  title "Hesap Makinesi"
  size -1 -1 66 93
  option dbu
  button "7", 7, 2 16 14 14, flat
  button "8", 8, 17 16 14 14, flat
  button "9", 9, 32 16 14 14, flat
  button "1", 1, 2 46 14 14, flat
  button "4", 4, 2 31 14 14, flat
  button "5", 5, 17 31 14 14, flat
  button "6", 6, 32 31 14 14, flat
  button "2", 2, 17 46 14 14, flat
  button "3", 3, 32 46 14 14, flat
  button ".", 11, 2 61 14 14, flat
  button "0", 10, 17 61 14 14, flat
  button "=", 12, 32 61 14 14, flat
  button "+", 13, 50 16 14 14
  button "-", 14, 50 31 14 14
  button "*", 15, 50 46 14 14
  button "/", 16, 50 61 14 14
  button "+/-", 17, 2 77 14 14
  button "^", 18, 50 77 14 14
  button "C", 19, 50 1 14 14, flat
  edit "", 20, 2 2 48 12, read autohs limit 255
  button "x²", 21, 32 77 14 14
  button "x³", 22, 17 77 14 14
}
on *:dialog:poly:*:*: {
  if ($devent == sclick) {
    if $did isnum 1-10 { did -a $dname 20 $did($did) }
    if $did == 11 { if . !isin $did(20) { did -a $dname 20 . } }
    if $did == 17 { if $calc(-1 * $did(20)) { did -ra $dname 20 $v1 } }
    if $did isnum 13-16 || $did == 18 {
      set %poly-var $did(20)
      set %poly-do $did($did)
      did -r $dname 20
    }
    if $did == 12 {
      if %poly-var {
        did -ra $dname 20 $calc(%poly-var %poly-do $did(20))
        unset %poly-do, %poly-var
      }
    }
    if $did isnum 21-22 {
      did -ra $dname 20 $calc($did(20) ^ $iif($did == 21,2,3))
    }
    if $did == 19 { did -r $dname 20 | unset %poly-do, %poly-var }
  }
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kodlama bana aittir koda ve ya diyaloga imza koymadım anonim olarak kullanılması beni bozmaz. Nasıl olsa kullanacak olan kendi imzasını koyar bize sormadan.

WeiLSiDe · 14 Temmuz 2009, 21:31

Emeğinize sağlık..

SchumacheR · 14 Temmuz 2009, 22:34

dialog polybasic {
title "PoLy "
size -1 -1 66 93
option dbu
button "7", 7, 2 16 14 14, flat
button "8", 8, 17 16 14 14, flat
button "9", 9, 32 16 14 14, flat
button "1", 1, 2 46 14 14, flat
button "4", 4, 2 31 14 14, flat
button "5", 5, 17 31 14 14, flat
button "6", 6, 32 31 14 14, flat
button "2", 2, 17 46 14 14, flat
button "3", 3, 32 46 14 14, flat
button ".", 10, 2 61 14 14, flat
button "0", 11, 17 61 14 14, flat
button "=", 12, 32 61 14 14, flat

kodun %60 ı benim yazdığım poLy addonundan bari dialog numaralarını değiştirseydin! N ala memleket bende gideyim Yapılmış dialogları alayım Serdar406 nın tüm dialoglarını 2 extra kod ekliyim ve ben yazdım diyim
Yuh yani ya dialog elemanlarının hepsi benim koddan çalıntı kodlamanın da %70 i

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Asıl bomba birde benim poly serimin adını da almış neler görücez bakalım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

BLaCK_and_WHiTe · 15 Temmuz 2009, 11:56

Sadece görüntü olarak aldım arkadaşım işlev kısmı sanırım önemli olan.

kheldor · 06 Kasım 2013, 19:37

Düne kadar sorunsuz çalışan kod artık sebebini bilmediğim bir nedenden dolayı çalışmamaktadır. İlgilenebilrseniz sevinirim. Sevgiler

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


on $*:text:/^!hesapla /Si:#,?:{
  calculate $2-
}
alias calculate {
  if $sock(calculate) || $sock($+(calculate,$nick)) {
    sockclose $v1
  }
  sockopen $iif($event == text,$+(calculate,$nick),calculate) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.google.com 80
  sockmark $iif($event == text,$+(calculate,$nick) msg $iif(#,#,$nick),calculate echo -a) $1-
}
on *:sockopen:calculate*:{
  tokenize 32 $sock($sockname).mark
  sockwrite -nt $sockname GET $+(/ig/calculator?hl=en&q=,$urlencode($3-)) HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.google.com
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}
on *:sockread:calculate*:{
  sockread &greader
  var %greader $bvar(&greader,1-).text
  tokenize 32 $sock($sockname).mark
  if $regex(answer $+ $2,%greader,/rhs: "(.*?)"/) && $regex(calc $+ $2,%greader,/lhs: "(.*?)"/) {
    $1-2 $iif($regml(answer $+ $2,1) == $null,4Reel Sonucu yok.,03 $&
      $+ $csub($cchr($sup($replace($regml(calc $+ $2,1) = $v1,+,04+03,-,06-03,*,13*03,/,07/03,=,10=03)))))
    sockclose $sockname
  }
}
alias cchr return $regsubex($1,/\\x26#(\d+?);/g,$chr(\1))
alias sup return $regsubex($1,/\\x3csup\\x3e([\d-]+?)\\x3c\/sup\\x3e/Sg,12^\13)
alias urlencode return $regsubex($1,/(\W)/g,% $+ $base($asc(\1),10,16,2)))
alias csub return $regsubex($1,/\\x3csub\\x3e(.+?)\\x3c\/sub\\x3e/g,\1)

Feragat · 06 Kasım 2013, 23:28

Google Resmi açıklaması: "iGoogle 1 Kasım 2013'te kullanımdan kaldırılacaktır. " Kullandığın kod ig yani iGoogle üzerinden veri çekiyordu. O yüzden çalışmıyordur.

kheldor · 07 Kasım 2013, 00:54

Peki sevgili feragat. Başka siteden veyahut !hesapla sistemi ile çalıştırabilir miyiz ?

Feragat · 07 Kasım 2013, 01:41

kheldor Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Peki sevgili feragat. Başka siteden veyahut !hesapla sistemi ile çalıştırabilir miyiz ?

Kodla yaptığın sadece 4 işlem mi, yoksa çok fonksiyonlu hesaplamalarda mı kullanıyordun. Tam olarak yapmak istediğin nedir.

Feragat · 07 Kasım 2013, 14:23

İsteğini karşılar nitelikte mi bilmiyorum ama, 2 seçenekte ben sunayım.

1 - Socket bağlantı yapmadan $calc tanımı ile hesaplama (Normal hesap ve Yüzde hesaplama)

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

on $*:text:/^[.!]hesapla\s+\S+/Si:#: { set -ln %hesap $2- | msg $chan İşlemin Sonucu: $calc(%hesap) }
on $*:text:/^[.!]y(u|ü)zde\s+\S+/Si:#: { msg $chan $2 Sayısının $+($chr(37),$3) = $calc($2 / 100 * $3) }

Sonuç:

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

[14:09] <deneme1> !hesapla 110+150-100*2
[14:09] <Feragat> İşlemin Sonucu: 60
[14:09] <deneme1> !yüzde 60 10
[14:09] <Feragat> 60 Sayısının %10 = 6
[14:12] <deneme1> !hesapla 110+150-100*4
[14:12] <Feragat> İşlemin Sonucu: -140

2- Sende çalışmayan kodun değiştirilmiş hali (Socket bağlantı şekli, yine google üzerinden)

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

on $*:text:/^!hesapla /Si:#:{
  set %kanal $chan | calculate $2-
}
alias calculate {
  sockclose calculate | sockopen calculate 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark calculate $1-
}
on *:sockopen:calculate:{
  sockwrite -nt $sockname GET $+(/search?q=,$urlencode($sock($sockname).mark)) HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}
on *:sockread:calculate:{
  var %greader | sockread %greader
  if $regex(f,%greader,/["]>(.+)<\/h2><\/span><div\sstyle\=/)  { msg %kanal Sonuç: $gettok($replace($regml(f,1),$+($chr(37),">),$chr(124)),2,124) }
}

alias urlencode return $regsubex($1,/(\W)/g,% $+ $base($asc(\1),10,16,2)))

Sonuç

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

[14:17] <deneme1> !hesapla 2*2
[14:17] <Feragat> Sonuç: 2 * 2 = 4
[14:28] <deneme1> !hesapla 2*2+2/2
[14:28] <Feragat> Sonuç: (2 * 2) + (2 / 2) = 5
[14:29] <deneme1> !hesapla 2*2+2/2+5-2
[14:29] <Feragat> Sonuç: (2 * 2) + (2 / 2) + 5 - 2 = 8
[14:30] <deneme1> !hesapla 2*2+2/2+5-2-1+7
[14:30] <Feragat> Sonuç: (2 * 2) + (2 / 2) + 5 - 2 - 1 + 7 = 14

Not: Kodun sadece veri yansıtmasını sağlayıp bıraktım. Zamanım yok çok detaylı uğraşamıyorum şuan.
- Ayrıca bu tarz sorunlarınızı [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bölümüne konu olarak açın lütfen. İyi forumlar.

kheldor · 07 Kasım 2013, 14:40

Tam olarak istediğimi vermişsin. Çok müteşekkirim. Saygılar

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Hesap Makinesi	OperServ	mIRC Scripting Hazır Kodlar	0	27 Kasım 2023 06:44
Hesap Makinesi	nitX	Visual Basic	2	28 Şubat 2011 10:27
Hesap Makinesi	Cemalizim	Visual Basic	0	21 Temmuz 2008 18:35
Hesap makinesi	Cemalizim	C ve C++	0	19 Temmuz 2008 15:28

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.