基于STM32的TCP/IP网络采集数据方案

现在Cortex-M3越来越火了，为了尝试一下，我也动手设计个小东西来玩玩，一直对TCP/IP很感兴趣，之前是玩51+8019做的TCP板，由于怕RAM不够，所以51是外加了外部RAM的，现在STM32可以选择大RAM的型号，不用外加了。这只是一个入门STM32的板子，板上只有一个TCP/IP网络功能，还有就是把IO给扩展了，方便加上其它功能。板具有ISP和JTAG，方便调试。主芯片是STM32F103R，具体型号可以自己定，网络芯片这次没采用RTL8019，用的是ENC28J60，接口更简洁，是SPI接口，比RTL8019布线更容易，但ENC28J60的外围电路比RTL8019稍微复杂一点，但之前没玩过ENC28J60，所以这次决定采用它。

这个是原理图，由于是第一次使用STM32，希望大家提出不足之处。

点击此处查看原文 >>

系统分类: 单片机   |    用户分类:    |    来源: 原创

泰克数字60M存储示波器 TDS1002

TDS1000系列数字存储示波器扩展了TDS200系列的性能与操作简易性，是经济型示波器的新一代典范产品。这一系列的7个型号，为用户带来前所未有的高性能，无与伦比的操作简易性，以及经济的价格，并且极其轻便。她的性能，灵活性及经济的价格都使得他们成为应用广泛的工具－数字电路设计调试，生产测试，质量控制，维修维护，教育与培训等等。

值得关注的TDS1000 (单色)与TDS200系列比较，带给市场的新性能主要有：

点击此处查看原文 >>

系统分类: 虚拟仪器   |    用户分类:    |    来源: 转贴

新建了个小组,欢迎大家来交流

http://group.ednchina.com/716/

每年的毕业又要到，快毕业的你做了什么设计，快来跟大家交流吧！

点击此处查看原文 >>

系统分类: 资源共享   |    用户分类:    |    来源: 原创

电子自锁互锁开关

自锁互锁开关在电器上使用很广泛，一般都是机械式，缺点是：体积大，易磨损，按触力大，转换速度低。电子开关可以克服上述缺点。

　　一．开关特点。开关的核心器件为四运放LM324，经巧妙设计，使每个运放有两重功能，电压比较器和施密特触发器。电压适用范围宽，档位可任意设计，如果加一档空档，可作为总复位，与数字电路配合时，可用同一电源，开关的输入输出电平符合数字电路的接口电平，由于运放的输入阻抗高，开关的输入电流小，可以用轻触开关．导电橡胶．薄膜开关作按键，或光、电、磁等转换信号驱动，可用三极管．可控硅．继电器等。

　　二．电路原理。每档电路相同，图中只画出三档。电阻根据电压选用，以保证开关可靠工作，尽量选用大阻值。
　　接通电源，R1、R2分压，为各运放反相端提供高电位，使各运放输出低电位。接通任一键，对应运放的同相端获得高电位，高于反相端1.4V（二极管压降），输出变为高断开关按键。因有R3、R4分压的反馈，同相端电位仍高于反相端，输出端维持高电位。当另一个键接通时，电路重复上述过程，同时，通过两只二极管D1．D2使所有运放的反相端电位高于R3．R4分压形成的同相端电位，所以输出端由高变低。总之，每一次按键，只有该运放输出高位，其余的都是低，这就是开关的自锁互锁功能。

点击此处查看原文 >>

系统分类: 模拟技术   |    用户分类:    |    来源: 转贴

运算放大器的单电源供电方法 （收藏）

运算放大器的单电源供电方法 （收藏）

大部分运算放大器要求双电源(正负电源)供电，只有少部分运算放大器可以在单电源供电状态下工作，如LM358(双运放)、LM324(四运放)、CA3140(单运放)等。需要说明的是，单电源供电的运算放大器不仅可以在单电源条件下工作，也可在双电源供电状态下工作。例如，LM324可以在、+5～+12V单电源供电状态下工作，也可以在+5～±12V双电源供电状态下工作。　　

在一些交流信号放大电路中，也可以采用电源偏置电路，将静态直流输出电压降为电源电压的一半，采用单电源工作，但输入和输出信号都需要加交流耦合电容，利用单电源供电的反相放大器如图1(a)所示，其运放输出波形如图1(b)所示。
 

该电路的增益Avf＝－RF／R1。R2＝R3时，静态直流电压Vo(DC)＝1／2Vcc。耦合电容Cl和C2的值由所需的低频响应和电路的输入阻抗(对于C1)或负载(对于C2)来确定。Cl及C2可由下式来确定：C1＝1000／2πfoRl(μF)；C2＝1000／2πfoRL(μF)，式中，fo是所要求最低输入频率。若R1、RL单位用kΩ，fO用Hz，则求得的C1、C2单位为μF。一般来说，R2＝R3≈2RF。
 

图2是一种单电源加法运算放大器。该电路输出电压Vo＝一RF(V1／Rl十V2／R2十V3／R3)，若R1＝R2＝R3＝RF，则Vo＝一(V1十V2十V3)。需要说明的是,采用单电源供电是要付出一定代价的。它是个甲类放大器，在无信号输入时，损耗较大。
 

思考题　(1)图3是一种增益为10、输入阻抗为10kΩ、低频响应近似为30Hz、驱动负载为1kΩ的单电源反相放大器电路。该电路的不失真输入电压的峰—峰值是多少呢?(提示：一般运算放大器的典型输入、输出特性如图4所示)；(2)图5是单电源差分放大器。若输入电压为50Hz交流电压，V1＝1V，V2＝O．4V，它的输出电压该是多少呢？
 

点击此处查看原文 >>

系统分类: 模拟技术   |    用户分类:    |    来源: 转贴

关于电感的Q值（收藏）

什么是电感的Q值？关于电感的Q值，品质因数
 
Q值；是衡量电感器件的主要参数。是指电感器在某一频率的交流电压下工作时，所呈现的感抗与其等效损耗电阻之比。电感器的Q值越高，其损耗越小，效率越高。
电感器品质因数的高低与线圈导线的直流电阻、线圈骨架的介质损耗及铁心、屏蔽罩等引起的损耗等有关。

也有人把电感的Q值特意降低的，目的是避免高频谐振/增益过大。降低Q值的办法可以是增加绕组的电阻或使用功耗比较大的磁芯.

Q值过大，引起电感烧毁，电容击穿，电路振荡。

Q很大时，将有VL=VC>>V的现象出现。这种现象在电力系统中，往往导致电感器的绝缘和电容器中的电介质被击穿，造成损失。所以在电力系统中应该避免出现谐振现象。而在一些无线电设备中，却常利用谐振的特性,提高微弱信号的幅值。

品质因数又可写成Q=2pi*电路中存储的能量/电路一个周期内消耗的能量
通频带BW与谐振频率w0和品质因数Q的关系为：BW=wo/Q,表明，Q大则通频带窄，Q小则通频带宽。
Q=wL/R=1/wRC
其中:
Q是品质因素
w是电路谐振时的电源频率
L是电感
R是串的电阻
C是电容

点击此处查看原文 >>

系统分类: 模拟技术   |    用户分类:    |    来源: 转贴

我与VB之Winsock篇（三）

作者：枫雪                     文章来源：原创                更新时间：2008-3-25

今晚加的功能是多个TCP板与电脑通信，由于手上只有一块TCP板，所以我用VB做了两个客户端代替TCP板，现在任务主要是电脑上的VB服务端程序，所以用VB写的客户端代替TCP板也没关系，上图，图1是没连接的服务器界面，图2、图3是客户端的初始界面，代表TCP板1和TCP板2

                                    图1

                            图2

                              图3

接着是服务端接收到两个客户端的连接和把01发到客户端1把02发到客户端2

下图是客户端接收到数据界面，如果客户端没连接上服务器，是显示连接，如果连上就显示发送，代表可以发数据到服务器

服务端代码，基本没变，就是加了个发送功能

Dim color(2) As Long
Dim cur As Integer
Public tmin As Integer
Public tmax As Integer
Public repet As Integer
Dim remain As Integer
Dim SoundFile As String
Dim Result As Long

Private Sub Command1_Click()
sock(1).SendData Text1.Text
End Sub

Private Sub Command2_Click()
sock(2).SendData Text2.Text
End Sub

Private Sub Form_Load()
Num = 50
locPort = 31660
tmin = 12
tmax = 26
repet = 5
Call init
End Sub

Sub init()
remain = 0
color(0) = &HFF00&     '&H0000FF00&
color(1) = &HFF&       '&H000000FF&
color(2) = &HFFFF&     '&H0000FFFF&
sock(0).LocalPort = locPort
sock(0).Listen
For i = 1 To Num
Load sock(i)
sock(i).LocalPort = locPort + i
sock(i).Listen
Next
Label2.Caption = "本地IP:  " & sock(0).LocalIP
Label3.Caption = "信息:   已连接" & cur & "/" & Num
End Sub

Private Sub sock_Close(Index As Integer)
sock(Index).Close
sock(Index).Listen
'Shape1.FillColor = color(2)
cur = cur - 1
'Labtem1 = ""
End Sub

Private Sub sock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
sock(Index).Close
sock(Index).Accept requestID
cur = cur + 1
Label3.Caption = "信息:   已连接" & cur & "/" & Num
End Sub

Private Sub sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim s As String
sock(Index).GetData s   ' DataFormat XX0YYY
Call reflec(s)
End Sub
Sub reflec(data As String)
Labtem1.Caption = data
End Sub

客户端代码，两个客户端基本一样，只是端口不一样

Private Sub Command1_Click()
If Command1.Caption = "连接" Then
Winsock1.Close
Winsock1.Connect
Else
Winsock1.SendData Text1.Text
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "连接"
rom = "127.0.0.1"
Port = 31661
Winsock1.RemoteHost = rom
Winsock1.RemotePort = Port
End Sub

Private Sub Winsock1_Close()
Command1.Caption = "连接"
End Sub

Private Sub Winsock1_Connect()
Command1.Caption = "发送"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s   ' DataFormat XX0YYY
Text2.Text = s
End Sub

点击此处查看原文 >>

系统分类: 单片机   |    用户分类:    |    来源: 转贴

我与VB之Winsock篇（二）

作者：枫雪                             文章来源：原创                        更新时间：2008-3-24

接着昨晚的脚步，今晚要搞的是电脑发数据给TCP板，而TCP返回指定的数据，毕竟是通信嘛，单向就没多大用处，收不到时想让发送方再发一次都不行，可靠性不高！现在是熟悉控件，等熟悉了控件，再写一个完善版！现在的软件不都是分1.0版，1.1版什么的，也要学学人家嘛！偷偷地说，主要是本人笨，不能一下子写个比较好的程序，只能一步步，用最笨的方法了！好了，上图，也是最简单的，希望大家喜欢

第一个，是没连接上TCP板的图

第二个，是连接上TCP板的图，显示“HELLO TCP”字符来做提示

第三个，是往TCP板发数据，TCP板返回预设“160”

最后是代码

Dim Num As Integer
Dim locPort As Integer
Dim color(2) As Long
Dim cur As Integer
Public tmin As Integer
Public tmax As Integer
Public repet As Integer
Dim remain As Integer
Dim SoundFile As String
Dim Result As Long

Private Sub Command1_Click()
sock(0).SendData Text1.Text
End Sub

Private Sub Form_Load()
Num = 50
locPort = 2000
tmin = 12
tmax = 26
repet = 5
Call init
End Sub

Sub init()
remain = 0
color(0) = &HFF00&     '&H0000FF00&
color(1) = &HFF&       '&H000000FF&
color(2) = &HFFFF&     '&H0000FFFF&
sock(0).LocalPort = locPort
sock(0).Listen
For i = 1 To Num
Load sock(i)
sock(i).LocalPort = locPort + i
sock(i).Listen
Next
Label2.Caption = "本地IP:  " & sock(0).LocalIP
Label3.Caption = "信息:   已连接" & cur & "/" & Num
End Sub

Private Sub sock_Close(Index As Integer)
sock(Index).Close
sock(Index).Listen
'Shape1.FillColor = color(2)
cur = cur - 1
'Labtem1 = ""
End Sub

Private Sub sock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
sock(Index).Close
sock(Index).Accept requestID
cur = cur + 1
Label3.Caption = "信息:   已连接" & cur & "/" & Num
End Sub

Private Sub sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim s As String
sock(Index).GetData s   ' DataFormat XX0YYY
Call reflec(s)
End Sub
Sub reflec(data As String)
  Labtem1.Caption = data
End Sub

点击此处查看原文 >>

系统分类: 单片机   |    用户分类:    |    来源: 转贴

我与VB之Winsock篇（一）

我与VB之Winsock篇（一）

作者：枫雪                             文章来源：原创                        更新时间：2008-3-23

越来越觉得自己不是搞技术的料了，搞点小东西都觉得力不从心啊！说到这，真的很佩服电脑圈圈和匠人，05年跟圈圈吃过饭，那时正要毕业，是去他那边寻求帮助的。虽然没见过匠人，但看他的博客，不得不佩服啊！尽力搞的，反正也不是工作，只是业余的，能学好就开心了，压力没那么大！

今晚从8点搞到现在，从写了一个最简单的软件，简单到自己都不好意思，不管怎样，起码成功了第一步

这是VB写的界面，够简单吧

这个是51TCP板发数据给VB接收后的图，TCP板发送字符16000

下面是VB代码，先发上来，以后还要接着改，习惯不好，都没写些注释，呵呵，大家见谅！

Dim Num As Integer
Dim locPort As Integer
Dim color(2) As Long
Dim cur As Integer
Public tmin As Integer
Public tmax As Integer
Public repet As Integer
Dim remain As Integer
Dim SoundFile As String
Dim Result As Long
Private Sub Form_Load()
Num = 50
locPort = 2000
tmin = 12
tmax = 26
repet = 5
Call init
End Sub

Sub init()
remain = 0
color(0) = &HFF00&     '&H0000FF00&
color(1) = &HFF&       '&H000000FF&
color(2) = &HFFFF&     '&H0000FFFF&
sock(0).LocalPort = locPort
sock(0).Listen
For i = 1 To Num
Load sock(i)
sock(i).LocalPort = locPort + i
sock(i).Listen
Next
Label2.Caption = "本地IP:  " & sock(0).LocalIP
Label3.Caption = "信息:   已连接" & cur & "/" & Num
End Sub

Private Sub sock_Close(Index As Integer)
sock(Index).Close
sock(Index).Listen
Shape1.FillColor = color(2)
cur = cur - 1
Labtem1 = ""
End Sub

Private Sub sock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
sock(Index).Close
sock(Index).Accept requestID
cur = cur + 1
Label3.Caption = "信息:   已连接" & cur & "/" & Num
End Sub

Private Sub sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim s As String
sock(Index).GetData s   ' DataFormat XX0YYY
Call reflec(s)
End Sub
Sub reflec(data As String)
  Labtem1.Caption = data
End Sub

点击此处查看原文 >>

系统分类: 单片机   |    用户分类:    |    来源: 转贴

电容降压电路

在常用的低压电源中，用电容器降压（实际是电容限流）与用变压器相比，电容降压的电源体积小、经济、可靠、效率高。如冰箱电子温控器或遥控电源的开╱关等电源都是用电容器降压而制作的。
相对于电阻降压，对于频率较低的50Hz交流电而言，在电容器上产生的热能损耗很小，所以电容器降压更优于电阻降压。
通过电容器电流的大小，受该电容器容抗Xc＝1╱（2πfC），Xc的单位是欧姆；交流电频率f的单位是赫兹；电容器C的单位是法拉。
当将不同容量的电容器C（如图1所示），接入AC220V 50Hz的交流电路时，其C的容抗及其所能通过的电流如附表所列。该电流即电容器C所能提供的最大电流值。