vbdemo.frm

可以读些S7-300PLC中的变量数据

VERSION 5.00
Begin VB.Form DEMO_FRM 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFFFFF&
   Caption         =   "PRODAVE MPI "
   ClientHeight    =   3690
   ClientLeft      =   1410
   ClientTop       =   2235
   ClientWidth     =   8475
   FillColor       =   &H00FFFFFF&
   FillStyle       =   0  'Solid
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Icon            =   "VBDEMO.frx":0000
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6.509
   ScaleMode       =   0  'User
   ScaleTop        =   4
   ScaleWidth      =   14.949
   Begin VB.Timer TSTimer 
      Interval        =   500
      Left            =   360
      Top             =   1440
   End
   Begin VB.Menu LOAD 
      Caption         =   "LOAD"
   End
   Begin VB.Menu UNLOAD 
      Caption         =   "UNLOAD"
   End
   Begin VB.Menu READ 
      Caption         =   "READ"
   End
   Begin VB.Menu WRITE 
      Caption         =   "WRITE"
   End
   Begin VB.Menu AGINFO 
      Caption         =   "AGINFO"
   End
   Begin VB.Menu STATUS 
      Caption         =   "STATUS"
   End
   Begin VB.Menu DBBUCH 
      Caption         =   "DBBUCH"
   End
   Begin VB.Menu FLAGS 
      Caption         =   "MERKER/FLAGS"
   End
   Begin VB.Menu TELESERVICE 
      Caption         =   "TELESERVICE"
   End
End
Attribute VB_Name = "DEMO_FRM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Activate()
#If S7_200 Then
DEMO_FRM.Caption = "PRODAVE MPI for S7 200"
#End If
#If S7_300 Then
DEMO_FRM.Caption = "PRODAVE MPI for S7 300/400"
#End If


plcadr(0).adr = 2
plcadr(0).SEGMENTID = 0
plcadr(0).RACKNO = 0
plcadr(0).SLOTNO = 2
plcadr(1).adr = 0
plcadr(1).SEGMENTID = 0
plcadr(1).RACKNO = 0
plcadr(1).SLOTNO = 2
plcadr(2).adr = 0
plcadr(2).SEGMENTID = 0
plcadr(2).RACKNO = 0
plcadr(2).SLOTNO = 2
plcadr(3).adr = 0
plcadr(3).SEGMENTID = 0
plcadr(3).RACKNO = 0
plcadr(3).SLOTNO = 2

Rem output for db_read/write parameters
BLOCKNO = 10
no = 0
AMOUNT = 2

Rem TeleService variables
ModemName = "Standardmodem"
Standort = "Standardstandort"
TelNo = "[phone]"
UserName = "ADMIN"
Password = "admin"

End Sub

Private Sub DBBUCH_Click()
DBBUCH_FRM.Show 1, Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
res = unload_tool()
End Sub

Private Sub LOAD_Click()
LOAD_FRM.Show 1, Me
End Sub

Private Sub AGINFO_Click()
INFO_FRM.Show 1, Me
End Sub

Private Sub READ_Click()
READ_FRM.Show 1, Me
End Sub

Private Sub STATUS_Click()
STATUS_FRM.Show 1, Me
End Sub

Private Sub FLAGS_Click()
FLAG_FRM.Show 1, Me
End Sub
Private Sub TELESERVICE_Click()
TS_FRM.Show 1, Me
End Sub

Private Sub TSTimer_Timer()
'flag for timer to call ts_read_info
If (RingActive <> 0) Then
   res = ts_read_info(UserID(1), MPIAdr)
   'data received, ts-adapter connected
   If (res = 0) Then
      TSINFO_FRM.Show 1, Me
   End If
   
End If

End Sub

Private Sub UNLOAD_Click()
res = unload_tool()
End Sub

Private Sub WRITE_Click()
WRITE_FRM.Show 1, Me
End Sub