电感电容电解电容测量仪（Inductance capacitance capacitance meter）.docVIP

电感电容电解电容测量仪（Inductance capacitance capacitance meter） * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Electrical capacitance capacitance measuring instrument * Capacitance: 1p-2.5 uF * * inductance: 1uh-2.0 H * Electrolytic capacitance: 0.1 uf-20000uf * * the tianjin port of tianjin * junsheng427@126.com * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * $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 configure T/C1 to count Config Timer2 = Timer, Prescale = 64 configure T/C2 timing The Config Int0 = Falling Config Timer0 = Timer, Prescale = 8 On Ovf0 Tim0_isr On Int0 T1_isr On Ovf2 Tim2_isr The Enable Ovf2 On Ovf1 Tim1_isr The Enable Ovf1 The 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 Cx As Single Dim 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 - Dim I As Byte Dim As K - Dim M the As - Dim Vl As Byte Dim the Tc As Byte Dim Tc1 As Long The Dim As Long Te Ddrd.7 = 0 key initial Portd. 7 = 1 Ddrd.4 = 1 relay initialization 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 / / / / / / / The Do / / / / / keystroke / / / / If Pind. 7 = 0 Then S1 Waitms 40 If Pind. 7 = 0 Then Incr i. Bitwait Pind. 7, the Set End the If End the If / / / / inductive L1, capacitor C1 calculation / / / / / If I = 1 Then If J = 1 Then Lcd L_C_CE meter Lowerline LcdWaitms 1500 waits for F1 count Portd.3 = 0 access standard capacitor C2 Waitms 1500 waits for f2 count Ca1 = F1, F1 Ca2 = F2 * F2 C1 = Ca1 - Ca2 C1 =