变送器软件

主程序：

Option Explicit Const NAME_COLUMN = 0 Const TYPE_COLUMN = 1 Const SIZE_COLUMN = 2 Const DATE_COLUMN = 3 Dim pre As Integer 读取参数-读取压力参数-标定 Dim tmp As Integer 温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度-温度参数读-温度参-温度-温度参数读-温度-温度-温度-温度参数读-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度参数读-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度 Private Sub Command_BUTTON_ALARM_Click() Dim count As Integer Dim send(9) As Byte 定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim address As Integer Dim stemp(3) As Byte Call WaitForScan send(0) = &HFF send(1) = &H10 Call ITB(ALARM, item()) send(2) = item(1) 寄存器地址 send(3) = item(0) send(4) = &H0 寄存器数量 send(5) = &H2 send(6) = &H4 '字节数 本地址存储下位机地址 为单字节 Call LTB(CByte(Text_ALARM.Text), stemp()) 写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) MSComm.Output = send TX_address = ALARM Call StartScan End Sub Private Sub Command_BUTTON_CLEARA_Click() If vbCancel = (MsgBox("电流校准数据是否清除？", vbOKCancel vbExclamation, "提示")) Then Exit Sub '如果 End If Command_BUTTON_DemarkA.Enabled = True Command_BUTTON_CLEARA.Enabled = False Call DemarkA(0#, 0#) End Sub Private Sub Command_BUTTON_DemarkA_Click() Command_BUTTON_DemarkA.Enabled = False Command_BUTTON_CLEARA.Enabled = True Call DemarkA(CSng(Text_4mA.Text), CSng(Text_20mA.Text)) End Sub Private Sub DemarkA(dat1 As Single, dat2 As Single) Dim count As Byte Dim position As Byte Dim send(16) As Byte 定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim stemp(3) As Byte Dim address As Integer Dim outpercent As Single Call WaitForScan send(0) = CByte(Combo_Meter.Text) send(1) = &H10 Call ITB(U4, item()) send(2) = item(1) send(3) = item(0) send(4) = &H0 send(5) = &H4 send(6) = &H8 Call STB(dat1, stemp()) 写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call STB(dat2, stemp()) 写入标定压力值 send(11) = stemp(0) send(12) = stemp(1) send(13) = stemp(2) send(14) = stemp(3) Call CRC16(send(), 14, crc()) send(15) = crc(1) send(16) = crc(0) MSComm.Output = send TX_address = ADD Call StartScan End Sub Private Sub Command_BUTTON_DP1_Click() Call demarkp(1) End Sub Private Sub Command_BUTTON_DP10_Click() Call demarkp(10) End Sub Private Sub Command_BUTTON_DP2_Click() Call demarkp(2) End Sub Private Sub Command_BUTTON_DP3_Click() Call WaitForScan Call demarkp(3) End Sub Private Sub Command_BUTTON_DP4_Click() Call demarkp(4) End Sub Private Sub Command_BUTTON_DP5_Click() Call demarkp(5) End Sub Private Sub Command_BUTTON_DP6_Click() Call demarkp(6) End Sub Private Sub Command_BUTTON_DP7_Click() Call demarkp(7) End Sub Private Sub Command_BUTTON_DP8_Click() Call demarkp(8) End Sub Private Sub Command_BUTTON_DP9_Click() Call demarkp(9) End Sub '温度20度标定值 Private Sub Command_BUTTON_DT20_Click() Dim count As Byte Dim demark_A As Byte 轮寻标定位置 Dim send(12) As Byte 定义发送数组 Dim crc(1) As Byte Dim itemp(1) As Byte Dim ltemp(3) As Byte Dim stemp(3) As Byte Dim address As Integer Dim outpercent As Single Call WaitForScan For demark_A = 0 To 30 If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then 超出地址范围 则退出 Call StartScan Exit Sub End If send(0) = Online(demark_A).address send(1) = &H10 For count = 0 To 2 Call ITB(UT20, itemp()) '<a target="_brank" href="/goods/768">芯片</a>地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 寄存器数，字节数 send(5) = &H2 send(6) = &H4 Call LTB(Online(demark_A).temperature_AD, ltemp()) 写入电压值 send(7) = ltemp(0) send(8) = ltemp(1) send(9) = ltemp(2) send(10) = ltemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) On Error GoTo ErrorHandler 错误捕捉串口操作 MSComm.Output = send TX_address = UT20 Sleep (sleeptime) Comerr = 10 位置错误标志 若通信成功 修改位置 On Error GoTo ErrorHandler Call MSComm_OnComm 调用串口数据处理函数 查询是否有中等发生<hr> If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count Next demark_A '仪表地址循环<hr> Call StartScan Exit Sub<hr>ErrorHandler: '串口错误 Call StartScan MsgBox "请打开串口", vbOKOnly + vbExclamation, "错误" Comerr = 10 '置位错误状态 End Sub<hr>Private Sub Command_BUTTON_DT60_Click() Dim count As Byte Dim demark_A As Byte '轮寻标定位置 Dim send(12) As Byte '定义发送数组 Dim crc(1) As Byte Dim itemp(1) As Byte Dim ltemp(3) As Byte Dim stemp(3) As Byte Dim address As Integer Dim outpercent As Single Call WaitForScan For demark_A = 0 To 30 If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出 Call StartScan Exit Sub End If send(0) = Online(demark_A).address send(1) = &H10 For count = 0 To 2 Call ITB(UT60, itemp()) '芯片地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 '寄存器数，字节数 send(5) = &H2 send(6) = &H4 Call LTB(Online(demark_A).temperature_AD, ltemp()) '写入电压值 send(7) = ltemp(0) send(8) = ltemp(1) send(9) = ltemp(2) send(10) = ltemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) On Error GoTo ErrorHandler '串口操作错误捕捉 MSComm.Output = send TX_address = UT60 Sleep (sleeptime) Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 On Error GoTo ErrorHandler Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count Next demark_A '仪表地址循环<hr> Call StartScan Exit Sub<hr>ErrorHandler: '串口错误 Call StartScan MsgBox "请打开串口", vbOKOnly + vbExclamation, "错误" Comerr = 10 '置位错误状态 End Sub<hr>Private Sub Command_BUTTON_DTF_Click() Dim count As Byte Dim position As Byte '选择标定点 Dim demark_A As Byte '轮寻标定位置 Dim send(12) As Byte '定义发送数组 Dim sendt(10) As Byte Dim crc(1) As Byte Dim itemp(1) As Byte '将整形转换成2字节型数组 Dim ltemp(3) As Byte '将长整形转换成4字节数组 Dim stemp(3) As Byte '将浮点型转换成4字节数组 Call WaitForScan For count = 0 To 9 If Option_DT(count).Value = True Then position = count Exit For End If Next count For count = 0 To 1 Next count demark_A = 0 '置位轮寻标定位置 For demark_A = 0 To 30 If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出 Call StartScan Exit Sub End If For count = 0 To 2 send(0) = Online(demark_A).address '置位操作地址 send(1) = &H10 Call ITB(TF + 4 * position, itemp()) '芯片地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 '寄存器数，字节数 send(5) = &H2 send(6) = &H4 Call STB(Online(demark_A).press, stemp()) '写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) MSComm.Output = send Sleep (sleeptime) Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Call StartScan Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count For count = 0 To 2 '写入温度 sendt(0) = Online(demark_A).address '置位操作地址 sendt(1) = &H10 Call ITB(TTEM + 2 * position, itemp()) '芯片地址 sendt(2) = itemp(1) sendt(3) = itemp(0) sendt(4) = &H0 '寄存器数，字节数 sendt(5) = &H1 sendt(6) = &H2 Call ITB(CInt(Online(demark_A).temperature * 10#), itemp()) '写入标定压力值 sendt(7) = itemp(0) sendt(8) = itemp(1)<hr> Call CRC16(sendt(), 8, crc()) sendt(9) = crc(1) sendt(10) = crc(0) MSComm.Output = sendt Sleep (sleeptime) Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count Next demark_A '仪表地址循环 Call StartScan End Sub<hr>Private Sub Command_BUTTON_DTZ_Click() '零点标定<hr> Dim count As Byte Dim position As Byte '选择标定点 Dim demark_A As Byte '轮寻标定位置 Dim send(12) As Byte '定义发送数组 Dim crc(1) As Byte Dim itemp(1) As Byte '将整形转换成2字节型数组 Dim ltemp(3) As Byte '将长整形转换成4字节数组 Dim stemp(3) As Byte '将浮点型转换成4字节数组 Call WaitForScan For count = 0 To 9 If Option_DT(count).Value = True Then position = count Exit For End If Next count demark_A = 0 '置位轮寻标定位置 For demark_A = 0 To 30 If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出 Call StartScan Exit Sub End If For count = 0 To 2 send(0) = Online(demark_A).address '置位操作地址 send(1) = &H10 Call ITB(TZ + 4 * position, itemp()) '芯片地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 '寄存器数，字节数 send(5) = &H2 send(6) = &H4 Call STB(Online(demark_A).press, stemp()) '写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) MSComm.Output = send Sleep (sleeptime) Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count Next demark_A '仪表地址循环 Call StartScan End Sub<hr>Private Sub Combo_com_Click() Command_BUTTON_Opencom.Caption = "打开串口" End Sub<hr>Private Sub Command_BUTTON_DP0_Click() '写入标定0点 Call demarkp(0) End Sub<hr>Private Sub Command_BUTTON_ExitA_Click() '退出固定电流输出模式 此功能与输出电流模式同 以后可精简<hr> Dim crc(1) As Byte Dim item(1) As Byte Dim stemp(3) As Byte Dim send(12) As Byte '定义发送数组 Dim outpercent As Single Call WaitForScan outpercent = 200# '输出无效值 send(0) = CByte(Combo_Meter.Text) send(1) = &H10 Call ITB(IOUT, item()) send(2) = item(1) send(3) = item(0) send(4) = &H0 send(5) = &H2 send(6) = &H4 Call STB(outpercent, stemp()) '写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) MSComm.Output = send TX_address = ADD Call StartScan End Sub<hr>Private Sub Command_BUTTON_OPENCOM_Click()<hr> If MSComm.PortOpen Then MSComm.PortOpen = False On Error GoTo ErrorHandler MSComm.CommPort = Combo_com.ListIndex + 1 MSComm.InputMode = comInputModeBinary MSComm.InputLen = 0 MSComm.RThreshold = 1 MSComm.SThreshold = 0 MSComm.PortOpen = True On Error GoTo ErrorHandler Command_BUTTON_Opencom.Caption = "串口已打开" Exit Sub<hr>ErrorHandler: MsgBox "打开串口时出错", vbOKOnly + vbExclamation, "错误" End Sub<hr>Private Sub Command_BUTTON_OutA_Click() Dim count As Byte Dim position As Byte Dim send(12) As Byte '定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim stemp(3) As Byte Dim address As Integer Dim outpercent As Single Call WaitForScan For count = 0 To 6 If Option_IOut(count).Value = True Then position = count Exit For End If Next count '确定输出电流值 Select Case position '计算输出百分比 Case 0 outpercent = -0.0125 Case 1 outpercent = 0# Case 2 outpercent = 25# Case 3 outpercent = 50# Case 4 outpercent = 75# Case 5 outpercent = 100# Case 6 outpercent = 100.05 Case Else outpercent = -0.0125 End Select send(0) = CByte(Combo_Meter.Text) send(1) = &H10 Call ITB(IOUT, item()) 'ITB将整形转换成2字节型 send(2) = item(1) send(3) = item(0) send(4) = &H0 send(5) = &H2 send(6) = &H4 Call STB(outpercent, stemp()) '写入标定压力值 '将浮点型转换成4字节型 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) MSComm.Output = send TX_address = ADD Call StartScan End Sub<hr>Private Sub Command_Button_PR_Click() Label_RP1.Caption = "AD采集值" Label_RP2.Caption = "标定点" Label_RP3.Caption = "" Text_D03.Visible = False Text_D13.Visible = False Text_D23.Visible = False Text_D33.Visible = False Text_D43.Visible = False Text_D53.Visible = False Text_D63.Visible = False Text_D73.Visible = False Text_D83.Visible = False Text_D93.Visible = False Text_D103.Visible = False Text_D01.Visible = True Text_D02.Visible = True Command_BUTTON_TP(0).Visible = True Choose_TR_PR = 1 '当单击压力参数读取时，Choose_PR_TR=1 触发标志 Timer_press_AD.Enabled = True End Sub<hr>Private Sub Command_BUTTON_READADD_Click() '采用公共地址读取仪表地址 Dim count As Integer Dim send(7) As Byte '定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Call WaitForScan Text_RAdd.Text = 0 send(0) = &HFF send(1) = &H3 Call ITB(ADD, item()) send(2) = item(1) send(3) = item(0) send(4) = &H0 send(5) = &H1 Call CRC16(send(), 5, crc()) send(6) = crc(1) send(7) = crc(0) MSComm.Output = send TX_address = ADD Call StartScan End Sub<hr>'芯片复位，本功能将清除芯片内所有数据<hr>Private Sub Command_BUTTON_RESET_Click() Dim count As Integer Dim send(9) As Byte '定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim address As Integer Call WaitForScan If vbCancel = (MsgBox("本功能将使芯片置于初始状态，芯片内所有数据都将被清除，是否继续", vbOKCancel + vbExclamation, "提示")) Then Exit Sub '询问是否继续清除 End If send(0) = &HFF send(1) = &H10<hr> Call ITB(ULOCK, item()) send(2) = item(1) '寄存器地址 send(3) = item(0) send(4) = &H0 '寄存器数量 send(5) = &H1 send(6) = &H1 '字节数 本地址存储下位机地址 为单字节 send(7) = &H0 Call CRC16(send(), 7, crc()) send(8) = crc(1) send(9) = crc(0) MSComm.Output = send TX_address = ULOCK Call StartScan End Sub<hr>Private Sub Command_BUTTON_Scan_Click() Call WaitForScan '停止其他扫描 Timer_SCAN.Enabled = True '扫描仪表 顺序扫描地址 End Sub<hr>Private Sub Command_BUTTON_SETADD_Click() '采用公共地址设定仪表地址 Dim count As Integer Dim send(9) As Byte '定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim address As Integer Call WaitForScan send(0) = &HFF send(1) = &H10<hr> Call ITB(ADD, item()) send(2) = item(1) '寄存器地址 send(3) = item(0) send(4) = &H0 '寄存器数量 send(5) = &H1 send(6) = &H1 '字节数 本地址存储下位机地址 为单字节 send(7) = CByte(Text_RAdd.Text) Call CRC16(send(), 7, crc()) send(8) = crc(1) send(9) = crc(0) MSComm.Output = send TX_address = ADD Call StartScan End Sub<hr>Private Sub Command_Button_TR_Click()<hr> Label_RP1.Caption = "温度" Label_RP2.Caption = "零点" Label_RP3.Caption = "满程" Text_D03.Visible = True Text_D13.Visible = True Text_D23.Visible = True Text_D33.Visible = True Text_D43.Visible = True Text_D53.Visible = True Text_D63.Visible = True Text_D73.Visible = True Text_D83.Visible = True Text_D93.Visible = True Text_D103.Visible = True Text_D01.Visible = False Text_D02.Visible = False Text_D03.Visible = False Command_BUTTON_TP(0).Visible = False Choose_TR_PR = 0 '当单击温度参数读取时，Choose_PR_TR=0 触发标志 Timer_Temp_Read.Enabled = True End Sub<hr>Private Sub Command19_Click() Dim data(3) As Byte Dim temp As Long data(0) = &H25 data(1) = &H52 data(2) = &H9A data(3) = &H44 temp = BTS(data()) temp = 0 End Sub<hr>Private Sub Form_Load() Dim count As Integer Dim str As String str = "COM" For count = 1 To 12 '添加串口 Combo_com.AddItem str & count Next count scanaddP = 1 '置位扫描位置 End Sub<hr>Private Sub M_ALL_Click() SSTab.Tab = 0 End Sub<hr>Private Sub M_DI_Click() SSTab.Tab = 1 End Sub<hr>Private Sub M_DP_Click() SSTab.Tab = 2 End Sub<hr>Private Sub M_DT_Click() SSTab.Tab = 3 End Sub<hr>Private Sub M_Exit_Click() Unload Form_main End Sub<hr>Private Sub M_Online_Click() SSTab.Tab = 4 End Sub<hr>Private Sub M_Parameter_Click() SSTab.Tab = 5 End Sub<hr>Private Sub MSComm_OnComm() '串口数据接收函数<hr> Dim count As Long Dim counttemp As Long Dim tmpBuf() As Byte Dim crc(1) As Byte Dim i As Integer Dim tmpData(1) As Byte '温度 Dim tmpDataZ(3) As Byte '零点 Dim tmpDataF(3) As Byte '满程 Dim preAdData(3) As Byte 'AD采集值 Dim preData(3) As Byte '标定点<hr> Sleep (50) If MSComm.CommEvent = comEvReceive Then '接收数据流处理 Erase RxData '清空数组 Erase TxData '清空数组 tmpBuf = MSComm.Input counttemp = UBound(tmpBuf) For count = 0 To counttemp RxData(count) = tmpBuf(count) Next count '串口接收数据 If RxData(1) = &H3 Then '03读寄存器命令处理 Call CRC16(RxData(), RxData(2) + 2, crc()) If (RxData(RxData(2) + 4) = crc(0)) And (RxData(RxData(2) + 3) = crc(1)) Then 'CRC校验成功 Comerr = 1 '通讯正常 通过CRC校验判定写入是否成功 '综合参数设置--读取地址 If (TX_address = 40001) Or (TX_address = 0) Then '地址匹配成功 For count = 0 To 30 If (Online(count).address = 0) Or (Online(count).address = RxData(0)) Then '地址匹配 继续处理 Dim st2(1) As Byte Dim st4(3) As Byte Online(count).address = RxData(0) st4(3) = RxData(3) st4(2) = RxData(4) st4(1) = RxData(5) st4(0) = RxData(6) Online(count).final = BTS(st4) '数据转换 赋值给在线仪表 st4(3) = RxData(7) st4(2) = RxData(8) st4(1) = RxData(9) st4(0) = RxData(10) Online(count).temperature = BTS(st4) '数据转换 赋值给在线仪表 st4(3) = RxData(11) st4(2) = RxData(12) st4(1) = RxData(13) st4(0) = RxData(14) Online(count).press_AD = BTL(st4) '数据转换 赋值给在线仪表 st4(3) = RxData(15) st4(2) = RxData(16) st4(1) = RxData(17) st4(0) = RxData(18) Online(count).press = BTS(st4) '数据转换 赋值给在线仪表 st4(3) = RxData(19) st4(2) = RxData(20) st4(1) = RxData(21) st4(0) = RxData(22) Online(count).temperature_AD = BTL(st4) '数据转换 赋值给在线仪表 Exit For End If Next count ElseIf (TX_address <= &H10FF) And (TX_address >= &H1000) Then If TX_address = ADD Then '单表读取及设定地址处理 Text_RAdd.Text = RxData(3) Exit Sub End If For counttemp = 0 To 29 '选择当前操作地址 If Online(counttemp).address = RxData(0) Then Exit For End If Next counttemp Select Case Choose_TR_PR Case 0 '温度参数读取 For count = 0 To (RxData(2) - 1) '将数据转存 DemarcateT(counttemp).demarcate(TX_address - &H1000 + count) = RxData(3 + count) Next count For i = 0 To 9 tmpData(1) = DemarcateT(counttemp).demarcate(i * 2) tmpData(0) = DemarcateT(counttemp).demarcate(i * 2 + 1) tmpDataZ(0) = DemarcateT(counttemp).demarcate(i * 4 + 20) tmpDataZ(1) = DemarcateT(counttemp).demarcate(i * 4 + 21) tmpDataZ(2) = DemarcateT(counttemp).demarcate(i * 4 + 22) tmpDataZ(3) = DemarcateT(counttemp).demarcate(i * 4 + 23) tmpDataF(0) = DemarcateT(counttemp).demarcate(i * 4 + 60) tmpDataF(1) = DemarcateT(counttemp).demarcate(i * 4 + 61) tmpDataF(2) = DemarcateT(counttemp).demarcate(i * 4 + 62) tmpDataF(3) = DemarcateT(counttemp).demarcate(i * 4 + 63) DemarcateT(counttemp).temperature(i) = BTI(tmpData()) DemarcateT(counttemp).zero(i) = BTS(tmpDataZ()) DemarcateT(counttemp).full(i) = BTS(tmpDataF()) Next i Text_D11.Text = DemarcateT(counttemp).temperature(0) / 10 '溫度 Text_D21.Text = DemarcateT(counttemp).temperature(1) / 10 Text_D31.Text = DemarcateT(counttemp).temperature(2) / 10 Text_D41.Text = DemarcateT(counttemp).temperature(3) / 10 Text_D51.Text = DemarcateT(counttemp).temperature(4) / 10 Text_D61.Text = DemarcateT(counttemp).temperature(5) / 10 Text_D71.Text = DemarcateT(counttemp).temperature(6) / 10 Text_D81.Text = DemarcateT(counttemp).temperature(7) / 10 Text_D91.Text = DemarcateT(counttemp).temperature(8) / 10 Text_D101.Text = DemarcateT(counttemp).temperature(9) / 10 Text_D12.Text = Format(DemarcateT(counttemp).zero(0), "##0.00000") '零點 Text_D22.Text = Format(DemarcateT(counttemp).zero(1), "##0.00000") Text_D32.Text = Format(DemarcateT(counttemp).zero(2), "##0.00000") Text_D42.Text = Format(DemarcateT(counttemp).zero(3), "##0.00000") Text_D52.Text = Format(DemarcateT(counttemp).zero(4), "##0.00000") Text_D62.Text = Format(DemarcateT(counttemp).zero(5), "##0.00000") Text_D72.Text = Format(DemarcateT(counttemp).zero(6), "##0.00000") Text_D82.Text = Format(DemarcateT(counttemp).zero(7), "##0.00000") Text_D92.Text = Format(DemarcateT(counttemp).zero(8), "##0.00000") Text_D102.Text = Format(DemarcateT(counttemp).zero(9), "##0.00000") Text_D13.Text = Format(DemarcateT(counttemp).full(0), "##0.00000") '滿程 Text_D23.Text = Format(DemarcateT(counttemp).full(1), "##0.00000") Text_D33.Text = Format(DemarcateT(counttemp).full(2), "##0.00000") Text_D43.Text = Format(DemarcateT(counttemp).full(3), "##0.00000") Text_D53.Text = Format(DemarcateT(counttemp).full(4), "##0.00000") Text_D63.Text = Format(DemarcateT(counttemp).full(5), "##0.00000") Text_D73.Text = Format(DemarcateT(counttemp).full(6), "##0.00000") Text_D83.Text = Format(DemarcateT(counttemp).full(7), "##0.00000") Text_D93.Text = Format(DemarcateT(counttemp).full(8), "##0.00000") Text_D103.Text = Format(DemarcateT(counttemp).full(9), "##0.00000") Case 1 '压力参数读取 For count = 0 To (RxData(2) - 1) '将数据转存 DemarcateP(counttemp).demarcate(TX_address - &H1080 + count) = RxData(3 + count) Next count For i = 0 To 10 preAdData(0) = DemarcateP(counttemp).demarcate(i * 4) preAdData(1) = DemarcateP(counttemp).demarcate(i * 4 + 1) preAdData(2) = DemarcateP(counttemp).demarcate(i * 4 + 2) preAdData(3) = DemarcateP(counttemp).demarcate(i * 4 + 3) preData(0) = DemarcateP(counttemp).demarcate(i * 4 + 44) preData(1) = DemarcateP(counttemp).demarcate(i * 4 + 45) preData(2) = DemarcateP(counttemp).demarcate(i * 4 + 46) preData(3) = DemarcateP(counttemp).demarcate(i * 4 + 47) DemarcateP(counttemp).voltage(i) = BTL(preAdData()) DemarcateP(counttemp).offset(i) = BTS(preData()) Next i Text_D01.Text = DemarcateP(counttemp).voltage(0) 'AD采集值 Text_D11.Text = DemarcateP(counttemp).voltage(1) Text_D21.Text = DemarcateP(counttemp).voltage(2) Text_D31.Text = DemarcateP(counttemp).voltage(3) Text_D41.Text = DemarcateP(counttemp).voltage(4) Text_D51.Text = DemarcateP(counttemp).voltage(5) Text_D61.Text = DemarcateP(counttemp).voltage(6) Text_D71.Text = DemarcateP(counttemp).voltage(7) Text_D81.Text = DemarcateP(counttemp).voltage(8) Text_D91.Text = DemarcateP(counttemp).voltage(9) Text_D101.Text = DemarcateP(counttemp).voltage(10) Text_D02.Text = Format(DemarcateP(counttemp).offset(0), "##0.00000") '标定点 Text_D12.Text = Format(DemarcateP(counttemp).offset(1), "##0.00000") Text_D22.Text = Format(DemarcateP(counttemp).offset(2), "##0.00000") Text_D32.Text = Format(DemarcateP(counttemp).offset(3), "##0.00000") Text_D42.Text = Format(DemarcateP(counttemp).offset(4), "##0.00000") Text_D52.Text = Format(DemarcateP(counttemp).offset(5), "##0.00000") Text_D62.Text = Format(DemarcateP(counttemp).offset(6), "##0.00000") Text_D72.Text = Format(DemarcateP(counttemp).offset(7), "##0.00000") Text_D82.Text = Format(DemarcateP(counttemp).offset(8), "##0.00000") Text_D92.Text = Format(DemarcateP(counttemp).offset(9), "##0.00000") Text_D102.Text = Format(DemarcateP(counttemp).offset(10), "##0.00000") End Select End If End If End If If RxData(1) = &H10 Then '10写命令 Call CRC16(RxData(), 5, crc()) 'CRC校验 If RxData(6) = crc(1) And RxData(7) = crc(0) Then '校验成功 Comerr = 1 '通讯正常 End If End If End If<hr>End Sub<hr>Private Sub Online_Click() SSTab.Tab = 4 End Sub<hr>Private Sub Option_0_06_Click() Text_D0.Text = Format(0, "##0.0") Text_D1.Text = Format(0.1, "##0.0") Text_D2.Text = Format(0.2, "##0.0") Text_D3.Text = Format(0.3, "##0.0") Text_D4.Text = Format(0.4, "##0.0") Text_D5.Text = Format(0.5, "##0.0") Text_D6.Text = Format(0.6, "##0.0") Text_D7.Text = Format(0, "##0.0") Text_D8.Text = Format(0, "##0.0") Text_D9.Text = Format(0, "##0.0") Text_D10.Text = Format(0, "##0.0") preAD = 0 End Sub<hr>Private Sub Option_0_10_Click() Text_D0.Text = Format(0, "##0.0") Text_D1.Text = Format(1, "##0.0") Text_D2.Text = Format(2, "##0.0") Text_D3.Text = Format(3, "##0.0") Text_D4.Text = Format(4, "##0.0") Text_D5.Text = Format(5, "##0.0") Text_D6.Text = Format(6, "##0.0") Text_D7.Text = Format(7, "##0.0") Text_D8.Text = Format(8, "##0.0") Text_D9.Text = Format(9, "##0.0") Text_D10.Text = Format(10, "##0.0") preAD = 1 End Sub<hr>Private Sub Option_0_100_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(1#, "##0.0") Text_D2.Text = Format(2#, "##0.0") Text_D3.Text = Format(3#, "##0.0") Text_D4.Text = Format(4#, "##0.0") Text_D5.Text = Format(5#, "##0.0") Text_D6.Text = Format(6#, "##0.0") Text_D7.Text = Format(7#, "##0.0") Text_D8.Text = Format(8#, "##0.0") Text_D9.Text = Format(9#, "##0.0") Text_D10.Text = Format(10#, "##0.0") preAD = 2 End Sub<hr>Private Sub Option_0_1000_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(10#, "##0.0") Text_D2.Text = Format(20#, "##0.0") Text_D3.Text = Format(30#, "##0.0") Text_D4.Text = Format(40#, "##0.0") Text_D5.Text = Format(50#, "##0.0") Text_D6.Text = Format(60#, "##0.0") Text_D7.Text = Format(70#, "##0.0") Text_D8.Text = Format(80#, "##0.0") Text_D9.Text = Format(90#, "##0.0") Text_D10.Text = Format(100#, "##0.0") preAD = 3 End Sub<hr>Private Sub Option_0_16_Click() Text_D0.Text = Format(0, "##0.0") Text_D1.Text = Format(0.2, "##0.0") Text_D2.Text = Format(0.4, "##0.0") Text_D3.Text = Format(0.6, "##0.0") Text_D4.Text = Format(0.8, "##0.0") Text_D5.Text = Format(1#, "##0.0") Text_D6.Text = Format(1.2, "##0.0") Text_D7.Text = Format(1.4, "##0.0") Text_D8.Text = Format(1.6, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 4 End Sub<hr>Private Sub Option_0_160_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(2#, "##0.0") Text_D2.Text = Format(4#, "##0.0") Text_D3.Text = Format(6#, "##0.0") Text_D4.Text = Format(8#, "##0.0") Text_D5.Text = Format(10#, "##0.0") Text_D6.Text = Format(12#, "##0.0") Text_D7.Text = Format(14#, "##0.0") Text_D8.Text = Format(16#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 5 End Sub<hr>Private Sub Option_0_25_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(0.5, "##0.0") Text_D2.Text = Format(1#, "##0.0") Text_D3.Text = Format(1.5, "##0.0") Text_D4.Text = Format(2#, "##0.0") Text_D5.Text = Format(2.5, "##0.0") Text_D6.Text = Format(0#, "##0.0") Text_D7.Text = Format(0#, "##0.0") Text_D8.Text = Format(0#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 6 End Sub<hr>Private Sub Option_0_250_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(5#, "##0.0") Text_D2.Text = Format(10#, "##0.0") Text_D3.Text = Format(15#, "##0.0") Text_D4.Text = Format(20#, "##0.0") Text_D5.Text = Format(25#, "##0.0") Text_D6.Text = Format(0#, "##0.0") Text_D7.Text = Format(0#, "##0.0") Text_D8.Text = Format(0#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 7 End Sub<hr>Private Sub Option_0_40_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(0.5, "##0.0") Text_D2.Text = Format(1#, "##0.0") Text_D3.Text = Format(1.5, "##0.0") Text_D4.Text = Format(2#, "##0.0") Text_D5.Text = Format(2.5, "##0.0") Text_D6.Text = Format(3#, "##0.0") Text_D7.Text = Format(3.5, "##0.0") Text_D8.Text = Format(4#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 8 End Sub<hr>Private Sub Option_0_400_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(5#, "##0.0") Text_D2.Text = Format(10#, "##0.0") Text_D3.Text = Format(15#, "##0.0") Text_D4.Text = Format(20#, "##0.0") Text_D5.Text = Format(25#, "##0.0") Text_D6.Text = Format(30#, "##0.0") Text_D7.Text = Format(35#, "##0.0") Text_D8.Text = Format(40#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 9 End Sub<hr>Private Sub Option_0_60_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(1#, "##0.0") Text_D2.Text = Format(2#, "##0.0") Text_D3.Text = Format(3#, "##0.0") Text_D4.Text = Format(4#, "##0.0") Text_D5.Text = Format(5#, "##0.0") Text_D6.Text = Format(60#, "##0.0") Text_D7.Text = Format(0#, "##0.0") Text_D8.Text = Format(0#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 10 End Sub<hr>Private Sub Option_0_600_Click() Text_D0.Text = Format(0#, "##0.0") Text_D1.Text = Format(10#, "##0.0") Text_D2.Text = Format(20#, "##0.0") Text_D3.Text = Format(30#, "##0.0") Text_D4.Text = Format(40#, "##0.0") Text_D5.Text = Format(50#, "##0.0") Text_D6.Text = Format(60#, "##0.0") Text_D7.Text = Format(0#, "##0.0") Text_D8.Text = Format(0#, "##0.0") Text_D9.Text = Format(0#, "##0.0") Text_D10.Text = Format(0#, "##0.0") preAD = 11 End Sub<hr>'压力仪表标定采用查询串口方式 '每次发送命令等待50mS读取数据，通讯成功则继续，否则重新发送，两次以上错误则认为仪表离线，提示检查连接 '按仪表循环标定，直至最后一个在线仪表写入完毕<hr>Private Sub demarkp(demarkp As Byte) '仪表压力标定 Dim demark_A As Byte '轮寻标定位置 Dim count As Integer Dim send(12) As Byte '定义发送数组 Dim crc(1) As Byte Dim itemp(1) As Byte '将整形转换成2字节型数组 Dim ltemp(3) As Byte '将长整形转换成4字节数组 Dim stemp(3) As Byte '将浮点型转换成4字节数组 Call WaitForScan<hr> demark_A = 0 '置位轮寻标定位置 For demark_A = 0 To 30 If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出 Call StartScan Exit Sub End If For count = 0 To 2 send(0) = Online(demark_A).address '置位操作地址 send(1) = &H10 Call ITB(LB + 4 * demarkp, itemp()) '芯片地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 '寄存器数，字节数 send(5) = &H2 send(6) = &H4 Select Case demarkp Case 0 Call STB(CSng(Text_D0.Text), stemp()) '写入标定压力值 Case 1 Call STB(CSng(Text_D1.Text), stemp()) '写入标定压力值 Case 2 Call STB(CSng(Text_D2.Text), stemp()) '写入标定压力值 Case 3 Call STB(CSng(Text_D3.Text), stemp()) '写入标定压力值 Case 4 Call STB(CSng(Text_D4.Text), stemp()) '写入标定压力值 Case 5 Call STB(CSng(Text_D5.Text), stemp()) '写入标定压力值 Case 6 Call STB(CSng(Text_D6.Text), stemp()) '写入标定压力值 Case 7 Call STB(CSng(Text_D7.Text), stemp()) '写入标定压力值 Case 8 Call STB(CSng(Text_D8.Text), stemp()) '写入标定压力值 Case 9 Call STB(CSng(Text_D9.Text), stemp()) '写入标定压力值 Case 10 Call STB(CSng(Text_D10.Text), stemp()) '写入标定压力值 End Select send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) On Error GoTo ErrorHandler '串口操作错误捕捉 MSComm.Output = send Sleep (sleeptime) Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count For count = 0 To 2 Call ITB(LBIN + 4 * demarkp, itemp()) '芯片地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 '寄存器数，字节数 send(5) = &H2 send(6) = &H4 Call LTB(Online(demark_A).press_AD, ltemp()) '写入电压值 send(7) = ltemp(0) send(8) = ltemp(1) send(9) = ltemp(2) send(10) = ltemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) On Error GoTo ErrorHandler '串口操作错误捕捉 MSComm.Output = send Sleep (sleeptime) Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作 Call StartScan MsgBox "通讯出错，请检查连接", vbOKOnly + vbExclamation, "错误" Exit Sub ElseIf Comerr = 1 Then '通讯成功 则退出循环 Exit For End If Next count Next demark_A '仪表地址循环<hr> Call StartScan Exit Sub<hr>ErrorHandler: '串口错误 Call StartScan MsgBox "请打开串口", vbOKOnly + vbExclamation, "错误" Comerr = 10 '置位错误状态 End Sub<hr>Private Sub Parameter_Click() SSTab.Tab = 5 End Sub<hr><hr>Private Sub Timer_LISTRENOVATE_Timer() '刷新列表及更新仪表数据 Dim count As Integer Dim itm As ListItem Dim send(7) As Byte '定义发送数组 Dim crc(1) As Byte<hr> ListView_Display.ListItems.Clear For count = 0 To 30 '更新仪表数据 If Online(count).address <> 0 Then Set itm = ListView_Display.ListItems.ADD() itm.Text = Online(count).address itm.SubItems(1) = Format(Online(count).final, "##0.00000") itm.SubItems(2) = Format(Online(count).press, "##0.00000") itm.SubItems(3) = Format(Online(count).temperature, "##0.00000") itm.SubItems(4) = Online(count).press_AD Else Exit For End If Next count<hr> If Online(scanaddP).address <> 0 Then send(0) = Online(scanaddP).address send(1) = &H3 send(2) = &H0 send(3) = &H0 send(4) = &H0 send(5) = &HA Call CRC16(send(), 5, crc()) send(6) = crc(1) send(7) = crc(0) On Error GoTo ErrorHandler scanaddP = scanaddP + 1 MSComm.Output = send TX_address = 0 Else scanaddP = 0 End If<hr>Exit Sub ErrorHandler: Call StartScan Timer_SCAN.Enabled = False MsgBox "请打开串口", vbOKOnly + vbExclamation, "错误" End Sub<hr>Private Sub Timer_SCAN_Timer() '每500ms中断一次 按地址一次扫描 Dim count As Integer Dim send(7) As Byte '定义发送数组 Dim crc(1) As Byte If scanaddP < 31 Then send(0) = scanaddP scanaddP = scanaddP + 1 If ProgressBar.Value < 300 Then ProgressBar.Value = ProgressBar.Value + 10 End If Else scanaddP = 1 '将扫描到的地址填入地址栏 For count = 0 To 30 If Online(count).address <> 0 Then Combo_Meter.AddItem Online(count).address, count End If Next count ProgressBar.Value = 0 Timer_SCAN.Enabled = False MsgBox "扫描仪表结束", vbOKOnly, "提示" Timer_LISTRENOVATE.Enabled = True Exit Sub End If send(1) = &H3 send(2) = &H0 send(3) = &H0 send(4) = &H0 send(5) = &HA Call CRC16(send(), 5, crc()) send(6) = crc(1) send(7) = crc(0) On Error GoTo ErrorHandler MSComm.Output = send TX_address = 0 Exit Sub<hr>ErrorHandler: Call StartScan Timer_SCAN.Enabled = False MsgBox "请打开串口", vbOKOnly + vbExclamation, "错误" End Sub<hr>Private Sub WaitForScan() Dim clearInput() As Byte Timer_LISTRENOVATE.Enabled = False Sleep (sleeptime) '发送命令之前停止扫描 Call MSComm_OnComm<hr>End Sub<hr>Private Sub StartScan() Sleep (sleeptime) Timer_LISTRENOVATE.Enabled = True End Sub<hr>'参数读取--单点修改 Private Sub Command_BUTTON_TP_Click(Index As Integer) Dim count As Integer Select Case Choose_TR_PR Case 0 For count = 0 To 2 Call temp_ValueWrite(Index) Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作 Exit Sub ElseIf Comerr = 1 Then '通讯成功，退出循环 Exit For End If Next count For count = 0 To 2 Call tempZ_ValueWrite(Index) Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作 Exit Sub ElseIf Comerr = 1 Then '通讯成功，退出循环 Exit For End If Next count For count = 0 To 2 Call tempF_ValueWrite(Index) Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作 Exit Sub ElseIf Comerr = 1 Then '通讯成功，退出循环 Exit For End If Next count Case 1 For count = 0 To 2 Call press_ADValueWrite(Index) Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作 Exit Sub ElseIf Comerr = 1 Then '通讯成功，退出循环 Exit For End If Next count For count = 0 To 2 Call press_SpotWrite(Index) Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生 If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作 Exit Sub ElseIf Comerr = 1 Then '通讯成功，退出循环 Exit For End If Next count<hr> End Select End Sub<hr>'参数读取--压力参数读取--读出 Private Sub Timer_press_AD_Timer() Dim send(7) As Byte Dim crc(1) As Byte Dim itemp(1) As Byte Call WaitForScan<hr> send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址 If pre < 11 Then TX_address = &H1080 + pre * 10 send(1) = &H3 '03读寄存器命令 Call ITB(LBIN, itemp()) '压力AD采集值 地址 send(2) = itemp(1) send(3) = itemp(0) + pre * 10 send(4) = &H0 send(5) = &HA '寄存器数 Call CRC16(send(), 5, crc()) 'CRC校验 send(6) = crc(1) send(7) = crc(0) MSComm.Output = send Sleep 300 pre = pre + 1 Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 Else pre = 0 Timer_press_AD.Enabled = False End If<hr> Call StartScan End Sub<hr>'参数读取--温度参数读取--读出 Private Sub Timer_Temp_Read_timer() Dim send(7) As Byte Dim crc(1) As Byte Dim itemp(1) As Byte Call WaitForScan send(0) = CByte(Val(Combo_Meter.Text)) If tmp < 10 Then TX_address = &H1000 + tmp * 10 send(1) = &H3 '03读寄存器命令 Call ITB(TTEM, itemp()) send(2) = itemp(1) send(3) = itemp(0) + tmp * 10 send(4) = &H0 send(5) = &HA '寄存器数 Call CRC16(send(), 5, crc()) 'CRC校验 send(6) = crc(1) send(7) = crc(0) MSComm.Output = send Sleep 300 tmp = tmp + 1 Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改 Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生 ElseIf tmp > 9 Then tmp = 0 Timer_Temp_Read.Enabled = False End If End Sub<hr>'参数读取--压力参数读取--AD采集值写入 Private Sub press_ADValueWrite(Index As Integer) Dim send(12) As Byte Dim itemp(1) As Byte Dim stemp(3) As Byte Dim crc(1) As Byte Dim count As Integer send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址 send(1) = &H10 '10写寄存器命令 Call ITB(LBIN + 4 * Index, itemp()) '地址，写压力 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 send(5) = &H2 '寄存器数目 send(6) = &H4 '字节数 Select Case Index Case 0 Call LTB(CSng(Text_D01.Text), stemp()) Case 1 Call LTB(CSng(Text_D11.Text), stemp()) Case 2 Call LTB(CSng(Text_D21.Text), stemp()) Case 3 Call LTB(CSng(Text_D31.Text), stemp()) Case 4 Call LTB(CSng(Text_D41.Text), stemp()) Case 5 Call LTB(CSng(Text_D51.Text), stemp()) Case 6 Call LTB(CSng(Text_D61.Text), stemp()) Case 7 Call LTB(CSng(Text_D71.Text), stemp()) Case 8 Call LTB(CSng(Text_D81.Text), stemp()) Case 9 Call LTB(CSng(Text_D91.Text), stemp()) Case 10 Call LTB(CSng(Text_D101.Text), stemp()) End Select send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) 'CRC校验 send(11) = crc(1) send(12) = crc(0) MSComm.Output = send Sleep 500<hr>End Sub<hr>'参数读取--压力参数读取--标定点写入 Private Sub press_SpotWrite(Index As Integer) Dim send(12) As Byte Dim itemp(1) As Byte Dim stemp(3) As Byte Dim crc(1) As Byte Dim count As Integer send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址 send(1) = &H10 '10写寄存器命令 Call ITB(LB + 4 * Index, itemp()) '地址，写压力 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 send(5) = &H2 '寄存器数目 send(6) = &H4 '字节数 Select Case Index Case 0 Call STB(CSng(Text_D02.Text), stemp()) Case 1 Call STB(CSng(Text_D12.Text), stemp()) Case 2 Call STB(CSng(Text_D22.Text), stemp()) Case 3 Call STB(CSng(Text_D32.Text), stemp()) Case 4 Call STB(CSng(Text_D42.Text), stemp()) Case 5 Call STB(CSng(Text_D52.Text), stemp()) Case 6 Call STB(CSng(Text_D62.Text), stemp()) Case 7 Call STB(CSng(Text_D72.Text), stemp()) Case 8 Call STB(CSng(Text_D82.Text), stemp()) Case 9 Call STB(CSng(Text_D92.Text), stemp()) Case 10 Call STB(CSng(Text_D102.Text), stemp()) End Select send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) 'CRC校验 send(11) = crc(1) send(12) = crc(0) MSComm.Output = send Sleep 500<hr> End Sub<hr>'参数读取--温度参数读取--温度写入 Private Sub temp_ValueWrite(Index As Integer) Dim send(10) As Byte Dim itemp(1) As Byte Dim stemp(1) As Byte Dim crc(1) As Byte send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址 send(1) = &H10 '10写寄存器命令 Call ITB(TTEM + 2 * (Index - 1), itemp()) '地址，写温度 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 send(5) = &H1 '寄存器数目 send(6) = &H2 '字节数 Select Case Index Case 1 Call ITB(CSng(Text_D11.Text), stemp()) Case 2 Call ITB(CSng(Text_D21.Text), stemp()) Case 3 Call ITB(CSng(Text_D31.Text), stemp()) Case 4 Call ITB(CSng(Text_D41.Text), stemp()) Case 5 Call ITB(CSng(Text_D51.Text), stemp()) Case 6 Call ITB(CSng(Text_D61.Text), stemp()) Case 7 Call ITB(CSng(Text_D71.Text), stemp()) Case 8 Call ITB(CSng(Text_D81.Text), stemp()) Case 9 Call ITB(CSng(Text_D91.Text), stemp()) Case 10 Call ITB(CSng(Text_D101.Text), stemp()) End Select send(7) = stemp(0) send(8) = stemp(1) Call CRC16(send(), 8, crc()) 'CRC校验 send(9) = crc(1) send(10) = crc(0) MSComm.Output = send Sleep 500 End Sub<hr>'参数读取--温度参数读取--零点写入 Private Sub tempZ_ValueWrite(Index As Integer) Dim send(12) As Byte Dim itemp(1) As Byte Dim stemp(3) As Byte Dim crc(1) As Byte send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址 send(1) = &H10 '10写寄存器命令 Call ITB(TZ + 4 * (Index - 1), itemp()) '地址，写温度 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 send(5) = &H1 '寄存器数目 send(6) = &H2 '字节数 Select Case Index Case 1 Call STB(CSng(Text_D12.Text), stemp()) Case 2 Call STB(CSng(Text_D22.Text), stemp()) Case 3 Call STB(CSng(Text_D32.Text), stemp()) Case 4 Call STB(CSng(Text_D42.Text), stemp()) Case 5 Call STB(CSng(Text_D52.Text), stemp()) Case 6 Call STB(CSng(Text_D62.Text), stemp()) Case 7 Call STB(CSng(Text_D72.Text), stemp()) Case 8 Call STB(CSng(Text_D82.Text), stemp()) Case 9 Call STB(CSng(Text_D92.Text), stemp()) Case 10 Call STB(CSng(Text_D102.Text), stemp()) End Select send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) 'CRC校验 send(11) = crc(1) send(12) = crc(0) MSComm.Output = send Sleep 500 End Sub<hr>'参数读取--温度参数读取--满程写入 Private Sub tempF_ValueWrite(Index As Integer) Dim send(12) As Byte Dim itemp(1) As Byte Dim stemp(3) As Byte Dim crc(1) As Byte send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址 send(1) = &H10 '10写寄存器命令 Call ITB(TF + 4 * (Index - 1), itemp()) '地址，写温度 send(2)</div> <div data-v-9d595948> 锐单商城拥有海量<a href="/minstation/pdf/" target="_blank" data-v-9d595948>元器件数据手册</a>、<a href="/minstation/tidai/" target="_blank" data-v-9d595948>IC替代型号</a>，打造<a href="/minstation/ic/" target="_blank" data-v-9d595948>电子元器件IC百科</a>大全！ </div></div></article> <section class="relation" data-v-9d595948><h2 data-v-9d595948>相关文章</h2> <ul class="b-flex-wrap" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227294" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>pic单片机p18f458A/D转换程序-采用中断方式</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227293" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>MSP430单片机极低功耗数字温度计设计</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227292" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>智能水位控制系统毕业设计</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227291" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>HT1621 32字节×4位LCD液晶驱动芯片程序</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227290" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>单片机抢答器程序</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227289" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>单片机数字钟程序</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227288" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>单片机复位电路作用原理以及与置位的区别</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227287" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>单片机秒表设计程序</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227285" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>P型半导体,N型半导体带正负电的问题</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227284" rel="" class="text-hover" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>体育审美教育</p></a></li></ul></section> <div class="articles-mini" data-v-9d595948><ul class="navs b-flex" data-v-9d595948><li class="bar" data-v-9d595948><a href="/infomation/4" target="_blank" class="act" data-v-9d595948>动态</a></li><li class="bar" data-v-9d595948><a href="/infomation/10" target="_blank" data-v-9d595948>产品</a></li><li class="bar" data-v-9d595948><a href="/infomation/11" target="_blank" data-v-9d595948>新闻</a></li><li class="bar" data-v-9d595948><a href="/infomation/13" target="_blank" data-v-9d595948>电路图</a></li><li class="bar" data-v-9d595948><a href="/infomation/8" target="_blank" data-v-9d595948>方案</a></li><li class="bar" data-v-9d595948><a href="/infomation/9" target="_blank" data-v-9d595948>技术</a></li><li class="bar" data-v-9d595948><a href="/infomation/1" target="_blank" data-v-9d595948>公告</a></li></ul> <div class="cont b-flex" style="display:;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img src="https://web.ruidan.com/images/aritcle/programmes/20240616/thumbnail/3999779a3dc6465d9a13f691192f32c8.png?Expires=2349223991&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=tCbHLiEdnsAT%2BX%2BbUI0ILQ6afgE%3D" data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307273" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>英伟达“特供”AI芯片背后的阳谋</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307272" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>2024年的AI服务器，相当于2018年的新能源车</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307271" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>泼天的富贵，轮到AI服务器了吗？</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307270" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>【铂电阻测温】铂电阻如何采集？</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307269" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>需求复苏的苗头出现了！微芯、瑞昱、ST等热门芯片料号鉴定</p></a></li></ul></div><div class="cont b-flex" style="display:none;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307267" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>意法半导体新无线充电器开发板面向工业、医疗和智能家居应用</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307266" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>Molex莫仕发布新一代数据中心冷却解决方案中I/O模块的热管理挑战和机遇报告</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307265" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>新闻稿发布：最新 imc STUDIO 2024测量控制管理软件</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307264" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>TrendForce集邦咨询：第一季智能手机生产量呈现年增，预估第二季将季减5-10%</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307263" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>Bourns 推出第二代符合 AEC-Q200 标准的高爬电/间隙距离汽车级隔离电源变压器</p></a></li></ul></div><div class="cont b-flex" style="display:none;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307084" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>让“节能”贯穿服务器全生命周期，英特尔至强6能效核处理器的出众之处</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307083" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>英特尔CEO帕特·基辛格：AI正推动业界进入创新黄金时代，影响力堪称空前</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307080" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>英飞凌推出适用于物联网设备进行非接触式验证及安全配置的NFC I2C 桥接标签</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307079" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>安森美推出提高数据中心能效的完整电源解决方案</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307078" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>Molex莫仕在中国荣获通用汽车供应商质量卓越奖</p></a></li></ul></div><div class="cont b-flex" style="display:none;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img src="https://web.ruidan.com/images/aritcle/programmes/20230902/thumbnail/b2f1bda11eda4aefa45b2ba1d6a6657e.png?Expires=2324389413&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=VWSCjI6qvSfxF90fkB93ZStPzuA%3D" data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/259032" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>光控式变调器电路</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/259031" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>晶闸管测试电路</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/259030" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>门控音乐门铃</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/259029" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>双音电子门铃</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/259028" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>碳膜式电子风琴电路</p></a></li></ul></div><div class="cont b-flex" style="display:none;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307261" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>LLC 转换器测试电路</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307221" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>Tektronix - 电化学测试方法详解</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307220" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>基于 RTD 的测量系统的过压保护</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307219" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>使用恒流 LED 驱动器所需的设计</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/307218" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>使用高级特性和建模技术模拟宽带隙功率电路</p></a></li></ul></div><div class="cont b-flex" style="display:none;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img src="https://web.ruidan.com/images/aritcle/programmes/20230421/thumbnail/list-noimg-35461bb180dbc0d603306be50220f657.png" data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227294" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>pic单片机p18f458A/D转换程序-采用中断方式</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227293" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>MSP430单片机极低功耗数字温度计设计</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227292" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>智能水位控制系统毕业设计</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227291" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>HT1621 32字节×4位LCD液晶驱动芯片程序</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/227290" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>单片机抢答器程序</p></a></li></ul></div><div class="cont b-flex" style="display:none;" data-v-9d595948><span class="img b-flex-shrink0 b-flex-center" data-v-9d595948><img src="https://web.ruidan.com/images/aritcle/20240412/5f03ab9624c340f3a9dd59428b1bc4ea.png?Expires=2343610238&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=lsBBNpFK%2B7LzRxeJBigzJq9V%2Bj4%3D" data-v-9d595948></span> <ul class="lists b-flex-grow1" data-v-9d595948><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/289765" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>锐单2024年51劳动节放假通知</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/289499" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>锐单商城2024年清明节放假通知</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/274663" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>2024年春节锐单商城放假安排</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/274067" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>【通知】2024年元旦锐单商城放假安排</p></a></li><li class="item" data-v-9d595948><a href="https://www.ruidan.com/infomation/detail/266368" rel="" data-v-9d595948><p class="text-ellipsis" data-v-9d595948>2023年锐单商城国庆节放假通知</p></a></li></ul></div></div></div> <aside class="infomation-aside b-flex-shrink0" data-v-9d595948><div class="infomation-brand" data-v-95a7265e data-v-9d595948><h3 data-v-95a7265e><i class="iconfont iconpinpai" data-v-95a7265e></i> 品牌专区</h3> <ul class="b-flex-wrap" data-v-95a7265e><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/5" rel="" title="欧姆龙" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="欧姆龙_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_12.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/540" rel="" title="国巨" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="国巨_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_10.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/30" rel="" title="英飞凌" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="英飞凌_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_5.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/34" rel="" title="亚德诺" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="亚德诺_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_3.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/42" rel="" title="恩智浦" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="恩智浦_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_9.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/44" rel="" title="安森美" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="安森美_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_1.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/55" rel="" title="罗姆" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="罗姆_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_11.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/61" rel="" title="意法半导体" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="意法半导体_undefined" src="https://web.ruidan.com/images/brand/recommend/-e-brand_logo_15.png?x-oss-process=image/auto-orient,1/interlace,1/quality,q_90" data-v-95a7265e></div></a></li><li class="brand" data-v-95a7265e><a href="https://www.ruidan.com/brand/63" rel="" title="东电化" data-v-95a7265e><div class="img b-flex-center" data-v-95a7265e><img alt="东电化_undefined" src="https://web.ruidan.com/images/brand/recommend/TDK.jpg?x-oss-process=image/auto-orient,1/interlace,1/resize,m_lfit,w_200/quality,q_90/format,jpg" data-v-95a7265e></div></a></li></ul></div> <div class="infomation-tab" data-v-f4168900 data-v-9d595948><p class="tab" data-v-f4168900><a href="/activity" target="_blank" class="active" data-v-f4168900> 热销</a> <a href="/tidai/" target="_blank" data-v-f4168900>替代</a> <a href="/pdf/" target="_blank" data-v-f4168900>pdf库</a> <a href="/ic/" target="_blank" data-v-f4168900>ic百科</a></p> <ul class="b-flex-wrap" style="display:;" data-v-f4168900><li data-v-f4168900><a href="/goods/detail/3077104" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C2012NP01H153J085AA</a></li><li data-v-f4168900><a href="/goods/detail/3077105" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGB4B3X5R1A225K055AB</a></li><li data-v-f4168900><a href="/goods/detail/3077106" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>FA26X7R2E473KNU00</a></li><li data-v-f4168900><a href="/goods/detail/3077107" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C1005JB0G475K050BB</a></li><li data-v-f4168900><a href="/goods/detail/3077108" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>DK1E3EA152M86RBH01</a></li><li data-v-f4168900><a href="/goods/detail/3077109" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C3225NP02J333J250AA</a></li><li data-v-f4168900><a href="/goods/detail/3077110" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CL21B681KBANNNC</a></li><li data-v-f4168900><a href="/goods/detail/3077111" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>GA-14</a></li><li data-v-f4168900><a href="/goods/detail/3077112" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C1808C470FHGAC7800</a></li><li data-v-f4168900><a href="/goods/detail/3077113" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGA3E2X8R2A472K080AD</a></li><li data-v-f4168900><a href="/goods/detail/3077114" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGA3E3X5R1V334M080AB</a></li><li data-v-f4168900><a href="/goods/detail/3077115" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGA3E2X8R1H103M080AA</a></li><li data-v-f4168900><a href="/goods/detail/3077116" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>22252C334KAT2A</a></li><li data-v-f4168900><a href="/goods/detail/3077117" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CL10C680FB8NNNC</a></li><li data-v-f4168900><a href="/goods/detail/3077118" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C2012NP01H153J085AA</a></li><li data-v-f4168900><a href="/goods/detail/3077119" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGB4B3X5R1A225K055AB</a></li><li data-v-f4168900><a href="/goods/detail/3077120" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C0805C472KARECAUTO</a></li><li data-v-f4168900><a href="/goods/detail/3077121" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C1005JB0G475K050BB</a></li><li data-v-f4168900><a href="/goods/detail/3077122" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>FK24C0G1H153JN000</a></li><li data-v-f4168900><a href="/goods/detail/3077123" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>12061A681FAT2A</a></li><li data-v-f4168900><a href="/goods/detail/3077124" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C3225NP02J333J250AA</a></li><li data-v-f4168900><a href="/goods/detail/3077125" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C4532JB2J104K230KA</a></li><li data-v-f4168900><a href="/goods/detail/3077126" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>KCM55QR7YA176KH01K</a></li><li data-v-f4168900><a href="/goods/detail/3077127" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>GA243DR7E2472MW01L</a></li><li data-v-f4168900><a href="/goods/detail/3077128" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGA3E2X8R2A472K080AD</a></li><li data-v-f4168900><a href="/goods/detail/3077129" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CL21B471KBANNNC</a></li><li data-v-f4168900><a href="/goods/detail/3077130" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>DK1E3EA152M86RBH01</a></li><li data-v-f4168900><a href="/goods/detail/3077131" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>CGA3E3X5R1V334M080AB</a></li><li data-v-f4168900><a href="/goods/detail/3077132" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>FD-16AU</a></li><li data-v-f4168900><a href="/goods/detail/3077133" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>440LD15-R</a></li></ul> <ul class="b-flex-wrap" style="display:none;" data-v-f4168900><li data-v-f4168900><a href="/tidai/3f8f916b31f0d27753168c4330cc16a3" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0101ZD102KAT2A</a></li><li data-v-f4168900><a href="/tidai/497e48136b13ad0081696ae69fd34d93" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>02013A100DAT2A</a></li><li data-v-f4168900><a href="/tidai/544a6925459d77aadb6897222f68f7fc" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>02013A560JAT2A</a></li><li data-v-f4168900><a href="/tidai/544a6925459d77aadb6897222f68f7fc" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>GRM0335C1E560JD01D</a></li><li data-v-f4168900><a href="/tidai/a67306b6ae7de2720812a276c7eac123" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>GRM033C80G104KE19D</a></li><li data-v-f4168900><a href="/tidai/c455bf1b672b097c31a43d285613df3f" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>GRM033C80G104KE19J</a></li><li data-v-f4168900><a href="/tidai/27c5d3be7b0ef1e1ec86e3a5308d62dc" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>GRM0335C1H100JA01J</a></li><li data-v-f4168900><a href="/tidai/585aceadfdfc81a4a5b47020cc7950d7" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>02016D103KAQ2A</a></li><li data-v-f4168900><a href="/tidai/623bd5c8735e87afbb9a76a8856b98a1" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>02015A150JAT2A</a></li><li data-v-f4168900><a href="/tidai/351f1f9c03d4ceec179f804f631260f4" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0201ZD103JAT2A</a></li><li data-v-f4168900><a href="/tidai/1125472e753092f924288c8743e4443a" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0201YD102KAT2A</a></li><li data-v-f4168900><a href="/tidai/4d23f852334c19c4551de90e4ddee33c" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>NMC0201X5R182K10TRPLP10</a></li><li data-v-f4168900><a href="/tidai/40f7efd15777ecd42a9e31d4ade2ba7f" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>ECJ-ZEC1C820J</a></li><li data-v-f4168900><a href="/tidai/b9b1dc52ecd80e95750b485dde58d232" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>04023A220JAT2A</a></li><li data-v-f4168900><a href="/tidai/962f5b76d2f8994e7cc3327cf75cc576" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>LD023A101GAB2A</a></li><li data-v-f4168900><a href="/tidai/5b0341a8a54ca09d28738b6a52c38f79" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>ECJ0EB1E562K</a></li><li data-v-f4168900><a href="/tidai/5b0341a8a54ca09d28738b6a52c38f79" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0402B562K160NT</a></li><li data-v-f4168900><a href="/tidai/1fb6f4e8bae175b5798535e3f77b3d99" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>VJ0402A270JXXAC</a></li><li data-v-f4168900><a href="/tidai/8fa16fed0c49473fbb986dc50c5d74a9" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>NPO0402HTTP390J</a></li><li data-v-f4168900><a href="/tidai/5d6cdcc0fcdfda0c9ed93c31abacea89" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C1608C0G1H390JT</a></li><li data-v-f4168900><a href="/tidai/34dad9e2f0df60b41794f63d1a6a08cb" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>NPO0402HTTP180J</a></li><li data-v-f4168900><a href="/tidai/e8fc19dd7614eedfba97734f6553dcd3" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>C1005C0G1H620J</a></li><li data-v-f4168900><a href="/tidai/3c83ed8c73aefa33ec091930519f94c3" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>04026D104KAT2A</a></li><li data-v-f4168900><a href="/tidai/c24aa7e03baa1bf0b104b656927e6c9c" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>LD025C471KAB2A</a></li><li data-v-f4168900><a href="/tidai/a9d8e130be7b00271607dd935d3e9a9f" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>04025C471KAJ2A</a></li><li data-v-f4168900><a href="/tidai/da7921deeb9753f4ea3232184c2c049e" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0402YC333JAT2A</a></li><li data-v-f4168900><a href="/tidai/addaedbde4a3339fe4e5905ff85b04ef" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0402ZD104KAT2A</a></li><li data-v-f4168900><a href="/tidai/addaedbde4a3339fe4e5905ff85b04ef" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0402YD104KAT2A</a></li><li data-v-f4168900><a href="/tidai/25ba75041c4122cdccc2826de3539d15" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>0402YD104KAT2A</a></li><li data-v-f4168900><a href="/tidai/1b2f92efb63d94d2e1a5e78e77f54627" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>05085C103KAT2W</a></li></ul> <ul class="b-flex-wrap" style="display:none;" data-v-f4168900><li data-v-f4168900><a href="/pdf/4719dfbafe605f5f09705e8fbd3c9f77" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43505C9227M67</a></li><li data-v-f4168900><a href="/pdf/77bbacab73752b78511ed910b9452027" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43511C827M80</a></li><li data-v-f4168900><a href="/pdf/24d0e4c7ef085dfa53f638e9b6cdf093" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508E2397M80</a></li><li data-v-f4168900><a href="/pdf/6258c6f1e8aff931627e8991911dbe32" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43505A5227M007</a></li><li data-v-f4168900><a href="/pdf/a7cee4547da03926d81cc6ec0375e9c6" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43515A4128M087</a></li><li data-v-f4168900><a href="/pdf/297f7658765bd074b6ee6de176c8c5eb" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510B9158M087</a></li><li data-v-f4168900><a href="/pdf/057b5f9d7d65769056fd707115bb3f22" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43511A5158M87</a></li><li data-v-f4168900><a href="/pdf/04322c4bcaa58536d05ddc52b313216f" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510B5687M87</a></li><li data-v-f4168900><a href="/pdf/eac9c4b915b2acd69597ac4278c15ddc" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508E2477M67</a></li><li data-v-f4168900><a href="/pdf/b8f7708bc38062164bf3b21ee5aefdaa" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508G2108M60</a></li><li data-v-f4168900><a href="/pdf/2d00caf0b146aa503cd56f93f5ced67e" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510B6687M87</a></li><li data-v-f4168900><a href="/pdf/cc26ba50579eeb7d97d17941dcc4fd77" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43513A9228M000</a></li><li data-v-f4168900><a href="/pdf/5380049f4ee97d6ff4659994a0f6e326" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43544F2827M060</a></li><li data-v-f4168900><a href="/pdf/13db4518b6881fa8ccff9784c38aca34" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510B9158M80</a></li><li data-v-f4168900><a href="/pdf/06271f82870d934f99ccf3015ada90c7" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508B2567M000</a></li><li data-v-f4168900><a href="/pdf/33edbaf837bd5a619eb339d3d337d8b5" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508B9397M67</a></li><li data-v-f4168900><a href="/pdf/88271cc121aa8482c884c34ac97d9d8a" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508E2277M80</a></li><li data-v-f4168900><a href="/pdf/979bc809c097d32b807182df6ef22a29" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508E2687M62</a></li><li data-v-f4168900><a href="/pdf/819e2dfcc9b9e94100e458f3994e3d69" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510A9687M000</a></li><li data-v-f4168900><a href="/pdf/0a2d1f9453e18c1b9bfd2630732b24e3" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43509A5686M007</a></li><li data-v-f4168900><a href="/pdf/a410d9f84659676ab057b8baa3f2da81" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510B9188M80</a></li><li data-v-f4168900><a href="/pdf/f26a8b0ff04ac54a2d5d2024993e5cc7" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508C2827M87</a></li><li data-v-f4168900><a href="/pdf/93e4f05c6a7290dfc76da6fb8e443ced" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43511C9158M87</a></li><li data-v-f4168900><a href="/pdf/516e7d878c3a7540ed2350d4afc8e640" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508E2228M62</a></li><li data-v-f4168900><a href="/pdf/31fc6f034ee5e8c14b07651e38f7bf4c" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43515A5108M000</a></li><li data-v-f4168900><a href="/pdf/eeae7657977265306a1e1a4b597db185" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508G2108M60</a></li><li data-v-f4168900><a href="/pdf/b51d1a6c95ac2551df704b049e822daf" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43510B9158M80</a></li><li data-v-f4168900><a href="/pdf/8863cd7fe062198dbfe73e68fb3ded55" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43512A5108M000</a></li><li data-v-f4168900><a href="/pdf/7f5b7ae9a648a8c3bfca1deebcb547d3" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43511C9158M87</a></li><li data-v-f4168900><a href="/pdf/82d3825315235e0b5b2545e983b4c8df" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>B43508G2567M82</a></li></ul> <ul class="b-flex-wrap" style="display:none;" data-v-f4168900><li data-v-f4168900><a href="/ic/100411310607879635" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-058</a></li><li data-v-f4168900><a href="/ic/100411310607879636" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-023</a></li><li data-v-f4168900><a href="/ic/100411310607879638" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-047</a></li><li data-v-f4168900><a href="/ic/100411310607879639" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-062</a></li><li data-v-f4168900><a href="/ic/100411310607879641" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-010</a></li><li data-v-f4168900><a href="/ic/100411310607879642" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-075</a></li><li data-v-f4168900><a href="/ic/100411310607879643" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-024</a></li><li data-v-f4168900><a href="/ic/100411310607879644" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-059</a></li><li data-v-f4168900><a href="/ic/100411310607879646" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-060</a></li><li data-v-f4168900><a href="/ic/100411310607879648" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-076</a></li><li data-v-f4168900><a href="/ic/100411310607879649" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-036</a></li><li data-v-f4168900><a href="/ic/100411310607879650" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-063</a></li><li data-v-f4168900><a href="/ic/100411310607879652" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-077</a></li><li data-v-f4168900><a href="/ic/100411310607879653" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-025</a></li><li data-v-f4168900><a href="/ic/100411310607879656" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-064</a></li><li data-v-f4168900><a href="/ic/100411310607879657" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-050</a></li><li data-v-f4168900><a href="/ic/100411310607879658" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-090</a></li><li data-v-f4168900><a href="/ic/100411310607879659" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-065</a></li><li data-v-f4168900><a href="/ic/100411310607879661" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-079</a></li><li data-v-f4168900><a href="/ic/100411310607879662" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-066</a></li><li data-v-f4168900><a href="/ic/100411310607879663" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-051</a></li><li data-v-f4168900><a href="/ic/100411310607879664" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-PE-001</a></li><li data-v-f4168900><a href="/ic/100411310607879665" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-039</a></li><li data-v-f4168900><a href="/ic/100411310607879666" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-052</a></li><li data-v-f4168900><a href="/ic/100411310607879667" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-080</a></li><li data-v-f4168900><a href="/ic/100411310607879669" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-067</a></li><li data-v-f4168900><a href="/ic/100411310607879670" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-PE-002</a></li><li data-v-f4168900><a href="/ic/100411310607879671" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-053</a></li><li data-v-f4168900><a href="/ic/100411310607879673" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-040</a></li><li data-v-f4168900><a href="/ic/100411310607879674" target="_blank" class="ellipsis text-ellipsis text-hover" data-v-f4168900>BCS-145-L-D-HE-081</a></li></ul></div> <div class="infomation-article" data-v-72940035 data-v-9d595948><h6 data-v-72940035><i class="iconfont iconwendang2" data-v-72940035></i> 热门文章</h6> <ul data-v-72940035><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307273" rel="" title="英伟达“特供”AI芯片背后的阳谋" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>英伟达“特供”AI芯片背后的阳谋</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307272" rel="" title="2024年的AI服务器，相当于2018年的新能源车" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>2024年的AI服务器，相当于2018年的新能源车</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307271" rel="" title="泼天的富贵，轮到AI服务器了吗？" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>泼天的富贵，轮到AI服务器了吗？</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307270" rel="" title="【铂电阻测温】铂电阻如何采集？" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>【铂电阻测温】铂电阻如何采集？</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307269" rel="" title="需求复苏的苗头出现了！微芯、瑞昱、ST等热门芯片料号鉴定" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>需求复苏的苗头出现了！微芯、瑞昱、ST等热门芯片料号鉴定</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307268" rel="" title="2024-04，全球半导体器件市场二次反弹" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>2024-04，全球半导体器件市场二次反弹</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307262" rel="" title="XKCON祥控防爆型气体检测仪在电力储能柜中检测到气体浓度异常时，现场声光报警" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>XKCON祥控防爆型气体检测仪在电力储能柜中检测到气体浓度异常时，现场声光报警</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307257" rel="" title="Melexis推动行业变革：汽车照明LED驱动芯片实现超小型化" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>Melexis推动行业变革：汽车照明LED驱动芯片实现超小型化</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307256" rel="" title="性能新突破！媲美国际水准！国产千卡智算集群助力国产大模型训推" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>性能新突破！媲美国际水准！国产千卡智算集群助力国产大模型训推</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307255" rel="" title="中国半导体进出口暴增的背后" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>中国半导体进出口暴增的背后</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307252" rel="" title="借助智能功率模块系列提高白色家电的能效" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>借助智能功率模块系列提高白色家电的能效</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307250" rel="" title="SNEC2024特别报道 | 光伏产业正在穿越新周期" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>SNEC2024特别报道 | 光伏产业正在穿越新周期</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307249" rel="" title="芯片公司最重要的部门" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>芯片公司最重要的部门</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307248" rel="" title="芯片公司裁员为何喜欢裁年轻工程师，资深工程师又为何会有中年危机" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>芯片公司裁员为何喜欢裁年轻工程师，资深工程师又为何会有中年危机</p></a></div></li><li class="article" data-v-72940035><div class="article-title" data-v-72940035><a href="https://www.ruidan.com/infomation/detail/307247" rel="" title="国产芯片：猥琐发育，别浪！" class="text-hover" data-v-72940035><p class="text-ellipsis" data-v-72940035>国产芯片：猥琐发育，别浪！</p></a></div></li></ul></div></aside></div></div> <footer class="foot"><div class="tags-show"><div class="server-tags-show" data-v-30fdb521><div class="server-tags b-flex-justify-between" data-v-30fdb521><div class="tag more" data-v-30fdb521><i class="iconfont icontedianzhengpinbaozhang" data-v-30fdb521></i> <div class="desc" data-v-30fdb521><h3 data-v-30fdb521>原厂原装正品</h3> <span data-v-30fdb521>所有产品均来自原厂授权分销商，货源真实，放心采购</span></div></div> <div class="tag fast" data-v-30fdb521><i class="iconfont iconxinpian" data-v-30fdb521></i> <div class="desc" data-v-30fdb521><h3 data-v-30fdb521>海量现货库存</h3> <span data-v-30fdb521>全球十几家著名海外分销商授权合作，拥有1000万真实现货库存数据</span></div></div> <div class="tag good" data-v-30fdb521><i class="iconfont iconkehuzhichifuwu" data-v-30fdb521></i> <div class="desc" data-v-30fdb521><h3 data-v-30fdb521>人性化采购服务</h3> <span data-v-30fdb521>批量询价、BOM配单、SMT定制服务，锐单电子给您芯体验</span></div></div> <div class="tag save" data-v-30fdb521><i class="iconfont iconjiagebaozhangfuxing" data-v-30fdb521></i> <div class="desc" data-v-30fdb521><h3 data-v-30fdb521>一站式明码标价</h3> <span data-v-30fdb521>支持样片和小批量订单，为中小企业客户明码放心价</span></div></div></div></div></div> <div class="support-show"><div class="server-support" data-v-4ba94e32><ul class="supports" data-v-4ba94e32><li class="item" data-v-4ba94e32><h5 data-v-4ba94e32>购物指南</h5> <p data-v-4ba94e32><a href="/help/6" rel="nofollow" target="_blank" data-v-4ba94e32> 新手入门</a></p> <p data-v-4ba94e32><a href="/help/7" rel="nofollow" target="_blank" data-v-4ba94e32>购物流程</a></p> <p data-v-4ba94e32><a href="/help/8" rel="nofollow" target="_blank" data-v-4ba94e32>商品搜索</a></p> <p data-v-4ba94e32><a href="/help/17" rel="nofollow" target="_blank" data-v-4ba94e32>注册登录</a></p> <p data-v-4ba94e32><a href="/help/18" rel="nofollow" target="_blank" data-v-4ba94e32>找回密码</a></p></li> <li class="item" data-v-4ba94e32><h5 data-v-4ba94e32>支付&服务</h5> <p data-v-4ba94e32><a href="/help/10" rel="nofollow" target="_blank" data-v-4ba94e32>快递运输</a></p> <p data-v-4ba94e32><a href="/help/15" rel="nofollow" target="_blank" data-v-4ba94e32>联系我们</a></p> <p data-v-4ba94e32><a href="/help/16" rel="nofollow" target="_blank" data-v-4ba94e32>关于商城</a></p> <p data-v-4ba94e32><a href="/help/19" rel="nofollow" target="_blank" data-v-4ba94e32>支付方式</a></p> <p data-v-4ba94e32><a href="/help/20" rel="nofollow" target="_blank" data-v-4ba94e32>发票须知</a></p></li> <li class="item" data-v-4ba94e32><h5 data-v-4ba94e32>特色服务</h5> <p data-v-4ba94e32><a href="/help/23" rel="nofollow" target="_blank" data-v-4ba94e32>闪电发货</a></p> <p data-v-4ba94e32><a href="/help/24" rel="nofollow" target="_blank" data-v-4ba94e32>代购服务</a></p> <p data-v-4ba94e32><a href="/help/25" rel="nofollow" target="_blank" data-v-4ba94e32>免费入驻</a></p> <p data-v-4ba94e32><a href="/help/26" rel="nofollow" target="_blank" data-v-4ba94e32>免费报关</a></p> <p data-v-4ba94e32><a href="/searchs/A" target="_blank" data-v-4ba94e32>搜索大全</a></p></li> <li class="item" data-v-4ba94e32><h5 data-v-4ba94e32>特别说明</h5> <p data-v-4ba94e32><a href="/help/11" rel="nofollow" target="_blank" data-v-4ba94e32>隐私政策</a></p> <p data-v-4ba94e32><a href="/help/12" rel="nofollow" target="_blank" data-v-4ba94e32>使用条款</a></p> <p data-v-4ba94e32><a href="/minstation/pdf/" target="_blank" data-v-4ba94e32>数据手册</a></p> <p data-v-4ba94e32><a href="/minstation/ic/" target="_blank" data-v-4ba94e32>IC百科</a></p> <p data-v-4ba94e32><a href="/minstation/tidai/" target="_blank" data-v-4ba94e32>替代型号</a></p></li> <li class="item service-call" data-v-4ba94e32><h5 data-v-4ba94e32>全球服务热线</h5> <div class="hot-call" data-v-4ba94e32>400-990-0325</div> <p data-v-4ba94e32>服务时间：周一至周六 8:30-18:00</p> <p data-v-4ba94e32> 企业QQ： <a href="https://wpa1.qq.com/ozrHLWJc?_type=wpa&qidian=true" rel="nofollow" target="_blank" data-v-4ba94e32>4008211205</a></p> <p data-v-4ba94e32> 企业邮箱：product@ruidan.com</p> <p data-v-4ba94e32>入驻合作：ruidanshangcheng（微信）</p></li> <li class="item b-flex-grow1" data-v-4ba94e32><h5 class="img" data-v-4ba94e32><img alt="锐单电子微信公众号二维码" rel="nofollow" src="https://cdn.ruidan.com/images/information/weixin/weixin.jpg?x-oss-process=image/auto-orient,1/interlace,1/resize,m_lfit,w_200/quality,q_90/format,jpg" data-v-4ba94e32></h5> <p class="fw-7 text-center" data-v-4ba94e32>锐单商城微信公众号</p></li></ul></div></div> <div class="foot-bottom"><div class="foot-inshow"></div> <div class="help-center"><a href="javascript:;" class="ctrl"><i class="iconfont iconguanbi"></i></a> <ul class="collect"><li class="item"><a href class="block iconfont iconwechat-fill">微信咨询 </a> <div class="weixin"><img src="https://cdn.ruidan.com/images/information/weixin/qy-weixin.jpg" alt="weixin"> <p>扫码添加微信咨询</p></div></li> <li class="item"><a href="https://wpa1.qq.com/ozrHLWJc?_type=wpa&qidian=true" target="_blank" rel="nofollow" onclick=""undefined"!=typeof _hmt&&_hmt.push(["_trackEvent","联系客服","click","rightnav"])" class="block iconfont iconqq">QQ咨询</a></li> <li class="item"><a href="/cart" rel="nofollow" class="block iconfont icongou_wu_che2"><span class="nums" style="display:none;">0</span> 购物车 </a></li> <li class="item"><a href="https://www.ruidan.com/user" rel="nofollow" class="block iconfont iconxingmingyonghumingnicheng">会员中心</a></li> <!----></ul> <div class="away"><p>在线咨询</p></div></div> <div class="wrap"><div class="lie-show"><span class="item"> 字母索引: </span> <div class="indexes b-flex-align-center"><!----> <ul class="b-flex-grow1 b-flex-justify-between"><li><a href="/product/A" class="item">A</a></li><li><a href="/product/B" class="item">B</a></li><li><a href="/product/C" class="item">C</a></li><li><a href="/product/D" class="item">D</a></li><li><a href="/product/E" class="item">E</a></li><li><a href="/product/F" class="item">F</a></li><li><a href="/product/G" class="item">G</a></li><li><a href="/product/H" class="item">H</a></li><li><a href="/product/I" class="item">I</a></li><li><a href="/product/J" class="item">J</a></li><li><a href="/product/K" class="item">K</a></li><li><a href="/product/L" class="item">L</a></li><li><a href="/product/M" class="item">M</a></li><li><a href="/product/N" class="item">N</a></li><li><a href="/product/O" class="item">O</a></li><li><a href="/product/P" class="item">P</a></li><li><a href="/product/Q" class="item">Q</a></li><li><a href="/product/R" class="item">R</a></li><li><a href="/product/S" class="item">S</a></li><li><a href="/product/T" class="item">T</a></li><li><a href="/product/U" class="item">U</a></li><li><a href="/product/V" class="item">V</a></li><li><a href="/product/W" class="item">W</a></li><li><a href="/product/X" class="item">X</a></li><li><a href="/product/Y" class="item">Y</a></li><li><a href="/product/Z" class="item">Z</a></li><li><a href="/product/0" class="item">0</a></li><li><a href="/product/1" class="item">1</a></li><li><a href="/product/2" class="item">2</a></li><li><a href="/product/3" class="item">3</a></li><li><a href="/product/4" class="item">4</a></li><li><a href="/product/5" class="item">5</a></li><li><a href="/product/6" class="item">6</a></li><li><a href="/product/7" class="item">7</a></li><li><a href="/product/8" class="item">8</a></li><li><a href="/product/9" class="item">9</a></li></ul></div></div> <!----></div> <div class="copy-right text-center"><div class="copy-detail"> © 2011-2023 锐单电子商城 版权所有 <a href="http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=44030402004686" target="_blank" rel="nofollow" class="text-hover1 b-flex"><img src="https://cdn.ruidan.com/static/images/policeLogo.png"> 粤公网安备 44030402004686号</a> <a href="https://beian.miit.gov.cn" target="_blank" rel="nofollow" class="text-hover1">粤ICP备19070497号</a></div></div></div></footer></div></div></div><script>window.__NUXT__=(function(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,_,$,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap,aq,ar,as,at,au,av,aw,ax,ay,az,aA,aB,aC,aD,aE,aF,aG,aH,aI,aJ,aK,aL,aM,aN,aO,aP,aQ,aR,aS,aT,aU,aV,aW,aX,aY,aZ,a_,a$,ba,bb,bc,bd,be,bf,bg,bh,bi,bj,bk,bl,bm,bn,bo,bp,bq,br,bs,bt,bu,bv,bw,bx,by,bz,bA,bB,bC,bD,bE,bF){ao.id=136258;ao.title=s;ao.pictureUrl=a;ao.introduction="主程序：Option Explicit Const NAME_COLUMN = 0...Dim pre As Integer '参数读取--压力参数读取-标定 Dim tmp As Integer '参数读取--温度参数读取--温度 Private Sub Command_BUTTON_ALARM_Click() Dim coun";ao.content="\u003Chtml\u003E\n \u003Chead\u003E\u003C\u002Fhead\u003E\n \u003Cbody\u003E\n \u003Cdiv id=\"article_content\" class=\"article_content clearfix\"\u003E \n \u003Cdiv id=\"content_views\" class=\"htmledit_views\"\u003E \n \u003Cp\u003E主程序：\u003C\u002Fp\u003E \n \u003Cp\u003E\u003Ctextarea name=\"code\" class=\"vb\"\u003EOption Explicit Const NAME_COLUMN = 0 Const TYPE_COLUMN = 1 Const SIZE_COLUMN = 2 Const DATE_COLUMN = 3 Dim pre As Integer 读取参数-读取压力参数-标定 Dim tmp As Integer 温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度参数读取-温度-温度参数读-温度参-温度-温度参数读-温度-温度-温度-温度参数读-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度参数读-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度-温度 Private Sub Command_BUTTON_ALARM_Click() Dim count As Integer Dim send(9) As Byte 定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim address As Integer Dim stemp(3) As Byte Call WaitForScan send(0) = &HFF send(1) = &H10 Call ITB(ALARM, item()) send(2) = item(1) 寄存器地址 send(3) = item(0) send(4) = &H0 寄存器数量 send(5) = &H2 send(6) = &H4 '字节数 本地址存储下位机地址 为单字节 Call LTB(CByte(Text_ALARM.Text), stemp()) 写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) MSComm.Output = send TX_address = ALARM Call StartScan End Sub Private Sub Command_BUTTON_CLEARA_Click() If vbCancel = (MsgBox(\"电流校准数据是否清除？\", vbOKCancel vbExclamation, \"提示\")) Then Exit Sub '如果 End If Command_BUTTON_DemarkA.Enabled = True Command_BUTTON_CLEARA.Enabled = False Call DemarkA(0#, 0#) End Sub Private Sub Command_BUTTON_DemarkA_Click() Command_BUTTON_DemarkA.Enabled = False Command_BUTTON_CLEARA.Enabled = True Call DemarkA(CSng(Text_4mA.Text), CSng(Text_20mA.Text)) End Sub Private Sub DemarkA(dat1 As Single, dat2 As Single) Dim count As Byte Dim position As Byte Dim send(16) As Byte 定义发送数组 Dim crc(1) As Byte Dim item(1) As Byte Dim stemp(3) As Byte Dim address As Integer Dim outpercent As Single Call WaitForScan send(0) = CByte(Combo_Meter.Text) send(1) = &H10 Call ITB(U4, item()) send(2) = item(1) send(3) = item(0) send(4) = &H0 send(5) = &H4 send(6) = &H8 Call STB(dat1, stemp()) 写入标定压力值 send(7) = stemp(0) send(8) = stemp(1) send(9) = stemp(2) send(10) = stemp(3) Call STB(dat2, stemp()) 写入标定压力值 send(11) = stemp(0) send(12) = stemp(1) send(13) = stemp(2) send(14) = stemp(3) Call CRC16(send(), 14, crc()) send(15) = crc(1) send(16) = crc(0) MSComm.Output = send TX_address = ADD Call StartScan End Sub Private Sub Command_BUTTON_DP1_Click() Call demarkp(1) End Sub Private Sub Command_BUTTON_DP10_Click() Call demarkp(10) End Sub Private Sub Command_BUTTON_DP2_Click() Call demarkp(2) End Sub Private Sub Command_BUTTON_DP3_Click() Call WaitForScan Call demarkp(3) End Sub Private Sub Command_BUTTON_DP4_Click() Call demarkp(4) End Sub Private Sub Command_BUTTON_DP5_Click() Call demarkp(5) End Sub Private Sub Command_BUTTON_DP6_Click() Call demarkp(6) End Sub Private Sub Command_BUTTON_DP7_Click() Call demarkp(7) End Sub Private Sub Command_BUTTON_DP8_Click() Call demarkp(8) End Sub Private Sub Command_BUTTON_DP9_Click() Call demarkp(9) End Sub '温度20度标定值 Private Sub Command_BUTTON_DT20_Click() Dim count As Byte Dim demark_A As Byte 轮寻标定位置 Dim send(12) As Byte 定义发送数组 Dim crc(1) As Byte Dim itemp(1) As Byte Dim ltemp(3) As Byte Dim stemp(3) As Byte Dim address As Integer Dim outpercent As Single Call WaitForScan For demark_A = 0 To 30 If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then 超出地址范围 则退出 Call StartScan Exit Sub End If send(0) = Online(demark_A).address send(1) = &H10 For count = 0 To 2 Call ITB(UT20, itemp()) '\u003Ca target=\"_brank\" href=\"\u002Fgoods\u002F768\"\u003E芯片\u003C\u002Fa\u003E地址 send(2) = itemp(1) send(3) = itemp(0) send(4) = &H0 寄存器数，字节数 send(5) = &H2 send(6) = &H4 Call LTB(Online(demark_A).temperature_AD, ltemp()) 写入电压值 send(7) = ltemp(0) send(8) = ltemp(1) send(9) = ltemp(2) send(10) = ltemp(3) Call CRC16(send(), 10, crc()) send(11) = crc(1) send(12) = crc(0) On Error GoTo ErrorHandler 错误捕捉串口操作 MSComm.Output = send TX_address = UT20 Sleep (sleeptime) Comerr = 10 位置错误标志 若通信成功 修改位置 On Error GoTo ErrorHandler Call MSComm_OnComm 调用串口数据处理函数 查询是否有中等发生\u003Chr\u003E If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n \r\n Next count\r\n Next demark_A '仪表地址循环\u003Chr\u003E Call StartScan\r\nExit Sub\u003Chr\u003EErrorHandler: '串口错误\r\n Call StartScan\r\n MsgBox \"请打开串口\", vbOKOnly + vbExclamation, \"错误\"\r\n Comerr = 10 '置位错误状态\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_DT60_Click()\r\n Dim count As Byte\r\n Dim demark_A As Byte '轮寻标定位置\r\n Dim send(12) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim itemp(1) As Byte\r\n Dim ltemp(3) As Byte\r\n Dim stemp(3) As Byte\r\n Dim address As Integer\r\n Dim outpercent As Single\r\n \r\n Call WaitForScan\r\n \r\n For demark_A = 0 To 30\r\n If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出\r\n Call StartScan\r\n Exit Sub\r\n End If\r\n \r\n send(0) = Online(demark_A).address\r\n send(1) = &H10\r\n \r\n For count = 0 To 2\r\n Call ITB(UT60, itemp()) '芯片地址\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0 '寄存器数，字节数\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Call LTB(Online(demark_A).temperature_AD, ltemp()) '写入电压值\r\n send(7) = ltemp(0)\r\n send(8) = ltemp(1)\r\n send(9) = ltemp(2)\r\n send(10) = ltemp(3)\r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n On Error GoTo ErrorHandler '串口操作错误捕捉\r\n MSComm.Output = send\r\n TX_address = UT60\r\n \r\n Sleep (sleeptime)\r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n On Error GoTo ErrorHandler\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n \r\n Next count\r\n Next demark_A '仪表地址循环\u003Chr\u003E Call StartScan\r\nExit Sub\u003Chr\u003EErrorHandler: '串口错误\r\n Call StartScan\r\n MsgBox \"请打开串口\", vbOKOnly + vbExclamation, \"错误\"\r\n Comerr = 10 '置位错误状态\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_DTF_Click()\r\n \r\n Dim count As Byte\r\n Dim position As Byte '选择标定点\r\n Dim demark_A As Byte '轮寻标定位置\r\n Dim send(12) As Byte '定义发送数组\r\n Dim sendt(10) As Byte\r\n Dim crc(1) As Byte\r\n Dim itemp(1) As Byte '将整形转换成2字节型数组\r\n Dim ltemp(3) As Byte '将长整形转换成4字节数组\r\n Dim stemp(3) As Byte '将浮点型转换成4字节数组\r\n \r\n Call WaitForScan\r\n \r\n For count = 0 To 9\r\n If Option_DT(count).Value = True Then\r\n position = count\r\n Exit For\r\n End If\r\n Next count\r\n \r\n For count = 0 To 1\r\n \r\n Next count\r\n \r\n demark_A = 0 '置位轮寻标定位置\r\n \r\n For demark_A = 0 To 30\r\n If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出\r\n Call StartScan\r\n Exit Sub\r\n End If\r\n \r\n For count = 0 To 2\r\n \r\n send(0) = Online(demark_A).address '置位操作地址\r\n send(1) = &H10\r\n \r\n Call ITB(TF + 4 * position, itemp()) '芯片地址\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0 '寄存器数，字节数\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Call STB(Online(demark_A).press, stemp()) '写入标定压力值\r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n \r\n Sleep (sleeptime)\r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Call StartScan\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n For count = 0 To 2 '写入温度\r\n \r\n sendt(0) = Online(demark_A).address '置位操作地址\r\n sendt(1) = &H10\r\n \r\n Call ITB(TTEM + 2 * position, itemp()) '芯片地址\r\n sendt(2) = itemp(1)\r\n sendt(3) = itemp(0)\r\n \r\n sendt(4) = &H0 '寄存器数，字节数\r\n sendt(5) = &H1\r\n sendt(6) = &H2\r\n \r\n Call ITB(CInt(Online(demark_A).temperature * 10#), itemp()) '写入标定压力值\r\n sendt(7) = itemp(0)\r\n sendt(8) = itemp(1)\u003Chr\u003E Call CRC16(sendt(), 8, crc())\r\n sendt(9) = crc(1)\r\n sendt(10) = crc(0)\r\n \r\n MSComm.Output = sendt\r\n \r\n Sleep (sleeptime)\r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n Next demark_A '仪表地址循环\r\n \r\n Call StartScan\r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_DTZ_Click() '零点标定\u003Chr\u003E Dim count As Byte\r\n Dim position As Byte '选择标定点\r\n Dim demark_A As Byte '轮寻标定位置\r\n Dim send(12) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim itemp(1) As Byte '将整形转换成2字节型数组\r\n Dim ltemp(3) As Byte '将长整形转换成4字节数组\r\n Dim stemp(3) As Byte '将浮点型转换成4字节数组\r\n \r\n Call WaitForScan\r\n \r\n For count = 0 To 9\r\n If Option_DT(count).Value = True Then\r\n position = count\r\n Exit For\r\n End If\r\n Next count\r\n \r\n demark_A = 0 '置位轮寻标定位置\r\n \r\n For demark_A = 0 To 30\r\n If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出\r\n Call StartScan\r\n Exit Sub\r\n End If\r\n \r\n For count = 0 To 2\r\n \r\n send(0) = Online(demark_A).address '置位操作地址\r\n send(1) = &H10\r\n \r\n Call ITB(TZ + 4 * position, itemp()) '芯片地址\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0 '寄存器数，字节数\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Call STB(Online(demark_A).press, stemp()) '写入标定压力值\r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n \r\n Sleep (sleeptime)\r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n Next demark_A '仪表地址循环\r\n \r\n Call StartScan\r\nEnd Sub\u003Chr\u003EPrivate Sub Combo_com_Click()\r\n Command_BUTTON_Opencom.Caption = \"打开串口\"\r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_DP0_Click() '写入标定0点\r\n Call demarkp(0)\r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_ExitA_Click() '退出固定电流输出模式 此功能与输出电流模式同 以后可精简\u003Chr\u003E Dim crc(1) As Byte\r\n Dim item(1) As Byte\r\n Dim stemp(3) As Byte\r\n Dim send(12) As Byte '定义发送数组\r\n Dim outpercent As Single\r\n \r\n Call WaitForScan\r\n \r\n outpercent = 200# '输出无效值\r\n \r\n send(0) = CByte(Combo_Meter.Text)\r\n send(1) = &H10\r\n \r\n Call ITB(IOUT, item())\r\n \r\n send(2) = item(1)\r\n send(3) = item(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Call STB(outpercent, stemp()) '写入标定压力值\r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n \r\n TX_address = ADD\r\n \r\n Call StartScan\r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_OPENCOM_Click()\u003Chr\u003E If MSComm.PortOpen Then MSComm.PortOpen = False\r\n \r\n On Error GoTo ErrorHandler\r\n \r\n MSComm.CommPort = Combo_com.ListIndex + 1\r\n MSComm.InputMode = comInputModeBinary\r\n MSComm.InputLen = 0\r\n MSComm.RThreshold = 1\r\n MSComm.SThreshold = 0\r\n MSComm.PortOpen = True\r\n \r\n On Error GoTo ErrorHandler\r\n Command_BUTTON_Opencom.Caption = \"串口已打开\"\r\nExit Sub\u003Chr\u003EErrorHandler:\r\n MsgBox \"打开串口时出错\", vbOKOnly + vbExclamation, \"错误\"\r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_OutA_Click()\r\n Dim count As Byte\r\n Dim position As Byte\r\n Dim send(12) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim item(1) As Byte\r\n Dim stemp(3) As Byte\r\n Dim address As Integer\r\n Dim outpercent As Single\r\n \r\n Call WaitForScan\r\n \r\n For count = 0 To 6\r\n If Option_IOut(count).Value = True Then\r\n position = count\r\n Exit For\r\n End If\r\n Next count '确定输出电流值\r\n \r\n Select Case position '计算输出百分比\r\n Case 0\r\n outpercent = -0.0125\r\n Case 1\r\n outpercent = 0#\r\n Case 2\r\n outpercent = 25#\r\n Case 3\r\n outpercent = 50#\r\n Case 4\r\n outpercent = 75#\r\n Case 5\r\n outpercent = 100#\r\n Case 6\r\n outpercent = 100.05\r\n Case Else\r\n outpercent = -0.0125\r\n End Select\r\n \r\n send(0) = CByte(Combo_Meter.Text)\r\n send(1) = &H10\r\n \r\n Call ITB(IOUT, item()) 'ITB将整形转换成2字节型\r\n \r\n send(2) = item(1)\r\n send(3) = item(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Call STB(outpercent, stemp()) '写入标定压力值 '将浮点型转换成4字节型\r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n TX_address = ADD\r\n Call StartScan\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command_Button_PR_Click()\r\n \r\n Label_RP1.Caption = \"AD采集值\"\r\n Label_RP2.Caption = \"标定点\"\r\n Label_RP3.Caption = \"\"\r\n Text_D03.Visible = False\r\n Text_D13.Visible = False\r\n Text_D23.Visible = False\r\n Text_D33.Visible = False\r\n Text_D43.Visible = False\r\n Text_D53.Visible = False\r\n Text_D63.Visible = False\r\n Text_D73.Visible = False\r\n Text_D83.Visible = False\r\n Text_D93.Visible = False\r\n Text_D103.Visible = False\r\n Text_D01.Visible = True\r\n Text_D02.Visible = True\r\n Command_BUTTON_TP(0).Visible = True\r\n \r\n Choose_TR_PR = 1 '当单击压力参数读取时，Choose_PR_TR=1 触发标志\r\n Timer_press_AD.Enabled = True\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_READADD_Click() '采用公共地址读取仪表地址\r\n \r\n Dim count As Integer\r\n Dim send(7) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim item(1) As Byte\r\n \r\n Call WaitForScan\r\n Text_RAdd.Text = 0\r\n \r\n send(0) = &HFF\r\n send(1) = &H3\r\n \r\n Call ITB(ADD, item())\r\n \r\n send(2) = item(1)\r\n send(3) = item(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H1\r\n Call CRC16(send(), 5, crc())\r\n send(6) = crc(1)\r\n send(7) = crc(0)\r\n \r\n MSComm.Output = send\r\n TX_address = ADD\r\n Call StartScan\r\n \r\nEnd Sub\u003Chr\u003E'芯片复位，本功能将清除芯片内所有数据\u003Chr\u003EPrivate Sub Command_BUTTON_RESET_Click()\r\n Dim count As Integer\r\n Dim send(9) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim item(1) As Byte\r\n Dim address As Integer\r\n \r\n Call WaitForScan\r\n \r\n If vbCancel = (MsgBox(\"本功能将使芯片置于初始状态，芯片内所有数据都将被清除，是否继续\", vbOKCancel + vbExclamation, \"提示\")) Then\r\n Exit Sub '询问是否继续清除\r\n End If\r\n \r\n send(0) = &HFF\r\n send(1) = &H10\u003Chr\u003E Call ITB(ULOCK, item())\r\n \r\n send(2) = item(1) '寄存器地址\r\n send(3) = item(0)\r\n \r\n send(4) = &H0 '寄存器数量\r\n send(5) = &H1\r\n send(6) = &H1 '字节数 本地址存储下位机地址 为单字节\r\n send(7) = &H0\r\n \r\n Call CRC16(send(), 7, crc())\r\n send(8) = crc(1)\r\n send(9) = crc(0)\r\n \r\n MSComm.Output = send\r\n TX_address = ULOCK\r\n \r\n Call StartScan\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_Scan_Click()\r\n Call WaitForScan '停止其他扫描\r\n Timer_SCAN.Enabled = True '扫描仪表 顺序扫描地址\r\nEnd Sub\u003Chr\u003EPrivate Sub Command_BUTTON_SETADD_Click() '采用公共地址设定仪表地址\r\n Dim count As Integer\r\n Dim send(9) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim item(1) As Byte\r\n Dim address As Integer\r\n \r\n Call WaitForScan\r\n \r\n send(0) = &HFF\r\n send(1) = &H10\u003Chr\u003E Call ITB(ADD, item())\r\n \r\n send(2) = item(1) '寄存器地址\r\n send(3) = item(0)\r\n \r\n send(4) = &H0 '寄存器数量\r\n send(5) = &H1\r\n \r\n send(6) = &H1 '字节数 本地址存储下位机地址 为单字节\r\n \r\n send(7) = CByte(Text_RAdd.Text)\r\n \r\n Call CRC16(send(), 7, crc())\r\n send(8) = crc(1)\r\n send(9) = crc(0)\r\n \r\n MSComm.Output = send\r\n TX_address = ADD\r\n \r\n Call StartScan\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command_Button_TR_Click()\u003Chr\u003E Label_RP1.Caption = \"温度\"\r\n Label_RP2.Caption = \"零点\"\r\n Label_RP3.Caption = \"满程\"\r\n Text_D03.Visible = True\r\n Text_D13.Visible = True\r\n Text_D23.Visible = True\r\n Text_D33.Visible = True\r\n Text_D43.Visible = True\r\n Text_D53.Visible = True\r\n Text_D63.Visible = True\r\n Text_D73.Visible = True\r\n Text_D83.Visible = True\r\n Text_D93.Visible = True\r\n Text_D103.Visible = True\r\n Text_D01.Visible = False\r\n Text_D02.Visible = False\r\n Text_D03.Visible = False\r\n Command_BUTTON_TP(0).Visible = False\r\n \r\n Choose_TR_PR = 0 '当单击温度参数读取时，Choose_PR_TR=0 触发标志\r\n \r\n Timer_Temp_Read.Enabled = True\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Command19_Click()\r\n Dim data(3) As Byte\r\n Dim temp As Long\r\n \r\n data(0) = &H25\r\n data(1) = &H52\r\n data(2) = &H9A\r\n data(3) = &H44\r\n \r\n temp = BTS(data())\r\n temp = 0\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Form_Load()\r\n Dim count As Integer\r\n Dim str As String\r\n str = \"COM\"\r\n For count = 1 To 12 '添加串口\r\n Combo_com.AddItem str & count\r\n Next count\r\n \r\n scanaddP = 1 '置位扫描位置\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub M_ALL_Click()\r\n SSTab.Tab = 0\r\nEnd Sub\u003Chr\u003EPrivate Sub M_DI_Click()\r\n SSTab.Tab = 1\r\nEnd Sub\u003Chr\u003EPrivate Sub M_DP_Click()\r\n SSTab.Tab = 2\r\nEnd Sub\u003Chr\u003EPrivate Sub M_DT_Click()\r\n SSTab.Tab = 3\r\nEnd Sub\u003Chr\u003EPrivate Sub M_Exit_Click()\r\n Unload Form_main\r\nEnd Sub\u003Chr\u003EPrivate Sub M_Online_Click()\r\n SSTab.Tab = 4\r\nEnd Sub\u003Chr\u003EPrivate Sub M_Parameter_Click()\r\n SSTab.Tab = 5\r\nEnd Sub\u003Chr\u003EPrivate Sub MSComm_OnComm() '串口数据接收函数\u003Chr\u003E Dim count As Long\r\n Dim counttemp As Long\r\n Dim tmpBuf() As Byte\r\n Dim crc(1) As Byte\r\n \r\n Dim i As Integer\r\n \r\n Dim tmpData(1) As Byte '温度\r\n Dim tmpDataZ(3) As Byte '零点\r\n Dim tmpDataF(3) As Byte '满程\r\n \r\n Dim preAdData(3) As Byte 'AD采集值\r\n Dim preData(3) As Byte '标定点\u003Chr\u003E Sleep (50)\r\n \r\n If MSComm.CommEvent = comEvReceive Then '接收数据流处理\r\n Erase RxData '清空数组\r\n Erase TxData '清空数组\r\n tmpBuf = MSComm.Input\r\n counttemp = UBound(tmpBuf)\r\n For count = 0 To counttemp\r\n RxData(count) = tmpBuf(count)\r\n Next count\r\n \r\n '串口接收数据\r\n If RxData(1) = &H3 Then '03读寄存器命令处理\r\n Call CRC16(RxData(), RxData(2) + 2, crc())\r\n If (RxData(RxData(2) + 4) = crc(0)) And (RxData(RxData(2) + 3) = crc(1)) Then 'CRC校验成功\r\n Comerr = 1 '通讯正常 通过CRC校验判定写入是否成功\r\n \r\n '综合参数设置--读取地址\r\n If (TX_address = 40001) Or (TX_address = 0) Then '地址匹配成功\r\n For count = 0 To 30\r\n If (Online(count).address = 0) Or (Online(count).address = RxData(0)) Then '地址匹配 继续处理\r\n Dim st2(1) As Byte\r\n Dim st4(3) As Byte\r\n \r\n Online(count).address = RxData(0)\r\n \r\n st4(3) = RxData(3)\r\n st4(2) = RxData(4)\r\n st4(1) = RxData(5)\r\n st4(0) = RxData(6)\r\n Online(count).final = BTS(st4) '数据转换 赋值给在线仪表\r\n \r\n st4(3) = RxData(7)\r\n st4(2) = RxData(8)\r\n st4(1) = RxData(9)\r\n st4(0) = RxData(10)\r\n Online(count).temperature = BTS(st4) '数据转换 赋值给在线仪表\r\n \r\n st4(3) = RxData(11)\r\n st4(2) = RxData(12)\r\n st4(1) = RxData(13)\r\n st4(0) = RxData(14)\r\n Online(count).press_AD = BTL(st4) '数据转换 赋值给在线仪表\r\n \r\n st4(3) = RxData(15)\r\n st4(2) = RxData(16)\r\n st4(1) = RxData(17)\r\n st4(0) = RxData(18)\r\n Online(count).press = BTS(st4) '数据转换 赋值给在线仪表\r\n \r\n st4(3) = RxData(19)\r\n st4(2) = RxData(20)\r\n st4(1) = RxData(21)\r\n st4(0) = RxData(22)\r\n Online(count).temperature_AD = BTL(st4) '数据转换 赋值给在线仪表\r\n Exit For\r\n End If\r\n Next count\r\n ElseIf (TX_address <= &H10FF) And (TX_address >= &H1000) Then\r\n If TX_address = ADD Then '单表读取及设定地址处理\r\n Text_RAdd.Text = RxData(3)\r\n Exit Sub\r\n End If\r\n \r\n For counttemp = 0 To 29 '选择当前操作地址\r\n If Online(counttemp).address = RxData(0) Then\r\n Exit For\r\n End If\r\n Next counttemp\r\n \r\n Select Case Choose_TR_PR\r\n Case 0 '温度参数读取\r\n For count = 0 To (RxData(2) - 1) '将数据转存\r\n DemarcateT(counttemp).demarcate(TX_address - &H1000 + count) = RxData(3 + count)\r\n Next count\r\n \r\n For i = 0 To 9\r\n tmpData(1) = DemarcateT(counttemp).demarcate(i * 2)\r\n tmpData(0) = DemarcateT(counttemp).demarcate(i * 2 + 1)\r\n \r\n tmpDataZ(0) = DemarcateT(counttemp).demarcate(i * 4 + 20)\r\n tmpDataZ(1) = DemarcateT(counttemp).demarcate(i * 4 + 21)\r\n tmpDataZ(2) = DemarcateT(counttemp).demarcate(i * 4 + 22)\r\n tmpDataZ(3) = DemarcateT(counttemp).demarcate(i * 4 + 23)\r\n \r\n tmpDataF(0) = DemarcateT(counttemp).demarcate(i * 4 + 60)\r\n tmpDataF(1) = DemarcateT(counttemp).demarcate(i * 4 + 61)\r\n tmpDataF(2) = DemarcateT(counttemp).demarcate(i * 4 + 62)\r\n tmpDataF(3) = DemarcateT(counttemp).demarcate(i * 4 + 63)\r\n \r\n DemarcateT(counttemp).temperature(i) = BTI(tmpData())\r\n DemarcateT(counttemp).zero(i) = BTS(tmpDataZ())\r\n DemarcateT(counttemp).full(i) = BTS(tmpDataF())\r\n Next i\r\n \r\n Text_D11.Text = DemarcateT(counttemp).temperature(0) \u002F 10 '溫度\r\n Text_D21.Text = DemarcateT(counttemp).temperature(1) \u002F 10\r\n Text_D31.Text = DemarcateT(counttemp).temperature(2) \u002F 10\r\n Text_D41.Text = DemarcateT(counttemp).temperature(3) \u002F 10\r\n Text_D51.Text = DemarcateT(counttemp).temperature(4) \u002F 10\r\n Text_D61.Text = DemarcateT(counttemp).temperature(5) \u002F 10\r\n Text_D71.Text = DemarcateT(counttemp).temperature(6) \u002F 10\r\n Text_D81.Text = DemarcateT(counttemp).temperature(7) \u002F 10\r\n Text_D91.Text = DemarcateT(counttemp).temperature(8) \u002F 10\r\n Text_D101.Text = DemarcateT(counttemp).temperature(9) \u002F 10\r\n \r\n Text_D12.Text = Format(DemarcateT(counttemp).zero(0), \"##0.00000\") '零點\r\n Text_D22.Text = Format(DemarcateT(counttemp).zero(1), \"##0.00000\")\r\n Text_D32.Text = Format(DemarcateT(counttemp).zero(2), \"##0.00000\")\r\n Text_D42.Text = Format(DemarcateT(counttemp).zero(3), \"##0.00000\")\r\n Text_D52.Text = Format(DemarcateT(counttemp).zero(4), \"##0.00000\")\r\n Text_D62.Text = Format(DemarcateT(counttemp).zero(5), \"##0.00000\")\r\n Text_D72.Text = Format(DemarcateT(counttemp).zero(6), \"##0.00000\")\r\n Text_D82.Text = Format(DemarcateT(counttemp).zero(7), \"##0.00000\")\r\n Text_D92.Text = Format(DemarcateT(counttemp).zero(8), \"##0.00000\")\r\n Text_D102.Text = Format(DemarcateT(counttemp).zero(9), \"##0.00000\")\r\n \r\n Text_D13.Text = Format(DemarcateT(counttemp).full(0), \"##0.00000\") '滿程\r\n Text_D23.Text = Format(DemarcateT(counttemp).full(1), \"##0.00000\")\r\n Text_D33.Text = Format(DemarcateT(counttemp).full(2), \"##0.00000\")\r\n Text_D43.Text = Format(DemarcateT(counttemp).full(3), \"##0.00000\")\r\n Text_D53.Text = Format(DemarcateT(counttemp).full(4), \"##0.00000\")\r\n Text_D63.Text = Format(DemarcateT(counttemp).full(5), \"##0.00000\")\r\n Text_D73.Text = Format(DemarcateT(counttemp).full(6), \"##0.00000\")\r\n Text_D83.Text = Format(DemarcateT(counttemp).full(7), \"##0.00000\")\r\n Text_D93.Text = Format(DemarcateT(counttemp).full(8), \"##0.00000\")\r\n Text_D103.Text = Format(DemarcateT(counttemp).full(9), \"##0.00000\")\r\n Case 1 '压力参数读取\r\n For count = 0 To (RxData(2) - 1) '将数据转存\r\n DemarcateP(counttemp).demarcate(TX_address - &H1080 + count) = RxData(3 + count)\r\n Next count\r\n \r\n For i = 0 To 10\r\n preAdData(0) = DemarcateP(counttemp).demarcate(i * 4)\r\n preAdData(1) = DemarcateP(counttemp).demarcate(i * 4 + 1)\r\n preAdData(2) = DemarcateP(counttemp).demarcate(i * 4 + 2)\r\n preAdData(3) = DemarcateP(counttemp).demarcate(i * 4 + 3)\r\n \r\n preData(0) = DemarcateP(counttemp).demarcate(i * 4 + 44)\r\n preData(1) = DemarcateP(counttemp).demarcate(i * 4 + 45)\r\n preData(2) = DemarcateP(counttemp).demarcate(i * 4 + 46)\r\n preData(3) = DemarcateP(counttemp).demarcate(i * 4 + 47)\r\n \r\n DemarcateP(counttemp).voltage(i) = BTL(preAdData())\r\n DemarcateP(counttemp).offset(i) = BTS(preData())\r\n Next i\r\n \r\n Text_D01.Text = DemarcateP(counttemp).voltage(0) 'AD采集值\r\n Text_D11.Text = DemarcateP(counttemp).voltage(1)\r\n Text_D21.Text = DemarcateP(counttemp).voltage(2)\r\n Text_D31.Text = DemarcateP(counttemp).voltage(3)\r\n Text_D41.Text = DemarcateP(counttemp).voltage(4)\r\n Text_D51.Text = DemarcateP(counttemp).voltage(5)\r\n Text_D61.Text = DemarcateP(counttemp).voltage(6)\r\n Text_D71.Text = DemarcateP(counttemp).voltage(7)\r\n Text_D81.Text = DemarcateP(counttemp).voltage(8)\r\n Text_D91.Text = DemarcateP(counttemp).voltage(9)\r\n Text_D101.Text = DemarcateP(counttemp).voltage(10)\r\n \r\n Text_D02.Text = Format(DemarcateP(counttemp).offset(0), \"##0.00000\") '标定点\r\n Text_D12.Text = Format(DemarcateP(counttemp).offset(1), \"##0.00000\")\r\n Text_D22.Text = Format(DemarcateP(counttemp).offset(2), \"##0.00000\")\r\n Text_D32.Text = Format(DemarcateP(counttemp).offset(3), \"##0.00000\")\r\n Text_D42.Text = Format(DemarcateP(counttemp).offset(4), \"##0.00000\")\r\n Text_D52.Text = Format(DemarcateP(counttemp).offset(5), \"##0.00000\")\r\n Text_D62.Text = Format(DemarcateP(counttemp).offset(6), \"##0.00000\")\r\n Text_D72.Text = Format(DemarcateP(counttemp).offset(7), \"##0.00000\")\r\n Text_D82.Text = Format(DemarcateP(counttemp).offset(8), \"##0.00000\")\r\n Text_D92.Text = Format(DemarcateP(counttemp).offset(9), \"##0.00000\")\r\n Text_D102.Text = Format(DemarcateP(counttemp).offset(10), \"##0.00000\")\r\n End Select\r\n End If\r\n End If\r\n End If\r\n \r\n If RxData(1) = &H10 Then '10写命令\r\n Call CRC16(RxData(), 5, crc()) 'CRC校验\r\n If RxData(6) = crc(1) And RxData(7) = crc(0) Then '校验成功\r\n Comerr = 1 '通讯正常\r\n End If\r\n End If\r\n End If\u003Chr\u003EEnd Sub\u003Chr\u003EPrivate Sub Online_Click()\r\n SSTab.Tab = 4\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_06_Click()\r\n Text_D0.Text = Format(0, \"##0.0\")\r\n Text_D1.Text = Format(0.1, \"##0.0\")\r\n Text_D2.Text = Format(0.2, \"##0.0\")\r\n Text_D3.Text = Format(0.3, \"##0.0\")\r\n Text_D4.Text = Format(0.4, \"##0.0\")\r\n Text_D5.Text = Format(0.5, \"##0.0\")\r\n Text_D6.Text = Format(0.6, \"##0.0\")\r\n Text_D7.Text = Format(0, \"##0.0\")\r\n Text_D8.Text = Format(0, \"##0.0\")\r\n Text_D9.Text = Format(0, \"##0.0\")\r\n Text_D10.Text = Format(0, \"##0.0\")\r\n preAD = 0\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_10_Click()\r\n Text_D0.Text = Format(0, \"##0.0\")\r\n Text_D1.Text = Format(1, \"##0.0\")\r\n Text_D2.Text = Format(2, \"##0.0\")\r\n Text_D3.Text = Format(3, \"##0.0\")\r\n Text_D4.Text = Format(4, \"##0.0\")\r\n Text_D5.Text = Format(5, \"##0.0\")\r\n Text_D6.Text = Format(6, \"##0.0\")\r\n Text_D7.Text = Format(7, \"##0.0\")\r\n Text_D8.Text = Format(8, \"##0.0\")\r\n Text_D9.Text = Format(9, \"##0.0\")\r\n Text_D10.Text = Format(10, \"##0.0\")\r\n preAD = 1\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_100_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(1#, \"##0.0\")\r\n Text_D2.Text = Format(2#, \"##0.0\")\r\n Text_D3.Text = Format(3#, \"##0.0\")\r\n Text_D4.Text = Format(4#, \"##0.0\")\r\n Text_D5.Text = Format(5#, \"##0.0\")\r\n Text_D6.Text = Format(6#, \"##0.0\")\r\n Text_D7.Text = Format(7#, \"##0.0\")\r\n Text_D8.Text = Format(8#, \"##0.0\")\r\n Text_D9.Text = Format(9#, \"##0.0\")\r\n Text_D10.Text = Format(10#, \"##0.0\")\r\n preAD = 2\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_1000_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(10#, \"##0.0\")\r\n Text_D2.Text = Format(20#, \"##0.0\")\r\n Text_D3.Text = Format(30#, \"##0.0\")\r\n Text_D4.Text = Format(40#, \"##0.0\")\r\n Text_D5.Text = Format(50#, \"##0.0\")\r\n Text_D6.Text = Format(60#, \"##0.0\")\r\n Text_D7.Text = Format(70#, \"##0.0\")\r\n Text_D8.Text = Format(80#, \"##0.0\")\r\n Text_D9.Text = Format(90#, \"##0.0\")\r\n Text_D10.Text = Format(100#, \"##0.0\")\r\n preAD = 3\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_16_Click()\r\n Text_D0.Text = Format(0, \"##0.0\")\r\n Text_D1.Text = Format(0.2, \"##0.0\")\r\n Text_D2.Text = Format(0.4, \"##0.0\")\r\n Text_D3.Text = Format(0.6, \"##0.0\")\r\n Text_D4.Text = Format(0.8, \"##0.0\")\r\n Text_D5.Text = Format(1#, \"##0.0\")\r\n Text_D6.Text = Format(1.2, \"##0.0\")\r\n Text_D7.Text = Format(1.4, \"##0.0\")\r\n Text_D8.Text = Format(1.6, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 4\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_160_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(2#, \"##0.0\")\r\n Text_D2.Text = Format(4#, \"##0.0\")\r\n Text_D3.Text = Format(6#, \"##0.0\")\r\n Text_D4.Text = Format(8#, \"##0.0\")\r\n Text_D5.Text = Format(10#, \"##0.0\")\r\n Text_D6.Text = Format(12#, \"##0.0\")\r\n Text_D7.Text = Format(14#, \"##0.0\")\r\n Text_D8.Text = Format(16#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 5\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_25_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(0.5, \"##0.0\")\r\n Text_D2.Text = Format(1#, \"##0.0\")\r\n Text_D3.Text = Format(1.5, \"##0.0\")\r\n Text_D4.Text = Format(2#, \"##0.0\")\r\n Text_D5.Text = Format(2.5, \"##0.0\")\r\n Text_D6.Text = Format(0#, \"##0.0\")\r\n Text_D7.Text = Format(0#, \"##0.0\")\r\n Text_D8.Text = Format(0#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 6\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_250_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(5#, \"##0.0\")\r\n Text_D2.Text = Format(10#, \"##0.0\")\r\n Text_D3.Text = Format(15#, \"##0.0\")\r\n Text_D4.Text = Format(20#, \"##0.0\")\r\n Text_D5.Text = Format(25#, \"##0.0\")\r\n Text_D6.Text = Format(0#, \"##0.0\")\r\n Text_D7.Text = Format(0#, \"##0.0\")\r\n Text_D8.Text = Format(0#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 7\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_40_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(0.5, \"##0.0\")\r\n Text_D2.Text = Format(1#, \"##0.0\")\r\n Text_D3.Text = Format(1.5, \"##0.0\")\r\n Text_D4.Text = Format(2#, \"##0.0\")\r\n Text_D5.Text = Format(2.5, \"##0.0\")\r\n Text_D6.Text = Format(3#, \"##0.0\")\r\n Text_D7.Text = Format(3.5, \"##0.0\")\r\n Text_D8.Text = Format(4#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 8\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_400_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(5#, \"##0.0\")\r\n Text_D2.Text = Format(10#, \"##0.0\")\r\n Text_D3.Text = Format(15#, \"##0.0\")\r\n Text_D4.Text = Format(20#, \"##0.0\")\r\n Text_D5.Text = Format(25#, \"##0.0\")\r\n Text_D6.Text = Format(30#, \"##0.0\")\r\n Text_D7.Text = Format(35#, \"##0.0\")\r\n Text_D8.Text = Format(40#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 9\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_60_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(1#, \"##0.0\")\r\n Text_D2.Text = Format(2#, \"##0.0\")\r\n Text_D3.Text = Format(3#, \"##0.0\")\r\n Text_D4.Text = Format(4#, \"##0.0\")\r\n Text_D5.Text = Format(5#, \"##0.0\")\r\n Text_D6.Text = Format(60#, \"##0.0\")\r\n Text_D7.Text = Format(0#, \"##0.0\")\r\n Text_D8.Text = Format(0#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 10\r\nEnd Sub\u003Chr\u003EPrivate Sub Option_0_600_Click()\r\n Text_D0.Text = Format(0#, \"##0.0\")\r\n Text_D1.Text = Format(10#, \"##0.0\")\r\n Text_D2.Text = Format(20#, \"##0.0\")\r\n Text_D3.Text = Format(30#, \"##0.0\")\r\n Text_D4.Text = Format(40#, \"##0.0\")\r\n Text_D5.Text = Format(50#, \"##0.0\")\r\n Text_D6.Text = Format(60#, \"##0.0\")\r\n Text_D7.Text = Format(0#, \"##0.0\")\r\n Text_D8.Text = Format(0#, \"##0.0\")\r\n Text_D9.Text = Format(0#, \"##0.0\")\r\n Text_D10.Text = Format(0#, \"##0.0\")\r\n preAD = 11\r\nEnd Sub\u003Chr\u003E'压力仪表标定采用查询串口方式\r\n'每次发送命令等待50mS读取数据，通讯成功则继续，否则重新发送，两次以上错误则认为仪表离线，提示检查连接\r\n'按仪表循环标定，直至最后一个在线仪表写入完毕\u003Chr\u003EPrivate Sub demarkp(demarkp As Byte) '仪表压力标定\r\n \r\n Dim demark_A As Byte '轮寻标定位置\r\n Dim count As Integer\r\n Dim send(12) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n Dim itemp(1) As Byte '将整形转换成2字节型数组\r\n Dim ltemp(3) As Byte '将长整形转换成4字节数组\r\n Dim stemp(3) As Byte '将浮点型转换成4字节数组\r\n \r\n Call WaitForScan\u003Chr\u003E \r\n demark_A = 0 '置位轮寻标定位置\r\n \r\n For demark_A = 0 To 30\r\n If Online(demark_A).address <= 0 Or Online(demark_A).address >= 255 Then '地址超范围 则退出\r\n Call StartScan\r\n Exit Sub\r\n End If\r\n \r\n For count = 0 To 2\r\n \r\n send(0) = Online(demark_A).address '置位操作地址\r\n send(1) = &H10\r\n \r\n Call ITB(LB + 4 * demarkp, itemp()) '芯片地址\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0 '寄存器数，字节数\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Select Case demarkp\r\n Case 0\r\n Call STB(CSng(Text_D0.Text), stemp()) '写入标定压力值\r\n Case 1\r\n Call STB(CSng(Text_D1.Text), stemp()) '写入标定压力值\r\n Case 2\r\n Call STB(CSng(Text_D2.Text), stemp()) '写入标定压力值\r\n Case 3\r\n Call STB(CSng(Text_D3.Text), stemp()) '写入标定压力值\r\n Case 4\r\n Call STB(CSng(Text_D4.Text), stemp()) '写入标定压力值\r\n Case 5\r\n Call STB(CSng(Text_D5.Text), stemp()) '写入标定压力值\r\n Case 6\r\n Call STB(CSng(Text_D6.Text), stemp()) '写入标定压力值\r\n Case 7\r\n Call STB(CSng(Text_D7.Text), stemp()) '写入标定压力值\r\n Case 8\r\n Call STB(CSng(Text_D8.Text), stemp()) '写入标定压力值\r\n Case 9\r\n Call STB(CSng(Text_D9.Text), stemp()) '写入标定压力值\r\n Case 10\r\n Call STB(CSng(Text_D10.Text), stemp()) '写入标定压力值\r\n End Select\r\n \r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n On Error GoTo ErrorHandler '串口操作错误捕捉\r\n MSComm.Output = send\r\n \r\n Sleep (sleeptime)\r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n For count = 0 To 2\r\n \r\n Call ITB(LBIN + 4 * demarkp, itemp()) '芯片地址\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0 '寄存器数，字节数\r\n send(5) = &H2\r\n send(6) = &H4\r\n \r\n Call LTB(Online(demark_A).press_AD, ltemp()) '写入电压值\r\n send(7) = ltemp(0)\r\n send(8) = ltemp(1)\r\n send(9) = ltemp(2)\r\n send(10) = ltemp(3)\r\n \r\n Call CRC16(send(), 10, crc())\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n On Error GoTo ErrorHandler '串口操作错误捕捉\r\n MSComm.Output = send\r\n \r\n Sleep (sleeptime)\r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n If Comerr = 10 And count = 2 Then '检测通讯错误 如果出错则退出操作\r\n Call StartScan\r\n MsgBox \"通讯出错，请检查连接\", vbOKOnly + vbExclamation, \"错误\"\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功 则退出循环\r\n Exit For\r\n End If\r\n Next count\r\n Next demark_A '仪表地址循环\u003Chr\u003E Call StartScan\r\nExit Sub\u003Chr\u003EErrorHandler: '串口错误\r\n Call StartScan\r\n MsgBox \"请打开串口\", vbOKOnly + vbExclamation, \"错误\"\r\n Comerr = 10 '置位错误状态\r\n \r\nEnd Sub\u003Chr\u003EPrivate Sub Parameter_Click()\r\n SSTab.Tab = 5\r\nEnd Sub\u003Chr\u003E\u003Chr\u003EPrivate Sub Timer_LISTRENOVATE_Timer() '刷新列表及更新仪表数据\r\n Dim count As Integer\r\n Dim itm As ListItem\r\n Dim send(7) As Byte '定义发送数组\r\n Dim crc(1) As Byte\u003Chr\u003E ListView_Display.ListItems.Clear\r\n \r\n For count = 0 To 30 '更新仪表数据\r\n If Online(count).address <> 0 Then\r\n Set itm = ListView_Display.ListItems.ADD()\r\n itm.Text = Online(count).address\r\n itm.SubItems(1) = Format(Online(count).final, \"##0.00000\")\r\n itm.SubItems(2) = Format(Online(count).press, \"##0.00000\")\r\n itm.SubItems(3) = Format(Online(count).temperature, \"##0.00000\")\r\n itm.SubItems(4) = Online(count).press_AD\r\n Else\r\n Exit For\r\n End If\r\n Next count\u003Chr\u003E If Online(scanaddP).address <> 0 Then\r\n \r\n send(0) = Online(scanaddP).address\r\n send(1) = &H3\r\n send(2) = &H0\r\n send(3) = &H0\r\n send(4) = &H0\r\n send(5) = &HA\r\n Call CRC16(send(), 5, crc())\r\n send(6) = crc(1)\r\n send(7) = crc(0)\r\n \r\n On Error GoTo ErrorHandler\r\n scanaddP = scanaddP + 1\r\n MSComm.Output = send\r\n TX_address = 0\r\n Else\r\n scanaddP = 0\r\n End If\u003Chr\u003EExit Sub\r\nErrorHandler:\r\n Call StartScan\r\n Timer_SCAN.Enabled = False\r\n MsgBox \"请打开串口\", vbOKOnly + vbExclamation, \"错误\"\r\nEnd Sub\u003Chr\u003EPrivate Sub Timer_SCAN_Timer() '每500ms中断一次 按地址一次扫描\r\n Dim count As Integer\r\n Dim send(7) As Byte '定义发送数组\r\n Dim crc(1) As Byte\r\n \r\n If scanaddP < 31 Then\r\n send(0) = scanaddP\r\n scanaddP = scanaddP + 1\r\n If ProgressBar.Value < 300 Then\r\n ProgressBar.Value = ProgressBar.Value + 10\r\n End If\r\n Else\r\n scanaddP = 1 '将扫描到的地址填入地址栏\r\n For count = 0 To 30\r\n If Online(count).address <> 0 Then\r\n Combo_Meter.AddItem Online(count).address, count\r\n End If\r\n Next count\r\n ProgressBar.Value = 0\r\n Timer_SCAN.Enabled = False\r\n MsgBox \"扫描仪表结束\", vbOKOnly, \"提示\"\r\n Timer_LISTRENOVATE.Enabled = True\r\nExit Sub\r\n End If\r\n \r\n send(1) = &H3\r\n send(2) = &H0\r\n send(3) = &H0\r\n send(4) = &H0\r\n send(5) = &HA\r\n Call CRC16(send(), 5, crc())\r\n send(6) = crc(1)\r\n send(7) = crc(0)\r\n \r\n On Error GoTo ErrorHandler\r\n MSComm.Output = send\r\n TX_address = 0\r\nExit Sub\u003Chr\u003EErrorHandler:\r\n Call StartScan\r\n Timer_SCAN.Enabled = False\r\n MsgBox \"请打开串口\", vbOKOnly + vbExclamation, \"错误\"\r\nEnd Sub\u003Chr\u003EPrivate Sub WaitForScan()\r\n \r\n Dim clearInput() As Byte\r\n Timer_LISTRENOVATE.Enabled = False\r\n Sleep (sleeptime) '发送命令之前停止扫描\r\n Call MSComm_OnComm\u003Chr\u003EEnd Sub\u003Chr\u003EPrivate Sub StartScan()\r\n Sleep (sleeptime)\r\n Timer_LISTRENOVATE.Enabled = True\r\nEnd Sub\u003Chr\u003E'参数读取--单点修改\r\nPrivate Sub Command_BUTTON_TP_Click(Index As Integer)\r\n Dim count As Integer\r\n Select Case Choose_TR_PR\r\n Case 0\r\n For count = 0 To 2\r\n Call temp_ValueWrite(Index)\r\n Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生\r\n If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功，退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n For count = 0 To 2\r\n Call tempZ_ValueWrite(Index)\r\n Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生\r\n If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功，退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n For count = 0 To 2\r\n Call tempF_ValueWrite(Index)\r\n Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生\r\n If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功，退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n Case 1\r\n For count = 0 To 2\r\n Call press_ADValueWrite(Index)\r\n Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生\r\n If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功，退出循环\r\n Exit For\r\n End If\r\n Next count\r\n \r\n For count = 0 To 2\r\n Call press_SpotWrite(Index)\r\n Comerr = 10 '置位错误标志，如果通讯成功则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数，查询是否有中断发生\r\n If Comerr = 10 And count = 2 Then '检测通讯错误，如果出错则退出操作\r\n Exit Sub\r\n ElseIf Comerr = 1 Then '通讯成功，退出循环\r\n Exit For\r\n End If\r\n Next count\u003Chr\u003E End Select\r\nEnd Sub\u003Chr\u003E'参数读取--压力参数读取--读出\r\nPrivate Sub Timer_press_AD_Timer()\r\n Dim send(7) As Byte\r\n Dim crc(1) As Byte\r\n Dim itemp(1) As Byte\r\n \r\n Call WaitForScan\u003Chr\u003E send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址\r\n \r\n If pre < 11 Then\r\n \r\n TX_address = &H1080 + pre * 10\r\n send(1) = &H3 '03读寄存器命令\r\n \r\n Call ITB(LBIN, itemp()) '压力AD采集值 地址\r\n send(2) = itemp(1)\r\n send(3) = itemp(0) + pre * 10\r\n send(4) = &H0\r\n send(5) = &HA '寄存器数\r\n Call CRC16(send(), 5, crc()) 'CRC校验\r\n send(6) = crc(1)\r\n send(7) = crc(0)\r\n \r\n MSComm.Output = send\r\n \r\n Sleep 300\r\n \r\n pre = pre + 1\r\n \r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n \r\n Else\r\n pre = 0\r\n Timer_press_AD.Enabled = False\r\n End If\u003Chr\u003E Call StartScan\r\nEnd Sub\u003Chr\u003E'参数读取--温度参数读取--读出\r\nPrivate Sub Timer_Temp_Read_timer()\r\n Dim send(7) As Byte\r\n Dim crc(1) As Byte\r\n Dim itemp(1) As Byte\r\n \r\n Call WaitForScan\r\n \r\n send(0) = CByte(Val(Combo_Meter.Text))\r\n \r\n If tmp < 10 Then\r\n \r\n TX_address = &H1000 + tmp * 10\r\n send(1) = &H3 '03读寄存器命令\r\n \r\n Call ITB(TTEM, itemp())\r\n send(2) = itemp(1)\r\n send(3) = itemp(0) + tmp * 10\r\n send(4) = &H0\r\n send(5) = &HA '寄存器数\r\n \r\n Call CRC16(send(), 5, crc()) 'CRC校验\r\n send(6) = crc(1)\r\n send(7) = crc(0)\r\n \r\n MSComm.Output = send\r\n Sleep 300\r\n \r\n tmp = tmp + 1\r\n \r\n Comerr = 10 '置位错误标志 如果通讯成功 则本位置被修改\r\n Call MSComm_OnComm '调用串口数据处理函数 查询是否有中断发生\r\n ElseIf tmp > 9 Then\r\n tmp = 0\r\n Timer_Temp_Read.Enabled = False\r\n End If\r\nEnd Sub\u003Chr\u003E'参数读取--压力参数读取--AD采集值写入\r\nPrivate Sub press_ADValueWrite(Index As Integer)\r\n Dim send(12) As Byte\r\n Dim itemp(1) As Byte\r\n Dim stemp(3) As Byte\r\n Dim crc(1) As Byte\r\n Dim count As Integer\r\n \r\n send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址\r\n send(1) = &H10 '10写寄存器命令\r\n \r\n Call ITB(LBIN + 4 * Index, itemp()) '地址，写压力\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H2 '寄存器数目\r\n send(6) = &H4 '字节数\r\n \r\n Select Case Index\r\n Case 0\r\n Call LTB(CSng(Text_D01.Text), stemp())\r\n Case 1\r\n Call LTB(CSng(Text_D11.Text), stemp())\r\n Case 2\r\n Call LTB(CSng(Text_D21.Text), stemp())\r\n Case 3\r\n Call LTB(CSng(Text_D31.Text), stemp())\r\n Case 4\r\n Call LTB(CSng(Text_D41.Text), stemp())\r\n Case 5\r\n Call LTB(CSng(Text_D51.Text), stemp())\r\n Case 6\r\n Call LTB(CSng(Text_D61.Text), stemp())\r\n Case 7\r\n Call LTB(CSng(Text_D71.Text), stemp())\r\n Case 8\r\n Call LTB(CSng(Text_D81.Text), stemp())\r\n Case 9\r\n Call LTB(CSng(Text_D91.Text), stemp())\r\n Case 10\r\n Call LTB(CSng(Text_D101.Text), stemp())\r\n End Select\r\n \r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n Call CRC16(send(), 10, crc()) 'CRC校验\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n Sleep 500\u003Chr\u003EEnd Sub\u003Chr\u003E'参数读取--压力参数读取--标定点写入\r\nPrivate Sub press_SpotWrite(Index As Integer)\r\n Dim send(12) As Byte\r\n Dim itemp(1) As Byte\r\n Dim stemp(3) As Byte\r\n Dim crc(1) As Byte\r\n Dim count As Integer\r\n \r\n send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址\r\n send(1) = &H10 '10写寄存器命令\r\n \r\n Call ITB(LB + 4 * Index, itemp()) '地址，写压力\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H2 '寄存器数目\r\n send(6) = &H4 '字节数\r\n \r\n Select Case Index\r\n Case 0\r\n Call STB(CSng(Text_D02.Text), stemp())\r\n Case 1\r\n Call STB(CSng(Text_D12.Text), stemp())\r\n Case 2\r\n Call STB(CSng(Text_D22.Text), stemp())\r\n Case 3\r\n Call STB(CSng(Text_D32.Text), stemp())\r\n Case 4\r\n Call STB(CSng(Text_D42.Text), stemp())\r\n Case 5\r\n Call STB(CSng(Text_D52.Text), stemp())\r\n Case 6\r\n Call STB(CSng(Text_D62.Text), stemp())\r\n Case 7\r\n Call STB(CSng(Text_D72.Text), stemp())\r\n Case 8\r\n Call STB(CSng(Text_D82.Text), stemp())\r\n Case 9\r\n Call STB(CSng(Text_D92.Text), stemp())\r\n Case 10\r\n Call STB(CSng(Text_D102.Text), stemp())\r\n End Select\r\n \r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n Call CRC16(send(), 10, crc()) 'CRC校验\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n Sleep 500\u003Chr\u003E\r\nEnd Sub\u003Chr\u003E'参数读取--温度参数读取--温度写入\r\nPrivate Sub temp_ValueWrite(Index As Integer)\r\n Dim send(10) As Byte\r\n Dim itemp(1) As Byte\r\n Dim stemp(1) As Byte\r\n Dim crc(1) As Byte\r\n \r\n send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址\r\n send(1) = &H10 '10写寄存器命令\r\n \r\n Call ITB(TTEM + 2 * (Index - 1), itemp()) '地址，写温度\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H1 '寄存器数目\r\n send(6) = &H2 '字节数\r\n \r\n Select Case Index\r\n Case 1\r\n Call ITB(CSng(Text_D11.Text), stemp())\r\n Case 2\r\n Call ITB(CSng(Text_D21.Text), stemp())\r\n Case 3\r\n Call ITB(CSng(Text_D31.Text), stemp())\r\n Case 4\r\n Call ITB(CSng(Text_D41.Text), stemp())\r\n Case 5\r\n Call ITB(CSng(Text_D51.Text), stemp())\r\n Case 6\r\n Call ITB(CSng(Text_D61.Text), stemp())\r\n Case 7\r\n Call ITB(CSng(Text_D71.Text), stemp())\r\n Case 8\r\n Call ITB(CSng(Text_D81.Text), stemp())\r\n Case 9\r\n Call ITB(CSng(Text_D91.Text), stemp())\r\n Case 10\r\n Call ITB(CSng(Text_D101.Text), stemp())\r\n End Select\r\n \r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n \r\n Call CRC16(send(), 8, crc()) 'CRC校验\r\n send(9) = crc(1)\r\n send(10) = crc(0)\r\n \r\n MSComm.Output = send\r\n Sleep 500\r\n \r\nEnd Sub\u003Chr\u003E'参数读取--温度参数读取--零点写入\r\nPrivate Sub tempZ_ValueWrite(Index As Integer)\r\n Dim send(12) As Byte\r\n Dim itemp(1) As Byte\r\n Dim stemp(3) As Byte\r\n Dim crc(1) As Byte\r\n \r\n send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址\r\n send(1) = &H10 '10写寄存器命令\r\n \r\n Call ITB(TZ + 4 * (Index - 1), itemp()) '地址，写温度\r\n send(2) = itemp(1)\r\n send(3) = itemp(0)\r\n \r\n send(4) = &H0\r\n send(5) = &H1 '寄存器数目\r\n send(6) = &H2 '字节数\r\n \r\n Select Case Index\r\n Case 1\r\n Call STB(CSng(Text_D12.Text), stemp())\r\n Case 2\r\n Call STB(CSng(Text_D22.Text), stemp())\r\n Case 3\r\n Call STB(CSng(Text_D32.Text), stemp())\r\n Case 4\r\n Call STB(CSng(Text_D42.Text), stemp())\r\n Case 5\r\n Call STB(CSng(Text_D52.Text), stemp())\r\n Case 6\r\n Call STB(CSng(Text_D62.Text), stemp())\r\n Case 7\r\n Call STB(CSng(Text_D72.Text), stemp())\r\n Case 8\r\n Call STB(CSng(Text_D82.Text), stemp())\r\n Case 9\r\n Call STB(CSng(Text_D92.Text), stemp())\r\n Case 10\r\n Call STB(CSng(Text_D102.Text), stemp())\r\n End Select\r\n \r\n send(7) = stemp(0)\r\n send(8) = stemp(1)\r\n send(9) = stemp(2)\r\n send(10) = stemp(3)\r\n \r\n Call CRC16(send(), 10, crc()) 'CRC校验\r\n send(11) = crc(1)\r\n send(12) = crc(0)\r\n \r\n MSComm.Output = send\r\n Sleep 500\r\n \r\nEnd Sub\u003Chr\u003E'参数读取--温度参数读取--满程写入\r\nPrivate Sub tempF_ValueWrite(Index As Integer)\r\n Dim send(12) As Byte\r\n Dim itemp(1) As Byte\r\n Dim stemp(3) As Byte\r\n Dim crc(1) As Byte\r\n \r\n send(0) = CByte(Val(Combo_Meter.Text)) '在线仪表首地址\r\n send(1) = &H10 '10写寄存器命令\r\n \r\n Call ITB(TF + 4 * (Index - 1), itemp()) '地址，写温度\r\n send(2)";ao.readCount=g;ao.keywords=s;ao.createDate="2022-08-15 13:00:00";ao.tagId=ap;ao.typeId=a;ao.typeLists=[{k:"842",v:"btl压力变送器"},{k:"4611",v:"3051dp2a差压变送器"},{k:"8614",v:"hd1电压变送器"}];ao.seotitle=s;return {layout:"default",data:[{detiObj:{info:ao,prList:[{id:7289578,brandId:aq,brandEnName:j,brandCnName:k,manufacturerNumber:"RTS6BS12N2S03",unitPrice:68.2825},{id:7289579,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"TV07RW-11-99AA",unitPrice:ar},{id:7289580,brandId:D,brandEnName:E,brandCnName:F,manufacturerNumber:"CA02COME28-21PBF80F0",unitPrice:228.8286},{id:7289581,brandId:544,brandEnName:j,brandCnName:k,manufacturerNumber:"PT05SP20-16S-LC",unitPrice:495.2376},{id:7289582,brandId:as,brandEnName:l,brandCnName:m,manufacturerNumber:"R85049\u002F82-10Z03",unitPrice:at},{id:7289583,brandId:G,brandEnName:p,brandCnName:p,manufacturerNumber:"8D013W08BA",unitPrice:412.1832},{id:7289584,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"D38999\u002F24FF35BA",unitPrice:au},{id:7289585,brandId:q,brandEnName:l,brandCnName:m,manufacturerNumber:"D38999\u002F20FJ35AB",unitPrice:av},{id:7289586,brandId:65,brandEnName:l,brandCnName:m,manufacturerNumber:"207485-2",unitPrice:75.7614},{id:7289587,brandId:aw,brandEnName:t,brandCnName:t,manufacturerNumber:"GTC6L-20-M1SC-74B1-(20)-L-R",unitPrice:c},{id:7289588,brandId:q,brandEnName:l,brandCnName:m,manufacturerNumber:"DJT16E23-21PB-LC",unitPrice:581.5524},{id:7289589,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"TV06DT-25-29PC-LC",unitPrice:2092.3188},{id:7289590,brandId:q,brandEnName:l,brandCnName:m,manufacturerNumber:"DJT16F15-5BC",unitPrice:377.949},{id:7289591,brandId:as,brandEnName:l,brandCnName:m,manufacturerNumber:"R85049\u002F85-10Z02",unitPrice:at},{id:7289592,brandId:q,brandEnName:l,brandCnName:m,manufacturerNumber:"DTS24W21-41SA-LC",unitPrice:621.8784},{id:7289593,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"D38999\u002F20FC35AD",unitPrice:476.9622},{id:7289594,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"CTVS06RF-21-11JA-LC",unitPrice:ax},{id:7289595,brandId:G,brandEnName:p,brandCnName:p,manufacturerNumber:"UTP01412S",unitPrice:82.8828},{id:7289596,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"TV07RW-11-99HA-LC",unitPrice:ar},{id:7289597,brandId:D,brandEnName:E,brandCnName:F,manufacturerNumber:"CA3102E20-14SBF80F0",unitPrice:229.086},{id:7289598,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"D38999\u002F20ZE26PN-LC",unitPrice:495.5808},{id:7289599,brandId:G,brandEnName:p,brandCnName:p,manufacturerNumber:"8T610B05AN",unitPrice:au},{id:7289600,brandId:q,brandEnName:l,brandCnName:m,manufacturerNumber:"D38999\u002F20JG35JB-LC",unitPrice:av},{id:7289601,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"TV06RW-15-18S-LC",unitPrice:475.5036},{id:7289602,brandId:aq,brandEnName:j,brandCnName:k,manufacturerNumber:"RTS6BS10N2S03",unitPrice:76.0188},{id:7289603,brandId:q,brandEnName:l,brandCnName:m,manufacturerNumber:"DTS26Z23-53SDC021",unitPrice:c},{id:7289604,brandId:7,brandEnName:l,brandCnName:m,manufacturerNumber:"208M724-19C20",unitPrice:757.246776},{id:7289605,brandId:aw,brandEnName:t,brandCnName:t,manufacturerNumber:"JL04V-8A18-10PEX-EBH-R",unitPrice:c},{id:7289606,brandId:D,brandEnName:E,brandCnName:F,manufacturerNumber:"NPS-2-BK-T6-SC",unitPrice:c},{id:7289607,brandId:o,brandEnName:j,brandCnName:k,manufacturerNumber:"CTVS06RF-21-11SA-LC",unitPrice:ax}],tjList:[{id:ay,title:az,pictureUrl:e},{id:aA,title:aB,pictureUrl:e},{id:aC,title:aD,pictureUrl:aE},{id:aF,title:aG,pictureUrl:e},{id:aH,title:aI,pictureUrl:e},{id:aJ,title:aK,pictureUrl:e},{id:aL,title:aM,pictureUrl:e},{id:aN,title:aO,pictureUrl:e},{id:aP,title:aQ,pictureUrl:e},{id:aR,title:aS,pictureUrl:e}],tagList:[{id:h,name:"动态",artList:[{id:H,title:I,pictureUrl:J},{id:K,title:L,pictureUrl:M},{id:N,title:O,pictureUrl:P},{id:Q,title:R,pictureUrl:S},{id:T,title:U,pictureUrl:V},{id:W,title:X,pictureUrl:Y},{id:Z,title:_,pictureUrl:$},{id:aa,title:ab,pictureUrl:ac},{id:ad,title:ae,pictureUrl:af},{id:ag,title:ah,pictureUrl:ai}]},{id:aT,name:"产品",artList:[{id:307267,title:"意法半导体新无线充电器开发板面向工业、医疗和智能家居应用",pictureUrl:a},{id:307266,title:"Molex莫仕发布新一代数据中心冷却解决方案中I\u002FO模块的热管理挑战和机遇报告",pictureUrl:a},{id:307265,title:"新闻稿发布：最新 imc STUDIO 2024测量控制管理软件",pictureUrl:a},{id:307264,title:"TrendForce集邦咨询：第一季智能手机生产量呈现年增，预估第二季将季减5-10%",pictureUrl:a},{id:307263,title:"Bourns 推出第二代符合 AEC-Q200 标准的高爬电\u002F间隙距离汽车级隔离电源变压器",pictureUrl:a},{id:307260,title:"英特尔下一代GPU架构Xe2发布，Battlemage台式机显卡将于随后推出",pictureUrl:a},{id:307259,title:"揭秘Intel 3：助力新一代产品性能、能效双飞跃！",pictureUrl:a},{id:307258,title:"一颗抵六个MCU，英特尔SoC创新方案成本优化显著",pictureUrl:a},{id:307254,title:"联想拯救者携手《黑神话：悟空》，开启国产单主机巨作的新时代",pictureUrl:a},{id:307253,title:"教你用NAS，跟手机内存不足Say Goodbye！",pictureUrl:a}]},{id:11,name:"新闻",artList:[{id:307084,title:"让“节能”贯穿服务器全生命周期，英特尔至强6能效核处理器的出众之处",pictureUrl:a},{id:307083,title:"英特尔CEO帕特·基辛格：AI正推动业界进入创新黄金时代，影响力堪称空前",pictureUrl:a},{id:307080,title:"英飞凌推出适用于物联网设备进行非接触式验证及安全配置的NFC I2C 桥接标签",pictureUrl:a},{id:307079,title:"安森美推出提高数据中心能效的完整电源解决方案",pictureUrl:a},{id:307078,title:"Molex莫仕在中国荣获通用汽车供应商质量卓越奖",pictureUrl:a},{id:307077,title:"ROHM开发出世界超小CMOS运算放大器 非常适用于智能手机和小型物联网设备等应用",pictureUrl:a},{id:307076,title:"凯柏胶宝®推出了汽车车窗遮阳帘的创新TPE解决方案",pictureUrl:a},{id:307075,title:"TrendForce集邦咨询：5月动力电池需求与价格持稳，6月价格恐将回落",pictureUrl:a},{id:307074,title:"意法半导体在意大利打造世界首个一站式碳化硅产业园",pictureUrl:a},{id:307050,title:"2024上海国际低碳智慧出行展览会——博世展示创新科技，赋能可持续出行和生活",pictureUrl:a}]},{id:13,name:"电路图",artList:[{id:259032,title:"光控式变调器电路",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002Fb2f1bda11eda4aefa45b2ba1d6a6657e.png?Expires=2324389413&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=VWSCjI6qvSfxF90fkB93ZStPzuA%3D"},{id:259031,title:"晶闸管测试电路",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002F8dc4915771f2457fad93628a1d24712e.png?Expires=2324389411&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=LVLuM8KWiztG6lCe12nR4zJRmIc%3D"},{id:259030,title:"门控音乐门铃",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002F1b524524ce3e4bf6ba73e9dd0a96a583.png?Expires=2324389409&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=r4nFTsDRMZwTDCNkfOQHvKgVvD0%3D"},{id:259029,title:"双音电子门铃",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002Ff643970efb904449b058bcf391439ce3.png?Expires=2324389407&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=Xa6Wk1BZd28eNozin5ix8yXssTs%3D"},{id:259028,title:"碳膜式电子风琴电路",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002F2d6b467fa0f44214a511858b3574e04c.png?Expires=2324389405&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=F4hjnbmTooESLKPDDTfoyIV5au4%3D"},{id:259027,title:"步进电机的控制电路和程序",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002Fe2e12c75a9724bd4bff9c49f6b1e3e4d.png?Expires=2324389400&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=penl28g0oqdIVVJRhczAnq8Ms4I%3D"},{id:259026,title:"电动机的分类及种类",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002F2688cba5be134904b687bfddae4f90fc.elecfans.com.png?Expires=2324389399&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=qVcjoMpHk4JTW4ChKlPTYSael3E%3D"},{id:259025,title:"直流电动机的分类",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002Fd33d706fbb784b28811ef4921798451e.elecfans.com.png?Expires=2324389396&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=Sn82ZI%2Bsex5V8Sg7clQGm0yEnqA%3D"},{id:259024,title:"三相异步电动机的分类",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002F79eb2ad4806b4918b27358609a158568.elecfans.com.png?Expires=2324389394&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=G47Wa2RS1XmYfymBZAWK6HOhFcM%3D"},{id:259023,title:"三相异步电动机的调速",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230902\u002Fthumbnail\u002Fca210a32d8994106a23852503e86e455.elecfans.com.png?Expires=2324389393&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=8P2LLJKQF7TlNNsts8xfp5WOUgw%3D"}]},{id:8,name:"方案",artList:[{id:307261,title:"LLC 转换器测试电路",pictureUrl:a},{id:307221,title:"Tektronix - 电化学测试方法详解",pictureUrl:a},{id:307220,title:"基于 RTD 的测量系统的过压保护",pictureUrl:a},{id:307219,title:"使用恒流 LED 驱动器所需的设计",pictureUrl:a},{id:307218,title:"使用高级特性和建模技术模拟宽带隙功率电路",pictureUrl:a},{id:307217,title:"了解逻辑电路",pictureUrl:a},{id:307191,title:"高级电感电路模型：查找交流电阻",pictureUrl:a},{id:307190,title:"DC\u002FDC 转换器：提供负电压的设备",pictureUrl:a},{id:307185,title:"湿敏电阻器的应用电路",pictureUrl:a},{id:307184,title:"交流固态继电器的内部电路与工作原理",pictureUrl:a}]},{id:ap,name:"技术",artList:[{id:ay,title:az,pictureUrl:e},{id:aA,title:aB,pictureUrl:e},{id:aC,title:aD,pictureUrl:aE},{id:aF,title:aG,pictureUrl:e},{id:aH,title:aI,pictureUrl:e},{id:aJ,title:aK,pictureUrl:e},{id:aL,title:aM,pictureUrl:e},{id:aN,title:aO,pictureUrl:e},{id:aP,title:aQ,pictureUrl:e},{id:aR,title:aS,pictureUrl:e}]},{id:1,name:"公告",artList:[{id:289765,title:"锐单2024年51劳动节放假通知",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20240412\u002F5f03ab9624c340f3a9dd59428b1bc4ea.png?Expires=2343610238&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=lsBBNpFK%2B7LzRxeJBigzJq9V%2Bj4%3D"},{id:289499,title:"锐单商城2024年清明节放假通知",pictureUrl:r},{id:274663,title:"2024年春节锐单商城放假安排",pictureUrl:r},{id:274067,title:"【通知】2024年元旦锐单商城放假安排",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20231228\u002F1b1119619b5d42d2afa1be1f12810ff2.jpg?Expires=2334467775&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=4uZfbx0OWsf9jdx\u002FEnXs9bHH7sg%3D"},{id:266368,title:"2023年锐单商城国庆节放假通知",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20230914\u002Fc544f5e1a68344d68459e6ae58c24d02.jpg?Expires=2325402876&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=dF\u002FZ2hIjs5emb09r9qSjLapwdZI%3D"},{id:243132,title:"锐单电子商城与深圳星通时频达成战略合作",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20230731\u002Ff0b6b9f72ef94e83a951171a36ab1333.JPG?Expires=2321511096&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=I54rsVj2pPC7bqLS2yuIDycgeMI%3D"},{id:243131,title:"锐单商城与雷卯电子达成代理合作",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20230731\u002Fc3148d5bfb0d4f99b16d57fce2367468.jpg?Expires=2321510838&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=59laJsMM9WVFwKuyvsewFooMvrI%3D"},{id:243072,title:"欢迎萨科微进驻锐单商城，有采购需求的伙伴看过来",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20230727\u002F83eb613fb95a4d479c647a89caa9d077.png?Expires=2321171143&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=AUnqNQY%2Bnol\u002FaGlhf9ohN82SK%2BI%3D"},{id:243070,title:"聚洵半导体科技与锐单商城达成战略合作！",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20230727\u002Fc71272ac1fcf4c19a24c4d62744d3a70.jpg?Expires=2321170210&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=2bKopINbpd90qeqMOwvqWjbsDSE%3D"},{id:242544,title:"2023锐单商城端午节放假通知！",pictureUrl:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002F20230616\u002Fdb5ccf9aa75149a080f41742edd9c8a4.png?Expires=2317598137&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=ZxdhTi1SrnGup4rRu\u002F9V5AWQYd0%3D"}]}],brlist:[{id:5,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_12.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"欧姆龙"},{id:u,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_10.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:v},{id:30,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_5.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"英飞凌"},{id:34,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_3.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"亚德诺"},{id:42,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_9.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"恩智浦"},{id:44,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_1.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"安森美"},{id:55,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_11.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"罗姆"},{id:61,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002F-e-brand_logo_15.png?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fquality,q_90",cnName:"意法半导体"},{id:d,brandLogo:"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Fbrand\u002Frecommend\u002FTDK.jpg?x-oss-process=image\u002Fauto-orient,1\u002Finterlace,1\u002Fresize,m_lfit,w_200\u002Fquality,q_90\u002Fformat,jpg",cnName:f}],newsList:[{id:H,title:I,pictureUrl:J},{id:K,title:L,pictureUrl:M},{id:N,title:O,pictureUrl:P},{id:Q,title:R,pictureUrl:S},{id:T,title:U,pictureUrl:V},{id:W,title:X,pictureUrl:Y},{id:Z,title:_,pictureUrl:$},{id:aa,title:ab,pictureUrl:ac},{id:ad,title:ae,pictureUrl:af},{id:ag,title:ah,pictureUrl:ai},{id:aU,title:aV,pictureUrl:aW},{id:aX,title:aY,pictureUrl:aZ},{id:a_,title:a$,pictureUrl:ba},{id:bb,title:bc,pictureUrl:bd},{id:be,title:bf,pictureUrl:bg}]},articleDetail:ao,metaDetail:"主程序： \n Option Explicit Const NAME_COLUMN = 0 Const TYPE_COLUMN = 1 Const",breadNavs:[{text:"锐单电子商城",disabled:aj,href:bh},{text:"电子资讯",disabled:aj,href:"\u002Finfomation\u002F"},{text:"技术支持",href:"\u002Finfomation\u002F9",disabled:aj},{text:s,disabled:bi,href:r}],combObj:{icList:[{manufacturerNumber:"BCS-145-L-D-HE-058",ukey:"100411310607879635"},{manufacturerNumber:"BCS-145-L-D-HE-023",ukey:"100411310607879636"},{manufacturerNumber:"BCS-145-L-D-HE-047",ukey:"100411310607879638"},{manufacturerNumber:"BCS-145-L-D-HE-062",ukey:"100411310607879639"},{manufacturerNumber:"BCS-145-L-D-HE-010",ukey:"100411310607879641"},{manufacturerNumber:"BCS-145-L-D-HE-075",ukey:"100411310607879642"},{manufacturerNumber:"BCS-145-L-D-HE-024",ukey:"100411310607879643"},{manufacturerNumber:"BCS-145-L-D-HE-059",ukey:"100411310607879644"},{manufacturerNumber:"BCS-145-L-D-HE-060",ukey:"100411310607879646"},{manufacturerNumber:"BCS-145-L-D-HE-076",ukey:"100411310607879648"},{manufacturerNumber:"BCS-145-L-D-HE-036",ukey:"100411310607879649"},{manufacturerNumber:"BCS-145-L-D-HE-063",ukey:"100411310607879650"},{manufacturerNumber:"BCS-145-L-D-HE-077",ukey:"100411310607879652"},{manufacturerNumber:"BCS-145-L-D-HE-025",ukey:"100411310607879653"},{manufacturerNumber:"BCS-145-L-D-HE-064",ukey:"100411310607879656"},{manufacturerNumber:"BCS-145-L-D-HE-050",ukey:"100411310607879657"},{manufacturerNumber:"BCS-145-L-D-HE-090",ukey:"100411310607879658"},{manufacturerNumber:"BCS-145-L-D-HE-065",ukey:"100411310607879659"},{manufacturerNumber:"BCS-145-L-D-HE-079",ukey:"100411310607879661"},{manufacturerNumber:"BCS-145-L-D-HE-066",ukey:"100411310607879662"},{manufacturerNumber:"BCS-145-L-D-HE-051",ukey:"100411310607879663"},{manufacturerNumber:"BCS-145-L-D-PE-001",ukey:"100411310607879664"},{manufacturerNumber:"BCS-145-L-D-HE-039",ukey:"100411310607879665"},{manufacturerNumber:"BCS-145-L-D-HE-052",ukey:"100411310607879666"},{manufacturerNumber:"BCS-145-L-D-HE-080",ukey:"100411310607879667"},{manufacturerNumber:"BCS-145-L-D-HE-067",ukey:"100411310607879669"},{manufacturerNumber:"BCS-145-L-D-PE-002",ukey:"100411310607879670"},{manufacturerNumber:"BCS-145-L-D-HE-053",ukey:"100411310607879671"},{manufacturerNumber:"BCS-145-L-D-HE-040",ukey:"100411310607879673"},{manufacturerNumber:"BCS-145-L-D-HE-081",ukey:"100411310607879674"}],remList:[{id:3077104,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bj,unitPrice:4.719},{id:3077105,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bk,unitPrice:3.2604},{id:3077106,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:"FA26X7R2E473KNU00",unitPrice:bl},{id:3077107,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bm,unitPrice:c},{id:3077108,brandId:w,brandEnName:x,brandCnName:y,manufacturerNumber:bn,unitPrice:bo},{id:3077109,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bp,unitPrice:c},{id:3077110,brandId:ak,brandEnName:al,brandCnName:am,manufacturerNumber:"CL21B681KBANNNC",unitPrice:.091079},{id:3077111,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:"GA-14",unitPrice:c},{id:3077112,brandId:bq,brandEnName:br,brandCnName:bs,manufacturerNumber:"C1808C470FHGAC7800",unitPrice:c},{id:3077113,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bt,unitPrice:.43655},{id:3077114,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bu,unitPrice:c},{id:3077115,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:"CGA3E2X8R1H103M080AA",unitPrice:.193736},{id:3077116,brandId:bv,brandEnName:bw,brandCnName:bx,manufacturerNumber:"22252C334KAT2A",unitPrice:c},{id:3077117,brandId:ak,brandEnName:al,brandCnName:am,manufacturerNumber:"CL10C680FB8NNNC",unitPrice:c},{id:3077118,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bj,unitPrice:c},{id:3077119,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bk,unitPrice:c},{id:3077120,brandId:bq,brandEnName:br,brandCnName:bs,manufacturerNumber:"C0805C472KARECAUTO",unitPrice:2.574},{id:3077121,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bm,unitPrice:c},{id:3077122,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:"FK24C0G1H153JN000",unitPrice:bl},{id:3077123,brandId:bv,brandEnName:bw,brandCnName:bx,manufacturerNumber:"12061A681FAT2A",unitPrice:7.722},{id:3077124,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bp,unitPrice:c},{id:3077125,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:"C4532JB2J104K230KA",unitPrice:c},{id:3077126,brandId:w,brandEnName:x,brandCnName:y,manufacturerNumber:"KCM55QR7YA176KH01K",unitPrice:14.053697},{id:3077127,brandId:w,brandEnName:x,brandCnName:y,manufacturerNumber:"GA243DR7E2472MW01L",unitPrice:4.82},{id:3077128,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bt,unitPrice:2.4024},{id:3077129,brandId:ak,brandEnName:al,brandCnName:am,manufacturerNumber:"CL21B471KBANNNC",unitPrice:.050686},{id:3077130,brandId:w,brandEnName:x,brandCnName:y,manufacturerNumber:bn,unitPrice:bo},{id:3077131,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:bu,unitPrice:c},{id:3077132,brandId:d,brandEnName:b,brandCnName:b,manufacturerNumber:"FD-16AU",unitPrice:449.2488},{id:3077133,brandId:268,brandEnName:"VISHAY",brandCnName:"威世",manufacturerNumber:"440LD15-R",unitPrice:8.2368}],pdfList:[{manufacturerNumber:"B43505C9227M67",brandId:a,brandEnName:b,brandCnName:f,pkey:"4719dfbafe605f5f09705e8fbd3c9f77"},{manufacturerNumber:"B43511C827M80",brandId:a,brandEnName:n,brandCnName:i,pkey:"77bbacab73752b78511ed910b9452027"},{manufacturerNumber:"B43508E2397M80",brandId:a,brandEnName:z,brandCnName:i,pkey:"24d0e4c7ef085dfa53f638e9b6cdf093"},{manufacturerNumber:"B43505A5227M007",brandId:a,brandEnName:z,brandCnName:i,pkey:"6258c6f1e8aff931627e8991911dbe32"},{manufacturerNumber:"B43515A4128M087",brandId:a,brandEnName:z,brandCnName:i,pkey:"a7cee4547da03926d81cc6ec0375e9c6"},{manufacturerNumber:"B43510B9158M087",brandId:a,brandEnName:b,brandCnName:f,pkey:"297f7658765bd074b6ee6de176c8c5eb"},{manufacturerNumber:"B43511A5158M87",brandId:a,brandEnName:b,brandCnName:f,pkey:"057b5f9d7d65769056fd707115bb3f22"},{manufacturerNumber:"B43510B5687M87",brandId:a,brandEnName:b,brandCnName:f,pkey:"04322c4bcaa58536d05ddc52b313216f"},{manufacturerNumber:"B43508E2477M67",brandId:a,brandEnName:b,brandCnName:f,pkey:"eac9c4b915b2acd69597ac4278c15ddc"},{manufacturerNumber:by,brandId:a,brandEnName:n,brandCnName:i,pkey:"b8f7708bc38062164bf3b21ee5aefdaa"},{manufacturerNumber:"B43510B6687M87",brandId:a,brandEnName:n,brandCnName:i,pkey:"2d00caf0b146aa503cd56f93f5ced67e"},{manufacturerNumber:"B43513A9228M000",brandId:a,brandEnName:n,brandCnName:i,pkey:"cc26ba50579eeb7d97d17941dcc4fd77"},{manufacturerNumber:"B43544F2827M060",brandId:a,brandEnName:b,brandCnName:f,pkey:"5380049f4ee97d6ff4659994a0f6e326"},{manufacturerNumber:bz,brandId:a,brandEnName:b,brandCnName:f,pkey:"13db4518b6881fa8ccff9784c38aca34"},{manufacturerNumber:"B43508B2567M000",brandId:a,brandEnName:b,brandCnName:f,pkey:"06271f82870d934f99ccf3015ada90c7"},{manufacturerNumber:"B43508B9397M67",brandId:a,brandEnName:b,brandCnName:f,pkey:"33edbaf837bd5a619eb339d3d337d8b5"},{manufacturerNumber:"B43508E2277M80",brandId:a,brandEnName:n,brandCnName:i,pkey:"88271cc121aa8482c884c34ac97d9d8a"},{manufacturerNumber:"B43508E2687M62",brandId:a,brandEnName:n,brandCnName:i,pkey:"979bc809c097d32b807182df6ef22a29"},{manufacturerNumber:"B43510A9687M000",brandId:a,brandEnName:b,brandCnName:f,pkey:"819e2dfcc9b9e94100e458f3994e3d69"},{manufacturerNumber:"B43509A5686M007",brandId:a,brandEnName:b,brandCnName:f,pkey:"0a2d1f9453e18c1b9bfd2630732b24e3"},{manufacturerNumber:"B43510B9188M80",brandId:a,brandEnName:n,brandCnName:i,pkey:"a410d9f84659676ab057b8baa3f2da81"},{manufacturerNumber:"B43508C2827M87",brandId:a,brandEnName:b,brandCnName:f,pkey:"f26a8b0ff04ac54a2d5d2024993e5cc7"},{manufacturerNumber:bA,brandId:a,brandEnName:n,brandCnName:i,pkey:"93e4f05c6a7290dfc76da6fb8e443ced"},{manufacturerNumber:"B43508E2228M62",brandId:a,brandEnName:b,brandCnName:f,pkey:"516e7d878c3a7540ed2350d4afc8e640"},{manufacturerNumber:"B43515A5108M000",brandId:a,brandEnName:z,brandCnName:i,pkey:"31fc6f034ee5e8c14b07651e38f7bf4c"},{manufacturerNumber:by,brandId:a,brandEnName:b,brandCnName:f,pkey:"eeae7657977265306a1e1a4b597db185"},{manufacturerNumber:bz,brandId:a,brandEnName:n,brandCnName:i,pkey:"b51d1a6c95ac2551df704b049e822daf"},{manufacturerNumber:"B43512A5108M000",brandId:a,brandEnName:b,brandCnName:f,pkey:"8863cd7fe062198dbfe73e68fb3ded55"},{manufacturerNumber:bA,brandId:a,brandEnName:b,brandCnName:f,pkey:"7f5b7ae9a648a8c3bfca1deebcb547d3"},{manufacturerNumber:"B43508G2567M82",brandId:a,brandEnName:n,brandCnName:i,pkey:"82d3825315235e0b5b2545e983b4c8df"}],repList:[{replaceMd5:"3f8f916b31f0d27753168c4330cc16a3",manufacturerNumber:"0101ZD102KAT2A"},{replaceMd5:"497e48136b13ad0081696ae69fd34d93",manufacturerNumber:"02013A100DAT2A"},{replaceMd5:bB,manufacturerNumber:"02013A560JAT2A"},{replaceMd5:bB,manufacturerNumber:"GRM0335C1E560JD01D"},{replaceMd5:"a67306b6ae7de2720812a276c7eac123",manufacturerNumber:"GRM033C80G104KE19D"},{replaceMd5:"c455bf1b672b097c31a43d285613df3f",manufacturerNumber:"GRM033C80G104KE19J"},{replaceMd5:"27c5d3be7b0ef1e1ec86e3a5308d62dc",manufacturerNumber:"GRM0335C1H100JA01J"},{replaceMd5:"585aceadfdfc81a4a5b47020cc7950d7",manufacturerNumber:"02016D103KAQ2A"},{replaceMd5:"623bd5c8735e87afbb9a76a8856b98a1",manufacturerNumber:"02015A150JAT2A"},{replaceMd5:"351f1f9c03d4ceec179f804f631260f4",manufacturerNumber:"0201ZD103JAT2A"},{replaceMd5:"1125472e753092f924288c8743e4443a",manufacturerNumber:"0201YD102KAT2A"},{replaceMd5:"4d23f852334c19c4551de90e4ddee33c",manufacturerNumber:"NMC0201X5R182K10TRPLP10"},{replaceMd5:"40f7efd15777ecd42a9e31d4ade2ba7f",manufacturerNumber:"ECJ-ZEC1C820J"},{replaceMd5:"b9b1dc52ecd80e95750b485dde58d232",manufacturerNumber:"04023A220JAT2A"},{replaceMd5:"962f5b76d2f8994e7cc3327cf75cc576",manufacturerNumber:"LD023A101GAB2A"},{replaceMd5:bC,manufacturerNumber:"ECJ0EB1E562K"},{replaceMd5:bC,manufacturerNumber:"0402B562K160NT"},{replaceMd5:"1fb6f4e8bae175b5798535e3f77b3d99",manufacturerNumber:"VJ0402A270JXXAC"},{replaceMd5:"8fa16fed0c49473fbb986dc50c5d74a9",manufacturerNumber:"NPO0402HTTP390J"},{replaceMd5:"5d6cdcc0fcdfda0c9ed93c31abacea89",manufacturerNumber:"C1608C0G1H390JT"},{replaceMd5:"34dad9e2f0df60b41794f63d1a6a08cb",manufacturerNumber:"NPO0402HTTP180J"},{replaceMd5:"e8fc19dd7614eedfba97734f6553dcd3",manufacturerNumber:"C1005C0G1H620J"},{replaceMd5:"3c83ed8c73aefa33ec091930519f94c3",manufacturerNumber:"04026D104KAT2A"},{replaceMd5:"c24aa7e03baa1bf0b104b656927e6c9c",manufacturerNumber:"LD025C471KAB2A"},{replaceMd5:"a9d8e130be7b00271607dd935d3e9a9f",manufacturerNumber:"04025C471KAJ2A"},{replaceMd5:"da7921deeb9753f4ea3232184c2c049e",manufacturerNumber:"0402YC333JAT2A"},{replaceMd5:bD,manufacturerNumber:"0402ZD104KAT2A"},{replaceMd5:bD,manufacturerNumber:bE},{replaceMd5:"25ba75041c4122cdccc2826de3539d15",manufacturerNumber:bE},{replaceMd5:"1b2f92efb63d94d2e1a5e78e77f54627",manufacturerNumber:"05085C103KAT2W"}]}}],fetch:[],error:a,state:{categories:a,trendNews:[{id:H,title:I,pictureUrl:J,introduction:"就在一周前，英伟达的市值刷出了史上新高，首次突破3万亿美元大关超越苹果，当时仅次于微软。5天后，英伟达股东大会匆匆通过了股票拆分方案，对公司股票按照1拆10的比例进行拆分，总股本从原来的24.6亿，变成了246亿。董事会认为，较低的价格可能会让更广泛的投资者更容易获得英伟达的股票所有权并刺激需求，从而可能为英伟达投资者带来更多收益。",content:a,readCount:g,keywords:"[\"英伟达\",\"AI芯片\"]",createDate:"2024-06-16 10:37:11",tagId:h,typeId:a,typeLists:a},{id:K,title:L,pictureUrl:M,introduction:"在谈到小米做智能电动车的核心原因时，雷军对外解释到：他通过调研痛苦地认识到智能手机肯定不是当下最尖端的科技了，最尖端的科技已经变成了智能电动汽车，如果不干肯定落伍，而且小米手机聚集起来的优秀人才也只会流失，注定与成为伟大的公司越来越远。",content:a,readCount:g,keywords:"[\"算力\",\"AI服务器\"]",createDate:"2024-06-16 09:37:11",tagId:h,typeId:a,typeLists:a},{id:N,title:O,pictureUrl:P,introduction:"苹果在近日召开的2024年WWDC全球开发者大会上开启了AI新篇章：推出全新AI系统Apple Intelligence，宣布与OpenAI的合作，ChatGPT集成将于今年晚些时候登陆iOS、iPadOS和macOS。",content:a,readCount:g,keywords:"[\"AI芯片\",\"AI服务器\"]",createDate:"2024-06-15 14:07:11",tagId:h,typeId:a,typeLists:a},{id:Q,title:R,pictureUrl:S,introduction:"温度传感电路是许多工业系统的重要组成部分，在温度传感元件之中，金属铂制成的热电阻PT100可保证长期稳定性，宽温度范围内最精确。本文介绍几种PT100采集电路方案，分析精密温度采集电路的设计要点。",content:a,readCount:g,keywords:"[\"铂电阻\"]",createDate:"2024-06-15 13:37:11",tagId:h,typeId:a,typeLists:a},{id:T,title:U,pictureUrl:V,introduction:"6月热搜头号芯片出现变动，消费、汽车、工业等应用场景涌现出局部需求，部分热门芯片价格持续走高。以下是我们挑选的6月的8个热门芯片（型号）：1、年中热门黑马「DSPIC30F2010-30I\u002FSP」；2、抢手的无人机芯片「FD6288Q」；3、索尼不图索狗的钱「IMX224」；4、消费类电子春天「LIS3DHTR」；",content:a,readCount:g,keywords:"[\"芯片\",\"芯片市场\"]",createDate:"2024-06-15 13:07:11",tagId:h,typeId:a,typeLists:a},{id:W,title:X,pictureUrl:Y,introduction:"最近SIA公布了全球半导体器件市场的最新数据（24年4月份，三个月移动平均值）。当月全球市场销售额达到436亿美金，同比上涨15.8%，环比也有1.13%的涨幅",content:a,readCount:g,keywords:"[\"半导体市场\",\"半导体器件\"]",createDate:"2024-06-15 12:37:10",tagId:h,typeId:a,typeLists:a},{id:Z,title:_,pictureUrl:$,introduction:"济南祥控自动化设备有限公司研制的XKCON祥控防爆型气体检测仪能够自动采集储能站内各种气体的实时浓度，在锂电池热失控前或之后及时、准确地监测气体及温度变化并发出预警，使管理者有充分的时间采取相应的措施，避免停电事故和火灾发生扩大等。",content:a,readCount:g,keywords:"[\"检测仪\"]",createDate:"2024-06-14 18:07:12",tagId:h,typeId:a,typeLists:a},{id:aa,title:ab,pictureUrl:ac,introduction:"全球微电子工程公司Melexis近日宣布，作为汽车动态照明LED驱动芯片领域的领军者，正式推出全新产品MLX81123，进一步扩展LIN RGB系列产品线。这款芯片在前代产品的基础上进行深度优化，封装设计更为紧凑，成本效益显著提升，同时保持稳定可靠的卓越性能。此外，通过布局新供应链，迈来芯不仅显著提升行业竞争力，更确保客户业务连续性。 LED动态照明已成为汽车制造商不可或缺的关键设计元素，它不仅提",content:a,readCount:g,keywords:"[\"MCU\",\"驱动芯片\"]",createDate:"2024-06-14 16:07:12",tagId:h,typeId:a,typeLists:a},{id:ad,title:ae,pictureUrl:af,introduction:"以大模型为代表的新一代人工智能技术是引领新一轮科技革命和产业变革的战略性技术和重要驱动力量，随着对算力需求的日益高涨，人工智能算力底座公司日益成为新一波人工智能技术浪潮重要组成部分。 2024年5月，摩尔线程与智谱AI开展了新一轮GPU 大模型适配及性能测试，包括大模型推理以及基于夸娥（KUAE）千卡智算集群的大模型预训练。测试用相关大模型来自智谱AI基座大模型及其开源版本。 测试结果表明，在推理",content:a,readCount:g,keywords:"[\"人工智能\",\"GPU\"]",createDate:"2024-06-14 15:37:12",tagId:h,typeId:a,typeLists:a},{id:ag,title:ah,pictureUrl:ai,introduction:"中国海关总署公布的数据显示，2024年前5个月，中国集成电路出口额约为626.13亿美元，同比增长21.2%。其中，5月出口额约为126.34亿美元，同比增长28.47%。有机构统计，中国大陆半导体厂商2023年产能同比增长12%，达到每月760万片晶圆。预计中国大陆芯片制造商在2024年的产能有望同比增加13%，达到每月860万片晶圆。",content:a,readCount:g,keywords:"[\"半导体\",\"半导体设备\"]",createDate:"2024-06-14 15:07:12",tagId:h,typeId:a,typeLists:a},{id:aU,title:aV,pictureUrl:aW,introduction:"CIPOS™ Mini IM523系列是一个全新的智能功率模块（IPM）系列，这些产品采用完全隔离的双列直插式封装，通过集成第二代逆导型IGBT，可以实现更高的电流密度和系统能效。IM523智能功率模块具有一个带自举功能的集成式绝缘体上硅栅极驱动器和一个可向控制器提供模拟反馈信号的温度监测器，从而最大限度地减少了对外部元件的需求。得益于这些特性，这个新的IPM系列的产品堪称冰箱和洗衣机等家用电器所",content:a,readCount:g,keywords:"[\"英飞凌\",\"电机驱动\"]",createDate:"2024-06-14 13:37:12",tagId:h,typeId:a,typeLists:a},{id:aX,title:aY,pictureUrl:aZ,introduction:"“当前，中国光伏产业处在最好与最坏并存的时刻，在阵痛中破茧成蝶的重要转换期。行业正在经历的不是以往三五年一轮的周期性迭代，而是光伏大变局来临之前的一场预演。”6月13日，第十七届国际太阳能光伏与智慧能源展览会（SNEC2024）在上海正式启幕，协鑫集团董事长朱共山在会上指出。",content:a,readCount:g,keywords:"[\"储能\",\"光伏产业\"]",createDate:"2024-06-14 13:07:12",tagId:h,typeId:a,typeLists:a},{id:a_,title:a$,pictureUrl:ba,introduction:"芯片公司最重要的两个部门，我认为一个是市场部，一个是研发部。市场部负责规划产品路线，而研发部则负责实现这些产品。研发能力不足时，会导致市场部重新规划产品；而市场部规划能力不足，则会导致研发做无用功。因此，两者的合作非常重要。",content:a,readCount:g,keywords:"[\"芯片公司\",\"芯片企业\"]",createDate:"2024-06-14 12:37:12",tagId:h,typeId:a,typeLists:a},{id:bb,title:bc,pictureUrl:bd,introduction:"建议有志于在芯片行业奋斗的ICer们阅读，将有助于您更早了解芯片行业职场的一些深刻逻辑。目前芯片行业中的大龄工程师越来越多，但实际上对于这些大龄工程师来说，对应的领导岗位并不会很多。也就是说，业内会有越来越多的走技术路线的大龄芯片工程师。",content:a,readCount:g,keywords:"[\"芯片行业\",\"芯片公司\"]",createDate:"2024-06-14 12:07:12",tagId:h,typeId:a,typeLists:a},{id:be,title:bf,pictureUrl:bg,introduction:"国产芯片太难了：全员内卷！一是中兴事件以来，员工的工资涨了好几倍、初创公司挖人都是薪资翻倍起跳，同样规模的芯片企业的研发投入比10年前要高3倍以上。研发人员经常加班加点讨论项目进度，只为了能缩短芯片上市流程，尽快tapeout。",content:a,readCount:g,keywords:"[\"芯片市场\",\"芯片公司\"]",createDate:"2024-06-14 11:37:13",tagId:h,typeId:a,typeLists:a}],noticeNews:a,articleNews:a,responseCollect:{},user:{},forwardUrl:bh,cart:[],footCates:[],friendLinks:[],infomationBreadNavs:[],hotProList:[{id:4785601,b:u,cid:a,e:an,i:A,d:"RES SMD 10 OHM 5% 3\u002F4W 2010",c:v,m:"AC2010JK-0710RL",pn:a,g:a,p:.237638,scid:B,sc:C,count:c,min:aT},{id:4785649,b:u,cid:a,e:an,i:A,d:"RES SMD 10K OHM 5% 1\u002F20W 0201",c:v,m:"AC0201JR-0710KL",pn:a,g:a,p:.007301,scid:B,sc:C,count:c,min:bF},{id:4785652,b:71,cid:a,e:"VISHAY-CERA",i:A,d:"RES SMD 22K OHM 1% 1\u002F4W 1206",c:r,m:"CRCW120622K0FKEA",pn:a,g:a,p:.091594,scid:B,sc:C,count:c,min:50},{id:4785847,b:u,cid:a,e:an,i:A,d:"RES SMD 33K OHM 5% 1\u002F8W 0805",c:v,m:"AC0805JR-0733KL",pn:a,g:a,p:.020598,scid:B,sc:C,count:c,min:bF}],keyword:r},serverRendered:bi,routePath:"\u002Finfomation\u002Fdetail\u002F136258",config:{}}}(null,"TDK",0,63,"https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230421\u002Fthumbnail\u002Flist-noimg-35461bb180dbc0d603306be50220f657.png","东电化","0",4,"爱普科斯","AMPHENOL","安费诺","TE","泰科","Epcos",729,"SOURIAU-SUNBANK",754,"","变送器软件","JAE Electronics",540,"国巨",94,"MURATA","村田","TDK-EPC","icondianziyuanjian",516,"贴片电阻器",691,"ITT\u002FCANNON","ITT坎农",426,307273,"英伟达“特供”AI芯片背后的阳谋","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240616\u002Fthumbnail\u002F3999779a3dc6465d9a13f691192f32c8.png?Expires=2349223991&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=tCbHLiEdnsAT%2BX%2BbUI0ILQ6afgE%3D",307272,"2024年的AI服务器，相当于2018年的新能源车","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240616\u002Fthumbnail\u002Fc81ad290f35d44e98da8ca7009a24a6b.png?Expires=2349220517&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=LNaGQt\u002FoEym9DCys6Fb9gC4E6DU%3D",307271,"泼天的富贵，轮到AI服务器了吗？","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240615\u002Fthumbnail\u002F01308dd9b6fc472b99cb5dbf4d6bd4a0.png?Expires=2349144859&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=ttI%2BHevKmsVH70dQKAYIHqQphkU%3D",307270,"【铂电阻测温】铂电阻如何采集？","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240615\u002Fthumbnail\u002F0bff171ecad6439da38f9822ea5b9483.png?Expires=2349144852&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=Oe3ClKiOMyXobBPoC7OQuI1knJY%3D",307269,"需求复苏的苗头出现了！微芯、瑞昱、ST等热门芯片料号鉴定","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240615\u002Fthumbnail\u002F242723032bad4b0e9d63387f99b4e96c.png?Expires=2349144850&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=1H5I4zYsWli7WAzQGIF9HBqViL8%3D",307268,"2024-04，全球半导体器件市场二次反弹","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240615\u002Fthumbnail\u002Fa6bda2d36b45461a8659d0eeb698a73c.png?Expires=2349144838&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=CTAYsWPBzQuisay%2BAXPPvvVIK2c%3D",307262,"XKCON祥控防爆型气体检测仪在电力储能柜中检测到气体浓度异常时，现场声光报警","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002F42e1a8c8c2074d0189230c8393a0ffe3.png?Expires=2349079258&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=IbnMvnEw7cp%2BIY2e9BtaB5nXiDY%3D",307257,"Melexis推动行业变革：汽车照明LED驱动芯片实现超小型化","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002F503b90c3c7c345a48c98e345318956db.png?Expires=2349071968&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=wBAewCNU3nCjL5SXpQ9fJokqGEE%3D",307256,"性能新突破！媲美国际水准！国产千卡智算集群助力国产大模型训推","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002F0a14ee6851a6426eb1c1fe898e164429.png?Expires=2349068150&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=RmnRpfVq7r4nWcwDBfGHHm9S8vg%3D",307255,"中国半导体进出口暴增的背后","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002Fc93af9c71c0f4f4b8860eff3f6b311b3.png?Expires=2349068123&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=f1lGShuZ8f9kDjkMJNhSUdUdcEg%3D",false,538,"SAMSUNG","三星电机","YAGEO",{},9,545,735.306,236,756.714816,538.9098,437.4942,737,1137.0216,227294,"pic单片机p18f458A\u002FD转换程序-采用中断方式",227293,"MSP430单片机极低功耗数字温度计设计",227292,"智能水位控制系统毕业设计","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20230421\u002Fthumbnail\u002F1566011406603_7637.png",227291,"HT1621 32字节×4位LCD液晶驱动芯片程序",227290,"单片机抢答器程序",227289,"单片机数字钟程序",227288,"单片机复位电路作用原理以及与置位的区别",227287,"单片机秒表设计程序",227285,"P型半导体,N型半导体带正负电的问题",227284,"体育审美教育",10,307252,"借助智能功率模块系列提高白色家电的能效","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002Fa161a1fe5be84506b63b576acfebc551.png?Expires=2349060893&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=6QlxVCx8iwFTkv9m598Ay7LCfOM%3D",307250,"SNEC2024特别报道 | 光伏产业正在穿越新周期","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002Fed7fa9a4ee2749f4b8837c2c9a518a9d.png?Expires=2349057340&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=3gasgwOmg9bqBRPTCnzR9u1uikk%3D",307249,"芯片公司最重要的部门","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002Fb793ce2aea0c47fb96ad259459a07b92.png?Expires=2349057339&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=PMnZyd1kW0q70uaEGG8iQGb0usw%3D",307248,"芯片公司裁员为何喜欢裁年轻工程师，资深工程师又为何会有中年危机","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002F721ae329c3f14af0bfffa7829be27ebd.png?Expires=2349053666&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=oJnrU71h0kx7HyYMwNXAGs0Xfs8%3D",307247,"国产芯片：猥琐发育，别浪！","https:\u002F\u002Fweb.ruidan.com\u002Fimages\u002Faritcle\u002Fprogrammes\u002F20240614\u002Fthumbnail\u002F4cdc87398e374f5fa30a875ad00f132b.png?Expires=2349053664&OSSAccessKeyId=LTAIHgntmVKZP6VP&Signature=qbtgH3QVtmJWWbFG\u002FHCaMgMJvcs%3D","\u002F",true,"C2012NP01H153J085AA","CGB4B3X5R1A225K055AB",4.1184,"C1005JB0G475K050BB","DK1E3EA152M86RBH01",4.03,"C3225NP02J333J250AA",145,"KEMET","基美","CGA3E2X8R2A472K080AD","CGA3E3X5R1V334M080AB",85,"AVX","AVX Corporation","B43508G2108M60","B43510B9158M80","B43511C9158M87","544a6925459d77aadb6897222f68f7fc","5b0341a8a54ca09d28738b6a52c38f79","addaedbde4a3339fe4e5905ff85b04ef","0402YD104KAT2A",100));</script><script src="https://cdn.ruidan.com/_nuxt/runtime.4700705.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/node_modules/commons.2a42e354.cbb3e29.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/node_modules/commons.7274e1de.30cf5a2.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/node_modules/commons.fdc6512a.2aec0b6.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.24120820.ee8b89e.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.399807b2.70d539c.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.2a8e0bc3.5e16e02.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.b7594acd.382e95b.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.b65b9db7.5c6c6a3.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.8ba97efe.a1c8395.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.a3edef0e.76fe05a.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/styles.62298082.965fcdb.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/app.24120820.aa54eee.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/app.d0ae3f07.9c95a17.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/app.31ecd969.51918de.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/app.b5906859.4c08c14.js" defer></script><script src="https://cdn.ruidan.com/_nuxt/app.793f9119.c658607.js" defer></script> </body> </html>