网站地图
范文同学网


自动化 模具 机械 电子 通信 动画 英语范文 工程管理 金融范文 旅游管理 工业工程 生物工程 给排水范文 西门子PLC 历史学 三菱PLC
单片机 财务 会计 法律 行政 物理 物流范文 电子商务 制药工程 包装工程 土木工程 材料科学 汉语言范文 欧姆龙PLC 电压表 松下PLC
计算机 化工 数电 工商 食品 德语 国贸范文 人力资源 教育管理 交通工程 市场营销 印刷工程 机电一体化 数控范文 变电站 文化产业

  • 网站首页|
  • 文档范文|
  • 人工降重|
  • 职称文章发表|
  • 合作期刊|
  • 范文下载|
  • 计算机范文|
  • 外文翻译|
  • 免费范文|
  • 原创范文|
  • 开题报告

联系方式

当前位置:范文同学网 -> 免费范文 -> 自动化相关 -> 交换速率修改系统设计范文
自动化文档范文| 电子机电范文| 测控技术范文| 通信专业范文| 电气工程范文| 通信工程范文| 电子信息工程范文| 免费自动化范文| 免费电子范文| 免费电气范文| 通信范文
·电气自动化原创文章范文 ·学前教育专业原创文章范文 ·国际经济贸易原创文章范文 ·药学专业原创文章范文 ·英语专业原创文章范文 ·公共事业管理原创文章范文
·金融专业原创文章范文 ·广播电视编导原创文章范文 ·电子商务专业原创文章范文 ·法律专业原创文章范文 ·工商管理原创文章范文 ·汉语言文学原创文章范文
·人力资源管理原创文章范文 ·摄影专业原创文章范文 ·心理学专业原创文章范文 ·教育管理原创文章范文 ·市场营销原创文章范文 ·计算机专业原创文章范文
·物流管理专业原创文章范文 ·小学教育专业原创文章范文 ·行政管理专业原创文章范文 ·土木工程管理原创文章范文 ·财务会计专业原创文章范文 ·信息管理信息系统原创范文
·新闻学专业原创文章范文 ·眼视光技术原创文章范文 ·播音与主持原创文章范文 ·广告学专业原创文章范文 ·表演专业原创文章范文 ·动画专业原创文章范文
·视觉传达设计原创文章范文 ·数控技术专业原创文章范文 ·录音艺术原创文章范文 ·光机电应用技术原创范文 ·机电一体化原创文章范文 ·印刷技术专业原创文章范文
·动漫设计与制作原创范文 ·软件技术专业原创文章范文 ·书法学专业原创文章范文 ·应用电子技术原创文章范文 ·电子信息工程技术原创范文 ·机械专业原创文章范文
·酒店管理专业原创文章范文 ·旅游管理专业原创文章范文 ·文化产业管理专业原创范文 ·体育教育专业原创文章范文 ·通信工程专业原创文章范文 ·护理专业原创文章范文

本专业推荐:带PLC源程序的文档设计范文     原创文档范文点击进入 → 电气工程自动化单片机原创文档范文

交换速率修改系统设计范文

本文ID:LW13698 ¥
目 录 交换速率修改系统概述 系统功能及使用说明 总结 附件:部分源代码 一、交换速率修改系统概述 此系统是为了方便监控班人员修改交换机用户端口速率而制作的简易速率修改器,可以起到提高工作效率的作用。界面化的操作方式更能使得新人快速上手。 二、系统功能及使用说明 (图一) 此系统分为三个部分: ..


目      录


交换速率修改系统概述

系统功能及使用说明
 
总结

附件:部分源代码

 

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

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

交换速率修改系统设计范文相关范文
上一篇:提升机变频调速系统 下一篇:基于压铸机的PLC 控制系统
点击查看关于 交换 速率 修改 系统 设计 范文 的相关范文题目 【返回顶部】
精彩推荐
电气工程自动化原创范文  电子商务原创文章范文
人力资源专业原创文章范文 土木工程原创文章范文
工商管理专业原创范文    药学专业原创范文
汉语言文学专业原创范文  会计专业原创文章范文
计算机技术原创文章范文  金融学原创文章范文
法学专业原创文章范文   市场营销专业原创范文
信息管理专业原创文章范文 学前教育专业原创范文
公共事业管理专业原创范文 英语专业原创范文
教育管理专业原创范文   行政管理专业原创范文

关于我们 | 联系方式 | 范文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士文章范文


范文同学网提供文档范文,原创文章范文,网站永久域名www.lunwentongxue.com ,lunwentongxue-范文同学网拼音首字母组合

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 17304545@qq.com

Copyright@ 2009-2024 范文同学网 版权所有