Калкулатор на Вашој Веб локацији
Желите ли имати калкулатор на вашој веб страници? Почните копирањем овог шаблона испод. Можда ћете морати да копирате и налепите шифру у два дела ако постоји реклама на путу. Не желите да копирате и налепите рекламу и шифру око њега. Затим залепите ХТМЛ код у ХТМЛ едитор.
Копирајте и налепите ЈаваСрипт За калкулатор
Ставите овај код у ГЛАВУ своје странице. Започните копирање овде:
<СТИЛЕ типе = "тект; цсс">
.цалцБтн
{
фонт-веигхт: болд /
ширина: 32пк;
висина: 32пк;
}
стиле>
<сцрипт лангуаге = "ЈаваСцрипт">
функција Цалцулатор_ОнЦлицк (кеиСтр)
{
вар ресултсФиелд = доцумент.цалцулатор.цалцРесултс;
прекидач (кеиСтр)
{
случај "0":
случај "1":
случај "2":
случај "3":
случај "4":
случај "5":
случај "6":
случај "7":
случај "8":
случај "9":
случај "0":
случај ".":
иф ((тхис.ластОп == тхис.опЦлеар) || (тхис.ластОп == тхис.опОператор))
{
ресултсФиелд.валуе = кеиСтр;
}
друго
{
// игнорише додатне децимале
ако ((кеиСтр! = ".") || (ресултсФиелд.валуе.индекОф (".") <0))
{
ресултсФиелд.валуе + = кеиСтр;
}
}
тхис.ластОп = тхис.опНумбер;
пауза;
случај "*":
случај "/":
случај "+":
случај "-":
ако (тхис.ластОп == тхис.опНумбер)
тхис.Цалц ();
тхис.евалСтр + = ресултсФиелд.валуе + кеиСтр;
тхис.ластОп = тхис.опОператор;
пауза;
случај "=":
тхис.Цалц ();
тхис.ластОп = тхис.опЦлеар;
пауза;
случај "ц":
ресултсФиелд.валуе = "0";
тхис.ластОп = тхис.опЦлеар;
пауза;
Уобичајено:
упозорење ("'" + кеиСтр + "' није препознато.");
}
}
функција Цалцулатор_Цалц ()
{
вар ресултсФиелд = доцумент.цалцулатор.цалцРесултс;
//алерт("евал:"+тхис.евалСтр+ресултсФиелд.валуе);
ресултсФиелд.валуе = евал (ова.евалСтр + резултатиФиелд.валуе);
тхис.евалСтр = "";
}
функција Калкулатор ()
{
тхис.евалСтр = "";
тхис.опНумбер = 0;
тхис.опОператор = 1;
тхис.опЦлеар = 2;
тхис.ластОп = тхис.опЦлеар;
тхис.ОнЦлицк = Цалцулатор_ОнЦлицк;
тхис.Цалц = Цалцулатор_Цалц;
}
гЦалцулатор = нови калкулатор ();
сцрипт>
-------------------------------------------------- -----------------------------
Ставите овај део у тело ваше странице. Започните копирање овог дела овде:
<форм наме = "калкулатор">
<табле бордер = "2" целлпаддинг = "4" целлспацинг = "0" бордерцолор = "# 000000">
<тр>
<тд>
<табле бордер = "0" целлпаддинг = "2" целлспацинг = "0" видтх = "100%">
<тр>
<тд цолспан = "4">
<инпут типе = "тект" наме = "цалцРесултс" валуе = "0" сизе = "20" стиле = "тект-алигн: ригхт"> тд>
тр>
<тр>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "Ц" наме = "цалцлеар" онцлицк = "гЦалцулатор.ОнЦлицк ('ц')"> тд>
<тд> тд>
<тд> тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "=" наме = "цалекуал" онцлицк = "гЦалцулатор.ОнЦлицк ('=')"> тд>
тр>
<тр>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "7" наме = "цал7" онцлицк = "гЦалцулатор.ОнЦлицк ('7')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('7')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "8" наме = "цал8" онцлицк = "гЦалцулатор.ОнЦлицк ('8')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('8')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "9" наме = "цал9" онцлицк = "гЦалцулатор.ОнЦлицк ('9')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('9')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "/" наме = "цалдив" онцлицк = "гЦалцулатор.ОнЦлицк ('/')"> тд>
тр>
<тр>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "4" наме = "цал4" онцлицк = "гЦалцулатор.ОнЦлицк ('4')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('4')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "5" наме = "цал5" онцлицк = "гЦалцулатор.ОнЦлицк ('5')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('5')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "6" наме = "цал6" онцлицк = "гЦалцулатор.ОнЦлицк ('6')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('6')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "*" наме = "миррор" онцлицк = "гЦалцулатор.ОнЦлицк ('*')"> тд>
тр>
<тр>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "1" наме = "цал1" онцлицк = "гЦалцулатор.ОнЦлицк ('1')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('1')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "2" наме = "цал2" онцлицк = "гЦалцулатор.ОнЦлицк ('2')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('2')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "3" наме = "цал3" онцлицк = "гЦалцулатор.ОнЦлицк ('3')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('3')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "+" наме = "цалплус" онцлицк = "гЦалцулатор.ОнЦлицк ('+')"> тд>
тр>
<тр>
<тд> тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "0" наме = "цал0" онцлицк = "гЦалцулатор.ОнЦлицк ('0')" ондблцлицк = "гЦалцулатор.ОнЦлицк ('0')" тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = ".
"наме =" цалдец "онцлицк =" гЦалцулатор.ОнЦлицк ('.') "> тд>
<тд> <инпут цласс = "цалцБтн" типе = "буттон" валуе = "-" наме = "цалминус" онцлицк = "гЦалцулатор.ОнЦлицк ('-')"> тд>
тр>
табле>
тд>
тр>
табле>
форм>