计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

交换速率修改系统设计论文-自动化毕业论文

2013-07-28 01:28
导读:自动化论文毕业论文,交换速率修改系统设计论文-自动化毕业论文在线阅读,教你怎么写,格式什么样,科教论文网提供各种参考范例: 目      录 交换速率修改系统概述


目      录


交换速率修改系统概述

系统功能及使用说明
 
总结

附件:部分源代码

 

一、交换速率修改系统概述

 此系统是为了方便监控班人员修改交换机用户端口速率而制作的简易速率修改器,可以起到提高工作效率的作用。界面化的操作方式更能使得新人快速上手。
 
 
二、系统功能及使用说明
 
(图一)
 
 
 
 此系统分为三个部分:
 
 
 第一部分为菜单栏
 
 
(图二)
 菜单栏暂时只开发了“退出系统”和“连接交换机”两项功能
 
 第二部分为显示栏
 
(图三)
 显示栏的主要作用是显示当前接连交换机的情况和程序在交换上所执行命令的情况。
 
 
 
 第三部分为功能栏
(图四)
 功能栏主要由交换机上最常用的命令按键组成。
 登陆交换机可以使用输入节点编码或使用IP登陆。
 使用编码登陆时,输入ADSL节点号和节点机编码后,点击连接,即可登陆交换机。其节点编号和节点机编码可在“getIP.ini”文件里按格式进行编辑。
 使用IP登陆时,只输入需要修改速率的交换机IP。点击“用IP连接”,输入用户名和密码,选择交换机型号。即可登陆交换机。
 登陆交换机后在系统的右侧的显示栏将显示登陆的情况。
 然后可以在功能栏上方的“框”“槽”“端口”为所需要修改速率的用户端口输入栏,按实际输入即可。
 修改速率的方式位于功能栏的下方,分为中兴设备和华为设备,输入速率模块编号后,点击修改按键即可修改端口速率。

(科教作文网http://zw.NSEaC.com编辑发布)


 另外功能栏里还有“端口状态”、“线路质量”、“速率定义”(分华为和中兴)、“通过MAC查端口”等常用功能。
 在功能栏的最下方还可以根据需要输入其他命令,点击“send”键执行。
 
 
三、总结
 此系统在实际运用过程中确实起到了一定的帮助作用,尤其是对新手更是提供了方便,但也还有待改进。在今后的工作中将根据实际需要对其做近一步的改良和完善。
 
 


附件:部分源代码
 VERSION 1.0 CLASS
 BEGIN
   MultiUse = -1  'True
   Persistable = 0  'NotPersistable
   DataBindingBehavior = 0  'vbNone
   DataSourceBehavior  = 0  'vbNone
   MTSTransactionMode  = 0  'NotAnMTSObject
 END
 Attribute VB_Name = "cIniFile"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = True
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 '--------cIniFile.cls 代码----------------
 '这里定义了一个cIniFile类
 Option Explicit
 
 '// Private member that holds a reference to
 '// the path of our ini file
 Private strInI As String
 
 '// Win API Declares
 Private Declare Function WritePrivateProfileString _
   Lib "kernel32" Alias "WritePrivateProfileStringA" _
 (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, _
   ByVal lpString As Any, _
   ByVal lpFileName As String) As Long
 
 Private Declare Function GetPrivateProfileString _
   Lib "kernel32" Alias "GetPrivateProfileStringA" _
 (ByVal lpApplicationName As String, _ (转载自中国科教评价网http://www.nseac.com
   ByVal lpKeyName As Any, _
   ByVal lpDefault As String, _
   ByVal lpReturnedString As String, _
   ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
 
 Private Function MakePath(ByVal strDrv As String, _
   ByVal strDir As String) As String
 
 '// Makes an INI file: Guarantees a sub dir
 Do While Right$(strDrv, 1) = ""
    strDrv = Left$(strDrv, Len(strDrv) - 1)
 Loop
 
 Do While Left$(strDir, 1) = ""
    strDir = Mid$(strDir, 2)
 Loop
 
 '// Return the path
 MakePath = strDrv & "" & strDir
 End Function
 
 Public Sub CreateIni(strDrv As String, strDir As String)
 
 
 '// Make a new ini file
 strInI = MakePath(strDrv, strDir)
 End Sub
 
 Public Sub WriteFile(strSection As String, _
 strKey As String, _
 strValue As String)
 
 '// Write to strINI
 WritePrivateProfileString strSection, _
    strKey, strValue, strInI
 End Sub
 
 Public Function GetFile(strSection As String, _
   strKey As String) As String
 
   Dim strTmp As String
   Dim lngRet As String
 
   strTmp = String$(100, Chr(32))
   lngRet = GetPrivateProfileString(strSection, _
     strKey, "", strTmp, _
     Len(strTmp), strInI)
    
   GetFile = strTmp
 
 End Function
 
 Public Property Let INIFile(ByVal New_IniPath As String)
 
 '// Sets the new ini path (科教范文网 lw.AsEac.com编辑整理)
 strInI = New_IniPath
 
 End Property
 
 Public Property Get INIFile() As String
 
 '// Returns the current ini path
 INIFile = strInI
 
 End Property
 
 
 VERSION 5.00
 Begin VB.Form frmLogin
    BorderStyle     =   3  'Fixed Dialog
    Caption         =   "登录"
    ClientHeight    =   2565
    ClientLeft      =   2835
    ClientTop       =   3480
    ClientWidth     =   4590
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
    ScaleHeight     =   1515.487
    ScaleMode       =   0  'User
    ScaleWidth      =   4309.762
    ShowInTaskbar   =   0   'False
    StartUpPosition =   2  '屏幕中心
    Begin VB.ComboBox Combo1
       Height          =   300
       Left            =   1320
       TabIndex        =   7

(转载自http://zw.NSEAC.com科教作文网)

       Top             =   960
       Width           =   2295
    End
    Begin VB.TextBox txtUserName
       Height          =   345
       Left            =   1290
       TabIndex        =   1
       Top             =   135
       Width           =   2325
    End
    Begin VB.CommandButton cmdOK
       Caption         =   "确定"
       Default         =   -1  'True
       Height          =   390
       Left            =   750
       TabIndex        =   4
       Top             =   1740
       Width           =   1140
    End
    Begin VB.CommandButton cmdCancel
(科教范文网http://fw.nseac.com)

       Cancel          =   -1  'True
       Caption         =   "取消"
       Height          =   390
       Left            =   2355
       TabIndex        =   5
       Top             =   1740
       Width           =   1140
    End
    Begin VB.TextBox txtPassword
       Height          =   345
       IMEMode         =   3  'DISABLE
       Left            =   1290
       PasswordChar    =   "*"
       TabIndex        =   3
       Top             =   525
       Width           =   2325
    End
    Begin VB.Label Label1
       Caption         =   "交换机类型:" (科教作文网http://zw.nseAc.com)
       Height          =   255
       Left            =   120
       TabIndex        =   6
       Top             =   960
       Width           =   1335
    End
    Begin VB.Label lblLabels
       Caption         =   "用户名称(&U):"
       Height          =   270
       Index           =   0
       Left            =   105
       TabIndex        =   0
       Top             =   150
       Width           =   1080
    End
    Begin VB.Label lblLabels
       Caption         =   "密码(&P):"
       Height          =   270
       Index           =   1 内容来自www.nseac.com
       Left            =   105
       TabIndex        =   2
       Top             =   540
       Width           =   1080
    End
 End
 Attribute VB_Name = "frmLogin"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 Option Explicit
 
 Public LoginSucceeded As Boolean
 
 Private Sub cmdCancel_Click()
     '设置全局变量为 false
     '不提示失败的登录
     LoginSucceeded = False
     Me.Hide
 End Sub
 
 Private Sub cmdOK_Click()
  UserName = txtUserName.Text
  PassWord = txtPassword.Text
 
  Unload Me
 
 End Sub
 
 
 Private Sub Combo1_Click()
 IpType = Combo1.ListIndex + 1
 End Sub
 
 Private Sub Form_Load()
 Combo1.AddItem "alcatel"
 Combo1.AddItem "中兴8220"
 Combo1.AddItem "中兴9220"
 Combo1.AddItem "华为5100"
 Combo1.AddItem "华为5300"
 
 End Sub
 
 
 VERSION 5.00
 Begin VB.Form frmTCPIP
    BorderStyle     =   3  'Fixed Dialog
    Caption         =   "TCPIP Settings"
(科教作文网 zw.nseac.com整理)

    ClientHeight    =   1665
    ClientLeft      =   2580
    ClientTop       =   1800
    ClientWidth     =   3720
    Icon            =   "frmTCPIP.frx":0000
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
    PaletteMode     =   1  'UseZOrder
    ScaleHeight     =   1665
    ScaleWidth      =   3720
    ShowInTaskbar   =   0   'False
    StartUpPosition =   1  '所有者中心
    Begin VB.CheckBox Check1
       Caption         =   "Trace"
       Height          =   255
       Left            =   2640
       TabIndex        =   6
       Top             =   120
       Width           =   975
    End
    Begin VB.CommandButton cmdOKCancel (科教作文网http://zw.nseAc.com)
       Caption         =   "Cancel"
       Height          =   375
       Index           =   1
       Left            =   2640
       TabIndex        =   3
       Top             =   1080
       Width           =   855
    End
    Begin VB.CommandButton cmdOKCancel
       Caption         =   "OK"
       Default         =   -1  'True
       Height          =   375
       Index           =   0
       Left            =   2640
       TabIndex        =   2
       Top             =   480
       Width           =   855
    End
    Begin VB.TextBox txtPort 大学排名
       Height          =   375
       Left            =   120
       TabIndex        =   1
       Text            =   "23"
       Top             =   1080
       Width           =   2295
    End
    Begin VB.TextBox txtRemoteAddress
       Height          =   375
       Left            =   120
       TabIndex        =   0
       Text            =   "127.0.0.0"
       Top             =   360
       Width           =   2295
    End
    Begin VB.Label Label1
       Caption         =   "Remote IP Port"
       Height          =   255
       Index           =   1 (科教作文网http://zw.NSEaC.com编辑发布)
       Left            =   120
       TabIndex        =   5
       Top             =   840
       Width           =   2055
    End
    Begin VB.Label Label1
       Caption         =   "Remote IP Address"
       Height          =   255
       Index           =   0
       Left            =   120
       TabIndex        =   4
       Top             =   120
       Width           =   2055
    End
 End
 Attribute VB_Name = "frmTCPIP"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 Option Explicit
 
 Private Sub Check1_Click()
     If Check1.Value = 1 Then
         frmTelnet.TraceTelnet = True
         frmTelnet.Tracevt100 = True (转载自http://zw.NSEaC.com科教作文网)
     Else
         frmTelnet.TraceTelnet = False
         frmTelnet.Tracevt100 = False
     End If
    
 End Sub
 
 Private Sub cmdOKCancel_Click(Index As Integer)
 On Error Resume Next
     Select Case Index
         Case 0
            
             frmTelnet.WinsockClient.Close
             frmTelnet.WinsockClient.LocalPort = 0
             frmTelnet.RemoteIPAd = txtRemoteAddress
             frmTelnet.RemotePort = txtPort
             frmTelnet.WinsockClient.RemotePort = txtPort
             frmTelnet.WinsockClient.RemoteHost = txtRemoteAddress
             If Err > 0 Then
                 MsgBox Error
             Else
                 Unload Me
             End If
         Case 1
             Unload Me
     End Select
 End Sub
  (科教范文网 lw.nSeAc.com编辑发布)
 Private Sub Form_Load()
     txtRemoteAddress = frmTelnet.RemoteIPAd
     txtPort = frmTelnet.RemotePort
 '   Check1.Value = -(frmTelnet.TraceTelnet)
 End Sub
 
 VERSION 5.00
 Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
 Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
 Begin VB.Form frmTelnet
    Caption         =   "weit's Telnet Client 1.1"
    ClientHeight    =   9120
    ClientLeft      =   -210
    ClientTop       =   3015
    ClientWidth     =   13590
    FillColor       =   &H00800000&
    FillStyle       =   0  'Solid
    BeginProperty Font
       Name            =   "Arial"
       Size            =   9
       Charset         =   0
       Weight          =   400
       Underline       =   0   'False
       Italic          =   0   'False
(科教范文网 lw.nSeAc.com编辑发布)

       Strikethrough   =   0   'False
    EndProperty
    ForeColor       =   &H0000FFFF&
    Icon            =   "telnet.frx":0000
    KeyPreview      =   -1  'True
    LinkTopic       =   "Form1"
    PaletteMode     =   1  'UseZOrder
    ScaleHeight     =   9120
    ScaleWidth      =   13590
    StartUpPosition =   2  '屏幕中心
    Begin VB.TextBox Text13
       Height          =   375
       Left            =   10800
       TabIndex        =   35
       ToolTipText     =   "从亿讯查上网记录查VLanID输入"
       Top             =   5040
       Width           =   615
    End
    Begin VB.CommandButton Command14
       Caption         =   "alcate通过MAC查端口"
       Height          =   375 大学排名
       Left            =   11520
       TabIndex        =   34
       Top             =   5040
       Width           =   1935
    End
    Begin VB.CommandButton Command13
       Caption         =   "用IP连"
       Height          =   375
       Left            =   10440
       TabIndex        =   33
       Top             =   2640
       Width           =   735
    End
    Begin VB.CommandButton Command12
       Caption         =   "alcatel设置状态"
       Height          =   375
       Left            =   11520
       TabIndex        =   32
       Top             =   4560
(科教作文网http://zw.ΝsΕAc.Com编辑整理)

       Width           =   1935
    End
    Begin VB.CommandButton Command11
       Caption         =   "send"
    

    上一篇:提升机变频调速系统(一)-自动化毕业论文 下一篇:没有了