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

         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
}