Make a weekday calculator in VBScript

Posted by Unknown Minggu, 30 Juni 2013 0 komentar

Make a weekday calculator in VBScript

*This is another hta file which will tell you the weekday of the date you specified.
The code is a little complex so when I looked at the code after making this, even I had difficulty in understanding the code. I took the formula from the internet and this program is tested so you can be hundred percent sure this program is accurate. :)

To make the program just save the following code with a .hta file extension using notepad.

<html><head><title>WeekDay</title><HTA:APPLICATION   APPLICATIONNAME="WeekDay"   ID="WeekDay"   VERSION="1.0"   MAXIMIZEBUTTON="no"   SCROLL="no"/></head> <script language="VBScript"> Sub Window_OnLoad    Dim width,height    width=260    height=165    self.ResizeTo width,height   'This method will be called when the application loads   'Add your code here End Sub  Function Validate On Error Resume Next CY = CYear.Value CM = CMonth.value CD = CDay.value Chk = Int(CY/4) If (CY = "") Then Box.Value = "Enter a year!" Else If Not (IsNumeric(CY)) Then Box.Value = "Invalid date!" Else If (CY < 1000 Or CY > 9999) Then Box.Value = "Invalid date!" Else If ((CM = "February" Or CM = "April" Or CM = "June" Or CM = "September" Or CM = "November") And CD = 31) Then Box.Value = "Invalid date!" Else If (CM = "February" And CD = 30) Then Box.Value = "Invalid date!" Else If (CM = "February" And CD = 29 And Chk*4 <> Int(CY)) Then Box.Value = "Invalid date!" Else IA() End If End If End If End If End If End If End Function  Function IA CY = CYear.Value CC = Left(CY, 2) CHK = CC Mod 4 If (CHK = 3) Then XC.Value = 0 NUM.Value = 0 IB() Else If (CHK = 0) Then XC.Value = 6 NUM.Value = 0 IB() Else If (CHK = 1) Then XC.Value = 4 NUM.Value = 0 IB() Else If (CHK = 2) Then XC.Value = 2 NUM.Value = 0 IB() Else MsgBox("ERROR!") End If End If End If End If End Function  Function IB CY = Int(CYear.Value) CC = Int(Right(CY, 2)) NUM.Value = NUM.Value+1 CHK = NUM.Value*4 If (Int(CHK) < Int(CC)) Then Junk = SetTimeOut("IB()", 1) Else If (Int(CHK) = Int(CC)) Then XY.Value = (CC+NUM.Value) IC() Else If (Int(CHK) > Int(CC)) Then XY.Value = (CC+(NUM.Value-1)) IC() Else IC() End If End If End If End Function  Function IC CY = Right(CYear.Value, 2) CM = CMonth.Value Chk = CY Mod 4 If (CY = 0)  Then XY.Value = 0 ID() Else If (Chk = 0 And (CM = "January" Or CM = "February")) Then XY.Value = (XY.Value-1) Mod 7 ID() Else XY.Value = XY.Value Mod 7 ID() End If End If End Function  Function ID IDM = Array(0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5) XM.Value = IDM(CMonth.selectedIndex) CD = CDay.Value XD.Value = CD Mod 7 Finish() End Function  Function Finish DDay = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday") Chk = Int(XC.Value)+Int(XY.Value)+Int(XM.Value)+Int(XD.Value) Box.Value = (DDay(Chk Mod 7)) End Function  Sub CYear_OnKeyPress If (window.event.keycode < 48 Or window.event.keycode > 57) Then window.event.returnvalue = False Else End If End Sub  </script> <body bgcolor="white"><input type="hidden" id="NUM"><input type="hidden" id="XC"><input type="hidden" id="XY"><input type="hidden" id="XM"><input type="hidden" id="XD"><table align="center" width="200" border="1"><tr><td align="center"><input type="text" id="box" size="30" style="text-align:center" maxlength="0"></td></tr><tr><td align="center"><select id="CDay"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option></select><select id="CMonth"><option value="January">January</option><option value="February">February</option><option value="March">March</option><option value="April">April</option><option value="May">May</option><option value="June">June</option><option value="July">July</option><option value="August">August</option><option value="September">September</option><option value="October">October</option><option value="November">November</option><option value="December">December</option></select><input type="text" id="CYear" size="2" maxlength="4"></td></tr><tr><td align="center"><input type="button" value="Calculate" onClick="Validate"></td></tr></table></body></html>

Caution : Modifing codings will damage your data so dont modify the codings..

Remember to leave your rating! and subscribe us if u like .... (Y)

Baca Selengkapnya ....

Make a simple calculator in HTML using VBScript

Posted by Unknown 0 komentar

Make a simple calculator in HTML using VBScript

*This is a very simple calculator made with HTML and coded with VBScript. This hta file simply evaluates the expression in the text box. The expression can be entered using the mouse to click the buttons or else from the keyboard. To prevent the chance of invalid data being entered, only numerical keys and the signs are allowed on the keyboard. Also you can use Enter key to evaluate the expression and C to clear the text box.
To make the calculator just save the following code with a .hta extension using notepad. Hope this code helps you improve your scripting! Happy Hacking..

<html><head><title>Calculator</title><HTA:APPLICATION   APPLICATIONNAME="Calculator"   ID="Calc"   VERSION="1.0"   SCROLL="no"   MAXIMIZEBUTTON="no"   SHOWINTASKBAR="no"/></head> <style> .btn{font-family: Arial;   font-size: 12;   color: #000000;   background-color: #FFFFFF;   width: 40;   height: 25;}   .eq {font-family: Arial;   font-size: 12;   color: #000000;   background-color: #FFFFFF;   width: 40;   height: 85;}   .0 {font-family: Arial;   font-size: 12;   color: #000000;   background-color: #FFFFFF;   width: 85;   height: 25;}  </style> <script language="VBScript"> Sub Window_OnLoad    Dim width,height    width=270    height=300    self.ResizeTo width,height    box.focus End Sub  Function btnb On Error Resume Next count = 0 text = box.value count = Len(box.value) count = count-1 box.value = Left(box.value, count) End Function  Function eq On Error Resume Next junk = Eval(box.value) If (Err.Number <> 0) Then box.value = Err.Description Else box.value = Eval(box.value) End If End Function  Function AddBox(ID) box.value = box.value&ID End Function  Function KPS If (window.event.keycode = 99) Then box.value = "" Else If (window.event.keycode = 13) Then eq() Else If (window.event.keycode = 8) Then btnb() Else If ((window.event.keycode <> 94) And (window.event.keycode  < 40 Or window.event.keycode > 41) And (window.event.keycode <  42 Or window.event.keycode > 57)) Then window.event.returnvalue = False Else cxz.focus box.value = box.value & Chr(window.event.keycode) End If End If End If End If End Function  </script> <body bgcolor="white" onkeypress="KPS"><table align="center" id="cxz"><caption><hr><b>CALCULATOR</b><hr></caption><tr><td  colspan="5" align="center"><input type="text" id="box" size="30"  onclick="cxz.focus" readonly></tr><tr><td colspan="2"><input type="button" value="Backspace"  class="0" id="btna" onclick="btnb" onmouseover="btna.style.background =  '#808080'" onmouseout="btna.style.background = '#FFFFFF'"></td><td><input type="button" value="(" class="btn" id="btnz"  onclick="AddBox('(')" onmouseover="btnz.style.background = '#808080'"  onmouseout="btnz.style.background = '#FFFFFF'"></td><td><input type="button" value=")" class="btn" id="btnc"  onclick="AddBox(')')" onmouseover="btnc.style.background = '#808080'"  onmouseout="btnc.style.background = '#FFFFFF'"></td><td><input type="button" value="C" class="btn" id="btnd"  onclick="box.value = ''" onmouseover="btnd.style.background = '#808080'"  onmouseout="btnd.style.background = '#FFFFFF'"></td></tr><tr><td><input type="button" value="7" class="btn" id="btne"  onclick="AddBox('7')" onmouseover="btne.style.background = '#808080'"  onmouseout="btne.style.background = '#FFFFFF'"></td><td><input type="button" value="8" class="btn" id="btnf"  onclick="AddBox('8')" onmouseover="btnf.style.background = '#808080'"  onmouseout="btnf.style.background = '#FFFFFF'"></td><td><input type="button" value="9" class="btn" id="btng"  onclick="AddBox('9')" onmouseover="btng.style.background = '#808080'"  onmouseout="btng.style.background = '#FFFFFF'"></td><td><input type="button" value="/" class="btn" id="btnh"  onclick="AddBox('/')" onmouseover="btnh.style.background = '#808080'"  onmouseout="btnh.style.background = '#FFFFFF'"></td><td><input type="button" value="^" class="btn" id="btni"  onclick="AddBox('^')" onmouseover="btni.style.background = '#808080'"  onmouseout="btni.style.background = '#FFFFFF'"></td></tr><tr><td><input type="button" value="4" class="btn" id="btnj"  onclick="AddBox('4')" onmouseover="btnj.style.background = '#808080'"  onmouseout="btnj.style.background = '#FFFFFF'"></td><td><input type="button" value="5" class="btn" id="btnk"  onclick="AddBox('5')" onmouseover="btnk.style.background = '#808080'"  onmouseout="btnk.style.background = '#FFFFFF'"></td><td><input type="button" value="6" class="btn" id="btnl"  onclick="AddBox('6')" onmouseover="btnl.style.background = '#808080'"  onmouseout="btnl.style.background = '#FFFFFF'"></td><td><input type="button" value="*" class="btn" id="btnm"  onclick="AddBox('*')" onmouseover="btnm.style.background = '#808080'"  onmouseout="btnm.style.background = '#FFFFFF'"></td><td rowspan="3"><input type="button" value="=" class="eq"  id="btnn" onclick="eq" onmouseover="btnn.style.background = '#808080'"  onmouseout="btnn.style.background = '#FFFFFF'"></td></tr><tr><td><input type="button" value="1" class="btn" id="btno"  onclick="AddBox('1')" onmouseover="btno.style.background = '#808080'"  onmouseout="btno.style.background = '#FFFFFF'"></td><td><input type="button" value="2" class="btn" id="btnp"  onclick="AddBox('2')" onmouseover="btnp.style.background = '#808080'"  onmouseout="btnp.style.background = '#FFFFFF'"></td><td><input type="button" value="3" class="btn" id="btnq"  onclick="AddBox('3')" onmouseover="btnq.style.background = '#808080'"  onmouseout="btnq.style.background = '#FFFFFF'"></td><td><input type="button" value="-" class="btn" id="btnr"  onclick="AddBox('-')" onmouseover="btnr.style.background = '#808080'"  onmouseout="btnr.style.background = '#FFFFFF'"></td></tr><tr><td colspan="2"><input type="button" value="0" class="0"  id="btns" onclick="AddBox('0')" onmouseover="btns.style.background =  '#808080'" onmouseout="btns.style.background = '#FFFFFF'"></td><td><input type="button" value="." class="btn" id="btnt"  onclick="AddBox('.')" onmouseover="btnt.style.background = '#808080'"  onmouseout="btnt.style.background = '#FFFFFF'"></td><td><input type="button" value="+" class="btn" id="btnu"  onclick="AddBox('+')" onmouseover="btnu.style.background = '#808080'"  onmouseout="btnu.style.background = '#FFFFFF'"></td></tr></table></body></html>

Baca Selengkapnya ....