通行证 | 帐号: 密码: 注册 | 登录
网站地图| 免费获取| 论文代理
教育资料网


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

  • 网站首页|
  • 资料范文|
  • 修改降重|
  • 职称资料|
  • 合作期刊|
  • 资料下载|
  • 计算机资料|
  • 外文翻译|
  • 免费资料|
  • 原创资料|
  • 开题报告资料
搜索
教育管理原创资料  学前教育原创资料  快速降重  小学教育资料  汉语言文学

当前位置:教育资料网 -> 免费资料 -> 自动化相关 -> 交换速率修改系统设计论文
自动化资料范文| 电子机电资料| 测控技术资料| 通信专业资料| 电气工程资料| 通信工程资料| 电子信息工程资料| 免费自动化资料| 免费电子资料| 免费电气资料| 免费通信资料
·电子商务原创毕业论文
·法学专业原创毕业论文
·土木工程原创毕业论文
·工商管理专业原创论文
·电气自动化原创毕业论文
·汉语言文学专业原创论文
·会计专业原创毕业论文
·计算机技术原创毕业论文
·人力资源专业原创毕业论文
·市场营销专业原创论文
·信息管理专业原创毕业论文
·学前教育专业原创论文
·教育管理专业原创论文
·小学教育专业原创论文
·应用心理学专业原创论文
·英语专业原创论文
·播音与主持原创毕业论文
·行政管理专业原创论文
·广播电视编导原创毕业论文
·摄影专业原创毕业论文
·广告学专业原创毕业论文
·新闻学专业原创毕业论文
·文化产业管理原创毕业论文
·视觉传达设计原创毕业论文
·表演专业原创毕业论文
·动画专业原创毕业论文
·录音艺术原创毕业论文
·护理专业原创毕业论文
·通信工程原创毕业论文
·金融专业原创毕业论文

本专业推荐:带PLC源程序的设计文档

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

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


目      录


交换速率修改系统概述

系统功能及使用说明
 
总结

附件:部分源代码

 

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

 此系统是为了方便监控班人员修改交换机用户端口速率而制作的简易速率修改器,可以起到提高工作效率的作用。界面化的操作方式更能使得新人快速上手。
 
 
二、系统功能及使用说明
 
(图一)
 
 
 
 此系统分为三个部分:
 
 
 第一部分为菜单栏
 
 
(图二)
 菜单栏暂时只开发了“退出系统”和“连接交换机”两项功能
 
 第二部分为显示栏
 
(图三)
 显示栏的主要作用是显示当前接连交换机的情况和程序在交换上所执行命令的情况。
 
 
 
 第三部分为功能栏
(图四)
 功能栏主要由交换机上最常用的命令按键组成。
 登陆交换机可以使用输入节点编码或使用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"
    

赞赏
交换速率修改系统设计论文由教育资料网(www.jaoyuw.com)会员上传。
原创资料流程 相关资料
王氏集团35-10KV变电所设计
深圳市南山区110-10KV降压变电所设计
汽车输调漆设备的供电系统设计
资料文档造纸厂供电系统设计
黄宅地区110降压变电站设计
文档单片机对温度和门禁的控制
文档毫秒计
财务管理 市场营销 幼儿教育 PLC 单片机 教育 幼儿园 中小企业 教师 内部控制 工程造价 电子商务 PLC 变频调速 供水 系统 应用 控制 交流 变频 电梯 设计 火灾 自动 报警系统 单片机 烟雾 检测 篮球 比赛 计时器  自动售货机 控制系统 电热水器 温度 异步电动机 MATLAB 10kV 配电 线路 控制器 智能交通  机床  机械手 变电站 变压器 自动化 售货机 花样喷泉 立体车库 洗衣机 西门子PLC 组态控制 抢答器 数控车床 自行车 里程 车速 超声波 液位 传感器 密码锁 机构 数控激光 切割机设计 后托架 加工工艺 夹具设计 CA6140 传动轴 注塑 模具设计 液压 风险管理 银行 竞争力 中小企业 内部控制 状况 调查报告 融资 管理 中间业务 实习报告 金融 监管 制度  农村 养老保险 合作医疗 外贸 理财 规划 网上银行 发展现状 个人理财 人民币 升值
上一篇:提升机变频调速系统 下一篇:基于压铸机的PLC 控制系统
推荐资料 本专业最新资料
赋能机的应用背景
免费PLC在冰蓄冷中央空调系统控制中的..
闪光焊机交流调压系统设计的总体方案
冷轧SISO板厚控制过程中轧辊偏心的重..
可编程序控制器与工控机在球团配煤系..
开关电源基本工作原理
中小型油库自动发油系统结论
王氏集团35-10KV变电所设计
谈单片机的学习及应用
深圳市南山区110-10KV降压变电所设计
瑞安市瑞祥新区110kV电网规划设计
汽车输调漆设备的供电系统设计
资料文档电动玻璃升降器
资料文档废纸回用技术
Tags:交换 速率 修改 系统 设计 论文 2011-01-16 09:21:10【返回顶部】
电气工程自动化原创资料  电子商务原创资料
人力资源专业原创资料 土木工程原创资料
工商管理专业原创资料    药学专业原创资料
汉语言文学专业原创资料  会计专业原创资料
计算机技术原创资料  金融学原创资料
法学专业原创资料   市场营销专业原创资料
信息管理专业原创资料 学前教育专业原创资料
公共事业管理专业原创资料 英语专业原创资料
教育管理专业原创资料   行政管理专业原创资料
精彩推荐
发表资料
PLC 变频调速 供水 系统 应用 控制 交流 变频 电梯 设计 火灾 自动 报警系统 单片机 烟雾 检测 篮球 比赛 计时器  自动售货机 控制系统 电热水器 温度 异步电动机 MATLAB 10kV 配电 线路 控制器 智能交通  机床  机械手 变电站 变压器 自动化 售货机 花样喷泉 立体车库 洗衣机 西门子PLC 组态控制 抢答器 数控车床 自行车 里程 车速 超声波 液位 传感器 密码锁 机构 数控激光 切割机设计 后托架 加工工艺 夹具设计 CA6140 传动轴 注塑 模具设计 液压
电气工程自动化原创文档  电子商务原创资料文档
人力资源专业原创资料文档土木工程原创资料文档
工商管理专业原创文档    药学专业原创文档
汉语言文学专业原创文档  会计专业原创资料文档
计算机技术原创资料文档  金融学原创资料文档
法学专业原创资料文档  市场营销专业原创文档
信息管理专业原创资料文档 学前教育专业原创文档
公共事业管理专业原创文档 英语专业原创文档
教育管理专业原创文档   行政管理专业原创文档

联系方式 | 资料说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士资料


教育资料网提供资料范文,资料代发,原创资料

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

Copyright@ 2009-2020 教育资料网 版权所有 湘ICP备19027999