Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Forum » Scripting » Конвертер (...)
Конвертер
ToMMuДата: Среда, 11.02.2009, 20:19 | Сообщение # 1
Рядовой
Группа: Модераторы
Сообщений: 6
Репутация: 1
Статус: Offline
Скрипт Конвертер
Описывать не буду и так все понятно
Мож кому и пригодиться

Code
menu menubar,status,channels {
   -
   Конвертер:/conver  
}
alias conver { dialog -m conver conver | addcon | run1 | run0 }
dialog conver {
   title ".: Конвертер :."
   size -1 -1 352 231
   option pixels
   box "Настройка конверсии:", 1, 5 5 340 50,
   combo 2, 15 25 125 125,  drop size
   combo 3, 150 25 185 125,  drop size
   box "GroupBox", 4, 5 60 340 50,
   edit "", 5, 15 80 320 20,
   box "GroupBox", 6, 5 115 340 50,
   edit "", 7, 15 135 320 20,  read
   button "Изменить направление конвертации", 8, 5 170 340 22,
   button "Выход из программы ''Конвертер''", 9, 5 200 340 22,
}
alias addcon {
   didtok conver 2 C Вес
   didtok conver 2 C Длина
   didtok conver 2 C Площадь
   didtok conver 2 C Объем
   did -c conver 2 1
}
on 1:dialog:conver:sclick:*:{
   if ($did == 2) {  
     if ($did(conver,2).text == Вес) { run1 | run0 | converrev }
     if ($did(conver,2).text == Длина) { run2 | run0 | converrev }
     if ($did(conver,2).text == Площадь) { run3 | run0 | converrev }
     if ($did(conver,2).text == Объем) { run4 | run0 | converrev }
   }
   if ($did == 3) { run0 }
   if ($did == 8) {  
     if (%converrev == 0) {   
       did -a conver 4 $gettok($did(conver,3).text,3,32)
       did -a conver 6 $gettok($did(conver,3).text,1,32)
       set %converrev 1 | did -r conver 5,7 | halt
     }
     if (%converrev == 1) { run0 }  
   }
   if ($did == 9) { dialog -x conver | unset %converrev }
}
alias converrev {
   set %converrev 0
   did -r conver 5,7
}
alias run0 {
   did -a conver 4 $gettok($did(conver,3).text,1,32)
   did -a conver 6 $gettok($did(conver,3).text,3,32)
   converrev
}
alias run1 {
   did -r conver 3
   didtok conver 3 C Фунт - Кило
   didtok conver 3 C Карат - Грамм
   didtok conver 3 C Унция - Грамм
   didtok conver 3 C Стоун - Кило
   did -c conver 3 1
}
alias run2 {
   did -r conver 3
   didtok conver 3 C Миля - Км
   didtok conver 3 C Дюйм - Мм
   didtok conver 3 C Дюйм - См
   didtok conver 3 C Фут - См
   didtok conver 3 C Фут - Метр
   didtok conver 3 C Ярд - Метр
   didtok conver 3 C Морская_миля - Км
   did -c conver 3 1
}
alias run3 {
   did -r conver 3
   didtok conver 3 C Фут^2 - Метр^2
   didtok conver 3 C Ярд^2 - Метр^2
   didtok conver 3 C Миля^2 - Км^2
   didtok conver 3 C Дюйм^2 - См^2
   didtok conver 3 C Гектар - Миля^2
   didtok conver 3 C Акр - Гектар
   didtok conver 3 C Акр - Км^2
   did -c conver 3 1
}
alias run4 {
   did -r conver 3
   didtok conver 3 C Дюйм^3 - См^3
   didtok conver 3 C Фут^3 - Метр^3
   didtok conver 3 C Ярд^3 - Метр^3
   did -c conver 3 1
}
on 1:dialog:conver:edit:5:{
   if (%converrev == 0) {
     if ($did(conver,3).text == Фунт - Кило) { did -ra conver 7 $calc($did(conver,5).text * 0.45359) }
     if ($did(conver,3).text == Карат - Грамм) { did -ra conver 7 $calc($did(conver,5).text * 0.2) }
     if ($did(conver,3).text == Унция - Грамм) { did -ra conver 7 $calc($did(conver,5).text * 28.3495) }
     if ($did(conver,3).text == Стоун - Кило) { did -ra conver 7 $calc($did(conver,5).text * 6.35029) }
     if ($did(conver,3).text == Миля - Км) { did -ra conver 7 $calc($did(conver,5).text * 1.60934) }
     if ($did(conver,3).text == Дюйм - Мм) { did -ra conver 7 $calc($did(conver,5).text * 25.4) }
     if ($did(conver,3).text == Дюйм - См) { did -ra conver 7 $calc($did(conver,5).text * 2.54) }
     if ($did(conver,3).text == Фут - См) { did -ra conver 7 $calc($did(conver,5).text * 30.48) }  
     if ($did(conver,3).text == Фут - Метр) { did -ra conver 7 $calc($did(conver,5).text * 0.3048) }
     if ($did(conver,3).text == Ярд - Метр) { did -ra conver 7 $calc($did(conver,5).text * 0.9144) }
     if ($did(conver,3).text == Морская_миля - Км) { did -ra conver 7 $calc($did(conver,5).text * 1.852) }
     if ($did(conver,3).text == Фут^2 - Метр^2) { did -ra conver 7 $calc($did(conver,5).text * 0.0929) }
     if ($did(conver,3).text == Ярд^2 - Метр^2) { did -ra conver 7 $calc($did(conver,5).text * 0.83613) }
     if ($did(conver,3).text == Миля^2 - Км^2) { did -ra conver 7 $calc($did(conver,5).text * 2.58999) }
     if ($did(conver,3).text == Дюйм^2 - См^2) { did -ra conver 7 $calc($did(conver,5).text * 6.4516) }
     if ($did(conver,3).text == Гектар - Миля^2) { did -ra conver 7 $calc($did(conver,5).text * 0.00386) }
     if ($did(conver,3).text == Акр - Гектар) { did -ra conver 7 $calc($did(conver,5).text * 0.40469) }
     if ($did(conver,3).text == Акр - Км^2) { did -ra conver 7 $calc($did(conver,5).text * 0.00405) }
     if ($did(conver,3).text == Дюйм^3 - См^3) { did -ra conver 7 $calc($did(conver,5).text * 16.3871) }
     if ($did(conver,3).text == Фут^3 - Метр^3) { did -ra conver 7 $calc($did(conver,5).text * 0.02832) }
     if ($did(conver,3).text == Ярд^3 - Метр^3) { did -ra conver 7 $calc($did(conver,5).text * 0.76455) }
   }
   if (%converrev == 1) {
     if ($did(conver,3).text == Фунт - Кило) { did -ra conver 7 $calc($did(conver,5).text / 0.45359) }
     if ($did(conver,3).text == Карат - Грамм) { did -ra conver 7 $calc($did(conver,5).text / 0.2) }
     if ($did(conver,3).text == Унция - Грамм) { did -ra conver 7 $calc($did(conver,5).text / 28.3495) }
     if ($did(conver,3).text == Стоун - Кило) { did -ra conver 7 $calc($did(conver,5).text / 6.35029) }
     if ($did(conver,3).text == Миля - Км) { did -ra conver 7 $calc($did(conver,5).text / 1.60934) }  
     if ($did(conver,3).text == Дюйм - Мм) { did -ra conver 7 $calc($did(conver,5).text / 25.4) }
     if ($did(conver,3).text == Дюйм - См) { did -ra conver 7 $calc($did(conver,5).text / 2.54) }
     if ($did(conver,3).text == Фут - См) { did -ra conver 7 $calc($did(conver,5).text / 30.48) }
     if ($did(conver,3).text == Фут - Метр) { did -ra conver 7 $calc($did(conver,5).text / 0.3048) }
     if ($did(conver,3).text == Ярд - Метр) { did -ra conver 7 $calc($did(conver,5).text / 0.9144) }
     if ($did(conver,3).text == Морская_миля - Км) { did -ra conver 7 $calc($did(conver,5).text / 1.852) }
     if ($did(conver,3).text == Фут^2 - Метр^2) { did -ra conver 7 $calc($did(conver,5).text / 0.0929) }
     if ($did(conver,3).text == Ярд^2 - Метр^2) { did -ra conver 7 $calc($did(conver,5).text / 0.83613) }
     if ($did(conver,3).text == Миля^2 - Км^2) { did -ra conver 7 $calc($did(conver,5).text / 2.58999) }
     if ($did(conver,3).text == Дюйм^2 - См^2) { did -ra conver 7 $calc($did(conver,5).text / 6.4516) }
     if ($did(conver,3).text == Гектар - Миля^2) { did -ra conver 7 $calc($did(conver,5).text / 0.00386) }
     if ($did(conver,3).text == Акр - Гектар) { did -ra conver 7 $calc($did(conver,5).text / 0.40469) }
     if ($did(conver,3).text == Акр - Км^2) { did -ra conver 7 $calc($did(conver,5).text / 0.00405) }
     if ($did(conver,3).text == Дюйм^3 - См^3) { did -ra conver 7 $calc($did(conver,5).text / 16.3871) }
     if ($did(conver,3).text == Фут^3 - Метр^3) { did -ra conver 7 $calc($did(conver,5).text / 0.02832) }
     if ($did(conver,3).text == Ярд^3 - Метр^3) { did -ra conver 7 $calc($did(conver,5).text / 0.76455) }
   }
}


http://weboff.net - Только лучшее! :)
 
SanekДата: Среда, 11.02.2009, 23:07 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 24
Репутация: 1
Статус: Offline
для тех кто на работе сидит в IRC smile
 
Форум » Forum » Scripting » Конвертер (...)
  • Страница 1 из 1
  • 1
Поиск:


Copyright by BestIRC.uCoz.Net © 2008-2009