8255842a的个人资料

一个气缸接在两个电磁阀上，有什么用途？？如题，今天修设备看到。下图红框，绿框。。

冷冻干燥机...随空压机启动... 今天偶然看见,冷冻干燥机(此机器风冷)不宜空载运行.. 空载了,是不是蒸发器那儿就无法散热,,会导致蒸发器过冷?? 所以想了下,是不是可以随空压机一起启停... 冷冻干燥机是启保停电路...想利用空压机接触器辅助触头(空压机运行时常ON)来实现启停,冷干机(冷干机要有失压保护.)

广州数控980TD,坐标在动,实际不动.. 系统980TD,,手动X轴,正常手动Z轴,显示器数值变化,但拖板实际不动(配电箱内Z轴伺服放大器无数值变化,而手动X轴时,X轴放大器有数值变化..)大概是哪的问题,,TKS....

求助:VB怎么做个通用函数供其它事件调用... Private Sub C3_Click() If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MSComm1.InputLen = 0 sd = "01ED00BB8" '这行的东西不一样....................... MSComm1.Output = Chr(5) + sd + SumChk(sd) MSComm1.PortOpen = False End If End Sub 有几个按钮,功能都差不多.能不能在 VB通用那儿建立个....供几个按钮调用. 就像下面的SumChk() Private Function SumChk(Dats$) As String Dim i& Dim CHK& For i = 1 To Len(Dats) CHK = CHK + Asc(Mid(Dats, i, 1)) Next i SumChk = Right(Hex$(CHK), 2) End Function

求助..VB求素数的问题..... Dim i As Integer, j As Integer Text1 = "" For i = 101 To 300 Step 2 '比如此时i=101 For j = 2 To i - 1 '那此时j不是=2 to 100 ? If i Mod j = 0 Then Exit For End If Next j If j >= i Then '这个j不是都会比i小的么?怎么这个条件能满足? Text1 = Text1 & Space(2) & i End If Next i

求助:数值前面补0,用Format怎么有的数值乱七八糟的....TKS.... Private Sub Command1_Click() se = Hex(Text1 * 100) Text2 = Format(se, "0000") End Sub 文本1数值为0或1时,文本2显示正确..0000或0064 文本1值为2时,文本2显示就不正确,显示数值虽然正确C8,可是前面不补0 文本1值为10时,就更离谱.正确的数值应该是03E8,可是显示的却是3*10的8次方.. 前面补0要用什么函数,,TKS..

求助..关于CRC校验..... Private Function CRC16(data() As Byte) As String Dim CRC16Hi As Byte Dim CRC16Lo As Byte CRC16Hi = &HFF CRC16Lo = &HFF Dim i As Integer Dim iIndex As Long For i = 0 To UBound(data) iIndex = CRC16Lo Xor data(i) CRC16Lo = CRC16Hi Xor GetCRCLo(iIndex) '低位处理 CRC16Hi = GetCRCHi(iIndex) '高位处理 Next i Dim ReturnData(1) As Byte ReturnData(0) = CRC16Hi 'CRC高位 ReturnData(1) = CRC16Lo 'CRC低位 CRC16 = ReturnData End Function Private Sub Command1_Click() Dim SendStr(6) As Byte SendStr(0) = &H11 SendStr(1) = &H3 '读多个字的命令代码 SendStr(2) = &H3 '起始地址高字节 SendStr(3) = &HEB '起始地址低字节 SendStr(4) = &H0 '数据长度高字节 SendStr(5) = &H3 '数据长度低字节????? Call CRC16(SendStr(), 5) 'CRC计算 SendStr(6) = ReturnData T1 = SendStr(6) End Sub

求助?VB...For下面怎么用8进制...TKS............... RT.. 平常用For i=0 to 23 想要的效果是 For i=0 to 27(这里i逢8进1, i=7完,就变成i=10)

求助:VB 判断字符串?数值?中某一位是0还是1 用什么函数? TKS.. 串口收回来的数据是什么类型的? 收回来数据是二进制的0000001000000000000000000000100这样(用文本框显示)怎么知道这个是字符串还是数值? 数值好像没有这么长吧..似乎是32767什么的这样? 要判断其中某位是1是0用什么函数... 小白一个,,TKS...

求助:VB怎么做顺控?TKS.... 如上..有几个选项..如果勾1.则执行1里边内容.. 如果多勾,,勾1.2.4则执行完1里边的内容,延时1秒后,再执行2里边内容,延时,再执行4里边内容.. TKS.................

VB对ACCESS数据其中一列求和??.... Private Sub Command6_Click() Dim Con As New adodb.Connection Dim rs As New adodb.Recordset Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\0913mdb\db2.mdb" rs.Open "select sum(02)from 表2", Con, 1, 1 Text13.Text = rs(0) rs.Close Set rs = Nothing Con.Close Set Con = Nothing End Sub 改成这样,可以求和..可是结果并不正确... http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F1897509359567821180.html&urlrefer=eb77a21780f38c65c68b578ea4ed4d45# TKS..........................

求助:东芝VFAS1变频器,外接操作面板?? RT...东芝变频器.外接操作面板RKP007Z(插在变频器面板上,用的是自制网线). 开机,外接面板,闪烁COM.E,按键无反应,(而变频器面板上就和没外接一样是可以操作的) 是不是外接面板所用的RJ45和普通网线接法不一样??TKS...........

认识微断,西门子全新..附价..福州 1漏电保护器.分ELE和ELM 德国出产,ELM保护,注意无过载无短路保护,一定要配合微断使用...这个是全新带包装250 还有个8成新 200块

CDR如何做复印效果..谢谢 RT..http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F519861597677246525.html&urlrefer=5d4f9f24144dd66282d8374d65943add

新手求助:Adodc怎么用for next...TKS....................... Private Sub Command2_Click() Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\数据库\db1.mdb" For i = 1 To 3 Adodc2.RecordSource = "select sum([i]) as 和 from 表1" Adodc2.Refresh Text2(i - 1).Text = Adodc2.Recordset.Fields("和") Next End Sub 如上..如果没加FOR NEXT 上面可以把SUM(1)字段名称下数值求和,取回到Text2(0)中来.

新手求助:TEXT数组取最大五个值... RT:在网上搜了下..求最大值和最小值的很多... 有Text1(0)-text1(50) 求其中最大五个值并从大到小写入Text2(0)-text2(4)中

新手求助:控件数组怎么不能写入Access? Rs.AddNew Rs(2) = Text1(1).Text *把这行换成Rs(2) = Text3.Text就可以 Rs.Update *更新 Rs.Close TKS.....

新手求助5:VB不同事件有多个for i 时,,i的数值会乱? TKS........ VB不同事件时,都有For i=1 to 49 ........next i 这样...没定义通用声明时正常可以使用... 定义了 Dim i As integer或Variant 会出现i超出..For i=1 to 49 text1(i)="" 会提示..没有控件数组50* 把上面的i换成j就好了.J也是定义integer

新手求助4:VB如何做个数据查看介面... RT...TKS...........

新手求助3: 控件数组如何才能简便操作..TKS...... RT..一个文本从Text1(0)到Text1(50) 现在一个命令按钮清空..For i = 0 To 50 Text1(i).Text = "" Next i 能不能写Text1(index all).text="" 这样类似一行的语句.....

新手求助2: 控件数组单击选中,再单击取消...及文本=其它文本和单击COMMAND1(0)把01 08 15 22前面勾上..同时COMMAND1(0)显红色. ????再次点击COMMAND1(0)时,要把01 08 15 22前面勾取消掉.. 现在会写 Private Sub Command1_Click(Index As Integer) Select Case Index Case Is = 0 For i = 0 To 3 Check1( 7 * i + 1).Value = 1 Next i Case Is = 1 For i = 0 To 3 Check1(7* i +2).Value = 1 ..... End Select Command1(Index).BackColor= vbRed END SUB TKS..........

VB..命令按钮按完后,要怎么做才会出现确认对话框...TKS.. RT...两个文本框,,输入数值(比如1和2..按下命令按钮..要求出现对话框:你确定要计算1+2? 出现是和否的选项...

求助:磁致液位伸缩计,上电无电流?? 1接24V电源正 2接24V电源负 3电流输出+ 4电流地伸缩计输出4-20mA 3,4接一30欧电阻...上电测量1,2间直流电压24V,3和4无电压,再断电,上电3,4还是无电压.. 上电时把1或2接线柱拆掉,再装回,3,4有0.264V..(表明电流输出8mA) 接下来可以正常使用,,再下电上电.又没电压了.. TKS.......

求助　陆金宝怎么单独购买？还是只能安E里退回来购买？ RT..TKS...

水塔自动水..... 看到讨论这么火.借用楼里的二张图.忍不住回复下.. 1,肯定是漏电.只有漏电才能正常工作.而且漏保不会跳(漏电电流不够,小继电器电流在4-10mA之间.而楼主的小继电器不经过N,用的是地线回路,电压<220,电流会更小些,.而家用30mA漏保动作值在(15,30]之间, 楼主可以并联继电器试下..最多并联5个,绝对跳漏电.. 2,虽然能做到低于下限起泵,高于上限停泵,但继电器可能长时带电. 3,电路肯定是严禁使用..水中回路宜用<=12V电压

工厂维修电工PLC之乱控.... 由于本人水平有限..又较啰嗦..欢迎补充讨论.. PLC历史 1968年美国通用汽车公司提出取代继电器控制装置的要求 1969年第一台PLC面世.. PLC可用多种方式编程..而其中梯形图类似于电路图.以方便广大电工..所谓入门容易.精通难.可见要学习PLC还是很容易.. 从整体来看..PLC有制造商(比如三菱),程序设计者(....).最终使用维护者(我们处在这里) 程序设计需要考虑用什么型号的PLC..比如一套喷涂线..使用了三菱FX2N-64MR(这个虽然不用我们关心...) 那我们需要做什么?起码要了解I/O状态,工艺流程,(程序备份等等),第一步可以把PLC当成黑闸子来看..

求助:如何快速的把几根线连到同一母线上.. 如图:保持矩形和椭圆形位置不变.把AB接到横线上...目前使用的方法是..画个方形F,和横线底部对齐..直线A和B组合..然后F10拉长..用方形F,剪切组合后的AB.. 有没有,,直接拉长A和B,,让它们到横线位置自动停止...TKS.........

都播到第三季第二集的..怎么没以前的字幕? RT..只找到S2E19为止的字幕..后面的在哪?.TKS..........

新手求助..是不是输入缓冲区数据重叠引起混乱?TKS.... 如下:(1)和(2)单独用按钮命令可以正常执行..用Timer1执行1和Timer2执行2,收回来的数据就很乱..把(1)(2)都写到Timer1下面下,收回来的数据也乱..是不是输入输出缓冲区两个紊乱了//可以不可以先执行完1再执行2..... Private Sub Timer1_Timer() '时钟事件,间隔设定Interval毫秒就执行一次 (1)DIM SENTDATA AS STRING,,Dim getdata MSComm1.InBufferCount = 0 '清空接收缓冲区 MSComm1.OutBufferCount = 0 '清空发送缓冲区 MSComm1.Output = 读取数据指令 Do DoEvents Loop Until MSComm1.InBufferCount >= 20 'PLC应该返回8个字符固定的4+2*N '一个起始符+一个寄存器(有两个字节)(每个字节=2字符)+一个结束符+两个校验和 getdata = MSComm1.Input Text1.Text = getdata ''返回的低字节在前,高在后 (2)Dim sendat As String,,Dim getdat MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0 MSComm1.Output =读取数据指令 Do DoEvents Loop Until MSComm1.InBufferCount >= 8 getdat = MSComm1.Input Text4.Text = getdat ''返回的低字节在前,高在后