Make a weekday calculator in VBScript

Posted by Anbuselvan Rocky Posted on 07:39 No comments

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)

Continue Reading →

Make a simple calculator in HTML using VBScript

Posted by Anbuselvan Rocky Posted on 07:34 No comments

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>

Continue Reading →

Hacked softwares

www.hackbeginzsoftwares.blogspot.com, free softwares, full version softwares, hacked softwares,hack beginz, hacking, hacking softwares

Sunday, 30 June 2013