Kod

menu * {
  Direnc Hesaplama:/renksema
}
alias renksema {
  unset %sutun_* %band5_secim
  if !$window(@direnc) { window -p @direnc }
  clear @direnc
  drawrect -rf @direnc $rgb(128,128,255) 1 1 1 $window(@direnc).dw $window(@direnc).dh
  ;5band secenek yazi ve kutucuk
  drawtext -r @direnc $rgb(255,255,255) 5 15 Direnc 5 renkli ise yandaki kutucuga tiklayin.
  drawrect -rf @direnc $rgb(196,171,125) 2 330 14 20 20
  ;
  if %band5_secim { drawrect -rf @direnc $rgb(0,252,0) 2 334 18 12 12 }
  ;ilkbas
  drawrect -drf @direnc $rgb(196,171,125) 5 100 90 40 120
  ;govde
  drawrect -drf @direnc $rgb(196,171,125) 5 135 110 600 75
  ;sonbas
  drawrect -drf @direnc $rgb(196,171,125) 5 730 90 40 120
  ;ara1
  ;drawrect -f @direnc 0 5 195 110 40 75
  ;ara2
  ;drawrect -f @direnc 0 5 300 110 40 75
  ;ara3 5 band ozellik
  ;;drawrect  -f @direnc 0 5 400 110 40 75
  ;ara4
  ;drawrect -f @direnc 0 5 520 110 40 75
  ;ara5son
  ;drawrect  -f @direnc 0 5 650 110 40 75
  ;bastelciz
  drawrect -f @direnc 1 1 10 135 90 20
  ;sontelciz
  drawrect -f @direnc 1 1 769 135 90 20
  ;
  drawtext -r @direnc $rgb(255,255,255) 190 218 1. band
  drawtext -r @direnc $rgb(255,255,255) 295 218 2. band
  drawtext -r @direnc $rgb(255,255,255) 395 218 3. band
  drawtext -r @direnc $rgb(255,255,255) 510 218 çarpan
  drawtext -r @direnc $rgb(255,255,255) 630 218 tolerans
  renk1sutun | renk2sutun | renk3sutun | renk4sutun | renk5sutun
} 
alias renk1sutun {
  var %pn = 1 ,%y = 250, %x = 200
  var %renkler = $rgb(74,74,74) $rgb(128,64,0) $rgb(220,16,87) $rgb(255,128,0) $rgb(244,244,0) $rgb(0,170,0) $rgb(45,150,255) $rgb(193,0,193) $rgb(170,175,158) $rgb(249,249,249)
  while %pn <= 10 {
    drawrect -rf @direnc $gettok(%renkler,%pn,32) 1 %x %y 40 30
    drawtext -r @direnc $rgb(0,252,0) %x %y $calc(%pn - 1)
    inc %y 30
    inc %pn
  }
}
alias renk2sutun {
  var %pn = 1 ,%y = 250, %x = 300
  var %renkler = $rgb(74,74,74) $rgb(128,64,0) $rgb(220,16,87) $rgb(255,128,0) $rgb(244,244,0) $rgb(0,170,0) $rgb(45,150,255) $rgb(193,0,193) $rgb(170,175,158) $rgb(249,249,249)
  while %pn <= 10 {
    drawrect -rf @direnc $gettok(%renkler,%pn,32) 1 %x %y 40 30
    drawtext -r @direnc $rgb(0,252,0) %x %y $calc(%pn - 1)
    inc %y 30
    inc %pn
  }
}
alias renk3sutun {
  var %pn = 1 ,%y = 250, %x = 400
  var %renkler = $rgb(74,74,74) $rgb(128,64,0) $rgb(220,16,87) $rgb(255,128,0) $rgb(244,244,0) $rgb(0,170,0) $rgb(45,150,255) $rgb(193,0,193) $rgb(170,175,158) $rgb(249,249,249)
  while %pn <= 10 {
    drawrect -rf @direnc $gettok(%renkler,%pn,32) 1 %x %y 40 30
    drawtext -r @direnc $rgb(0,252,0) %x %y $calc(%pn - 1)
    inc %y 30
    inc %pn
  }
}
alias renk4sutun {
  var %pn = 1 ,%y = 250, %x = 500, %z = 1
  var %renkler = $rgb(74,74,74) $rgb(128,64,0) $rgb(220,16,87) $rgb(255,128,0) $rgb(244,244,0) $rgb(0,170,0) $rgb(45,150,255)
  while %pn <= 7 {
    drawrect -rf @direnc $gettok(%renkler,%pn,32) 1 %x %y 80 30
    drawtext -r @direnc $rgb(0,252,0) %x %y %z
    var %z = $calc(%z * 10)
    inc %y 30
    inc %pn
  }
  drawrect -rf @direnc $rgb(179,179,0) 1 %x $calc(%y + 30) 90 30
  drawtext -r @direnc $rgb(128,128,0) %x $calc(%y +30) 0,1 altın
  ;
  drawrect -rf @direnc $rgb(203,196,184) 1 %x $calc(%y + 60) 90 30
  drawtext -r @direnc $rgb(115,115,115) %x $calc(%y +60) 0,01 gümüş
}
alias renk5sutun {
  var %pn = 1 ,%y = 250, %x = 620, %z = 1
  drawrect -rf @direnc $rgb(128,64,0) 1 %x $calc(%y + 30) 80 30
  drawtext -r @direnc $rgb(0,252,0) %x $calc(%y +30) 1%
  drawrect -rf @direnc $rgb(220,16,87) 1 %x $calc(%y +60) 80 30
  drawtext -r @direnc $rgb(0,252,0) %x $calc(%y +60) 2%
  drawrect -rf @direnc $rgb(179,179,0) 1 %x $calc(%y +240) 90 30
  drawtext -r @direnc $rgb(128,128,0) %x $calc(%y +240) 5% altın
  drawrect -rf @direnc $rgb(203,196,184) 1 %x $calc(%y +270) 90 30
  drawtext -r @direnc $rgb(115,115,115) %x $calc(%y +270) 10% gümüş

}
menu @direnc {
  mouse:{ titlebar @direnc X: $mouse.x Y: $mouse.y }
  sclick: {
    if $mouse.x isnum 330-350 && $mouse.y isnum 11-29 {
      if %band5_secim {
        ;kutu secimi kaldir
        drawrect -rf @direnc $rgb(196,171,125) 2 330 14 20 20
        ;bant secimi kaldr
        drawrect  -rf @direnc $rgb(196,171,125) 5 400 110 40 75
        unset %band5_secim %sutun_3
        halt
      }
      if !%band5_secim {
        ;kutu secimi yap
        drawrect -rf @direnc $rgb(0,252,0) 2 334 18 12 12
        ;band secimi yap
        ;drawrect  -f @direnc 0 5 400 110 40 75
        set -e %band5_secim OK
        halt
      }
    }

    ;1.sütun renk secim baslangic

    if $mouse.x isnum 200-238 {
      if $mouse.y isnum 250-275 {
        drawrect -fr @direnc $rgb(74,74,74) 5 195 110 40 75
        set %sutun_1 0
      }
      if $mouse.y isnum 278-302 {
        drawrect -fr @direnc $rgb(128,64,0) 5 195 110 40 75
        set %sutun_1 1
      }  
      if $mouse.y isnum 308-334 {
        drawrect -fr @direnc $rgb(220,16,87) 5 195 110 40 75
        set %sutun_1 2
      }
      if $mouse.y isnum 338-365 {
        drawrect -fr @direnc $rgb(255,128,0) 5 195 110 40 75
        set %sutun_1 3
      }
      if $mouse.y isnum 369-396 {
        drawrect -fr @direnc $rgb(244,244,0) 5 195 110 40 75
        set %sutun_1 4
      }
      if $mouse.y isnum 399-427 {
        drawrect -fr @direnc $rgb(0,170,0) 5 195 110 40 75
        set %sutun_1 5
      }
      if $mouse.y isnum 430-455 {
        drawrect -fr @direnc  $rgb(45,150,255) 5 195 110 40 75
        set %sutun_1 6
      }
      if $mouse.y isnum 458-483 {
        drawrect -fr @direnc  $rgb(193,0,193) 5 195 110 40 75
        set %sutun_1 7
      }
      if $mouse.y isnum 488-512 {
        drawrect -fr @direnc  $rgb(170,175,158) 5 195 110 40 75
        set %sutun_1 8
      }
      if $mouse.y isnum 518-545 { 
        drawrect -fr @direnc $rgb(249,249,249) 5 195 110 40 75
        set %sutun_1 9
      }
    }
    ;2. sutun renk secim baslangic

    if $mouse.x isnum 300-337 {
      if $mouse.y isnum 250-275 {
        drawrect -fr @direnc $rgb(74,74,74) 5 300 110 40 75
        set %sutun_2 0
      }
      if $mouse.y isnum 278-302 {
        drawrect -fr @direnc $rgb(128,64,0) 5 300 110 40 75
        set %sutun_2 1
      }
      if $mouse.y isnum 308-334 {
        drawrect -fr @direnc $rgb(220,16,87) 5 300 110 40 75
        set %sutun_2 2
      }
      if $mouse.y isnum 338-365 {
        drawrect -fr @direnc $rgb(255,128,0) 5 300 110 40 75
        set %sutun_2 3
      }
      if $mouse.y isnum 369-396 {
        drawrect -fr @direnc $rgb(244,244,0) 5 300 110 40 75
        set %sutun_2 4
      }
      if $mouse.y isnum 399-427 {
        drawrect -fr @direnc $rgb(0,170,0) 5 300 110 40 75
        set %sutun_2 5
      }
      if $mouse.y isnum 430-455 {
        drawrect -fr @direnc $rgb(45,150,255) 5 300 110 40 75
        set %sutun_2 6
      }  
      if $mouse.y isnum 458-483 {
        drawrect -fr @direnc $rgb(193,0,193) 5 300 110 40 75
        set %sutun_2 7
      }
      if $mouse.y isnum 488-512 {
        drawrect -fr @direnc $rgb(170,175,158) 5 300 110 40 75
        set %sutun_2 8
      }
      if $mouse.y isnum 518-545 {
        drawrect -fr @direnc $rgb(249,249,249) 5 300 110 40 75
        set %sutun_2 9
      }
    }
    ;3.sutun secili ise 
    if %band5_secim {
      if $mouse.x isnum 400-436 {
        if $mouse.y isnum 250-275 {
          drawrect  -fr @direnc $rgb(74,74,74) 5 400 110 40 75
          set %sutun_3 0
        }
        if $mouse.y isnum 278-302 {
          drawrect  -fr @direnc $rgb(128,64,0) 5 400 110 40 75
          set %sutun_3 1
        }
        if $mouse.y isnum 308-334 {
          drawrect  -fr @direnc $rgb(220,16,87) 5 400 110 40 75
          set %sutun_3 2
        }
        if $mouse.y isnum 338-365 {
          drawrect  -fr @direnc $rgb(255,128,0) 5 400 110 40 75
          set %sutun_3 3
        }
        if $mouse.y isnum 369-396 {       
          drawrect  -fr @direnc $rgb(244,244,0) 5 400 110 40 75
          set %sutun_3 4
        }
        if $mouse.y isnum 399-427 {
          drawrect  -fr @direnc $rgb(0,170,0) 5 400 110 40 75
          set %sutun_3 5
        }
        if $mouse.y isnum 430-455 {
          drawrect  -fr @direnc $rgb(45,150,255) 5 400 110 40 75
          set %sutun_3 6
        }  
        if $mouse.y isnum 458-483 {
          drawrect  -fr @direnc $rgb(193,0,193) 5 400 110 40 75
          set %sutun_3 7
        }
        if $mouse.y isnum 488-512 {
          drawrect  -fr @direnc $rgb(170,175,158) 5 400 110 40 75
          set %sutun_3 8
        }
        if $mouse.y isnum 518-545 {
          drawrect  -fr @direnc $rgb(249,249,249) 5 400 110 40 75
          set %sutun_3 9
        }  
      } 
    }   
    ;4.carpan multiple sutun
    if $mouse.x isnum 500-580 {
      if $mouse.y isnum 250-275 {
        drawrect -fr @direnc $rgb(74,74,74) 5 520 110 40 75
        set %sutun_carpan 1
      }
      if $mouse.y isnum 278-302 {
        drawrect -fr @direnc $rgb(128,64,0) 5 520 110 40 75
        set %sutun_carpan 10
      }
      if $mouse.y isnum 308-334 {
        drawrect -fr @direnc $rgb(220,16,87) 5 520 110 40 75
        set %sutun_carpan 100
      }
      if $mouse.y isnum 338-365 {
        drawrect -fr @direnc $rgb(255,128,0) 5 520 110 40 75
        set %sutun_carpan 1000
      }
      if $mouse.y isnum 369-396 {
        drawrect -fr @direnc $rgb(244,244,0) 5 520 110 40 75
        set %sutun_carpan 10000
      }
      if $mouse.y isnum 399-427 {
        drawrect -fr @direnc $rgb(0,170,0) 5 520 110 40 75
        set %sutun_carpan 100000
      }
      if $mouse.y isnum 430-455 {
        drawrect -fr @direnc $rgb(45,150,255) 5 520 110 40 75
        set %sutun_carpan 1000000
      }
      ;altin
      if $mouse.y isnum 488-512 {
        drawrect -fr @direnc $rgb(179,179,0) 5 520 110 40 75
        set %sutun_carpan 0.1
      }  
      ;gumus
      if $mouse.y isnum 518-545 {
        drawrect -fr @direnc $rgb(203,196,184) 5 520 110 40 75
        set %sutun_carpan 0.01
      }  
    }
    ;5.sutun tolerans
    if $mouse.x isnum 620-695 {
      if $mouse.y isnum 278-302 {
        drawrect  -fr @direnc $rgb(128,64,0) 5 650 110 40 75
        set %sutun_tolerans 0.01
      }
      if $mouse.y isnum 308-334 {
        drawrect  -fr @direnc $rgb(220,16,87) 5 650 110 40 75
        set %sutun_tolerans 0.02
      }
      ;altin
      if $mouse.y isnum 488-512 {
        drawrect  -fr @direnc $rgb(179,179,0) 5 650 110 40 75
        set %sutun_tolerans 0.05
      }
      ;gumus
      if $mouse.y isnum 518-545 {
        drawrect  -fr @direnc $rgb(203,196,184) 5 650 110 40 75
        set %sutun_tolerans 0.1
      }  
    }
    /sutun_sonuc
  }
}
alias sutun_sonuc {
  if $var(%sutun_3) {
    if ($var(%sutun_1) && $var(%sutun_2) && $var(%sutun_3) && %sutun_carpan && %sutun_tolerans) {
      var %m = $calc($+(%sutun_1,%sutun_2,%sutun_3) * %sutun_carpan)
      drawrect -drf @direnc $rgb(196,171,125) 1 280 60 340 30  
      drawtext -r @direnc $rgb(0,252,0) 280 64 Deger: $sonuc_donustur(%m)
      halt
    }
  }
  if ($var(%sutun_1) && $var(%sutun_2) && %sutun_carpan && %sutun_tolerans) {
    var %m = $calc($+(%sutun_1,%sutun_2) * %sutun_carpan)
    drawrect -drf @direnc $rgb(196,171,125) 1 280 60 340 30  
    drawtext -r @direnc $rgb(0,252,0) 280 64 Deger: $sonuc_donustur(%m)
  }
}
alias sonuc_donustur {
  var %yuvarla = $floor($1)
  if $len(%yuvarla) <= 3 { return $1 OHM --> [+/-] $calc($1 * %sutun_tolerans) Tolerans }
  if $len(%yuvarla) isnum 4-6 { return $calc($1 / 1000) KILO-OHM --> [+/-] $calc($calc($1 / 1000) * %sutun_tolerans)  Tolerans }
  if $len(%yuvarla) isnum 7-9 { return $calc($1 / 1000000) MEGA-OHM -->  [+/-] $calc($calc($1 / 1000000) * %sutun_tolerans) Tolerans }
}