My_HeaRt

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ü:

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...