以下是一段接收字节长14字节的代码,仅供参考:
Option Explicit
Dim yy As String
Private Sub Command1_Click()
MSComm1CommPort = 1
MSComm1Settings = "9600,n,8,1"
MSComm1InBufferCount = 0
MSComm1InputLen = 0
MSComm1RThreshold = 14
MSComm1InputMode = comInputModeBinary
MSComm1PortOpen = True
End Sub
Private Sub Command2_Click()
MSComm1PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim xx() As Byte
Dim i As Integer
Select Case MSComm1CommEvent
Case comEvReceive
xx = MSComm1Input
For i = 0 To UBound(xx)
If Len(Hex(xx(i))) = 1 Then
yy = yy & "0" & Hex(xx(i))
Else
yy = yy & Hex(xx(i))
End If
Next
If Len(yy) = 28 Then '本句最好有对首字节符合通信协议规定的判断
Label1Caption = yy
List1AddItem yy & "/" & Len(yy)
yy = ""
End If
End Select
End Sub
应变=应力/d性模。
根据轴力图,得到响应轴处受力大小。这个轴力除以该处轴截面积,即是应力大小。应力大小是判断材料是否塑形变形的依据。目前多数都会依赖软件进行计算机分析。
材料均匀伸长或缩短时,变化量与原长度的比值,即是应变。有时应变会用来判断破坏。材料均匀伸长或缩短时,变化量与原长度的比值,即是应变。有时应变会用来判断破坏。
扩展资料:
应力与应变注意事项:
使用时不宜过分用拉力或压以给冲击力,以免位移计或连接dhuangpian受损。
为减少误差在测试过程中不宜更换实验员或调转测试方向。
试验中切忌用手接触仪器金属支架,应握持手柄,减少人体温度影响成的误差。
测读时重复N次避免误差的产生。
参考资料来源:百度百科-应力应变
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)