VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmfx 
   Caption         =   "三菱FX系列通訊程序"
   ClientHeight    =   4830
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5220
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4830
   ScaleWidth      =   5220
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame1 
      Caption         =   "元件數(shù)據(jù)讀寫"
      Height          =   1935
      Left            =   360
      TabIndex        =   8
      Top             =   1320
      Width           =   4455
      Begin VB.OptionButton OptionH 
         Caption         =   "十六進(jìn)制"
         Height          =   255
         Left            =   3120
         TabIndex        =   15
         Top             =   240
         Width           =   1095
      End
      Begin VB.OptionButton OptionD 
         Caption         =   "十進(jìn)制"
         Height          =   255
         Left            =   2160
         TabIndex        =   14
         Top             =   240
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   255
         Left            =   1680
         TabIndex        =   13
         Top             =   1080
         Width           =   255
      End
      Begin VB.CommandButton SETRST 
         Caption         =   "SET/RST"
         Height          =   375
         Left            =   240
         TabIndex        =   12
         Top             =   1440
         Width           =   975
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   2280
         TabIndex        =   11
         Top             =   1080
         Width           =   1935
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   120
         TabIndex        =   10
         Top             =   1080
         Width           =   1215
      End
      Begin VB.CommandButton cmdPause 
         Caption         =   "暫停"
         Height          =   375
         Left            =   3120
         TabIndex        =   9
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "16Bit"
         Height          =   255
         Left            =   1560
         TabIndex        =   18
         Top             =   1320
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "輸入地址后回車(如D10,Y0等)"
         Height          =   495
         Left            =   120
         TabIndex        =   17
         Top             =   600
         Width           =   1455
      End
      Begin VB.Label Label3 
         Caption         =   "返回結(jié)果：(可輸入你要設(shè)置的值后回車，如100，300等)"
         Height          =   495
         Left            =   2040
         TabIndex        =   16
         Top             =   600
         Width           =   2295
      End
   End
   Begin VB.Frame fraComm2 
      Caption         =   "通信參數(shù)設(shè)置"
      Height          =   615
      Left            =   360
      TabIndex        =   3
      Top             =   3600
      Width           =   4455
      Begin VB.ComboBox cboPort 
         Height          =   315
         Left            =   1080
         TabIndex        =   5
         Text            =   "Combo1"
         Top             =   240
         Width           =   975
      End
      Begin VB.ComboBox cboStation 
         Height          =   315
         Left            =   3360
         TabIndex        =   4
         Text            =   "Combo2"
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "通信口："
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   240
         Width           =   855
      End
      Begin VB.Label Label5 
         Caption         =   "PLC站："
         Height          =   255
         Left            =   2520
         TabIndex        =   6
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame fraComm1 
      Height          =   735
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   4455
      Begin VB.CommandButton cmdRun 
         Caption         =   "PLC運(yùn)行"
         Height          =   375
         Left            =   2520
         TabIndex        =   2
         Top             =   240
         Width           =   1695
      End
      Begin VB.CommandButton cmdLoopTest 
         Caption         =   "通信回路測(cè)試"
         Height          =   375
         Left            =   360
         TabIndex        =   1
         Top             =   240
         Width           =   1575
      End
   End
   Begin MSCommLib.MSComm CommFX 
      Left            =   4680
      Top             =   4200
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.Label lblTopic 
      AutoSize        =   -1  'True
      Caption         =   "提示"
      ForeColor       =   &H0080FFFF&
      Height          =   180
      Left            =   360
      TabIndex        =   19
      Top             =   4440
      Width           =   360
   End
End
Attribute VB_Name = "frmfx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'網(wǎng)址：http://szgkw.51.net


Option Explicit

Dim DevAdd As String, SetIn As String
Dim DevDat As String
Dim DevDat1 As String
Dim DevDatTC As String
Dim start As Boolean
Dim Tim As Single
Dim DevType As String
Dim DevDData As Double
Dim DevDataStr As String
Dim setaddr As String, setad As String, char As String
Dim Device As String
Dim blnExit As Boolean

Private Sub cboPort_Click()
    Call CommSet
End Sub

Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Label1.Caption = "32Bit"
    Else
        Label1.Caption = "16Bit"
    End If
    Text1_KeyPress (13)
End Sub


Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "數(shù)據(jù)以16bit或32bit(雙字節(jié))形式讀取或設(shè)置"
End Sub

Private Sub cmdLoopTest_Click()
    On Error Resume Next
    Dim LoopData As String
    Dim Tim As Single

    CommFX.InBufferCount = 0
    CommFX.OutBufferCount = 0
    LoopData = cboStation.Text + "FFTT008ABCDEFGH"
    CommFX.Output = Chr(5) + LoopData + SumChk(LoopData)
          If Err Then
        MsgBox Error$, 48, "回路檢測(cè)"
        Exit Sub
    End If

    Tim = Timer
    Do
       If Timer > Tim + 1 Then MsgBox "沒(méi)有與遠(yuǎn)程連接!": Exit Sub
    Loop Until CommFX.InBufferCount > 17
    If Left$(CommFX.Input, 16) = Chr(2) + cboStation.Text + "FF08ABCDEFGH" + Chr(3) Then
       MsgBox "接通正常...", , "回路檢測(cè)"
    Else
        MsgBox "通信出錯(cuò)!!", 48, "回路檢測(cè)"
    End If
End Sub

Private Sub cmdLoopTest_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblTopic = "檢測(cè)通信回路是否連接，參數(shù)設(shè)置是否正確"
End Sub

Private Sub cmdPause_Click()
    start = False
    fraComm1.Visible = True
    fraComm2.Visible = True
End Sub

Private Sub cmdPause_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "暫停實(shí)時(shí)監(jiān)控，可以進(jìn)行通信參數(shù)修改等其他操作"
End Sub



'此子程序用來(lái)使PLC運(yùn)行/停止
Private Sub cmdRun_Click()
    Dim RSStr As String
    Dim dat As String
    Dim WTim As Single
    If MsgBox("改變運(yùn)行可能造成危險(xiǎn)，是否繼續(xù)？", vbOKCancel + vbCritical) = vbCancel Then Exit Sub
    CommFX.OutBufferCount = 0
    CommFX.InBufferCount = 0
    If cmdRun.Caption = "PLC運(yùn)行" Then
        dat = cboStation.Text + "FFRR0"
        cmdRun.Caption = "PLC停止"
    Else
        dat = cboStation.Text + "FFRS0"
        cmdRun.Caption = "PLC運(yùn)行"
    End If
    CommFX.Output = Chr$(5) + dat + SumChk(dat)
    WTim = Timer
    Do
        If Timer > WTim + 1 Then: Exit Do
    Loop Until CommFX.InBufferCount = 7
    RSStr = CommFX.Input
    If Len(RSStr) < 5 Then
        MsgBox "狀態(tài)無(wú)法改變，通訊出錯(cuò)！", vbOKOnly + vbExclamation
    ElseIf RSStr <> Chr(6) + cboStation.Text + "FF" Then
        MsgBox "狀態(tài)無(wú)法改變，PLC運(yùn)行開關(guān)常閉或已處于該狀態(tài)！", vbOKOnly + vbExclamation
    Else
        MsgBox "狀態(tài)改變！", vbOKOnly
    End If
End Sub

Private Sub cmdRun_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblTopic = "將所連接的PLC的運(yùn)行狀態(tài)軟改變"
End Sub

Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 10
        cboPort.AddItem "Com" & Trim$(Str$(i))
        cboPort.ListIndex = 0
    Next i
    For i = 0 To 15
        cboStation.AddItem "0" + Trim$(Hex(i))
        cboStation.ListIndex = 0
    Next i

    'Call CommSet
End Sub



Private Sub Form_Activate()
    start = False
    blnExit = False
    SETRST.Enabled = False
    
    '進(jìn)入實(shí)時(shí)監(jiān)控狀態(tài)
    Do While Not blnExit
FirstLoop:
        DoEvents
        If start Then
            CommFX.InBufferCount = 0
            CommFX.OutBufferCount = 0