Just a quick shout out for the Stuart Bell Swim School. (Teaching children to swim in York, UK since 1991). Take a look at http://www.stuartbellswimschool.co.uk.
A CSS and Javascript Calculator
Published December 1, 2010 CSS , JavaScript 2 CommentsTags: calculator, css, gradient, JavaScript
I was doodling this afternoon on the computer and created this calculator.
It’s created using CSS and Javascript.
The CSS is drawn from http://css-tricks.com/examples/ButtonMaker/# and the javascript from http://www.code-sucks.com/code/javascript/template.php?tutorial=calculator.php.
I can’t embed the calendar on here but it looks like this:
It’s nothing particularly clever but should allow you to put a simple calculator on a web page. You can change the CSS to change the gradient colour of the buttons.
Please post any comments on how you could improve the code or functionallity of the calculator.
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>
<head>
<style>
.button {
cursor: pointer;
margin: 10px;
float: left;
width: 25px;
text-align: center;
border-top: 1px solid #96d1f8;
background: #65a9d7;
background: -webkit-gradient(linear, left top, left bottom, from(#3e779d), to(#65a9d7));
background: -moz-linear-gradient(top, #3e779d, #65a9d7);
padding: 5px 10px;
-webkit-border-radius: 8px;
-moz-border-radius: 8px;
border-radius: 8px;
-webkit-box-shadow: rgba(0,0,0,1) 0 1px 0;
-moz-box-shadow: rgba(0,0,0,1) 0 1px 0;
box-shadow: rgba(0,0,0,1) 0 1px 0;
text-shadow: rgba(0,0,0,.4) 0 1px 0;
color: white;
font-size: 14px;
font-family: Helvetica, Arial, Sans-Serif;
text-decoration: none;
vertical-align: middle;
}
.button:hover {
border-top-color: #28597a;
background: #28597a;
color: #ccc;
}
.button:active {
border-top-color: #1b435e;
background: #1b435e;
}
.button_big {
cursor: pointer;
margin: 10px;
float: left;
width: 95px;
text-align: center;
border-top: 1px solid #96d1f8;
background: #65a9d7;
background: -webkit-gradient(linear, left top, left bottom, from(#3e779d), to(#65a9d7));
background: -moz-linear-gradient(top, #3e779d, #65a9d7);
padding: 5px 10px;
-webkit-border-radius: 8px;
-moz-border-radius: 8px;
border-radius: 8px;
-webkit-box-shadow: rgba(0,0,0,1) 0 1px 0;
-moz-box-shadow: rgba(0,0,0,1) 0 1px 0;
box-shadow: rgba(0,0,0,1) 0 1px 0;
text-shadow: rgba(0,0,0,.4) 0 1px 0;
color: white;
font-size: 14px;
font-family: Helvetica, Arial, Sans-Serif;
text-decoration: none;
vertical-align: middle;
}
.button_big:hover {
border-top-color: #28597a;
background: #28597a;
color: #ccc;
}
.button_big:active {
border-top-color: #1b435e;
background: #1b435e;
}
</style>
</head>
<body>
<table border="1" style="border-collapse: collapse" bgcolor="#999999" cellpadding="0" bordercolor="#808080">
<tr>
<td colspan="4">
<form name="calculator">
<input type="text" disabled id="total" style="text-align: right; background: white; width:98%; font-family:Courier New; font-size:18pt; font-weight:bold" size="1" name="total">
</form>
</td>
</tr>
<tr>
<td><div onclick="calculator.total.value += '7'">7</div></td>
<td><div onclick="calculator.total.value += '8'">8</div></td>
<td><div onclick="calculator.total.value += '9'">9</div></td>
<td><div onclick="calculator.total.value += '/'">/</div></td>
</tr>
<tr>
<td><div onclick="calculator.total.value += '4'">4</div></td>
<td><div onclick="calculator.total.value += '5'">5</div></td>
<td><div onclick="calculator.total.value += '6'">6</div></td>
<td><div onclick="calculator.total.value += '*'">*</div></td>
</tr>
<tr>
<td><div onclick="calculator.total.value += '1'">1</div></td>
<td><div onclick="calculator.total.value += '2'">2</div></td>
<td><div onclick="calculator.total.value += '3'">3</div></td>
<td><div onclick="calculator.total.value += '-'">-</div></td>
</tr>
<tr>
<td colspan="2" align="center"><div onclick="calculator.total.value += '0'">0</div></td>
<td><div onclick="calculator.total.value += '.'">.</div></td>
<td><div onclick="calculator.total.value += '+'">+</div></td>
</tr>
<tr>
<td><div onclick="calculator.total.value = ''">C</div></td>
<td> </td>
<td colspan="2"><div onclick="calculator.total.value = eval(calculator.total.value)">=</div></td>
</tr>
</table>
</body>
Access 2007: Refering To A Control On A Subform Within A Form On A Tab
Published May 7, 2009 Access 2007 , Uncategorized Leave a CommentTags: Access, form, subsubform, tab, ubform, value, values
Wow! typing that heading is more complicated that solving the problem!
I have a main for that contains a number of tabs (let’s call the form “frm_MainForm”). The tab is called “tab_MyTab” (but this doesn’t really matter – see below!).
One one of those tabs contains another form (let’s call it “frm_FormOnTab”).
This form then contains a subform (let’s call this one “frm_subformOnForm”) which in turn contains a control for which I want to retrieve the value (let’s call the control “txt_MyControl”).
So, to summarise, we have:
frm_MainForm
tab_MyTab
frm_FormOnTab
frm_subformOnForm
txt_MyControl
How do we reference the value contained in txt_MyControl?
The syntax is:
=[Forms]![frm_MainForm]![frm_FormOnTab]![frm_subformOnForm].[Form]![txt_MyControl]
SQL Server – Enter Value from Keyboard
Published February 24, 2009 SQL-Server Leave a CommentTags: enter, keyboard, null, press, server, sql, type
Here’s another of those things I forget if I don’t use SQL Server for a while.
To enter a value of <NULL> into a field in SQL Server just type:
[Ctrl] + 0
(Hold down the Ctrl key and press the zero key).
Access VBA – Change the Name of a Field in an Existing Table
Published October 8, 2008 Access 1 CommentTags: Access, field, fieldname, rename, tabledefs, VBA
I’ve just been importing some records from Excel to Access using VBA.
By default the names of the fields of the imported records are “F1″, “F2″, “F3″ etc.
To make things a little clearer I wanted to rename these imported fields to more meaningful names.
Here’s how to do it:
CurrentDb().TableDefs(TableName).Fields("OldName").Name = "NewName"
where:
TableName is the name of the table in which we want to change the names
“OldName” is the old name of the field
“NewName” is the new name we want to use for this field
Excel VBA – PERSONAL.XLS Locked For Editing – Resolution
Published October 7, 2008 Excel 4 CommentsTags: editing, Excel, for, locked, persona, personal.xls, solution, VBA, xls, xlstart
I’ve just been working on an Excel problem that requires one worksheet to be opened at a given time (using the Windows Task Scheduler) and a macro run.
However, when testing this I came across the “Personal.XLS locked for editing” message.
It seems that this is due to having more than one instance of Excel running at one time.
Dave Peterson at http://www.pcreview.co.uk/forums/thread-2831009.php has suggested a solution to this.
This involves marking the personal.xls file as read-only and this, indeed, seems to stop the error.
If you haven’t come across the personal.xls file before it’s a hidden workbook that opens when you start Excel. Any code in this workbook is available in all workbooks you have open in Excel.
On a Windows XP machine the file is usually located in the Excel startup folder at:
C:\Documents and Settings\[UserName]\Application Data\Microsoft\Excel\XLSTART
If you’re using Vista it’s probably in the folder at:
C:\Users\[UserName]\AppData\Roaming\Microsoft\Excel\XLSTART
where [UserName] is the user name you’re currently logged onto the machine as.
However, the file could be located elsewhere so use Search to find it if it’s not in the folders mentioned above.
Although making the file read-only solves this problem it does raise other issues if you often add code to personal.xls but is a useful workaround in my situation.
Access Queries: Concatenate Multiple Fields Into A New Field Seperated By New Lines (vbCRLF)
Published September 24, 2008 Access Leave a CommentTags: access query address concatenate single line multiple l
Often I come across a database which has been designed with multiple address line fields.
We usually want to concatenate these multiple address lines into a new field with each of the old fields on a new line.
To do this I usually create a new query and use something like the following SQL:
SELECT IIf(Not IsNull([Addr1]),[Addr1] & Chr(13) & Chr(10),"") & IIf(Not IsNull([Addr2]),[Addr2] & Chr(13) & Chr(10),"") & IIf(Not IsNull([Addr3]),[Addr3] & Chr(13) & Chr(10),"") & IIf(Not IsNull([Addr4]),[Addr4] & Chr(13) & Chr(10),"") AS AddressPart, tblPerson.PersonID INTO newaddress FROM tblPerson;
Where addr1, addr2, addr3 and addr4 are the old single line address fields, AddressPart is the new field with each of the single lines combined and newaddress is the temporary table I want to put the results of the query into.
This checks if each of the original fields are NULL and, if not, adds them to the new field followed by Chr(13) and Chr(10) (the equivalent of a vbCrLf). If the field is NULL it is ignored.
I usually put the results of the query into a new table and then use an UPDATE statement to combine this with the existing table.
Although this approach isn’t very elegant it allows me to retain each of the seperate fields until I’ve imported the new joined up address and checked if everything has worked okay.
Excel VBA – Save As (SaveAs) Without Confirmation
Published September 24, 2008 Excel 2 CommentsTags: excel vba save as saveas no confirmation dialog overwri
When saving a file in Excel from VBA code it is sometime useful to avoid the display of a Save As dialog if the file to be saved already exists (i.e. to overwrite any exisiting files).
This is pretty easy but one of those things I always forget how to do!
Here’s the code:
Application.DisplayAlerts = False ActiveWorkbook.SaveAs (etc.) Application.DisplayAlerts = True
Thanks to the users at http://www.vbforums.com/showthread.php?t=528826 who reminded me of this for about the hundredth time!
and then click the Access Options button).
