电感电容电解电容测量仪

最新推荐文章于 2024-06-28 17:01:44 发布
最新推荐文章于 2024-06-28 17:01:44 发布
阅读量1.4k 收藏 3
点赞数 1
文章标签： timer string c 
'****************************************************
'*               电感电容电解电容测量仪             *
'*  电容:1P-2.5uF                                   *
'*  电感:1uH-2.0H                                   *
'*  电解电容:0.1uF-20000uF                          *
'*                 吕军省   天津大港                *
'*                 junsheng427@126.com              *
'*                            20081217              *
'****************************************************
$regfile = "m8def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2

Config Timer1 = Counter , Edge = Falling       '配置T/C1为计数
Config Timer2 = Timer , Prescale = 64       '配置T/C2定时

Config Int0 = Falling
Config Timer0 = Timer , Prescale = 8
On Ovf0 Tim0_isr
On Int0 T1_isr

On Ovf2 Tim2_isr
Enable Ovf2
On Ovf1 Tim1_isr
Enable Ovf1
Enable Interrupts
Tcnt2 = &H83
Start Timer2
Counter1 = 0
Start Counter1

Dim F1 As Long
Dim F2 As Long

Dim C1 As Single
Dim Ca1 As Single
Dim Ca2 As Single
Dim Cx As Single
Dim L1 As Single
Dim Lx As Single
Dim F11 As Single

Dim V1 As String * 11
Dim V2 As String * 11

Dim Vf As String * 6
Dim Vs As String * 8
Dim Z1 As String * 2

Dim J As Bit
Dim I As Byte
Dim K As Bit
Dim M As Bit
Dim Vl As Byte
Dim Tc As Byte
Dim Tc1 As Long
Dim Te As Long

Ddrd.7 = 0       '键初始
Portd.7 = 1
Ddrd.4 = 1       '继电器初始化
Ddrd.3 = 1
Portd.4 = 1
Portd.3 = 1

Ddrd.6 = 1
Portd.6 = 1
J = 1
K = 1
M = 1
I = 1
Tc1 = 0
Cls
Cursor Off

'/主程序/
Do

   '/按键处理/

   If Pind.7 = 0 Then       'S1
      Waitms 40
         If Pind.7 = 0 Then
            Incr I
            Bitwait Pind.7 , Set
         End If
   End If

   '/电感L1，电容C1计算/

   If I = 1 Then
      If J = 1 Then

         Lcd "  L_C_CE meter"
         Lowerline
         Lcd "    20081217"

         Waitms 1500       '等待F1计数
         Portd.3 = 0       '接入标准电容C2
         Waitms 1500       '等待f2计数

         Ca1 = F1 * F1
         Ca2 = F2 * F2
         C1 = Ca1 - Ca2
         C1 = Ca2 / C1
         C1 = C1 * 1800       '1800是标准电容C2 ；单位pF

         L1 = 3.1416 * 3.1416
         L1 = L1 * 4
         L1 = L1 * Ca1
         L1 = L1 * C1
         L1 = 1 / L1
         L1 = L1 * 1000000000000000000       '单位uH

         Portd.3 = 1       '断开标准电容C2
      End If

      J = 0

      Vf = Str(f1)       '显示f1
      Vf = Format(vf , "      ")
      Locate 1 , 7
      Lcd "F=" ; Vf ; "Hz"
      Locate 1 , 1
      Lcd "SetOK "

      V1 = Fusing(c1 , "#.#")
      V2 = Fusing(l1 , "#.#")
      Locate 2 , 1
      Lcd V1 ; "pF " ; V2 ; "uH"

   End If

   '/电容Cx计算/

   If I = 2 Then

      Vf = Str(f1)
      Vf = Format(vf , "      ")
      Locate 1 , 7
      Lcd "F=" ; Vf ; "Hz"

      F11 = F1 * F1
      Cx = Ca1 / F11
      Cx = Cx - 1
      Cx = Cx * C1

      V1 = Fusing(cx , "#.#")

      Vl = Len(v1)
      Z1 = "pF"

      If Vl = 6 Then
         V1 = Mid(v1 , 1 , 4)
         Z1 = "pF"
      End If

      If Vl = 7 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "00.00")
         Z1 = "nF"
      End If

      If Vl = 8 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "000.0")
         Z1 = "nF"
      End If

      If Vl = 9 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "0.000")
         Z1 = "uF"
      End If

      Vs = Space(8)
      Locate 2 , 1
      Lcd "   Cx=" ; V1 ; Z1 ; Vs

      Locate 1 , 1
      Lcd "TestC "

   End If

   '/电感Lx计算/

   If I = 3 Then

      Vf = Str(f1)
      Vf = Format(vf , "      ")
      If F1 < 50 Then
         Vf = "     0"
      End If
      Locate 1 , 7
      Lcd "F=" ; Vf ; "Hz"

      Portd.4 = 0       '输入端切换到测电感

      If F1 > 1000 Then
         F11 = F1 * F1
         Lx = Ca1 / F11
         Lx = Lx - 1
         Lx = Lx * L1
      Else
         Lx = 0
      End If
      V1 = Fusing(lx , "#.##")
      Vl = Len(v1)
      Z1 = "uH"

      If Vl = 6 Then
         V1 = Mid(v1 , 1 , 5)
         Z1 = "uH"
      End If

      If Vl = 7 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "0.000")
         Z1 = "mH"
      End If

      If Vl = 8 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "00.00")
         Z1 = "mH"
      End If

      If Vl = 9 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "000.0")
         Z1 = "mH"
      End If

      If Vl = 10 Then
         V1 = Mid(v1 , 1 , 4)
         V1 = Format(v1 , "0.000")
         Z1 = "H "
      End If

      Vs = Space(8)
      Locate 2 , 1
      Lcd "   Lx=" ; V1 ; Z1 ; Vs

      Locate 1 , 1
      Lcd "TestL "

   End If

   '/电解电容器测量(<500uF) /

   If I = 4 Then
      Portd.4 = 1
      If K = 1 Then

         Disable Ovf1
         Disable Ovf2

         Enable Int0
         Enable Ovf0

         Locate 1 , 1
         Lcd "TestCE  [<500uF]"
         Locate 2 , 1
         Lcd "   CEx=       "

      End If
      K = 0

   Portd.6 = 0       '开始充电
   Start Timer0       '开始计时
   End If

   '/电解电容测量(2) /

   If I = 5 Then

      If M = 1 Then
         Portd.3 = 0
         Locate 1 , 1
         Lcd "TestCE  [>500uF]"
         Locate 2 , 1
         Lcd "   CEx=       "
      End If
      M = 0
      Portd.6 = 0       '开始充电
      Start Timer0       '开始计时
   End If


'/返回到电容测量//

   If I = 6 Then

      I = 2       '返回到电容测量

      Enable Ovf1
      Enable Ovf2

      Disable Int0
      Disable Ovf0

      Portd.3 = 1
      K = 1
      M = 1
   End If

Loop
End

'/计数中断/

Tim1_isr:

   Incr Tc1       '这么作可使计数分辩率最高到1Hz

Return

'/定时中断/

Tim2_isr:

   Tcnt2 = &H83       '定时器T2初值
   Incr Tc
   If Tc = 250 Then       '定时250mS
      Stop Counter1
      Tc1 = Tc1 * 65535
      If Portd.3 = 1 Then
         F1 = Counter1
         F1 = F1 + Tc1
         F1 = F1 * 4
      End If
      If Portd.3 = 0 Then
         F2 = Counter1
         F2 = F2 + Tc1
         F2 = F2 * 4
      End If
      Counter1 = 0
      Start Counter1
      Tc = 0
      Tc1 = 0
   End If

Return

'/定时中断，测电解电容/

Tim0_isr:

   Incr Te       '定时器0中断次数

Return

'/外部中断，测电解电容/

T1_isr:

   Stop Timer0

   Te = Te * 256
   Te = Te + Tcnt0
   Te = Te / 2       '时间/充电电阻=被测电容

   V1 = Str(te)
   Vl = Len(v1)

   If Portd.3 = 1 Then       '充电电阻R9接入，<500uF

       If Vl = 2 Then
          V1 = "NO"
       End If

       If Vl = 3 Then
          V1 = Mid(v1 , 1 , 3)
          V1 = Format(v1 , "0.000")
       End If

       If Vl = 4 Then
          V1 = Mid(v1 , 1 , 3)
          V1 = Format(v1 , "0.00")
       End If

       If Vl = 5 Then
          V1 = Mid(v1 , 1 , 3)
          V1 = Format(v1 , "0.0")
       End If

       If Vl = 6 Then
          V1 = Mid(v1 , 1 , 3)
       End If

       If Vl = 7 Then
          V1 = "  OL  "
       End If

   End If

   If Portd.3 = 0 Then

      If Vl = 2 Then
         V1 = Mid(v1 , 1 , 2)
         V1 = Format(v1 , "0.00")
      End If

      If Vl = 3 Then
         V1 = Mid(v1 , 1 , 3)
         V1 = Format(v1 , "0.00")
      End If

      If Vl = 4 Then
         V1 = Mid(v1 , 1 , 2)
      End If

      If Vl = 5 Then
         V1 = Mid(v1 , 1 , 3)
      End If

      If Vl = 6 Then
         V1 = Mid(v1 , 1 , 4)
      End If

      If Vl = 7 Then
         V1 = Mid(v1 , 1 , 5)
      End If
   End If

   Vs = Space(7)

   If Te > 1 And Te < 10 Then

      Locate 2 , 1
      Lcd "   CEx=" ; "0" ; "uF" ; Vs

   End If

   If Te > 10 Then

      Locate 2 , 1
      Lcd "   CEx=" ; V1 ; "uF" ; Vs

   End If

   Portd.6 = 1       '开始放电

   If Portd.3 = 1 And Te > 10 Then
      Waitms 100
   End If
   If Portd.3 = 0 And Te > 10 Then
      Waitms 500
   End If

   Tcnt0 = 0       '定时计数器清零
   Te = 0       '定时中断次数清零

Return

goolloo
关注
电阻、电容和电感测试仪设计
runweipa的博客
06-05 1268
近几年来，电子行业的发展速度相当快，电子行业的公司企业数目也不断增多。这个现象带来的直接结果是电子行业方面的人才需求不断增多。所以，现在大多数高校都开设与电子类相关的专业及课程，为社会培养大量的电子行业的人才。做过电路设计的工作人员或者学生大多数使用万用表来测量一些元件参数或者电路中的电压电流。然而万用表有一定的局限性，它只能测量有限种类的元器件的参数，对于电容和电感等一些电抗元件就无能为力了。所以制作一种简便的电容电感测量仪显得尤为重要，方便电路设计人员或者高校电子类专业的学生测量电路中需要用到的电容及电
电容电感测试仪
03-24
关于电容电感的软件仿真程序，是用PROTUES自己做的，只是51单片机的软件程序还没输进去
用M8制作电感、电容、电解电容测量仪表
yunxianpiaoyu的专栏
06-27 1711
用M8制作电感、电容、电解电容测量仪表  这个电路不同国家和地区很多人制作过，测量精度高，测量范围大，有用不同语言写的程序，我作了一个BASCOM-AVR版本的，并增加了对电解电容器测量。 电感测量范围：0.1μH~2H 电容测量范围：1pF~2.5μF 电解电容测量范围：0.1μF~30000μF 一、电容、电感测量原理： 电路是一个由LM393（U3A）组成的LC振荡器。由单片机测
基于单片机的高精度电容电感测量仪
11-30
本文介绍了一种基于单片机的高精度电容和电感测量仪器的设计。本设计采用DI)s芯片AD9850产生高精度的正弦波信号流经待测的电容或者电感和标准电阻的串连电路，通过测量电容或者电感和标准电阻各自的电压，利用电压比例计算的方法推算出电容值或者电感值。本设计利用51单片机控制测量和计算结果，运用自校准电路提高测量精度，采用1602液晶模块实时显示数值。实验测试结果表明，本设计性能稳定，测量精度高。
测量电容电路的模拟电子课程设计
06-22
详细的电路电容电路设计报告，使用桥氏电路接法，模电电知识与数电知识的结合
电容数字测量仪的课程设计
01-08
由于单稳态触发器的输出脉宽tW与电容C成正比，把电容C转换成宽度为tW的矩形脉冲，然后将其作为闸门信号控制计数器计标准频率脉冲的个数，并送锁存--译码--显示系统就可以得到电容量的数据。
基于STM32单片机电阻电容电感检测仪设计
热门推荐
weixin_52733843的博客
08-25 2万+
基于ARM的智能RLC测量仪采用STM32F103C8T6单片机作为整个设计的控制核心。系统通过由NE555定时器组成的RC振荡器和电容三点振荡器，将对应测量参数的振荡频率发送到STM32的计数端，通过STM32的定时和计数，可以推算出相应的测量频率的大小，再经过STM32单片机内部逻辑程序分析计算后，将电路测量的数据结果以数字形式传输给LCD1602显示模块,进行RLC测量的动态显示。
基于单片机电阻电感电容RLC测量仪系统
2201_75940997的博客
06-06 939
*单片机设计介绍，基于单片机电阻电感电容RLC测量仪系统。
51单片机简易电阻电感电容RLC测量仪仿真设计
weixin_52733843的博客
02-19 7291
运用所学知识，制作一个51单片机电阻电感电容测量仪 1、测量范围：电阻 100Ω-100KΩ； 电容 1000pF-1uF； 电感 1mH-1000mH。 2、测量精度：5%。 3、制作1602液晶显示器，显示测量数值，通过开关选择测量类型。
简易电阻、电容和电感测量仪-FPGA
最新发布
zzhao2580的博客
06-28 673
设计并制作--台数字显示的电阻、电容和电感参数测试仪,框图如图1所示。 1.基本要求 (1)测量范围:电阻值为100~1MQ;电容值为100~ 10000pF;电感值为100μH~ 10mH。. (2)测量精度:土5%。 (3)制作4位数码管显示器，显示测量数值，并用发光二极管分别指示所测元件的类型和单位。
资料全部开源！电感电容电解电容测量仪（测量原理、计算公式、硬件、程序源码等）-电路方案
04-21
电感电容电解电容测量仪实物展示: 电路分析: 电路由比较器U3B,放电晶体管Q等组成。设定比较器正输入端为Uc，（Uc=0.632E=0.632⋅5=3.16V，调节RP1获得），反向输入端接被测电容CEx，当D端为高电平时,Q导通电路处于...
用M8制作电感电容电解电容测量仪表文档.doc
11-20
总结来说，这个M8电感电容电解电容测量仪表利用了LC振荡和RC时间常数原理，结合微控制器M8进行精确的测量。通过精心设计的电路和软件算法，实现了从0.1μH到2H的电感测量，1pF到2.5μF的普通电容测量，以及0.1μF到...
DIY制作51单片机电感电容测量仪，12864显示-电路方案
04-21
电感电容测量仪电路图概述: 说明一下单片机用AT89S52和STC89C52均可，都已经测试过，图中R3，R8，R5觉得测试电容精度，尽量接近图中阻值（非标准阻值需串联或并连电位器慢慢调），R8，R5的阻值是实际调试出来的，...
pinlvji.zip_测量电感程序_电容测试仪_电容测量仪_电感 电容 电阻测量_电感测试
09-23
标签进一步强调了程序的功能，包括“电感测试”、“电容测试仪”、“电容测量仪”以及“电感_电容_电阻测量”。这些标签表明该程序可能包含多个模块，分别针对不同的测量任务。 压缩包内的“频率计”文件可能是一个...
基于51单片机的RLC电阻电容电感测量仪Proteus仿真设计资料 包含及源程序仿真文件
08-30
RLC测量仪是一种能够检测电路中电阻、电容和电感值的设备。在电路设计和调试中，准确测量这些参数至关重要，因为它们会影响电路的频率响应、滤波性能和能量存储等特性。本项目通过51单片机实现测量仪，可以自动化...
一种电阻电感电容自动识别及阻抗值测量电路
weixin_51972728的博客
06-07 9949
本电路能够实现自动识别电阻电感电容，并对它们的阻抗值进行测量。当分别接入电阻电感电容时，对应的小灯泡会发光，指示使用者查看相应的万用表。电阻测量范围为0.1 - 1k欧姆，电容测量范围为0.1u - 100u，电感测量范围为100u~100m，...
使用Arduino的LC测量仪：测量电感和频率
佐佐沐
09-30 6432
所有嵌入式爱好者都熟悉万用表，它是测量电压、电流、电阻等的绝佳工具。万用表可以轻松测量它们。但有时我们需要测量电感和电容，这些是普通万用表无法测量的。有一些特殊的万用表可以测量电感和电容，但它们很昂贵。我们已经使用Arduino开发板制作了频率计、电容表和电阻表。所以今天我们将使用Arduino开发板制作一个电感式LC测量仪。在本篇文章中，我们将在显示屏LCD1602上显示电感、电容值和频率。电路...
电容之超级电容简易测试方法
07-24 1万+
如何利用简易设备测试超级电容的参数
高精度电感电容电解电容测量仪设计与原理
电感、电容、电解电容测量仪是一款基于高精度设计的测试设备，它能够有效地检测各种电子元器件的参数。在电感测量方面，其范围涵盖了0.1μH至2H，而电容的测量范围则为1pF到2.5μF。对于电解电容，该仪器的测量范围...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值