234
1 1 1.1 1 1.2 4 1.3 4 2 5 2.1 5 2.2 6 2.3 7 2.3.1 7 2.3.2 8 2.3.3 9 2.3.4 9 2.3.5 9 2.3.6 9 3 1 3.1 3.2 3.3 11 3.4 14 3.4.1 14 3.4.2 15 3.5 16 3.6 17 i
4 2 18 4.1 18 4.2 19 4.2.1 2m/sec 2 4.2.2 3m/sec 21 4.2.3 4m/sec 22 4.3 23 4.3.1 23 4.3.2 25 5 28 5.5 28 5.6 28 A 33 B CONTEC ACX-PAC[W32] 35 C MicroCap-V CQ 5 ii
.8% 1 1.1 1.2 5 1.2 2% 2 3 4 5 2%.6% % 18% 2.5%6.2% 11.2% 4% 1.2 4.7%1.1 1
1.1 1.1 SOAP NA S mg/ml NAS 1.1 1.3 2
1.3 1.3 (LD) (PD) CCD CCD 3
5 2 3 4 5 4
2 2.1 2.1 2.1 Z = 5
2.1 2.1 6 kg/m 2 s 1.3 4-4 27.6 2.2 2.2 L 2.1 6
2.2 2.3 2.3.1 2.3 8, m/sec 6 4 2, 2.3 7
2.3.2 2.4 PL-3.25s,.5s, 1.s, 1.5s 4 2.5 2.5 PL-3.5s 1.5s, ml PL-3 2.4 PL-3, s 2.5 8
2.3.3 AR-31 2.3.4 2.3.5 ADVANTEST TR5822 GP-IB 2.3.6 ADVANTEST R3753AH 9
3 1 3.1 3.2 3.1 1cc L 2 m/sec 3 m 5g/l.1 sec 15 35 khz
3.3 1 3.1 12 3.1 3.12 11
12
13
3.4 3.4.1 3.13 MAX MAX A B / 2,kHz A B MAX, s 3.13 14
3.4.2 3.14 3.14 R S R S R R S R, khz S, s 3.14 15
3.4 3.15 A B C, khz 3.15 1, Hz 16
3.6 3.15 3 A 162kHz 4 B 245kHz 5 C 312kHz 3 3 A B C 3.3 164kHz B C 17
4 2 241kHz 1 B C 241kHz 4.1 4.1 L 4.1 : 2m/sec, 3m/sec, 4 m/sec 3 m.32g/l (NAS12 ).9g/l (NAS ).25sec,.5sec, 1.sec, 1.5sec.1 sec 241.4 khz 41 18
4.2 2 4.1 NAS,NAS12 3 4.2.1 2m/sec 4.1.25sec 4.2.5sec 4.3 1.sec 4.4 1.5sec 4.2.2 3m/sec 4.5.25sec 4.6.5sec 4.7 1.sec 4.8 1.5sec 4.2.3 4m/sec 4.9.25sec 4..5sec 4.11 1.sec 4.12 1.5sec 19
4.2.1, khz NAS NAS11, s 4.1 2m/s.25s, khz NAS NAS11, s 4.2 2m/s.5s, khz NAS NAS11, s 4.3 2m/s 1.s, khz NAS NAS11, s 4.4 2m/s 1.5s 2
4.2.2, khz NAS NAS12, s 4.5 3m/s.25s NAS NAS12, khz, s 4.6 3m/s.5s, khz, khz NAS, s 4.5 3m/s.25s NAS12, s 4.7 3m/s 1.s NAS NAS12, khz, s 4.8 3m/s 1.5s 21
4.2.3 NAS NAS12, khz, s 4.9 4m/s.25s NAS NAS12, khz, s 4. 4m/s.5s NAS NAS12, khz, s 4.11 4m/s 1.s NAS NAS12, khz, s 4.12 4m/s 1.5s 22
4.3 4.1 4.12 4.3.1 2m/sec, 3m/sec,4m/sec 4.13 4.15, khz.25s.5s 1.s 1.5s, s 4.13 2 m/s, khz, s 4.14 3 m/s 23
, khz, s 4.15 4 m/s 4.13 4.15 4 4 4.16 4 4.16, khz, s 4.16 24
, khz 4.3.2 4.17, s 4.17 4.18 25
4.18 4.19 5, khz 241.5 241. 24.5 24.,S 4.19 26
4.2 27
5 5.1 5 m 28
5.2.1sec F/V CONTEC AD12-16PCIE ( B) 29
[1] (1991) [2] (1994) [3] (1995) [4] (1992) [5] (1991) [6] C 618 64 66 No.97-877 P662 668 3
A 31
234 1. 165kHz, s 2 165kHz 2 164kHz 3 24 khz 24kHz 2. 3mm 1, s, m/s 24kHz 4 4 1 3 5 [3 m,.32g/l NAS12 ] 2m/s 3m/s 4m/s 6 kg/m 2 s 1.5 1.3 4-4 27.6 32 ( ), khz, khz, khz 24kHz, s 4 2m/s 5.25s 24kHz 24kHz 14 58 2 218 ( ), khz, s 3 24kHz
B CONTEC ACX-PAC[W32] 33
----------------------------------------------------------------------------------------------------------- Option Explicit Dim DataTable(3, 3) As Single Dim Databox(6, 3) As Single Dim a As Single Dim b As Single Dim c As Single Dim j As Integer Dim m As Integer Dim n As Integer Dim p As Integer Dim vv As Integer Dim Q As Integer Dim REV As Integer Dim ave1 As Single Dim ave2 As Single Dim ave3 As Single Dim Ret As Integer Dim i As Integer Const MAX_GRP_X = ' X ( ) Dim GrpXPos As Long 'X Dim Buffer(3) As Single ' Dim LastVoltRange As Integer '16 ----------------------------------------------------------------------------------------------------------- 34
----------------------------------------------------------------------------------------------------------- ' ' A/D Private Sub AcxAio1_Timer() lbldata.caption = "" avedata.caption = "" Ret = AcxAio1.AcquireData(Buffer) ' ' ' If REV = 1 Then End If Ret = 1 'Ret=1 If Ret = Then -------------------------------------------------------- Y AcxXY1.YMaximumRange = AcxXY1.YMinimumRange = - AcxXY2.YMaximumRange = AcxXY2.YMinimumRange = - -------------------------------------------------------- AcxXY1.DisplayDataY GrpXPos, Buffer(), AcxAio1.ChannelNumber ' n = n + 1 a = a + Buffer() b = b + Buffer(1) c = c + Buffer(2) 35
If n >= 5 Then ave1 = a / n ave2 = b / n ave3 = c / n AcxXY2.DisplayDataY GrpXPos, ave1, AcxAio1._ ChannelNumber ' 2 ' AcxXY2.DisplayDataY GrpXPos, ave2, 2 ' 2 ' AcxXY2.DisplayDataY GrpXPos, ave3, 3 ' 2 n = End If a = b = c = If vv = 1 Then 'vv=1 If m <= 3 Then m = m + 1 DataTable(m, 1) = Buffer() DataTable(m, 2) = Buffer(1) DataTable(m, 3) = Buffer(2) avedata.caption = avedata.caption _ & "DATA" & m & " = " & Format(DataTable(m, 1), ".") & Chr(13) p = p + 1 If p = 5 Then Q = Q + 1 36
Databox(Q, 1) = ave1 Databox(Q, 2) = ave2 Databox(Q, 3) = ave3 avedata.caption = avedata.caption & "AVE" & Q & " = " & Format(Databox(Q, 1), ".") & Chr(13) Text3 = avedata p = End If End If If m >= 3 Then REV = 1 End If GrpXPos = GrpXPos + 1 ' If REV = Then If GrpXPos >= MAX_GRP_X Then End If End If GrpXPos = AcxXY1.ClearData AcxXY2.ClearData ---------------------------------------------- ' For i = To AcxAio1.ChannelNumber - 1 '"No.* =." (Chr(13) ) ' If AcxAio1.InputRange >= 3 Then ' 37
lbldata.caption = lbldata.caption_ & "No." & i & " = " & Format(Buffer(i), ".") & Chr(13) Else ' If chkhex.value = 1 Then '16 lbldata.caption = lbldata.caption_ & "No." & i & " =" & Hex(Buffer(i)) & "h" & Chr(13) Else ' lbldata.caption = lbldata.caption & _ "No." & i & " =" & Format(Buffer(i), "") & Chr(13) End If End If Next i End If End Sub ----------------------------------------------------------------------------------------------------------- Private Sub AcxXY1_AcxXY1_YAlarmEvent(ByVal iyalarmstatus As Integer, ByVal iynumber As Integer) End Sub ----------------------------------------------------------------------------------------------------------- Private Sub AcxXY1_Click() End Sub ----------------------------------------------------------------------------------------------------------- ' Private Sub Command1_Click() 38
m = a = b = c = p = Q = n = vv = 1 GrpXPos = REV = AcxXY1.ClearData AcxXY2.ClearData avedata.caption = "" End Sub ----------------------------------------------------------------------------------------------------------- Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub ----------------------------------------------------------------------------------------------------------- Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub ----------------------------------------------------------------------------------------------------------- Private Sub File1_Click() Text1 = File1.FileName End Sub '-------------------------------------------------------------------------------- ' 39
Private Sub Form_Load() ' newdata ' Left = (Screen.Width - Width) 2 Top = (Screen.Height - Height) 2 AcxXY1.XMaximumRange = MAX_GRP_X ' Ret = AcxAio1.LoadProperty("ACXAIO.INI") If Ret <> Then ' Ret = AcxAio1.AutoDetect("AIO") If (Ret = ) Then AcxAio1.DeviceName = "AIO" End If End Sub End If ' fncopen ' / ' AIO '-------------------------------------------------------------------------------- ' Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdend_click End Sub '-------------------------------------------------------------------------------- ' Sub fncopen() 4
p = m = vv = Q = REV = Dim StrCaption As String AcxAio1.TimEnabled = False Ret = AcxAio1.Open If Ret = Then Else fncdispproperty ' StrCaption = " : " & AcxAio1.BoardName frmacqdata.caption = StrCaption AcxAio1.TimEnabled = True GrpXPos = AcxXY1.ClearData AcxXY2.ClearData MsgBox " [ ] " & Chr(13) & _ "[ ] " End If End Sub '-------------------------------------------------------------------------------- ' Private Sub cmdend_click() ' Ret = MsgBox(" ", vbyesno) If Ret = vbyes Then 41
AcxAio1.SaveProperty ("ACXAIO.INI") End If AcxAio1.Close End End Sub '-------------------------------------------------------------------------------- ' Private Sub cmdshowproperty_click() Dim tmpboardname As String tmpboardname = AcxAio1.BoardName AcxAio1.ShowProperty ' If tmpboardname <> AcxAio1.BoardName Then DoEvents AcxAio1.BoardName Else End If End Sub MsgBox " " & tmpboardname & " " & & " " & Chr(13) & _ " " fncopen ' fncdispproperty ' '-------------------------------------------------------------------------------- ' Sub fncdispproperty() Dim MaxRange As Single Dim MinRange As Single 42
Dim ChkFlag As Integer DoEvents lbldisp.caption = " : " & AcxAio1.BoardName & Chr(13) & _ "I/O : " & Hex(AcxAio1.IoAddress) & " h" &_ Chr(13) & " : " & AcxAio1.IrqLevel & Chr(13) _ " : " & AcxAio1.GetSupportedRange_ (, AcxAio1.InputRange, ChkFlag) AcxAio1.GetInputRange MinRange, MaxRange ' Y AcxXY1.YMaximumRange = MaxRange AcxXY1.YMinimumRange = MinRange txttiminterval.text = AcxAio1.TimInterval ' If AcxAio1.ChannelNumber > 32 Then ' 32ch End If MsgBox " 32 ", vbexclamation AcxAio1.ChannelString = "-31" ' ' ReDim Buffer(AcxAio1.ChannelNumber) ' = AcxXY1.ArrayNumber = 3 'AcxAio1.ChannelNumber ' = AcxXY2.ArrayNumber = 3 'AcxAio1.ChannelNumber lblchannelstring.caption = AcxAio1.ChannelString 43
End Sub ----------------------------------------------------------------------------------------------------------- Private Sub mnuopen_click() ' Dim FileName As String REV = 1 AcxXY1.ClearData AcxXY2.ClearData i = If Right(Dir1.Path, 1) = " " Then FileName = Dir1.Path & Text1 Else FileName = Dir1.Path & " " & Text1 End If --------------------------------- Open FileName For Input As #1 For i = 1 To Next I Input #1, DataTable(i) For i = 1 To 2 I Input #1, Databox(i) Next i Close #1 GrpXPos = For i = 1 To 3 44
AcxXY1.DisplayDataY GrpXPos, DataTable(i), 1 ' 1 GrpXPos = GrpXPos + 1 ' 1 Next i GrpXPos = 5 For i = 1 To 6 AcxXY2.DisplayDataY GrpXPos, Databox(i), 1 ' 2 GrpXPos = GrpXPos + 5 ' 2 Next i End Sub '----------------------------------------------------------------------------------------------------------- Private Sub mnusaveas_click() ' Dim FileName As String Ret = MsgBox("[ " & Text1 & " ] ", vbyesno) If Right(Dir1.Path, 1) = " " Then FileName = Dir1.Path & Text1 Else FileName = Dir1.Path & " " & Text1 End If Open FileName For Output As #1 ----------------------------------- ------------------------ Write #1, "REAL DATA" For j = 1 To 3 45
For i = 1 To 3 Write #1, DataTable(i, j) Next i Next j ------------------------------------------------------------ Write #1, "AVERAGE" For j = i To 3 For i = 1 To 6 Write #1, Databox(i, j) Next i Next j -------------------------------------------------------------- Close #1 End Sub ----------------------------------------------------------------------------------------------------------- ' ' E ' ----------------------------------------------------------------------------------------------------------- Private Sub txtsingleao_click() AcxAio1.SingleAO, Val(txtDAData.Text), 1 End Sub ----------------------------------------------------------------------------------------------------------- ' Private Sub txttiminterval_change() AcxAio1.TimInterval = Val(txtTimInterval.Text) 46
End Sub ----------------------------------------------------------------------------------------------------------- ' Private Sub cmdcleardata_click() GrpXPos = AcxXY1.ClearData AcxXY2.ClearData End Sub ----------------------------------------------------------------------------------------------------------- '16 Private Sub chkhex_click() If chkhex.value = 1 Then '16 LastVoltRange = AcxAio1.InputRange AcxAio1.InputRange = ' Else ' AcxAio1.InputRange = LastVoltRange ' 16 End If cmdcleardata_click fncdispproperty End Sub ----------------------------------------------------------------------------------------------------------- Private Sub VScroll1_Change() End Sub ----------------------------------------------------------------------------------------------------------- 47
C Micro-Cap V CQ 48
C Micro Cap-V CQ C.1 Micro Cap-V CQ 4 AC DC Micro Cap-V CQ 49
C.2 Micro Cap-V CQ 2 1 1 : A 1 TYPE (NPN, PNP, JFET) 1 C F 3 ROUTAC 1 ROUTDC 1 VOFF IOFF SRP V 3 A 3 V/s 2,3 SRN IBIAS V/s 2,3 A 3 VCC V 3 VEE V 3 VPS V 3 VNS V 3 CMRR 3 GBW 2,3 PM 2,3 PD W 3 IOSC A 3 5
1,2,3 1 2 3 2 3 Boyle SPICE C.3 1 LBR (Attribute di alog box) [Models] 51
1 C.4 AC 5 AC 2 AC (AC Analysis Limits) 52
AC Frequency Range (1kHz 1MHz) Number of Points (5) Temperature Low High Step (27) Maximum change % Noise Input noise Noise Output Input noise Output noise X expression X F (F) Y expression Y V(1) V (dbv(12)/v(2)) X range X (1M,1k) 53
Y range Y (Auto) Fmt 5.3 5 3 (5.3) Stepping Stepping 3 3 R1 k 3k 3 Stepping box 54
C5 5 4 8 4 5 6 7 1 8 2 LOG MAG, db f, Hz 4 55
LOG MAG, db LOG MAG, db f, Hz 5 f, Hz 6 56
LOG MAG, db f, Hz 7 1 LOG MAG, db f, Hz 8 2 57
B [1] Visual Basic 6 (1999) [2] Visual Basic 6 (1999) [3] Visual Basic (1999) C [1] No.17 OP CQ (1996) [2] SPECIAL CQ (1998) [3] [4] http://www.national.com/ 58