用M8制作电感、电容、电解电容测量仪表第6页 (amobbs.com 阿莫电子技术论坛) -

jun427 发表于 2011-5-24 15:20:43

你好，编译好的两个文件
点击此处下载 ourdev_642480OQZ84H.rar(文件大小:6K) (原文件名:LC1500p.rar)
点击此处下载 ourdev_642481SGZZ5U.rar(文件大小:6K) (原文件名:LC1550p.rar)

oem88 发表于 2011-5-24 16:12:29

太感谢了，很激动，祝福Jun427，真不知说什么好，好人一生平安吧！没想到穷途末路的时候，还是楼主热情的帮助了我，感谢楼主，感谢OURAVR，感谢AVR所有热心的网友和AVR后台工作者...

zikongxiaozi 发表于 2011-5-25 16:59:28

mark

fa06501023 发表于 2011-5-27 16:29:47

mark

haolaishi 发表于 2011-5-27 17:39:16

顶起，牛

03024003 发表于 2011-5-27 17:59:45

电感、电容、电解电容测量仪表

circle529 发表于 2011-5-31 11:39:28

你好，可以给我发个LC测量仪的电路图吗？我是大三学生，想要学习下，谢谢~~~circle529@yeah.net

ltd62340177 发表于 2011-5-31 20:04:33

Mark,多谢

zbb8637 发表于 2011-6-1 13:30:10

谢谢分享！

lhjin 发表于 2011-6-4 18:18:27

强

cuit4017 发表于 2011-6-4 20:44:56

现在才发现这个帖子。。。。

fsxhq 发表于 2011-6-5 01:53:25

谢谢分享！

请问如何修改才能量到10H的电感，谢谢，我的QQ 1821702114

fsxhq 发表于 2011-6-5 01:54:05

谢谢分享！

请问如何修改才能量到10H的电感，谢谢，我的QQ 1821702114

xuwenjie 发表于 2011-6-14 14:46:12

不错

rjinglan 发表于 2011-6-14 16:30:10

mark

zhouhaiyeild 发表于 2011-6-14 17:45:03

mark

gzlpd 发表于 2011-6-16 21:14:08

记号，谢谢分享。

jyzhiyu 发表于 2011-6-19 15:34:08

mark！！！

luzj05 发表于 2011-6-19 21:15:11

mark

X_BIKE 发表于 2011-6-24 11:05:18

太好了，我也准备做一个！楼主的东西这么漂亮，这两年怎么都没有见楼主发新帖子呢！？

LoHasMan 发表于 2011-6-27 15:56:43

mark

liu252799093 发表于 2011-7-1 14:01:45

回复【78楼】zhxlx 星星之火
-----------------------------------------------------------------------

请教：你做好后，测量的频率会不会突变的情况，比如说测量电容，测量出频率300KHZ，但是会来回的跳变1-2KHZ301KHZ或者299KHZ.被测电容不变的情况下，测量出来的频率不稳定。。
如果不跳，是否有特殊线路？

polar 发表于 2011-7-1 14:26:19

马克一下

BBQ1215 发表于 2011-7-1 20:50:52

MARK

Inside 发表于 2011-7-14 13:20:54

mark!

hzqy110 发表于 2011-7-14 14:50:55

mark

lewisz 发表于 2011-7-15 01:52:32

mark

lcmdw 发表于 2011-7-16 17:20:40

mark

wjf0509 发表于 2011-7-16 19:27:56

收藏，有空自己做个

xibuol 发表于 2011-7-16 20:44:01

标记一下

有空也搞一个

a282712573 发表于 2011-7-16 21:03:03

回复【楼主位】jun427
-----------------------------------------------------------------------

这是C语言吗？我怎么看不懂啊？是什么编译器啊？

1988_coolboy 发表于 2011-7-16 21:19:44

想问楼主几个关于LC振荡器的知识：

1，关于运放2脚那个10uf的电容，看见好多电路都加，不知有什么作用？？如果不加影响还挺大！！

2，那个R12（100K）和R15（47K）的作用是什么？？我测2,3脚电压都是2.5V，不知道1脚怎么就输出方波了呢？？

这个振荡器的原理哪位老师讲一下啊！！

用此振荡器产生方波，比较常用么？？照比其他产生方波的方式有什么优点和缺点啊？？

dhy13 发表于 2011-7-19 10:49:13

期待仿制！

zxfzxmcxczxq 发表于 2011-7-27 17:54:45

mark

chenfzg 发表于 2011-7-28 16:17:32

谢谢！

gwfree 发表于 2011-7-28 16:21:54

mark

changhui0222 发表于 2011-7-28 16:30:46

电感电容电解电容测量仪表，MARK!

wanglivehuo 发表于 2011-7-28 17:13:11

GOOD

wanzhouyang29 发表于 2011-7-28 20:27:49

good

lxb007 发表于 2011-7-31 18:57:33

MARK

youmeng 发表于 2011-8-2 12:41:27

mark

fzyahoo123 发表于 2011-8-2 23:55:05

参考了几个LC表，这个制作成功性较高。有信心仿制一个玩玩。

metjcool 发表于 2011-8-3 11:34:41

真是酷啊

xuni_insomnia 发表于 2011-8-4 22:56:43

楼主强悍

chao8828276 发表于 2011-8-5 21:35:47

这个贴我看了N次了,也用楼主的程序测试过外部的频率,确实精度太高了,我自己怎么写也不能达到这个精度,很想知道楼主的程序思路是怎么样的,我自己写的思路是用定时器1来记数,用定时器2来计时,这样来做
急求楼主程序思路啊????????????????????????

soldiers 发表于 2011-8-5 21:40:40

想请教楼主，电解电容的精度你能做到多少？这个电压的影响估计会有点大，而且我将电阻和电容的位置互换那就可以得到电阻测试模块了，但是电路做出来感觉这个0.632电压比较难调。

mszxgray 发表于 2011-8-6 10:13:08

不错的东西学习了

a1381111 发表于 2011-8-6 11:58:28

动手自己做啊！。。。成本需要多少啊？？

fengzs918 发表于 2011-8-7 02:36:28

有时间玩玩，还很实用

DAIHAI 发表于 2011-8-7 09:57:23

mark

linxquan 发表于 2011-8-7 23:58:25

正想搞一个这个东东

yfgww 发表于 2011-8-9 21:48:41

mark

windcool2009 发表于 2011-8-9 22:01:22

mark

zhuchina 发表于 2011-8-17 14:54:09

你们这么多人都没有看出问题来吗？
测电容，为什么要用C2进行校正呢，为什么要用C2校正C1，直接把C1换成高精度的不就行了吗；
开机的时候不接待测电容，测得F1, 接上待测电容后测得FX ,那么CX不就得出了吗： CX=( F1²/FX² - 1) * C1 ；这里只要C1的精度够就行了；

继电器完全可以省掉了啊，按某一个按键的时候就进入F1测量，然后测到的F1存到EEPROM

看楼主的公式没有一个跟C2有关啊！！！，为什么要用C2去校准C1实在搞不懂！！！
测电感也跟C2没有关系；

diguomeng 发表于 2011-8-17 20:09:59

mark谢谢楼主分享

mzbhy 发表于 2011-8-21 23:59:31

码赛克思。

logics 发表于 2011-8-22 07:05:41

mark.

430504 发表于 2011-8-22 14:57:11

mark

wsygb 发表于 2011-8-23 11:50:35

回复【548楼】zhuchina龟仙人
-----------------------------------------------------------------------

是不C2是一个校正的电容，用它来校正C1，而且这种校正是考虑了电路上的散杂电容，而比仅仅是标称的精度。

wsygb 发表于 2011-8-23 18:51:44

回复【186楼】qianhng
-----------------------------------------------------------------------

好！正是所需。其实改进算法，可以测量电感与电容无关。精度可以达到很高。
我用2051试试，有一条过的数码管，也很好做。

yanzhang12 发表于 2011-8-24 00:00:43

mark

GNMXD 发表于 2011-8-24 13:42:31

好东西啊

1ongquan 发表于 2011-8-25 11:47:30

辛辛苦苦把LZ的图做出来，钻孔无数，然后镀锡，最终发现图小了

./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif./emotion/em019.gif

浪费了3个小时，看来做事还是慢慢来比较好

ly83ok 发表于 2011-8-25 14:17:28

高手就是高手，先收藏了。等哪天有用到了。再来取。

zhangjinxing 发表于 2011-8-25 20:20:47

mark

zhuchina 发表于 2011-8-26 11:48:59

回复【555楼】wsygb
-----------------------------------------------------------------------

如果是矫正C1和板上离散电容的话，就不应该加继电器，应该是在接线端子上加一个电容矫正，矫正完后把这个电容拿下来，再测普通电容

zhuchina 发表于 2011-8-26 12:03:47

回复【556楼】wsygb
-----------------------------------------------------------------------
好！正是所需。其实改进算法，可以测量电感与电容无关。精度可以达到很高。
我用2051试试，有一条过的数码管，也很好做。
-----------------------------------------------------------------------

怎么可能与电感无关呢，电感变了，频率就变了，基准F1就变了，应该重新校准，特别是做高低温测试，电感的影响还是有的；

sc09009033 发表于 2011-8-26 12:12:23

mark

jiangminjun 发表于 2011-8-26 15:38:48

很不错

longcai1988 发表于 2011-8-26 15:53:30

留个脚印

tonyone 发表于 2011-8-29 10:06:17

LZ的东西总是做得那么精致漂亮，佩服的五体投地。

wangyixun21 发表于 2011-8-31 03:18:38

确实不错，花了多少时间做出来？

wsygb 发表于 2011-9-1 09:38:07

回复【562楼】zhuchina龟仙人
-----------------------------------------------------------------------

考虑一下，其实，这里的电容要求稳定就行，不需要太高的精度，也不需要校正电容。
我正在试验。正在写程序。

wsygb 发表于 2011-9-1 09:56:37

回复【563楼】zhuchina龟仙人
-----------------------------------------------------------------------

我意思的是测量电感不需要太高精度的电容，而是要求稳定的电容。

dlam 发表于 2011-9-1 12:14:02

单说外观，精致整齐漂亮，非常值得借鉴

Green_Grass 发表于 2011-9-1 13:22:42

mark~~

polar 发表于 2011-9-2 04:01:58

实用制作马克一下

looklooktom 发表于 2011-9-2 06:59:35

实用制作

megzehua 发表于 2011-9-2 19:27:00

我也想做一个,但不知准不准?

chenerbox2 发表于 2011-9-4 17:16:44

高人啊哪天试试雕刻机也做一个

xgyadsl 发表于 2011-9-6 10:37:33

我只有2200P的云母电容,是不是只要把程序
C1 = C1 * 1800 '1800是标准电容C2 ；单位pF
把这一句中的1800换成2200就行了?

chenyh85 发表于 2011-9-7 19:53:45

mark

jt6245 发表于 2011-9-7 20:45:49

回复【575楼】megzehua
我也想做一个,但不知准不准?
-----------------------------------------------------------------------
准不准--还可以,看看链接.http://www.aade.com/lcm2binst/HP.html
(L/C Meter IIB,B&k 878,M3,Electronics-DIY的比较)
多年前我做的LC测量仪使用PIC16f628a+ LM311好实用,和LZ的测量仪是类似的。
当然测试导线必须很短很短。

jianjun42 发表于 2011-9-9 15:46:44

最近再次更新了这项制作，添加了频率测量功能，量程10hz-8Mhz，添加了晶振测试功能，可测量主频8M以内的晶振频率，为了进一步提高电容的测量精度，我将原精密电容C2更换为0.5%精度的聚苯乙烯薄膜电容，上图http://cache.amobbs.com/bbs_upload782111/files_45/ourdev_675562TXQTO4.jpg
(原文件名:DSC01.jpg)
http://cache.amobbs.com/bbs_upload782111/files_45/ourdev_675563NE5M75.jpg
(原文件名:DSC02.jpg)

http://cache.amobbs.com/bbs_upload782111/files_45/ourdev_675564IVHS3I.jpg
(原文件名:DSC03.jpg)

137703056 发表于 2011-9-10 21:27:18

先标记一下……回头好好研究！

dragonbbc 发表于 2011-9-15 18:42:04

mark,有空做个玩

qq2203049 发表于 2011-9-15 19:55:32

回复【582楼】jianjun42 沧海一粟
-----------------------------------------------------------------------

请问能提供的你详细资料吗，PCB图和程序等，想仿一个

lin1936 发表于 2011-9-16 10:46:00

mark

yytei 发表于 2011-9-16 11:12:36

mark,有空做个玩

safan 发表于 2011-9-16 13:18:09

mark

l09046162 发表于 2011-9-16 13:30:56

mark

jianbo999 发表于 2011-9-17 23:50:45

回复【582楼】jianjun42 沧海一粟
-----------------------------------------------------------------------

发资料出来了俺们仿一个来玩玩。

jianjun42 发表于 2011-9-18 10:29:24

回复【585楼】 qq2203049

【591楼】 jianbo999

回头整理出来就发

jun427 发表于 2011-9-18 20:21:51

朋友送的两个电容，这是我目前拿到的最高精度的电容了，在室温22.1度时的测量结果：

http://cache.amobbs.com/bbs_upload782111/files_45/ourdev_677510U9SX2P.JPG
(原文件名:dy.JPG)

jianjun42 发表于 2011-9-19 10:55:03

回复【585楼】 qq2203049

【591楼】 jianbo999

我把AD10的电器原理图、印刷版图和主程序的HEX文件贴上来点击此处下载 ourdev_677628NQW863.rar(文件大小:31K) (原文件名:M8Lc测量仪原理图.rar)
点击此处下载 ourdev_677629UQ5TFU.rar(文件大小:451K) (原文件名:M8Lc测量仪印刷版图.rar)
点击此处下载 ourdev_677630EEJMQ2.rar(文件大小:7K) (原文件名:LC.rar)

jianjun42 发表于 2011-9-19 11:02:31

我在制作中C1、C2采用的是1290p、0.5%精度的聚苯乙烯电容器，如果上面两位朋友制作中电容器采用别的容量，可在程序中修改。
源程序代码附上：
'*************** LCF测量仪程序(BASCOM编译通过 *****************
'***************    MCU采用M16\主频16MHZ       *****************
'***************    2010年8月22日完成       *****************
$regfile = "m8def.dat"
$crystal = 16000000
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portb.5 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Config Timer0 = Counter , Edge = Falling
Config Timer2 = Timer , Prescale = 128
On Ovf0 Tim0_isr
On Ovf2 Tim2_isr
Enable Ovf2
Enable Ovf0
Enable Interrupts
Tcnt2 = &H83
Start Timer2
Counter0 = 0
Start Counter0
Dim F1 As Long , F2 As Long , Tc1 As Long , Te As Long , Fx As Long
Dim C1 As Single , Ca1 As Single , Ca2 As Single , Cx As Single , L1 As Single , Lx As Single , F11 As Single
Dim V1 As String * 11 , V2 As String * 11 , V3 As String * 9 , Vf As String * 6 , Vs As String * 8 , Z1 As String * 2 , Z2 As String * 3
Dim I As Byte , K As Bit , M As Bit
Dim Vl As Byte , Tc As Byte

'**************端口设置*************
Ddrb.0 = 0                                              'S2按键设置为输入
Portb.0 = 1                                              '上拉电阻有效
Ddrd.6 = 1                                              'K2控制端口设置为输出
Ddrd.0 = 1                                              'K1设置
Portd.6 = 1                                              'K2断开
Portd.0 = 1                                              'K1断开
Ddrd.7 = 1                                              '充电输出端子设定
Portd.7 = 1                                              '上拉电阻有效

'*************初始化****************
K = 1
I = 1
M = 1
Tc1 = 0
Cls
Cursor Off
'*************按键处理**************
Do
If Pinb.0 = 0 Then
Waitms 40
If Pinb.0 = 0 Then
   Incr I
   Bitwait Pinb.0 , Set
End If
End If

'************主程序段***************
Select Case I
      Case 1                                           '校准程序段
            Lcd "L_C_Fmeter"
            Lowerline
            Lcd " wait plise "
            Waitms 1500
            Portd.6 = 0                               '接入标准电容C2
            Waitms 1500
            Ca1 = F1 * F1
            Ca2 = F2 * F2
            C1 = Ca1 - Ca2
            C1 = Ca2 / C1
            C1 = C1 * 1290                            '1290是标准电容C2
            L1 = 3.1416 * 3.1416
            L1 = L1 * 4
            L1 = L1 * Ca1
            L1 = L1 * C1
            L1 = 1 / L1
            L1 = L1 * 1000000000000000000             '单位uH
            Portd.6 = 1                               '断开标准电容C2
            Incr I
      Case 2
            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"                '显示C1和L1

      Case 3                                        '电容测量程序段
            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"
            Elseif Vl = 7 Then
                     V1 = Mid(v1 , 1 , 4)
                     V1 = Format(v1 , "00.00")
                     Z1 = "nF"
            Elseif Vl = 8 Then
                     V1 = Mid(v1 , 1 , 4)
                     V1 = Format(v1 , "000.0")
                     Z1 = "nF"
            Elseif 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 "

      Case 4                                        '电感测量程序段
            Vf = Str(f1)
            Vf = Format(vf , "    ")
            If F1 < 50 Then
               Vf = " 0"
            End If
            Locate 1 , 7
            Lcd "F=" ; Vf ; "Hz"
            Portd.0 = 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"
            Elseif Vl = 7 Then
                     V1 = Mid(v1 , 1 , 4)
                     V1 = Format(v1 , "0.000")
                     Z1 = "mH"
            Elseif Vl = 8 Then
                     V1 = Mid(v1 , 1 , 4)
                     V1 = Format(v1 , "00.00")
                     Z1 = "mH"
            Elseif Vl = 9 Then
                     V1 = Mid(v1 , 1 , 4)
                     V1 = Format(v1 , "000.0")
                     Z1 = "mH"
            Elseif 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 "

      Case 5                                        '电解电容测量程序段 (<500uf)
            Portd.6 = 1                            '接入2K电阻
            If K = 1 Then
               Disable Ovf0
               Disable Ovf2
               Config Timer0 = Timer , Prescale = 8
               On Int0 T1_isr
               Enable Int0
               Enable Ovf0
               Te = 0
               Locate 1 , 1
               Lcd "TestCE[<500uF]"
               Locate 2 , 1
               Lcd " CEx=    "
            End If
            K = 0
            Portd.7 = 0                            '开始充电
            Start Timer0                            '开始计时
      Case 6                                        '电解电容测量程序段(>500uf)
            If M = 1 Then
               Portd.6 = 0                         '接入200欧电阻
               Te = 0
               Locate 1 , 1
               Lcd "TestCE[>500uF]"
               Locate 2 , 1
               Lcd " CEx=    "
            End If
            M = 0
            Portd.7 = 0                            '开始充电
            Start Timer0                            '开始计时
      Case 7                                        '频率测量程序段
            Config Timer1 = Counter , Edge = Falling
            On Ovf1 Tim1_isr
            Enable Ovf1
            Enable Ovf2
            Disable Int0
            Disable Ovf0
            Fx = 0
            Portd.0 = 1                               'K1复位
            Portd.6 = 1                               'K2复位
            Portd.7 = 1                               '放电复位
            Tcnt2 = &H83
            Start Timer2
            Counter1 = 0
            Start Counter1
            Incr I
      Case 8
            Locate 1 , 1
            Lcd "TestFx "
            V3 = Str(fx)
            If Fx < 1000 Then
               V3 = Format(v3 , "    0")
               Z2 = "Hz "
            Elseif Fx > 999 And Fx < 1000000 Then
                     V3 = Format(v3 , " .000")
                     Z2 = "KHz"
            Elseif Fx > 999999 Then
                     V3 = Format(v3 , ".000000")
                     Z2 = "MHz"
            End If
            Locate 2 , 3
            Lcd "F=" ; V3 ; Z2
      Case 9
            Config Timer0 = Counter , Edge = Falling
            Disable Ovf1
            Stop Timer2
            Enable Ovf0
            Tcnt2 = &H83
            Start Timer2
            Counter0 = 0
            Start Counter0
            I = 3
            K = 1
            M = 1
            Fx = 0
End Select

Loop
End

'***************计数器1溢出中断*****************

Tim1_isr:

Incr Tc1

Return

'**************定时器2中断*********************
Tim2_isr:

Tcnt2 = &H83                                           '定时器T2初值
Incr Tc
If Tc = 250 Then
   If I = 8 Then
      Stop Counter1
      Tc1 = Tc1 * 65535
      Fx = Counter1
      Counter1 = 0
      Fx = Tc1 + Fx
      Fx = Fx * 4
      Start Timer1
      Tc1 = 0
   Else
      Stop Counter0
      Te = Te * 256
      Fx = Counter0
      Counter0 = 0
      Fx = Te + Fx
      Fx = Fx * 4
      If Portd.6 = 1 Then F1 = Fx Else F2 = Fx
      Start Counter0
      Te = 0
   End If
   Tc = 0
End If

Return

'****************定时器0中断**************

Tim0_isr:

Incr Te                                              '定时器0中断次数

Return

'***************外部中断******************

T1_isr:

Stop Timer0

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

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

If Portd.6 = 1 Then                                  '充电电阻R9接入，<500uF
   Select Case Vl
         Case 1
               V1 = "NO"
         Case 2                                     '加入这段语句可以测量0.001uf以上的小电容
               V1 = Mid(v1 , 1 , 2)
               V1 = Format(v1 , "0.000")
         Case 3
               V1 = Mid(v1 , 1 , 3)
               V1 = Format(v1 , "0.000")
         Case 4
               V1 = Mid(v1 , 1 , 3)
               V1 = Format(v1 , "0.00")
         Case 5
               V1 = Mid(v1 , 1 , 3)
               V1 = Format(v1 , "0.0")
         Case 6 : V1 = Mid(v1 , 1 , 3)
         Case 7 : V1 = "OL"
   End Select
Elseif Portd.6 = 0 Then                               '接入充电电阻R10
   Select Case Vl
            Case 2
               V1 = Mid(v1 , 1 , 2)
               V1 = Format(v1 , "0.00")
            Case 3
               V1 = Mid(v1 , 1 , 3)
               V1 = Format(v1 , "0.00")
            Case 4 : V1 = Mid(v1 , 1 , 2)
            Case 5 : V1 = Mid(v1 , 1 , 3)
            Case 6 : V1 = Mid(v1 , 1 , 4)
            Case 7 : V1 = Mid(v1 , 1 , 5)
   End Select
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.7 = 1                                           '开始放电

If Portd.6 = 1 And Te > 10 Then Waitms 100

If Portd.6 = 0 And Te > 10 Then Waitms 500

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

Return

zxmb 发表于 2011-9-19 16:49:55

我也做了一个，没显示，屏幕闪
现象是：通电后能听到2声继电器吸合的声音，按右下角的键，好像校准，再按有继电器吸合的声音，屏幕在不停闪，最后是头一列闪，请问是哪里出了问题？

刚才发现J21跳线没焊，回去补上

熔丝位参考 http://www.ourdev.cn/bbs/bbs_content.jsp?bbs_sn=3868482 21006091 無奈低位7F,高位D9 ，曾经选择外置RC 8M 被锁。
元件按原理图包括1800pf和82uh

请jun427和做过的朋友指点一下，谢谢！

lanxing18 发表于 2011-9-19 20:05:10

mark

jianjun42 发表于 2011-9-20 15:54:24

还有一点必须要提示【585楼】 qq2203049

【591楼】 jianbo999
两位朋友，我的PCB设计习惯是以元件面为参考面的顶视图，在打印PCB时不用镜像直接打印就可以，请认真核对，别制版后才发现是反转的。

lzf713 发表于 2011-9-20 20:17:55

准备做一个，很实用

页: 1 2 3 4 5 [6] 7 8 9

amobbs.com 阿莫电子技术论坛's Archiver