第一篇：多功能辞职报告

辞职报告

尊敬的领导：

来到度公司也快一年了，正是在这里我开始踏上了社会，完成了自己从一个学生到社会人的转变。有过欢笑，有过收获，也有过泪水和痛苦。公司平等的人际关系和开明的工作作风，一度让我有着找到了依靠的感觉，在这里我能开心的工作，开心的学习。然而工作上的毫无成熟感总让自己彷徨。记得领导曾说过，工作上不要总是毛毛躁躁的，有问题就得在你自己身上找原因。或许这真是这样的，由此我开始了思索，认真的思考。刚进入公司的时候在领导的带领下，我更快的适应了公司工作的流程，学到了很多东西，从中也学会了怎么跟人沟通交流，怎么把事情完成的圆满，教会了我做人的道理！

然而人总是要面对现实的，离家太远，在石家庄总不是长久之计，自己喜欢什么，自己适合做什么，这一连串的问号一直让我沮丧，也让我萌发了辞职的念头，并且让我确定了这个念头。或许只有重新再跑到社会上去遭遇挫折，在不断打拼中去寻找属于自己的定位，才是我人生的下一步选择。

我也很清楚这时候向公司辞职对公司对自己都是一个考验，公司正是用人之际，也正是考虑到公司今后在工作安排的合理性，本着对公司负责的态度，为了不让公司因我而造成的决策失误，我郑重向公司提出辞职。我想在还未正式开始新一年的工作之前，公司在工作安排上能做得更加合理和妥当。能为公司效力的日子不多了，我一定会把好自己最后一班岗，做好项目开始前的属于自己的所有工作，尽力让工作做到平衡过渡。

离开这个公司，离开这些曾经同甘共苦的同事，很舍不得，我发自内心地感谢和我一起工作过的同事，我曾经和他们度过了一段非常快乐的，令我难忘的时光。领导的教诲，必将令我受用终身。衷心祝愿公司的业绩一路飙升!公司各位领导及各位同事工作顺利!

此致

敬礼

辞职人：***

2010年1月21日

第二篇：多功能桌面

多功能桌面

本程序包括五个窗体其中有:

1、主窗体是基本的界面显示，2、控制面板窗体拥有电脑基本的控制程序，3、网络搜索窗体相当于浏览器，4、注册码计算窗体，5、电脑程序监测。主窗体

1我的电脑、2控制面板、3网络搜索器、4注册码计算、5电脑程序监测代码介绍：

Private Sub Command1_Click()

Form3.Show

End Sub

Private Sub computer_Click()

form1.Show

End Sub

Private Sub Control_Click()

ControlPanel.Show

End Sub

Private Sub Form_Load()

Move(Screen.WidthHeight)2 '屏幕中间显示窗体

End Sub

Private Sub getpassword_Click()

FrmMain.Show

End Sub

Private Sub internet_Click()

sousuo.Show

End Sub

Private Sub look_Click()

Form3.Show

End Sub

Private Sub zhuce_Click()

Form2.Show

End Sub

本窗体主要功能是打开其它窗体，且在屏幕中间显示界面。

控制面板

包涵电脑控制面板中的部分功能。

代码介绍

Option Explicit

Private Sub Cancel_Click()

Unload Me 'exit the program

End Sub

Private Sub Form_Load()

Move(Screen.WidthHeight)2 '屏幕中间显示窗体 End Sub

Private Sub Icon_Click(Index As Integer)

If Index = 1 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl，1”)ElseIf Index = 2 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL timedate.cpl”)ElseIf Index = 3 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL desk.cpl，0”)ElseIf Index = 4 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl，0”)ElseIf Index = 5 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL joy.cpl”)

ElseIf Index = 6 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL main.cpl @1”)ElseIf Index = 7 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL modem.cpl”)ElseIf Index = 8 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL main.cpl @0”)ElseIf Index = 9 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl，0”)ElseIf Index = 10 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL access.cpl，5”)ElseIf Index = 11 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL wscui.cpl”)ElseIf Index = 12 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL intl.cpl，0”)ElseIf Index = 13 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1”)ElseIf Index = 14 Then

Call ControlPanels(“rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl，0”)End If

End Sub

网络搜索

本窗体主要包括有引擎选择，查询，退出功能。可以选择不同的搜索引擎进行搜查找。代码介绍：

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub cmdOK_Click()

Dim urltmp As String

Dim url

On Error Resume Next

If Text1.Text = “" Then

MsgBox ”请输入关键字“

Me.Refresh

End If

If Option1.Value = True Then

urltmp = ”http:///index.php?tn=baiduerr“

ElseIf Option2.Value = True Then

urltmp = ”http://cn.search.yahoo.com/search/cn?p=“

Else

urltmp = ”http://.hk/search?q=“

End If

url = urltmp + Text1.Text

WebBrowser1.Navigate url

End Sub

Private Sub Form_Load()

WebBrowser1.Left = 0

WebBrowser1.Width = form1.ScaleWidth

WebBrowser1.Height = form1.ScaleHeight

StatusBar1.Panels(1).Width = form1.Width

Move(Screen.WidthHeight)2 '让程序在屏幕中间显示 End Sub

Private Sub Form_Resize()

WebBrowser1.Width = form1.ScaleWidth

WebBrowser1.Height = form1.ScaleHeight

StatusBar1.Panels(1).Width = form1.Width

End Sub

Private Sub jiemi_Click()

FrmMain.Show

End Sub

Private Sub kongzhi_Click()

Form3.Show

End Sub

Private Sub mp3_Click()

mp3test.Show

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

StatusBar1.Panels(1).Text = Text

End Sub

注册码计算

本窗体包涵三个按钮 ：1获取C盘序列号、2计算注册ID、3判断是否正确

代码介绍：

Option Explicit

Private Regid, Localid As Long

Private Sub CmdLocalID_Click()

'根据C盘序列号得到原ID

Dim Driver, VolName, Fsys As String

Dim volNumber, MCM, FSF As Long

Driver = ”c:“

Dim res As Long

res = GetVolumeInformation(Driver, VolName, 127, volNumber, MCM, FSF, Fsys, 127)

'volNumber是C盘序列号

Localid = volNumber / 2 + 123456789

Text1.Text = Localid

End Sub

Private Sub CmdRegID_Click()

'根据原ID算出注册ID

If IsNumeric(Text1.Text)Then

Regid = CLng(Text1.Text)/ 4 * 3 + 987654321

Else

'error

End If

Text2.Text = Regid

End Sub

Private Sub CmndCheckID_Click()

'验证注册ID

Dim Driver, VolName, Fsys As String

Dim volNumber, MCM, FSF As Long

Driver = ”c:“

Dim res As Long

res = GetVolumeInformation(Driver, VolName, 127, volNumber, MCM, FSF, Fsys, 127)

Dim Tid As Long

Tid = volNumber / 2 + 123456789

If Regid = Tid / 4 * 3 + 987654321 Then

MsgBox ”正确！“

Else

MsgBox ”错误！“

End If

End Sub

Private Sub Form_Load()

Move(Screen.WidthHeight)2 '屏幕中间显示窗体 End Sub

电脑程序监测

本窗口主要是监测电脑的运行程序，比如机主不在的时候不想别人运行电脑的某些程序，可以进行监测，在监测的时候如果有人打开了被监测的程序改程序就会自动关闭。

Option Explicit

Private Declare Function FindWindow Lib ”user32“ Alias ”FindWindowA“(ByVal lpClassName As String, ByVal lpWindowName As String)As Long

Private Declare Function PostMessage Lib ”user32“ Alias ”PostMessageA“(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Const WM_CLOSE = &H10

Const WM_QUIT = &H12

Dim Handle As Integer

Dim n As Integer

Private Sub end_Click()

Unload Me

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Move(Screen.WidthHeight)2 '屏幕中间显示窗体 End Sub

Private Sub start_Click()

Timer1.Interval = 1000

Timer1.Enabled = True

Form3.Hide

End Sub

Private Sub Timer1_Timer()

Dim hwnd As Long

Dim hlong As Long

hwnd = FindWindow(vbNullString, ”我的电脑“)'查找窗口标题为我的电脑

If hwnd <> 0 Then '如果窗口存在hlong = PostMessage(hwnd, WM_CLOSE, 0, 0)'发送关闭程序的消息

Else

hwnd = FindWindow(vbNullString, ”扫雷“)'查找窗口标题为扫雷

If hwnd <> 0 Then '如果窗口存在hlong = PostMessage(hwnd, WM_CLOSE, 0, 0)

Else

hwnd = FindWindow(vbNullString, ”网上邻居")'查找窗口标题为网上邻居If hwnd <> 0 Then '如果窗口存在hlong = PostMessage(hwnd, WM_CLOSE, 0, 0)

End If

End If

End If

End Sub

在此程序中，我之以“我的电脑、扫雷、网上邻居”这三个为例，可根据实际情况在更改和优化。

第三篇：多功能会议室

一、用户需求、配置及功能需求

邵阳市第一人民医院智能化视频会议室系统会议系统建设项目内容包括智能视频会议室1间，长30.6米，宽15米，舞台长15米，宽4.5米，台口高度未6.5米，台唇呈圆弧状，台唇高0.5米。

多功能会议厅用户需求；是一个按医院要求配置先进的可以举办学术报告，学术交流，大型文艺晚会，大型综合宴会，技等功能综合大厅，对扩声系统的质量要求较高，参照《厅堂扩声特性指标》（原广电部GYJ25-86），把扩声系统声学指标定为音乐一级标准，总体达到并部分指标优于一级标准要求，以满足多功能大厅的使用为原则；该会议室完全能够满足会议厅内与会人员良好的听觉效果及在会议厅内行政会议管理决策学术报告等功能。主要由舞台灯光系统、舞台幕布系统、扩声系统、