从vasp的计算输出文件计算热力学函数
This script will calculate the zero point-corrected energy (ZPE) and Gibbs free energy change from 0 K to certain temperature (G(T)-G(0)) using vibrational data。
2019-12-21 18:58:57
3KB
1
此程序为声波波动方程正演Fortran程序，可实现程序自动建模，采用PML边界条件（程序中嵌有自由边界条件，可供选择），交错网格有限差分算法，时间二阶空间任意偶数阶精度，可为初学者提供学习代码。
2019-12-21 18:52:21
7KB
1
1．Prodave 是用于pc 与s7 系列plc 之间的数据链接通信的工具箱。其实质就是用户通过调用“w95_s7.dll”等库函数来解决 PLC 与PC之间的数据交换和数据处理问题。 所需硬件为：CPU22x,PC/PPI编程电缆，带COM口的PC。这可能是最简单的配置，很容易实现试验的目的。这里不需要安装Prodave软件，只要把“w95_s7.dll”文件拷贝到您程序相应的目录中去即可。2．通讯设置：打开“控制面板”中“设置PG/PC接口”选项，在“应用程序访问点”列表框内选择“S7ONLINE (STEP7) PC/PPI Cable”,在其属性内的“超时”可以设置大点，这里设置为100ms，“波特率”设置为9.6kbps(因为我的pc/ppi电缆为国产的，不支持多主站)，“地址”为0。3。源代码：①PLC程序：LD I0.0 MOVW 4766, VW0 ②VB程序：
****在模块中声明****：
Public plcadr As plcadrtype
Public gb_PlcConnected As Boolean
Type plcadrtype
adr As Byte ‘站地址，默认值为2
SEGMENTID As Byte ‘段标识符，固定值为0
SLOTNO As Byte ‘槽的编号，默认值为2
RACKNO As Byte ‘机架号，固定为0
End Type
Public Res As Long
Declare Function load_tool Lib "w95_s7.dll" (ByVal nr As Byte, ByVal dev As String, adr As plcadrtype) As Long
。。。。。。。 ‘省略其它定义函数。
Declare Function as200_vs_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long ‘读200PLC V存储区的数据函数
****在窗体中声明****
Private Sub Form_Load()
Dim buffer(1) As Byte
plcadr.adr = 2
plcadr.SEGMENTID = 0
plcadr.SLOTNO = 2
plcadr.RACKNO = 0
Res = load_tool(1, "S7ONLINE", plcadr)
Res = as200_vs_field_read(0, 2, buffer(0))
If Res 0 Then
MsgBox ("PLC连接错误")
gb_PlcConnected = False
Else
gb_PlcConnected = True
MsgBox ("plc连接正确")
Label1.Caption = buffer(0) * 256 + buffer(1)
End If
End Sub
通过以上程序可以正确读出PLC中的数据。之后可以扩展内容，编写一个监控软件。
2019-12-21 18:50:38
82KB
1
国外非常流行的步进电机STM32控制代码，S型加减速，启动加速和停止减速可以不同，完成满足各种不同需要，代码中可以随时获取电机已走脉冲（实际就是当前位置），类似PLC中的脉冲计数器，代码的执行效率比DMA方式的还高，基本不占用CPU资源，可以说是非常精典的资料！！
2019-12-21 18:48:24
22.05MB
1
该控件能够自由绑定数据源，去掉DevExpress中LookUpEdit只能输入数据源中存在的值的强硬限制，而且支持LookUpEdit中不具备的多列同步查询匹配的功能。自由增加显示列和提供显示值（DisplayMember和ValueMember）设置，一个是显示，另一是实际值，可以根据EditValue获取选中值，TextValue获取显示值。（例如：数据源中有学生学号、姓名，显示文本是姓名，但实际获取的是学号，当你输入姓名的时候会自动过滤掉其他信息，当然，你若是只记得学号，不知道姓名，你可以输入学号，该控件也会自动匹配到相对应的信息，而且不存在强硬赋值的限制，方便用户的使用）
2015-10-01 00:00:00
16KB
1