Xây dựng một chương trình tương tự như Microsoft Excel

Download miễn phí Tiểu luận Xây dựng một chương trình tương tự như Microsoft Excel

Bài tiểu luận môn học này phần nào đưa ra một cách nhìn cơ bản khi xây dựng một chương trình tương tự như MS Excel. Chương trình khá đơn giản với 6 chức năng cơ bản:
1. Cho phép tạo ra các bảng tính .
2. Cho phép gõ dữ liệu thuộc các dạng khác nhau (kiểu số, kiểu ký tự, các ký hiệu đặc biệt, )
3. Cho phép chọn thư mục để in ra file mới, mở file đã có.
4. Cho phép thực hiện các phép tính số học (cộng, trừ, nhân, chia) theo hàng và cột.
5. Cho phép cắt, dán dữ liệu trên bảng
6. Cho phép chọn các Font chữ khác nhau để soạn
 


http://cloud.liketly.com/flash/edoc/jh2i1fkjb33wa7b577g9lou48iyvfkz6-swf-2014-01-17-tieu_luan_xay_dung_mot_chuong_trinh_tuong_tu_nhu_m.nwge5L6XKK.swf /tai-lieu/de-tai-ung-dung-tren-liketly-54977/
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí

Tóm tắt nội dung tài liệu:

Lời nói đầu
Ngày nay công nghệ thông tin đã và đang ngày càng một phát triển như vũ bão, nó đã xâm nhập vào mọi lĩnh vực như khoa học kỹ thuật, kinh tế, chính trị,…Sản phẩm của công nghệ thông tin chủ yếu là các phần mềm ứng dụng. Một trong những ứng dụng quan trọng nhất chính là việc ứng dụng trong quản lý.
Phần mềm quản lý phổ biến hiện nay và được ứng dụng khá phổ biến chính là Micrsoft Excel. Phần mềm này được tạo ra đã giúp cho người quản lý tổ chức công việc một cách nhanh chóng, chính xác và có hiệu quả. Chương trình chủ yếu được sử dụng để viết nên phần mềm này chính là Visual Basic. Trên cơ sở đã được học môn Lập trình hướng đối tượng với Visual Basic, tui chọn đề tài: “Xây dựng một chương trình tương tự như Microsoft Excel với các chức năng cơ bản sau:
Cho phép tạo ra các bảng tính .
Cho phép gõ dữ liệu thuộc các dạng khác nhau.
Cho phép chọn thư mục để in ra file mới, mở file đã có.
Cho phép thực hiện các phép tính số học theo hàng và cột
Cho phép cắt, dán dữ liệu trên bảng
Cho phép chọn các Font chữ khác nhau để soạn”
Tuy nhiên, đây chỉ là một chương trình mô phỏng lại MS Excel một cách cơ bản, đơn giản nhất dựa trên những kiến thức mà tui đã được học tập tại khoa CNTT nên các thuật toán chưa được hợp lý và cách trình bày có thể còn nhiều thiếu sót. Vì vậy, tui rất mong nhận được sự góp ý của thầy cô và các bạn để chương trình được hoàn thiện hơn.
tui xin chân thành Thank thầy giáo: GS.TS. Nguyễn Văn Xuất và thầy giáo Nguyễn Quảng Hà đã hướng dẫn tui làm chương trình này.
Nội dung đề tàI
Tính cấp thiết của đề tàI
Cùng với sự phát triển mạnh mẽ của công nghệ thông tin và cùng với xự xâm nhập nhanh chóng của tin học vào mọi lĩnh vực của đời sống xã hội thì việc sử dụng máy tính trong công tác quản lý đã trở thành một nhu cầu cấp bách, nó là một trong những công cụ không thể thiếu nhằm nâng cao chất lượng và hiệu quả trong công tác quản lý.
Cái khó khi quản lý là thao tác với các loại dữ liệu khác nhau vốn rất đa dạng chưa kể tới việc tính toán, sao chép, lưu trữ,… điều này tạo ra khó khăn cho những người lập trình, đặc biệt là lập trình với Excel – một chương trình quản lý đã khá phổ biến từ trước tới nay. Do vậy, việc nâng cấp chương trình này ngày càng phải được thay đổi một cách thường xuyên hơn.
Mục đích của đề tàI
Bài tiểu luận môn học này phần nào đưa ra một cách nhìn cơ bản khi xây dựng một chương trình tương tự như MS Excel. Chương trình khá đơn giản với 6 chức năng cơ bản:
1. Cho phép tạo ra các bảng tính .
Cho phép gõ dữ liệu thuộc các dạng khác nhau (kiểu số, kiểu ký tự, các ký hiệu đặc biệt,…)
Cho phép chọn thư mục để in ra file mới, mở file đã có.
Cho phép thực hiện các phép tính số học (cộng, trừ, nhân, chia) theo hàng và cột.
Cho phép cắt, dán dữ liệu trên bảng
6. Cho phép chọn các Font chữ khác nhau để soạn
Sơ đồ thiết kế:
Thanh menu gồm có 4 mục
Menu File
Menu Edit
Menu View
Menu Help
Ngoài ra bạn có thể sử dụng thanh công cụ để điều khiển có chức năng giống như thanh menu.
Các đối tượng, công cụ sử dụng:
MSHFlex Grid
Microsoft Common Dialog Control
TextBox
Command Button
Image List
Label
Khi Chạy chương trình:
Trước tiên để chạy được chương trình này thì máy tính của bạn phải có Microsoft Visual Basic 6.0.
V.1 Khi chạy chương trình bạn có thể mở file cũ hay mở file mới để làm việc
V.2 Ngoài ra bạn có thể chọn Font, cỡ chữ để soạn thảo các BookSheet như bạn muốn. Rồi lưu lại với một file
V.3 Việc tính toán với các phép tính số học cũng được thực hiện ngay trên bảng tính
V.4 Tương tự việc cắt, dán dữ liệu cũng vậy, đều thực hiện trực tiếp trên bảng
Code chương trình nguồn:
FORM MDIMAIN
Private Sub Command1_Click()
If Text2.Text "" Then
Call Tinh(Trim(Text2.Text))
Else
MsgBox "Formula is null", vbCritical, "Warning"
End If
End Sub
Private Sub Label3_Click()
With CommonDialog1
.CancelError = True
On Error GoTo No_Font_Chosen
.Flags = 1
.ShowFont
If ActiveForm Is Nothing Then Exit Sub
ActiveForm.Grid1.CellFontName = .FontName
'Text2.FontName = .FontName
ActiveForm.Grid1.CellFontSize = .FontSize
'Text2.FontSize = .FontSize
ActiveForm.Grid1.CellFontBold = .FontBold
'Text2.FontBold = .FontBold
ActiveForm.Grid1.CellFontUnderline = .FontUnderline
'Text2.FontUnderline = .FontUnderline
ActiveForm.Grid1.CellFontItalic = .FontItalic
'Text2.FontItalic = .FontItalic
ActiveForm.Grid1.FontStrikethru = .FontStrikethru
On Error GoTo 0
Exit Sub
End With
No_Font_Chosen:
End Sub
Private Sub Label5_Click()
Picture4.Visible = False
mnuFormula.Checked = False
mnuPopupFormula.Checked = False
End Sub
Private Sub MDIForm_Load()
Me.WindowState = 2
Text2.Text = ""
Text3.Text = ""
ToolBar1.Height = 329
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
LoadNewBook
End Sub
Private Sub LoadNewBook()
Static LBookCount As Long
Dim frmB As frmExcel
LBookCount = LBookCount + 1
Set frmB = New frmExcel
frmB.Caption = "Book" & LBookCount
frmB.Tag = LBookCount
frmB.Show
End Sub
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu mnuFile
End If
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
Unload frmExcel
End
End Sub
Private Sub mnuClose_Click()
Call mnuFileClose_Click
End Sub
Private Sub mnuCopy_Click()
Call mnuEditCopy_Click
End Sub
Private Sub mnuCut_Click()
Call mnuEditCut_Click
End Sub
Private Sub mnuEditFind_Click()
Find.Show
End Sub
Private Sub mnuExit_Click()
Call mnuFileExit_Click
End Sub
Private Sub mnuFont_Click()
Call Label3_Click
End Sub
Private Sub mnuFormula_Click()
mnuFormula.Checked = Not mnuFormula.Checked
Picture4.Visible = mnuFormula.Checked
End Sub
Private Sub mnuNew_Click()
LoadNewBook
End Sub
Private Sub mnuOpen_Click()
Call mnuFileOpen_Click
End Sub
Private Sub mnuPaste_Click()
Call mnuEditPaste_Click
End Sub
Private Sub mnuPopupFormula_Click()
mnuPopupFormula.Checked = Not mnuPopupFormula.Checked
Picture4.Visible = mnuPopupFormula.Checked
End Sub
Private Sub mnuViewStatusBar_Click()
mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
sbStatusBar.Visible = mnuViewStatusBar.Checked
End Sub
Private Sub mnuViewToolbar_Click()
mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
tbToolBar.Visible = mnuViewToolbar.Checked
End Sub
End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
If ActiveForm Is Nothing Then Exit Sub
On Error Resume Next
Select Case Button.Key
Case "New"
LoadNewBook
Case "Open"
mnuFileOpen_Click
Case "Save"
mnuFileSave_Click
Case "Print"
mnuFilePrint_Click
Case "Cut"
mnuEditCut_Click
Case "Copy"
mnuEditCopy_Click
Case "Paste"
mnuEditPaste_Click
Case "Bold"
ActiveForm.Grid1.CellFontBold = Not ActiveForm.Grid1.CellFontBold
Button.Value = IIf(ActiveForm.Grid1.CellFontBold, tbrPressed, tbrUnpressed)
Case "Italic"
ActiveForm.Grid1.CellFontItalic = Not ActiveForm.Grid1.CellFontItalic
Button.Value = IIf(ActiveForm.Grid1.CellFontItalic, tbrPressed, tbrUnpressed)
Case "Underline"
ActiveForm.Grid1.CellFontUnderline = Not ActiveForm.Grid1.CellFontUnderline
Button.Value = IIf(ActiveForm.Grid1.CellFontUnderline, tbrPressed, tbrUnpressed)
Case "Align Left"
ActiveForm.Grid1.CellAlignment = 1
C...