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

2006 ÖSS katsayılarına göre yazdığım ÖSS Puan Hesaplama kodu.

Yüklemek için Code tagları arasındaki kodu alıp mIRC'de Remote'a (ALT+R) yapıştırın ve kanalda, statuste ya da scriptiniz/mircnizin menüsündeki ÖSS Puan Hesaplama yazısına tıklayın.

(Dil puanı sadece İngilizce için hesaplanmaktadır.)

Ekran görüntüsü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
dialog oss_ph {

  title "ÖSS Puan Hesabı 'd'"

  size -1 -1 253 73

  option dbu

  text "Doğru", 1, 6 13 16 8

  text "Yanlış", 2, 6 23 16 8

  text "Net", 3, 6 33 16 8

  edit "0", 4, 25 12 22 10, limit 2 center

  edit "0", 5, 25 22 22 10, limit 2 center

  edit "0", 6, 50 12 22 10, limit 2 center

  edit "0", 7, 50 22 22 10, limit 2 center

  edit "0", 8, 75 12 22 10, limit 2 center

  edit "0", 9, 75 22 22 10, limit 2 center

  edit "0", 10, 100 12 22 10, limit 2 center

  edit "0", 11, 100 22 22 10, limit 2 center

  edit "0", 12, 125 12 22 10, limit 2 center

  edit "0", 13, 125 22 22 10, limit 2 center

  edit "0", 14, 150 12 22 10, limit 2 center

  edit "0", 15, 150 22 22 10, limit 2 center

  edit "0", 16, 175 12 22 10, limit 2 center

  edit "0", 17, 175 22 22 10, limit 2 center

  edit "0", 18, 200 12 22 10, limit 2 center

  edit "0", 19, 200 22 22 10, limit 2 center

  edit "0", 20, 225 12 22 10, limit 3 center

  edit "0", 21, 225 22 22 10, limit 3 center

  edit "0", 22, 25 32 22 10, read center

  edit "0", 23, 50 32 22 10, read center

  edit "0", 24, 75 32 22 10, read center

  edit "0", 25, 100 32 22 10, read center

  edit "0", 26, 125 32 22 10, read center

  edit "0", 27, 150 32 22 10, read center

  edit "0", 28, 175 32 22 10, read center

  edit "0", 29, 200 32 22 10, read center

  edit "0", 30, 225 32 22 10, read center

  text "Türkçe", 31, 25 4 22 8, center

  text "Sosyal1", 32, 50 4 22 8, center

  text "Mat 1", 33, 75 4 22 8, center

  text "Fen 1", 34, 100 4 22 8, center

  text "Ed. Sos.", 35, 125 4 22 8, center

  text "Sosyal2", 36, 150 4 22 8, center

  text "Mat 2", 37, 175 4 22 8, center

  text "Fen 2", 38, 200 4 22 8, center

  text "Dil", 39, 225 4 22 8, center

  box "", 40, 4 0 245 44

  box "", 41, 24 0 25 44

  box "", 42, 49 0 25 44

  box "", 43, 74 0 25 44

  box "", 44, 99 0 25 44

  box "", 45, 124 0 25 44

  box "", 46, 149 0 25 44

  box "", 47, 174 0 25 44

  box "", 48, 199 0 25 44

  box "", 49, 224 0 25 44

  box "", 50, 24 0 225 12

  button "Hesapla", 51, 191 49 56 10, default multi

  button "Temizle", 52, 142 61 44 9

  text "SÖZ-1", 53, 6 52 17 8, center

  text "SÖZ-2", 54, 6 61 17 8, center

  text "EA-1", 55, 51 52 17 8, center

  text "EA-2", 56, 51 61 17 8, center

  text "SAY-1", 57, 96 52 17 8, center

  text "SAY-2", 58, 96 61 17 8, center

  text "DİL", 59, 141 52 17 8, center

  edit "0", 60, 24 51 27 10, read center

  edit "0", 61, 24 60 27 10, read center

  edit "0", 62, 69 51 27 10, read center

  edit "0", 63, 69 60 27 10, read center

  edit "0", 64, 113 51 27 10, read center

  edit "0", 65, 113 61 27 10, read center

  edit "0", 66, 159 51 27 10, read center

  box "Puanlar", 67, 4 44 185 28

  button "Kapat", 68, 191 60 56 10, cancel

  box "", 69, 189 44 60 28

}

on *:dialog:oss_ph:*:*:{

  if $devent == SCLICK {

    if $did == 51 {

      if ($calc($did(4).text + $did(5).text) > 30) || ($calc($did(6).text + $did(7).text) > 30) || ($calc($did(8).text + $did(9).text) > 30) || ($calc($did(10).text + $did(11).text) > 30) || ($calc($did(12).text + $did(13).text) > 30) || ($calc($did(14).text + $did(15).text) > 30) || ($calc($did(16).text + $did(17).text) > 30) || ($calc($did(18).text + $did(19).text) > 30) || ($calc($did(20).text + $did(21).text) > 100) { noop $input(Soru sayısı maksimum 30 olabilir. (Dil için maksimum 100 olabilir),ow,Hata - ÖSS Puan Hesaplama) | return }

      did -ra $dname 22 $calc($did(4).text - ($did(5).text *0.25))

      did -ra $dname 23 $calc($did(6).text - ($did(7).text *0.25))

      did -ra $dname 24 $calc($did(8).text - ($did(9).text *0.25))

      did -ra $dname 25 $calc($did(10).text - ($did(11).text *0.25))

      did -ra $dname 26 $calc($did(12).text - ($did(13).text *0.25))

      did -ra $dname 27 $calc($did(14).text - ($did(15).text *0.25))

      did -ra $dname 28 $calc($did(16).text - ($did(17).text *0.25))

      did -ra $dname 29 $calc($did(18).text - ($did(19).text *0.25))

      did -ra $dname 30 $calc($did(20).text - ($did(21).text *0.25))

      var %tür = $did(22).text, %sos1 = $did(23).text, %mat1 = $did(24).text, %fen1 = $did(25).text, %edsos = $did(26).text, %sos2 = $did(27).text, %mat2 = $did(28).text, %fen2 = $did(29).text, %d1l = $did(30).text

      var %söz-1 = 119.656 + $calc((%mat1 *0.715)+(%fen1 *0.679)+(%tür *2.67)+(%sos1 *1.975))

      var %söz-2 = 107.461 + $calc((%mat1 *0.767)+(%fen1 *0.728)+(%tür *1.433)+(%sos1 *1.059)+(%edsos *1.557)+(%sos2 *1.368))

      var %ea-1 = 115.561 + $calc((%mat1 *2.283)+(%fen1 *0.722)+(%tür *2.273)+(%sos1 *0.9))

      var %ea-2 = 102.935 + $calc((%mat1 *1.217)+(%fen1 *0.77)+(%tür *1.21)+(%sos1 *0.96)+(%mat2 *1.4)+(%edsos *1.316))

      var %say-1 = 124.598 + $calc((%mat1 *2.291)+(%fen1 *2.284)+(%tür *0.77)+(%sos1 *0.542))

      var %say-2 = 104.685 + $calc((%mat1 *1.282)+(%fen1 *1.278)+(%tür *0.862)+(%sos1 *0.607)+(%mat2 *1.475)+(%fen2 *1.125))

      var %dil = 95.729 + $calc((%fen1 *0.428)+(%mat1 *0.596)+(%sos1 *0.707)+(%tür *1.688)+(%d1l * 1.077))

      did -ra $dname 60 %söz-1 | did -ra $dname 61 %söz-2

      did -ra $dname 62 %ea-1 | did -ra $dname 63 %ea-2

      did -ra $dname 64 %say-1 | did -ra $dname 65 %say-2

      did -ra $dname 66 $iif(%d1l == 0,-,%dil)

    }

    if $did == 52 { var %$ $dname | dialog -x %$ | dialog -ma %$ %$ }

  }

  if $devent == EDIT && $did isnum 4-22 && $did($did).text !isnum { did -ra $dname $did }

}

menu channel,status,menubar {

  $iif($dialog(oss_ph),$style(2)) ÖSS Puan Hesaplama:dialog -m oss_ph oss_ph

}
İsteyen istediği scripte ekleyebilir, ben yazdım diyebilir, değiştirebilir.
Umarım birilerinin işine yarar...