Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Web программирование > JavaScript, Ajax
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.02.2011, 13:44   #1
Свикс
 
Регистрация: 15.02.2011
Сообщений: 5
По умолчанию Курс

Здравствуйте, у меня есть код калькулятор денег, он выглядит так:

так вот, он работает по курсу 7,2 рубля, как сделать что когда нажимаешь на выпадающий список и выбирает например курс 7,1 подсчет происходил уже по такому курсу
Вот скрипт калькулятора:
Код HTML:
<script language="JavaScript">
var kur = new Array();
kur['WME_WM'] = 1.00;
kur['WME_S'] = 5.523;
kur['WMZ_WM'] = 1.00;
kur['WMZ_S'] = 4.072;
kur['WMU_WM'] = 1.953;
kur['WMU_S'] = 1.00;
kur['WMR_WM'] = 7.200;
kur['WMR_S'] = 1.00;
kur['WMB_WM'] = 710.4;
kur['WMB_S'] = 1.00;
kur['WML_WM'] = 0.6;
kur['WML_S'] = 1.00;
</script>
<script language="JavaScript">
function computeWM2Sot() {
 document.wm_form["wm_amount"].value = document.wm_form["wm_amount"].value.replace(',', '.');
 var sum = parseFloat(document.wm_form["wm_amount"].value);
 if (!sum) {
 sum = 0;
 }
 var pursetype = 'WM' + document.wm_form["wm_purse"].value.charAt(0);
 var kurs = kur[pursetype + '_S'] / kur[pursetype + '_WM'];
 var sotsum = Math.floor((sum * 100) * kurs) / 100;
 document.wm_form["wm_amount_sot"].value = sotsum;
}
function computeSot2WM() {
 document.wm_form["wm_amount_sot"].value = document.wm_form["wm_amount_sot"].value.replace(',', '.');
 var sotsum = parseFloat(document.wm_form["wm_amount_sot"].value);
 if (!sotsum) {
 sotsum = 0;
 }
 var pursetype = 'WM' + document.wm_form["wm_purse"].value.charAt(0);
 var kurs = kur[pursetype + '_S'] / kur[pursetype + '_WM'];
 var sum = Math.ceil((sotsum * 100) / kurs) / 100;
 document.wm_form["wm_amount"].value = sum;
}
</script>
<form method="post" action="?module=payment&amp;pm=wmconf" id="wm_form" name="wm_form" style="position: relative;" onsubmit="return prepareWMData();">
 <table cellpadding="0" cellspacing="0" border="0" width="680" style="background: #fff; position: relative; z-index: 1000">
 <tbody>
 <tr height="60">
 <td> <label>Курс сотки 

    <select name="sotkaPrice" id="sotkaPrice" onfocusout="refreshAll()" onkeyup="refreshAll()"  onchange="refreshAll()">

        <option value="7.2">7.2</option>

        <option value="7.1">7.1</option>

        <option value="7">7</option>

        <option value="6.9">6.9</option>

        <option value="6.8">6.8</option>

    </select>

    рубля за 1 сотку</label>

 
 <br>
 <table cellpadding="4" cellspacing="0" border="0" width="100%">
 <tbody>
 <tr>
 <td width="135" align="left">
 <nobr>
 Введите сумму:
 <input type="text" name="wm_amount" value="" onchange="computeWM2Sot();" style="border-style: groove; width: 90px">
 </nobr>
 </td>
 <td align="left">
 <nobr>
 <select name="wm_purse" onchange="computeWM2Sot();" style="border-style: groove; font: 11px tahoma;">
 <option value="R">
 Рубль
 </option>
 <option value="E">
 Евро
 </option>
 <option value="U">
 Гривен
 </option>
 <option value="Z">
 Доллар
 </option>
 <option value="B">
 Бел. Рубль
 <option value="L">
 Литы
 </option>
 </select>
 &nbsp;=&nbsp;
 <input type="text" name="wm_amount_sot" value="" onchange="computeSot2WM();" style="border-style: groove; width: 90px">&nbsp;<span style="color: rgb(0, 0, 205);">Синих соток
 </span>
 - (расчет указан без учета % за перевод)
 </nobr>
 </td>
 </tr>
 </tbody>
 </table>
 </td>
 </tr>
 </tbody>
 </table>
</form>
Буду очень благодарен если вы мне поможете!)
Свикс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi (2 курс) ДваДваВо7 Помощь студентам 0 05.12.2010 17:27
1 курс, задачи по Си Sabolch Помощь студентам 3 30.11.2010 08:42
4 курс komar1991 Помощь студентам 7 18.09.2010 13:37
1 курс информатики Jo Alves Паскаль, Turbo Pascal, PascalABC.NET 6 28.12.2008 12:39
Задачи и курс. на СИ Marselle Фриланс 10 30.06.2008 15:05