module1.bas

VB和西门子s300plc串口通讯程序 能实现读写功能

Attribute VB_Name = "REFER"



' PRODAVE S7 declarations in Visual Basic
' for S7_300 or S7_200
'
' Projekt/project -> Eigenschaften/Propertys -> erstellen/build
' S7_300 = 1    or    S7_200 = 1


'****************************************************************************************************************************
'declarations for S7-300/400
'****************************************************************************************************************************
Declare Function GetModuleFileNameA Lib "kernel32.dll" (ByVal hModule As Long, szPath As Byte, ByVal szPathLen As Long) As Long

'#If S7_300 Then

Declare Function load_tool Lib "w95_s7.dll" (ByVal nr As Byte, ByVal dev As String, ADR As plcadrtype) As Long
Declare Function new_ss Lib "w95_s7.dll" (ByVal nr As Byte) As Long
Declare Function unload_tool Lib "w95_s7.dll" () As Long

Declare Function ag_info Lib "w95_s7.dll" (value As infotyp) As Long
Declare Function ag_zustand Lib "w95_s7.dll" (value As Byte) As Long

Declare Function db_buch Lib "w95_s7.dll" (value As Integer) As Long

' blockno, DATANO, amount, value
Declare Function db_read Lib "w95_s7.dll" (ByVal db As Long, ByVal dw As Long, anz As Long, value As Integer) As Long
Declare Function db_write Lib "w95_s7.dll" (ByVal db As Long, ByVal dw As Long, anz As Long, value As Integer) As Long
 
Declare Function d_field_read Lib "w95_s7.dll" (ByVal db As Long, ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Declare Function d_field_write Lib "w95_s7.dll" (ByVal db As Long, ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
' DATANO, amount, value
Declare Function e_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Declare Function a_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Declare Function a_field_write Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Declare Function m_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Declare Function m_field_write Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Declare Function t_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Integer) As Long
Declare Function z_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Integer) As Long
Declare Function z_field_write Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Integer) As Long

'no, bitno
'Declare Function mb_setbit Lib "w95_s7.dll" (ByVal no As Long, ByVal bitno As Long) As Long
'Declare Function mb_resetbit Lib "w95_s7.dll" (ByVal no As Long, ByVal bitno As Long) As Long
'no, bitno, value
'Declare Function mb_bittest Lib "w95_s7.dll" (ByVal no As Long, ByVal bitno As Long, value As Byte) As Long


'#End If
'****************************************************************************************************************************



'****************************************************************************************************************************
'declarations for komfort.dll
'****************************************************************************************************************************
'errorno, errortext
Declare Function error_message Lib "komfort.dll" (ByVal nr As Long, ByVal value$) As Long
'buffer, amount bytes
Declare Sub swab_buffer Lib "komfort.dll" (value%, ByVal anz As Long)
Declare Sub copy_buffer Lib "komfort.dll" (value%, value%, ByVal anz As Long)

Declare Function kg_to_float Lib "komfort.dll" (kg As Integer, s As Single) As Long
Declare Function float_to_kg Lib "komfort.dll" (s As Single, kg As Integer) As Long

Declare Sub gp_to_float Lib "komfort.dll" (gp As Long, s As Single)
Declare Sub float_to_gp Lib "komfort.dll" (s As Single, gp As Integer)

Declare Function kf_integer Lib "komfort.dll" (kf As Integer) As Integer