1. vb读取写入400plc轧制数据
里氏硬度计测试基本原理和使用方法
一、里氏硬度计测试基本原理
随着单片技术的发展，1978年，瑞士人Leeb博士首次提出了一种全新的测硬方法，它的基本原理是具有一定质量的冲击体在一定的试验力作用下冲击试样表面，测量冲击体距试样表面1mm处的冲击速度与回跳速度，利用电磁原理，感应与速度成正比的电压。里氏硬度值以冲击体回跳速度与冲击速度之比来表示。
计算公式：HL=1000*（VB/VA）
式中：HL——里氏硬度值
VB——冲击体回跳速度
VA——冲击体冲击速度
二、里氏硬度计冲击装置
里氏硬度度有D、DC、D=15、C、G、E、DL七种：
D：外型尺寸：f20*70mm，重量：75g.通用型，用于大部分硬度测量。
DC：外型尺寸：f20*86mm，重量：50g。冲击装置很短，主要用于非常局促的地方，例如孔或圆筒内。
D+15：外型尺寸：f20*162mm，重量：80g。头部细小，用于沟槽或凹入的表面硬度测量。
C：外型尺寸：f20*141mm,重量：75g。冲击能量最小，用于测小轻、薄部件及表面硬化层。
G：外型尺寸：f30*254mm，重量：250g。冲击能量大，对测量表面要求低。用于大、厚重及表面较粗糙的锻铸件。
E：外型尺寸：f20*162，重量80g压头为人造金刚石，用于硬度极高材料的测定。
DL：外形尺寸：f20*202mm，重量：80g头部更加细小，用于狭窄沟槽及齿轮面硬度的测定。
三、异型支撑环的使用
在现场工作中，经常遇到曲面试件，各种曲面对硬度测试结果影响不同，在正确操作的情况下，冲击落在试件表面瞬间的位置与平面试件相同，故通用支撑环即可。但当曲率小到一定尺寸时，由于平面条件的变形的弹性状态相差显著会使冲击体回弹速度偏低，从而使里氏硬度示值偏低。因此对试样，建议测量时使用小支撑环。对于曲率半径更小的试样，建议选用异型支撑环。四、里氏硬度计的测量范围
根据里氏原理，只要材料具备一定刚性，能形成反弹，就能测出准确的里氏硬度值，但很多材料里氏与其它制式的硬度没有相应的换算关系，因此里氏硬度计目前只装了9种材料的换算表。具体材料如下：钢和铸钢，合金工具钢，灰铸铁，球墨铸铁，铸铝合金，铜锌合金，铜锡合金，纯铜，不锈铜。
对于一些特殊材料的试样，用户可使用公司提供的拟合曲线软件做专用换算表。在实际生产中，使用的金属材料多种多样，由于里氏硬度计对材料的加工方式、材料的合金元素组成敏感，而里氏硬度计芯片中储存的硬度换算表不可能都满足用户的需要，用户在测试中，可以使用拟合软件做自己专用的硬度换算表。
五、影响里氏硬度计测试精度的因素
1、数据换算产生的误差
里氏硬度换算为其它硬度时的误差包括两个方面：一方面是里氏硬度本身测量误差，这涉及到按方法进行试验时的分散和对于多台同型号里氏硬度计的测量误差。另一方面是比较不同硬度试验方法所测硬度产生的误差，这是由于各种硬度试验方法之一间不存在明确的物理关系，并受到相互比较中测量不可靠影响的原因。
2、特殊材料引起的误差
存贮在硬度仪中的换算表对下列钢种可能产生偏差：
所有奥氏体钢
耐热工具钢和莱氏体铬钢（工具钢类）硬质材料会引起弹性模量增加，从而使L值偏低。这类钢应在横截面上进行测试
局部冷却硬化会引起L值偏高
磁性钢由于磁场影响，会使L值偏低。
表面硬化钢，基体软，会使L值偏低，当硬化层大于0.8mm时（C型冲击装置为0.2mm）则不影响L值。
3、齿轮检测中的误差
一般情况下，由于齿面较小，测试误差相对较大，对此，用户可根据情况设计相应的工装，将有助于减小误差。
4、材料弹性、塑性的影响
里氏值除与硬度、强度相关外，更与弹性模量有关，硬度值是材料硬度和塑性的特征参数，因为两者的成分必然是共同测定的。
在弹性部分，首先明显受E模量影响，在这方面当材料的静态硬度相同，而E值大小不同时，E值低的材料，L值较大
5、热轧方向造成的误差
当被测工件系热轧工艺成型时，如果测试方向与轧制方向一致，会因弹性模量E偏大而造成测试值偏低，故测试方向应垂直于热轧方向。例如：测圆柱截面硬度时，应在径向测试为好。（一般圆柱热轧方向为轴向）。
6、试样重量、粗糙度、厚度的影响
7、试件磁性应小于300高斯
8、其它因素的影响
测量管件硬度时须注意：管件注意稳固支撑，测试点应靠近支撑点且与支撑力平行，管壁较薄在管内放入适当芯子。
2. vbs文件读写
winccvbs是为防止未知用户的误操作，在操作性按钮以及图符等设备操作面板，在组流程图时，需设置用户权限，只有符合权限的用户才可以进行操作。
所以在流程图界面需设置系统用户登录界面。
登录操作可以选择按钮或者是图片式的登录操作图符。
在按钮或者其他图符下，在点击事件——VBS，写入以下代码即可。
3. vb中如何写入文本文件
是要处理文本吗？'添加窗体Form1,文本框Text1,按钮Command1,Command2,Command3,然后添加如下代码:Private Sub Form_Load() Command1.Caption = "剪切" Command2.Caption = "复制" Command3.Caption = "粘贴"End Sub'剪切Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = ""End Sub'复制Private Sub Command2_Click() Clipboard.Clear Clipboard.SetText Text1.SelTextEnd Sub'粘贴Private Sub Command3_Click() Text1.SelText = Clipboard.GetTextEnd Sub
4. vb读写文件
VB获取计算机名称的方法如下： 说明：计算机名就是打开控制面板-系统-网络标识-完整的计算机名称 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Command1_Click() Dim Name As String, Length As Long Length = 225 Name = String(Length, Chr(0)) GetComputerName Name, Length Name = Left(Name, Length) Label1.Caption = Name End Sub Private Sub Form_Load() End Sub 注意：该方法是通过kernel32.dll来获取的，chr(0)返回的就是计算机名。 kernel32.dll是Windows9x/Me中非常重要的32位动态链接库文件，属于内核级文件。它控制着系统的内存管理、数据的输入输出操作和中断处理，当Windows启动时，kernel32.dll就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域。
5. vbs 读写文件
这应该是由于动态库或者是OCX文件没有注册好，或者遭到了破坏，这个控件要加载MSCOMCTL.OCX，检查一下这个文件
6. vb读取数据写入excel
建一个文件夹，把目标txt文件和excel文件放入其中，在excel的宏编辑器中写入以下代码，有些地方可根据你的实际情况做相应改动：
Sub import_from_txt()
Dim file_name As String, my_path As String
Dim lines, cols
Dim i As Integer, j As Integer, k As Integer, q As Integer
Application.ScreenUpdating = False
Worksheets("Sheet1").Range("A1:Z65536").ClearContents
my_path = ThisWorkbook.Path
file_name = "test.txt"
'读取文件
Open my_path & "\" & file_name For Input As #1
lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
k = UBound(lines) + 1 '文件的行数
'遍历每一行
For i = 1 To k
cols = Split(lines(i - 1), ",") '以逗号作为分隔，将每行字符分割，分隔符可根据实际情况自己修改
q = UBound(cols) + 1 '分隔成的列数
For j = 1 To q '遍历该行的每一列
Worksheets("Sheet1").Cells(i, j) = cols(j - 1) '输出到表格中
Next
Next
MsgBox ("文件" & file_name & "读取完成,共" & k & "行")
Application.ScreenUpdating = True
End Sub
- 相关评论
- 我要评论
-