TCP/IP协议栈

开发平台：
Visual Basic

comfrom.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form comfrom 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "属性设定"
   ClientHeight    =   5295
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7125
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5295
   ScaleWidth      =   7125
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      Height          =   3855
      Left            =   4200
      TabIndex        =   16
      Top             =   600
      Width           =   2655
      Begin VB.ComboBox Combo10 
         Height          =   300
         Left            =   360
         Style           =   2  'Dropdown List
         TabIndex        =   24
         Top             =   2040
         Width           =   2055
      End
      Begin VB.ComboBox Combo9 
         Height          =   300
         Left            =   360
         Style           =   2  'Dropdown List
         TabIndex        =   23
         Top             =   1320
         Width           =   2055
      End
      Begin VB.ComboBox Combo8 
         Height          =   300
         Left            =   360
         Style           =   2  'Dropdown List
         TabIndex        =   22
         Top             =   2760
         Width           =   2055
      End
      Begin VB.ComboBox Combo7 
         Height          =   300
         Left            =   360
         Style           =   2  'Dropdown List
         TabIndex        =   21
         Top             =   600
         Width           =   2055
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "产生事件字节"
         Height          =   180
         Left            =   120
         TabIndex        =   20
         Top             =   1080
         Width           =   1080
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         Caption         =   "接收缓冲区"
         Height          =   180
         Left            =   120
         TabIndex        =   19
         Top             =   1800
         Width           =   900
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "接收发送模式"
         Height          =   180
         Left            =   120
         TabIndex        =   18
         Top             =   2520
         Width           =   1080
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "接收方式"
         Height          =   180
         Left            =   120
         TabIndex        =   17
         Top             =   360
         Width           =   720
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   5880
      TabIndex        =   15
      Top             =   4800
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   4560
      TabIndex        =   14
      Top             =   4800
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Height          =   3855
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   3855
      Begin VB.ComboBox Combo6 
         Height          =   300
         Left            =   1200
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   3240
         Width           =   2415
      End
      Begin VB.ComboBox Combo5 
         Height          =   300
         Left            =   1200
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   2640
         Width           =   2415
      End
      Begin VB.ComboBox Combo4 
         Height          =   300
         Left            =   1200
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   2040
         Width           =   2415
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         Left            =   1200
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   1440
         Width           =   2415
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   1200
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   840
         Width           =   2415
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1200
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "数据流控制"
         Height          =   180
         Left            =   240
         TabIndex        =   13
         Top             =   3360
         Width           =   900
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "停止位"
         Height          =   180
         Left            =   600
         TabIndex        =   12
         Top             =   2760
         Width           =   540
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "奇偶校验"
         Height          =   180
         Left            =   360
         TabIndex        =   11
         Top             =   2160
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "数据位"
         Height          =   180
         Left            =   480
         TabIndex        =   10
         Top             =   1560
         Width           =   540
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "波特率"
         Height          =   180
         Left            =   480
         TabIndex        =   9
         Top             =   960
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "端口号"
         Height          =   180
         Left            =   480
         TabIndex        =   8
         Top             =   360
         Width           =   540
      End
   End
   Begin MSComctlLib.TabStrip TabStrip1 
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6855
      _ExtentX        =   12091
      _ExtentY        =   8070
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   1
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "comfrom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
 
    With mycom
        If Combo1.Text = "COM1" Then .comm = 1
        If Combo1.Text = "COM2" Then .comm = 2
        If Combo1.Text = "COM3" Then .comm = 3
        If Combo1.Text = "COM4" Then .comm = 4
        If Combo1.Text = "COM5" Then .comm = 5
        If Combo1.Text = "COM6" Then .comm = 6
        If Combo1.Text = "COM7" Then .comm = 7
        
        .seting = Combo2.Text & ","
        If Combo4.Text = "偶校验" Then .seting = .seting & "E,"
        If Combo4.Text = "奇校验" Then .seting = .seting & "O,"
        If Combo4.Text = "无" Then .seting = .seting & "N,"
        .seting = .seting & Combo3.Text & "," & Combo5.Text
        
        If Combo6.Text = "无" Then .hands = 0
        If Combo6.Text = "XOnXOff" Then .hands = 1
        If Combo6.Text = "硬件" Then .hands = 2
        
        If Combo7.Text = "事件" Then .RTbyte = 1
        If Combo7.Text = "等待" Then .RTbyte = 0
        
        If Combo8.Text = "comInputModeBinary" Then .INmode = 1
        If Combo8.Text = "comInputModeText" Then .INmode = 0
      
        .INlen = Combo9.Text
        .INsize = Combo10.Text
        
    
    End With
    
    Unload Me
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
Combo1.AddItem "COM5"
Combo1.AddItem "COM6"
Combo1.AddItem "COM7"
Combo1.ListIndex = 0
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo2.AddItem "38400"
Combo2.AddItem "54600"
Combo2.AddItem "115100"
Combo2.ListIndex = 1
Combo3.AddItem "5"
Combo3.AddItem "6"
Combo3.AddItem "7"
Combo3.AddItem "8"
Combo3.ListIndex = 3
Combo4.AddItem "偶校验"
Combo4.AddItem "奇校验"
Combo4.AddItem "无"
Combo4.ListIndex = 2
Combo5.AddItem "1"
Combo5.AddItem "1.5"
Combo5.AddItem "2"
Combo5.ListIndex = 0
Combo6.AddItem "Xon/Xoff"
Combo6.AddItem "硬件"
Combo6.AddItem "无"
Combo6.ListIndex = 2
Combo7.AddItem "事件"
Combo7.AddItem "等待"
Combo7.ListIndex = 0
Combo8.AddItem "comInputModeBinary"
Combo8.AddItem "comInputModeText"
Combo8.ListIndex = 0
Dim i As Integer
For i = 1 To 10
  Combo9.AddItem i
Next
Combo9.ListIndex = 0
For i = 1 To 10
  Combo10.AddItem i * 10
Next
Combo10.ListIndex = 3
End Sub

						