frmthongtin.frm

This is Modbus RTU Protocl that i have written by Visual Basic to control Inverter N100 (Hyndai-Kor

VERSION 5.00
Begin VB.Form frmThongtin 
   BackColor       =   &H00004000&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4320
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   8895
   ControlBox      =   0   'False
   FillColor       =   &H80000007&
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H8000000A&
   Icon            =   "frmThongtin.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4320
   ScaleWidth      =   8895
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdThoat 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   8190
      Picture         =   "frmThongtin.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   6
      ToolTipText     =   "Exit"
      Top             =   3600
      Width           =   645
   End
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   120
      Top             =   1080
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "NGUYE肗 TRO螻G TA豂"
      BeginProperty Font 
         Name            =   "VNI-Helve"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   345
      Left            =   3450
      TabIndex        =   10
      Top             =   2925
      Width           =   2565
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "NGUYE肗 阎貱 TIE罭"
      BeginProperty Font 
         Name            =   "VNI-Helve"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   345
      Left            =   3450
      TabIndex        =   9
      Top             =   3427
      Width           =   2370
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "LE VA蔔 KHA跧"
      BeginProperty Font 
         Name            =   "VNI-Helve"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   345
      Left            =   3450
      TabIndex        =   8
      Top             =   3930
      Width           =   1635
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H80000009&
      Height          =   4320
      Left            =   0
      Top             =   0
      Width           =   8895
   End
   Begin VB.Label lbPhancach 
      BackColor       =   &H000080FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   45
      Index           =   0
      Left            =   225
      TabIndex        =   7
      Top             =   2715
      Width           =   8520
   End
   Begin VB.Shape Shape3 
      BorderColor     =   &H000000FF&
      BorderWidth     =   2
      Height          =   4275
      Left            =   45
      Top             =   45
      Width           =   8850
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "40401170"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   6450
      TabIndex        =   5
      Top             =   3975
      Width           =   1215
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "40402618"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   6450
      TabIndex        =   4
      Top             =   3405
      Width           =   1215
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "Sinh vie鈔 th鲲c hie鋘"
      BeginProperty Font 
         Name            =   "VNI-Ariston"
         Size            =   15.75
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   435
      Left            =   180
      TabIndex        =   3
      Top             =   3337
      Width           =   2640
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H00004000&
      BackStyle       =   0  'Transparent
      Caption         =   "Gia鵲 vie鈔 h鲷鵱g da鉵"
      BeginProperty Font 
         Name            =   "VNI-Ariston"
         Size            =   15.75
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   435
      Left            =   180
      TabIndex        =   2
      Top             =   2835
      Width           =   2910
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "           THU THA腜 D终 LIE腢                  袸E繳 KHIE臢 GIA費 SA賂      THIE罷 B