frm_transfert_fichiers.frm

三菱PLC—FX系列与VB驱动源码

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frm_Transfert_Fichiers 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "A閞ospatiale M閍ulte : Interface - Transfert de Fichiers"
   ClientHeight    =   4920
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7455
   Icon            =   "frm_Transfert_Fichiers.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4920
   ScaleWidth      =   7455
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4320
      Top             =   720
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   2640
      Top             =   600
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   327680
      DTREnable       =   -1  'True
      ParityReplace   =   42
      InputMode       =   1
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   1920
      Top             =   720
   End
   Begin VB.CommandButton Bouton_Recevoir_Fichier 
      Caption         =   "Recevoir un Fichier"
      Height          =   375
      Left            =   600
      TabIndex        =   1
      ToolTipText     =   "Recevoir un fichier binaire via le port s閞ie"
      Top             =   2760
      Width           =   2775
   End
   Begin VB.Frame Frame2 
      Caption         =   "Reception d'un Fichier"
      Height          =   975
      Left            =   240
      TabIndex        =   6
      Top             =   2400
      Width           =   6975
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Height          =   255
         Left            =   3600
         TabIndex        =   8
         Top             =   480
         Width           =   2775
      End
   End
   Begin VB.CommandButton Bouton_Envoyer_Fichier 
      Caption         =   "Envoyer un Fichier"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      ToolTipText     =   "Envoyer un fichier binaire via le port s閞ie"
      Top             =   1440
      Width           =   2775
   End
   Begin VB.Frame Frame1 
      Caption         =   "Envoi d'un Fichier"
      Height          =   975
      Left            =   240
      TabIndex        =   5
      Top             =   1080
      Width           =   6975
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         Height          =   255
         Left            =   3720
         TabIndex        =   7
         Top             =   480
         Width           =   2775
      End
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Retour