需要计数器（在线等）！！！！！！！！！！！！！！！

wyq4403 2003-10-19 05:49:13
请问计数器的数值怎么该。哪里有源代码下载。在线等！！！！！！！！！！！！！！！！
...全文
39 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
passionke 2003-10-26
  • 打赏
  • 举报
 回复
也送我一个吧，谢谢！
passion_ke@hotmail.com
csz83 2003-10-25
  • 打赏
  • 举报
 回复
我也想要个编译好的计算器。谢谢了

csz83@163.com
fervv 2003-10-24
  • 打赏
  • 举报
 回复
楼主结贴吧！

wanchl 2003-10-22
  • 打赏
  • 举报
 回复
高手呀！佩服！
fervv 2003-10-20
  • 打赏
  • 举报
 回复
//cube any given number
function cubed(mode, obj) {
if (mode==1) {
alert("Cubed允许你进行任何数的立方运算。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想在全部的文本框中进行当前数据的立方运算吗？", "y or n");
if (aa=="y") {
doit(Math.pow(obj.value, 3), obj)
}
else {
a = prompt("请输入一个数据。", "");
more('(' + Math.pow(a, 3) + ')', obj)
}
}
else {
a = prompt("请输入一个数据。", "");
doit(Math.pow(a, 3), obj)
}
}
//square any given number
function squared(mode, obj) {
if (mode==1) {
alert("Squared允许你进行任何指定数据的平方运算。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想在全部的文本框中进行当前数据的平方运算吗？", "y or n");
if (aa=="y") {
doit(Math.pow(obj.value, 2), obj)
}
else {
a = prompt("请输入一个数据", "");
more('(' + Math.pow(a, 2) + ')', obj)
}
}
else {
a = prompt("请输入一个数据", "");
doit(Math.pow(a, 2), obj)
}
}
//store any number in memory
function mem(mode, obj, where) {
if (mode==1) {
alert("记忆键可使你把结果文本框中的当前数据保存起来。通过按Rcl键你可以找到被保存的数据。")
}
where.value = obj.value
}
//recall any numbers in memory
function rcl(mode, obj, where) {
if (mode==1) {
alert("Rcl 是一个与记忆簿有关的功能，可以调出你保存在相应记忆簿中的数据。")
}
if (obj.value=="") {
more('', where)
}
else {
more('(' + obj.value + ')', where)
}
}
//find the logarythm of any given number
function logrythm(mode, obj) {
if (mode==1) {
alert("本功能可以给出任何指定数据的自然对数。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想得到结果文本中数据的对数吗？", "y or n");
if (aa=="y") {
doit(Math.log(obj.value), obj)
}
else {
a = prompt("输入一个数据以求其对数。", "");
more('(' + Math.log(a) + ')', obj)
}
}
else {
a = prompt("输入一个数据以求其对数。", "");
doit(Math.log(a), obj)
}
}
//find the sine of any given number
function sine(mode, obj) {
if (mode==1) {
alert("本功能可以给出任何指定数据的正弦")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想得到结果文本中数据的正弦吗？", "y or n");
if (aa=="y") {
doit(Math.sin(obj.value), obj)
}
else {
a = prompt("输入一个数据以求其正弦。", "");
more('(' + Math.sin(a) + ')', obj)
}
}
else {
a = prompt("输入一个数据以求其正弦。", "");
doit(Math.sin(a), obj)
}
}
//find the cosine of any given number
function cosine(mode, obj) {
if (mode==1) {
alert("本功能可以给出任何指定数据的余弦。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想得到结果文本中数据的余弦吗？", "y or n");
if (aa=="y") {
doit(Math.cos(obj.value), obj)
}
else {
a = prompt("输入一个数据以求其余弦。", "");
more('(' + Math.cos(a) + ')', obj)
}
}
else {
a = prompt("输入一个数据以求其余弦。", "");
doit(Math.cos(a), obj)
}
}
//find the tangent of any given number
function tangent(mode, obj) {
if (mode==1) {
alert("本功能可以给出任何指定数据的正切。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想得到结果文本中数据的正切吗？", "y or n");
if (aa=="y") {
doit(Math.tan(obj.value), obj)
}
else {
a = prompt("输入一个数据以求其正切。", "");
more('(' + Math.tan(a) + ')', obj)
}
}
else {
a = prompt("输入一个数据以求其正切。", "");
doit(Math.tan(a), obj)
}
}
//find the squareroot of any given number
function squareroot(mode, obj) {
if (mode==1) {
alert("本功能可以给出任何指定数据的平方根。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想得到结果文本中数据的平方根吗？", "y or n");
if (aa=="y") {
doit(Math.sqrt(obj.value), obj)
}
else {
a = prompt("输入一个数据以求其平方根。", "");
more('(' + Math.sqrt(a) + ')', obj)
}
}
else {
a = prompt("输入一个数据以求其平方根。", "");
doit(Math.sqrt(a), obj)
}
}
fervv 2003-10-20
  • 打赏
  • 举报
 回复
//evaluate the value in the total textbox
function calc(obj, objw) {
if (objw.value=="") {
objw.value=''
}
objw.value = eval(obj.value)
}
//add more characters to the total textbox
function more(obj, where) {
if (where.value=="" || where.value=="0") {
where.value = obj
}
else {
where.value += obj
}
}
//clear the total textbox value and start with this new character
function doit(obj, where) {
where.value = obj
}
//clear the value
function cleart(obj) {
obj.value = '0'
}
//oops, backspace
function less(obj) {
obj.value = obj.value.substring(0, obj.value.length - 1)
}
//powers to any given number
function power(mode, obj) {
if (mode==1) {
alert("增强功能可使你进行任何指定数据的幂运算。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想把计算结果文本框中的数据作为基数吗？", "y or n");
if (aa=="y") {
a = obj.value
}
else {
a = prompt("输入一个基数。", "")
}
b = prompt("输入一个指数。", "");
if (aa=="y") {
doit(Math.pow(a, b), obj)
}
else {
more('(' + Math.pow(a, b) + ')', obj)
}
}
else {
a = prompt("输入一个基数。", "");
b = prompt("输入一个指数。", "");
doit(Math.pow(a, b), obj)
}
}
//solve for unknown variable ("x") in any given expression
function equa(mode) {
if (mode==1) {
alert("Equasion\+是一个很方便的小工具，它可以解决任何方程式中的 \"x\"。比如：5*x=10，它会告诉你：X=2。但是，你必须确切地告诉它你想要什么。关键是你使用的数学符号。比如：加，减，乘或除。记住：*=乘，/=除，\+=加，-=减。")
}
a = prompt("你正使用什么方法？比如：\/，*，+，或-", "");
if (a=="/") {
f = prompt("\"x\"将被某数相除吗?", "y or n")
if (f=="y") {
b = prompt("\"x\"被什么数除？", "");
c = prompt("答案是什么？", "");
d = c*b;
}
else {
b = prompt("什么数除以 \"x\"?", "");
c = prompt("答案是什么？", "");
d = b/c;
}
}
if (a=="*") {
b = prompt("\"x\"乘什么数？", "");
c = prompt("答案是什么？", "");
d = c/b;
}
if (a=="+") {
b = prompt("\"x\"加上什么数？", "");
c = prompt("答案是什么？", "");
d = c-b
}
if (a=="-") {
f = prompt("\"x\"进行减法运算吗？", "y or n")
if (f=="y") {
b = prompt("什么数减以x", "");
c = prompt("答案是什么？", "");
d = b-c
}
else {
b = prompt("\"x\"减以多少数？", "");
c = prompt("答案是什么？", "");
d = (b*1)+(c*1)
}
}
if (a=="") {
d = 0
}
alert("x = "+d+"")
}
//multiply any number by any number, any number of times
function spec(mode, obj) {
if (mode==1) {
alert("Spec是一个方便的工具，你可以用它来进行两个数据任何次方的乘法运算。它有点像增强功能，但有一点不同，即在POWERS中， 你只能进行一个数自身的乘方运算。Spec的这个功能使得你能够进行两个数任何次方的运算。")
}
if (obj.value!="" && obj.value!="0") {
aa = prompt("你想把本数据作为第一数据在计算结果文本框中使用吗？", "y or n")
if (aa=="y") {
a = obj.value
}
else {
a = prompt("请输入第一个数据。", "")
}
b = prompt("你想用什么数乘以该数据？", "");
c = prompt("乘以该数据的多少次方？", "");
d = Math.pow(b,c);
if (aa=="y") {
doit(a*d, obj)
}
else {
more('(' + a*d + ')', obj)
}
}
else {
a = prompt("请输入第一个数据。", "");
b = prompt("你想用什么数乘以该数据？", "");
c = prompt("乘以该数据的多少次方？", "");
d = Math.pow(b,c);
doit(a*d, obj)
}
}
fervv 2003-10-20
  • 打赏
  • 举报
 回复
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="jsq.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" style="overflow:hidden" leftmargin="0" topmargin="0" oncontextmenu='return false'>
<script language=javascript><!--
var dragwin_cltx,dragwin_clty,dragwin_draging=false

function drag_move(){
if (dragwin_draging)
{
top.window.moveTo(event.screenX-dragwin_cltx,event.screenY-dragwin_clty);
return false;
}
}

function drag_down(){
dragwin_cltx=event.clientX;
dragwin_clty=event.clientY;
dragwin_draging=true;
event.srcElement.setCapture();
}

function drag_up(){
dragwin_draging=false;
event.srcElement.releaseCapture();
}
if (window.Event)
document.captureEvents(Event.MOUSEUP);

function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;

return false;
}

function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}

}
//-->
</script>
<script language="JavaScript"><!--
function getinput(func) {
var a = document.mainform.total;
var b = document.mainform.memory1;
var c = document.mainform.memory2;
if (document.mainform.mode[0].checked) {
var mode = 1 //help mode
}
else {
var mode = 0 //non-help mode
}
if (func==power) {
return power(mode, a)
}
if (func==equa) {
return equa(mode)
}
if (func==spec) {
return spec(mode, a)
}
if (func==cubed) {
return cubed(mode, a)
}
if (func==squared) {
return squared(mode, a)
}
if (func=="mem1") {
return mem(mode, a, b)
}
if (func=="mem2") {
return mem(mode, a, c)
}
if (func=="rcl1") {
return rcl(mode, b, a)
}
if (func=="rcl2") {
return rcl(mode, c, a)
}
if (func==logrythm) {
return logrythm(mode, a)
}
if (func==sine) {
return sine(mode, a)
}
if (func==cosine) {
return cosine(mode, a)
}
if (func==tangent) {
return tangent(mode, a)
}
if (func==squareroot) {
return squareroot(mode, a)
}
if (func==fractions) {
return fractions(mode, a)
}
if (func==negpos) {
return negpos(mode, a)
}
if (func==mc) {
return mc(mode, b, c)
}
if (func==scie) {
return scie(mode, a)
}
if (func==unscie) {
return unscie(mode, a)
}
}

//enough variables
wyq4403 2003-10-20
  • 打赏
  • 举报
 回复
THANKS ！！！！！！！！！我已经看到了。可是我不是数据库啊。是简单的FRONTPAGE。你可以再告诉我吗。万分感谢你的帮助。我的QQ是68060883。保持联系。再次感谢你的热心关注！！！！！！！！！！！！！！！！
wyq4403 2003-10-20
  • 打赏
  • 举报
 回复
ferv(中性主张)：
你好啊
十分感谢你的帖子！！！！！！！！！！！！！！万分感谢。可以告诉我你的电子信箱吗？
保持联系！！！！！！！！！！！！！！
x0ne 2003-10-20
  • 打赏
  • 举报
 回复
to wyq4403
我已經mail給你了,是Access版的,如果你需要文本(需要服務器支持FSO),我也可以給你再發一份,其實只要稍微改一下就好了!
wyq4403 2003-10-20
  • 打赏
  • 举报
 回复
THANKS。 十分感谢你的回复，可是我不是用数据库做的网页。我是用FRONTPAGE。请联系我好吗。我的地址是wangyongqiang01@sohu.com.感谢你的支持。
x0ne 2003-10-20
  • 打赏
  • 举报
 回复
我最近剛寫了一個,自認已經比較完美了,想要的話把mail留下.

不過我的說明是繁體的!
TonyAmanda 2003-10-20
  • 打赏
  • 举报
 回复
我是用Application("Counter")这个变量计数的，要+1的话只要Application("Counter")=Application("Counter")+1就行了。
然后再global.asa里面添加把Application("Counter")的数值写入数据库的语句就可以了
Sub Application_OnStart()
Dim MyConn,rsSysInfo
Set rsSysInfo=Server.CreateObject("ADODB.RecordSet")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("TW.mdb")
rsSysInfo.Open "SELECT * FROM SysInfo",MyConn
Application("Counter")=rsSysInfo("Counter")
rsSysInfo.Close
Set rsSysInfo=Nothing
End Sub

Sub Application_OnEnd()
Dim MyConn,ConnStr,rsSysInfo
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("TW.mdb")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open ConnStr
rsSysInfo.Open "UPDATE SysInfo SET Counted="+Application("Counted")
rsSysInfo.Close
MyConn.Close
Set rsSysInfo=Nothing
Set MyConn=Nothing
End Sub
最简单的asp计数器
最简单的asp计数器!!!!!!!!!!!!
00－99计数器 单片机 模拟
要啥分啊？！！！！ 00－99计数器！！！！！！！！！！！
定时器和计数器-第1季第10部分
本课程是《朱有鹏老师单片机完全学习系列课程》第1季第10个课程，主要内容是51单片机的定时器和计数器，本课程的学习目标是对定时器的作用和意义有深入理解，掌握通过操作寄存器来操作硬件的思路和方法。
新型计数器 新型计数器
新型计数器 新型计数器 51控制 简单经典！！！！
计组之PC（程序计数器）
计组之PC（程序计数器）！！！此资源仅供参考！！！！
CSS

61,111

社区成员

60,734

社区内容

发帖
与我相关
我的任务
社区描述
层叠样式表(英文全称：Cascading Style Sheets)是一种用来表现HTML（标准通用标记语言的一个应用）或XML（标准通用标记语言的一个子集）等文件样式的计算机语言。
社区管理员
  • HTML(CSS)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章