31
2012
05

全天侯太阳自动跟踪控制器【zt】

电路图介绍:
  
现有的太阳能自动跟踪控制器无外乎两种:一是使用一只光敏传感器与施密特触发器或单稳态触发器,构成光控施密特触发器或光控单稳态触发器来控制电机的停、转;二是使用两只光敏传感器与两只比较器分别构成两个光控比较器控制电机的正反转。由于一年四季、早晚和中午环境光和阳光的强弱变化范围都很大,所以上述两种控制器很难使大阳能接收装置四季全天候跟踪太阳。这里所介绍的控制电路也包括两个电压比较器,但设在其输人端的光敏传感器则分别由两只光敏电阻串联交叉组合而成。每一组两只光敏电阻中的一只为比较器的上偏置电阻,另一只为下偏置电阻;一只检测太阳光照,另一只则检测环境光照,送至比较器输人端的比较电平始终为两者光照之差。所以,本控制器能使太阳能接收装置四季全天候跟踪太阳,而且调试十分简单,成本也比较低。
...

31
2012
05

用通用单片机制作MIDI键盘【zt】

用通用单片机制作MIDI键盘 作者:徐斌     MIDI是电子乐器的语言,随着MIDI的诞生,数字化电子乐器已经越来越多,MIDI的应用也越来越普遍,在电子乐队演奏,电子音乐制作等各个领域,发挥着越来越大的作用。随着计算机技术的发

28
2012
05

串口控制继电器程序

#include <reg51.h>
#include <intrins.h>
#include < stdio.h >

//定义继电器的管脚
sbit     K0_0 =  P0^0;   //对应继电器
sbit     K0_1 =  P0^1;   //对应继电器
...

28
2012
05

软驱步进电机测试程序

N年前自己写的一个测试程序 用于3.5软驱的 那个小小步进电机驱动

#include <reg51.h>
#include <intrins.h>
//亮灯测试程序
char np;
char motortb[]={0x11,0x99,0x88,0xcc,0x44,0x66,0x22,0x33};//步进电机运行数据表

void delay(char t)// 每步延时的子程序
...

24
2012
05

ASP远程调用的演示代码.

如果想执行服务器端代码而又不转变当前页面,可以用如下代码解决:
这是default.asp文件
<%@ Language=VBScript %>
<%
response.expires=0
RsEnable=true
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
...

24
2012
05

导出的数学函数

导出的数学函数


以下为非基本数学函数的列表,皆可由基本数学函数导出:

函数 由基本函数导出之公式
Secant(正割) Sec(X) = 1 / Cos(X)
Cosecant(余割) Cosec(X) = 1 / Sin(X)
Cotangent(余切) Cotan(X) = 1 / Tan(X)
Inverse Sine
(反正弦)
Arcsin(X) = Atn(X / Sqr(-X * X + 1))
...

24
2012
05

☆ASP中生成动态图表☆

以前在这里也曾经有一些文章谈到了在ASP中生成动态图表的问题,但那些文章中所谈到的一些方法都有某些方面的限制,如需要在客户端安装office2000或安装OWC,有些则可能在Intranet中使用时没什么问题,但在通过Internet访问的时候,就可能出现无法正常工作的现象(这主要和SQL Server的安全设置有关)。那么,我们如何来避免这些问题呢?有一个很好的方法,就是将在ASP中生成的图表转换成图片文件保存在服务器上,这样用户最终看到的是GIF图片格式的图表,我想现在的任何一种浏览器在观看GIF图片的时候都没什么问题吧。:)也许唯一可能的问题就是如何对这些生成的临时图片文件的处理问题,关于这个问题在最后我们会讨论。
...

24
2012
05

☆把数据库里BASE64编码的图片显示出来☆

<!--#include file="Condata.asp"-->

<%

sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
...

24
2012
05

asp存储过程使用大全【转帖】

存储过程使用大全

 

1,调用没有参数的存储过程

 

<%

 

set conn=server.CreateObject("adodb.connection")

...
24
2012
05

字符串转十六进制【转帖】

字符串转十六进制
StrToHex Function
<%
Response.Write StrToHex("Nice code")
'--- returns: 4E69636520636F6465

Function StrToHex(ByRef Str)
Dim Length
Dim Max
Dim strHex
Max = Len(Str)
...