VB6: Lập trình tiện ích như "Task Manager"

Trong khi lập trình các ứng dụng, một số bạn sẽ gặp phải yêu cầu kiểm tra hệ thống và liệt kê tất cả ứng dụng đang chạy (như tiện ích "Task Manager") và trong một số trường hợp còn cần đến cách thức để "kill" các ứng dụng đó. Bài viết sẽ trình bày cách hiện thực các yêu cầu này bằng VB6.

Một chương trình được kích hoạt từ 1 tập tin (file) khả thi *.exe nằm ở vị trí xác định trên đĩa cứng. Khi chương trình chạy, nó trở thành tiến trình (process) trong máy, mỗi process sẽ được nhận dạng bằng 1 tên nhận dạng (ID) ở dạng số nguyên. Một file khả thi có thể được kích hoạt chạy nhiều lần để trở thành nhiều process khác nhau. Do đó, để nhận dạng process, HĐH dùng định danh riêng (ID) của process. Tuy nhiên, người dùng thường nhận dạng process bằng tên file khả thi của chương trình (nên dùng đường dẫn tuyệt đối của file khả thi để tránh nhầm lẫn giữa các file chương trình nằm ở các thư mục khác nhau nhưng có cùng tên file). Nếu đang lập trình trên HĐH tương thích với WinNT (NT, 2000, XP, Vista...), bạn có thể dùng thư viện quản lý process có tên là PSAPI của Microsoft để duyệt các process đang chạy (thông qua các hàm EnumProcesses, EnumProcessModule, OpenProcess, GetModuleFileNameEx...) và xóa process theo yêu cầu. Sau đây là qui trình điển hình để viết 1 ứng dụng VB đơn giản giải quyết các yêu cầu của bạn: 1. Chạy VB 6.0, tạo project loại "Standard EXE". Sau khi Form trống hiển thị, hãy thiết kế Form có dạng sau: Trong đó button "List Process" có tên là btnList, button "Kill Process" có tên là btnKill, textbox nhập ID có tên là txtProcessID, listbox để chứa danh sách các process có tên là lbProcesses. 2. Nhấn đúp chuột vào button ListProcess để tạo thủ tục xử lý sự kiện click chuột trên button này rồi viết code như sau: 'code cho Form ứng dụng Option Explicit 'thủ tục xóa 1 process Private Sub btnKill_Click() Dim hProcess As Long Dim retval As Long 'lấy handle của Process xác định bởi người dùng hProcess = OpenProcess(SYNCHRONIZE Or PROCESS_TERMINATE, 0, CLng( txtProcessID.Text)) If hProcess <> 0 Then 'xóa process tương ứng retval=TerminateProcess(hProcess, 0) End If End Sub 'thủ tục hiển thị danh sách process 'mỗi process hiển thị 2 thông tin: ID và đường dẫn file khả thi Private Sub btnList_Click() Dim cb As Long Dim cbNeeded As Long Dim NumElements As Long Dim ProcessIDs() As Long Dim cbNeeded2 As Long Dim NumElements2 As Long Dim Modules(1 To 200) As Long Dim lRet As Long Dim ModuleName As String Dim nSize As Long Dim hProcess As Long Dim i As Long lbProcesses.Clear 'tạo array chứa ID của các process cb = 8 cbNeeded = 96 Do While cb <= cbNeeded cb = cb * 2 ReDim ProcessIDs(cb / 4) As Long lRet = EnumProcesses(ProcessIDs(1), cb, cbNeeded) Loop NumElements = cbNeeded / 4 For i = 1 To NumElements 'lấy handle của Process thứ i hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, ProcessIDs(i)) 'kiểm tra handle If hProcess <> 0 Then 'lấy danh sách các module handles thuộc process lRet=EnumProcessModules(hProcess, Modules(1), 200, cbNeeded2) 'nếu có, lấy tên file khả thi tương ứng If lRet <> 0 Then ModuleName = Space(MAX_PATH) nSize = 500 lRet = GetModuleFileNameExA(hProcess, Modules(1), ModuleName, nSize) 'hiển thị thông tin lên listbox lbProcesses.AddItem Format(ProcessIDs(i), "000000") & ": " & Left(ModuleName, lRet) End If End If 'Close the handle to the process lRet = CloseHandle(hProcess) Next End Sub 3. Dời chuột về cửa sổ Process, nhấn phải chuột trên phần tử gốc, chọn menu Add.Module để tạo 1 module mới (tên mặc định là Module1) rồi viết đoạn code VB sau đây vào module mới này: 'khai báo các hàm API cần gọi Public Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long Public Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long Public Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long Public Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long Public Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long Public Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'khai báo kiểu dữ liệu cần dùng Public Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long ' This process th32DefaultHeapID As Long th32ModuleID As Long ' Associated exe cntThreads As Long th32ParentProcessID As Long ' This process's parent process pcPriClassBase As Long ' Base priority of process threads dwFlags As Long szExeFile As String * 260 ' MAX_PATH End Type Public Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long '1 = Windows 95, 2 = Windows NT szCSDVersion As String * 128 End Type Public Const PROCESS_QUERY_INFORMATION = 1024 Public Const PROCESS_VM_READ = 16 Public Const PROCESS_TERMINATE = 1 Public Const MAX_PATH = 260 Public Const STANDARD_RIGHTS_REQUIRED = &HF0000 Public Const SYNCHRONIZE = &H100000 Public Const PROCESS_ALL_ACCESS = &H1F0FFF Public Const TH32CS_SNAPPROCESS = &H2& Public Const hNull = 0 4. Chọn menu Run.Start để chạy thử ứng dụng, nhấn button List Process để xem danh sách các process, nhập ID process cần xóa rồi ấn nút Kill Process để xóa process theo yêu cầu. Chúc các bạn thành công.

Read More

Java cơ bản đến nâng cao (phần II)

Bạn đã biết 2 kiểu String (chuỗi) và int (nguyên) bây giờ bạn biết thêm kiểu float (thực). Số nguyên và số thực bạn biết sự khác nhau rồi chứ. Bây giờ ta bắt đầu bài toán ví dụ

Java cơ bản đến nâng cao (phần I) Bài 4 – Chia hết, chia lấy dư *Lí thuyết: một số kiểu biến trong Java Bạn đã biết 2 kiểu String (chuỗi) và int (nguyên) bây giờ bạn biết thêm kiểu float (thực) Số nguyên và số thực bạn biết sự khác nhau rồi chứ. Bây giờ ta bắt đầu bài toán ví dụ HTML Code: import java.io.*; public class Hello { public static void main(String[] args) throws Exception { BufferedReader in = new BufferedReader(new InputStreamReader(System.in)); System.out.print("Nhap a: "); float a = Float.parseFloat(in.readLine()); System.out.print("Nhap b: "); float b = Float.parseFloat(in.readLine()); float ketqua = a/b; System.out.println("Ket qua bai toan a+b la: " + ketqua); } } Bạn thử bài toán xem, nhớ đừng nhập số b=0 nhé, chuyện ấy sẽ xử lí sau. Ví dụ nhập a=5, b=2, kết quả in ra sẽ là 2.5, thú vị phải không ? Bây giờ cũng bài toán ấy, bạn thay đổi như sau HTML Code: import java.io.*; public class Hello { public static void main(String[] args) throws Exception { BufferedReader in = new BufferedReader(new InputStreamReader(System.in)); System.out.print("Nhap a: "); int a = Integer.parseInt(in.readLine()); System.out.print("Nhap b: "); int b = Integer.parseInt(in.readLine()); float ketqua = a/b; System.out.println("Ket qua bai toan a+b la: " + ketqua); } } Cũng nhập a=5, b=2, lần này kết quả in ra là … 2 Phép chia sẽ là phép chia hết nếu cả 2 toán hạng đều kiểu nguyên, gọi là chia lấy nguyên (/) hay div Bây giờ cũng chương trình ấy mà ta thay đổi lại chút xíu xem sao HTML Code: import java.io.*; public class Hello { public static void main(String[] args) throws Exception { BufferedReader in = new BufferedReader(new InputStreamReader(System.in)); System.out.print("Nhap a: "); int a = Integer.parseInt(in.readLine()); System.out.print("Nhap b: "); int b = Integer.parseInt(in.readLine()); float ketqua = a%b; System.out.println("Ket qua bai toan a+b la: " + ketqua); } } Cũng nhập a=5, b=2, lần này kết quả in ra là … 1 Đây là kết quả phép chia lấy dư 5 chia cho 2, gọi là chia lấy dư (%) hay mod *Thế nếu tôi muốn 2 số nguyên chia nhau mà ra kiểu thực chứ không phải phép chia lấy nguyên thì sao ? Trong trường hợp đó, bạn dùng “ép kiểu” int a=5,b=2;float ket qua; ketqua=(float)a/b; NguNguồn: Tuoitre_8x - diendanaptech

Read More

Java cơ bản đến nâng cao (phần I)

Vì thấy hay và bổ ích muốn chia sẻ cho những ai thích java và muốn tìm hiểu về nó. Chúc các bạn thành công.

CHƯƠNG I - BẮT ĐẦU VỚI JAVA Bài 1 – Hello world Bài 2 – In ra chuỗi nhập vào Bài đầu tiên của bạn, bạn đã học cách để Java in cái gì đó ra màn hình, trong bài này, bạn sẽ học cách nhập vào cái gì đó và Java in cái đó ra màn hình. Gõ cái này đi bạn (lưu ý, bạn phải gõ, không được copy và paste) HTML Code: import java.io.*; public class Hello { public static void main(String[] args) throws Exception { BufferedReader in = new BufferedReader(new InputStreamReader(System.in)); System.out.print("Your name is: "); String str; str = in.readLine(); System.out.println("Welcome " + str + " to Java"); } } Xin hỏi, tôi đã bắt đầu với một vài ví dụ, mà tôi chẳng hiểu cái gì cả. Xin trả lời, bạn sẽ học Java qua các ví dụ, rất nhiều ví dụ, lí thuyết thì bạn chỉ học từ từ thôi. *Lí thuyết: cấu trúc một chương trình Java HTML Code: public class Core { public static void main(String[] args) { System.out.println("Hello,Everybody in the World!"); } } public class Core bạn bắt đầu một lớp Java public static void main(String[] args) đây là một phương thức main trong Java, để cho chương trình chạy được. Tạm thời bạn phải gõ y như thế này System.out.println("Hello,Everybody in the World!") đây là một câu lệnh trong Java, đơn giản nó chỉ in ra chuỗi nằm trong 2 dấu “” ra màn hình. Mọi lớp và phương thức trong Java mở ra bằng { và đóng lại bằng } Mọi câu lệnh trong java kết thúc bằng ; Bài 3 – Biến trong Java HTML Code: import java.io.*; public class Hello { public static void main(String[] args) throws Exception { BufferedReader in = new BufferedReader(new InputStreamReader(System.in)); System.out.print("Nhap a: "); int a = Integer.parseInt(in.readLine()); System.out.print("Nhap b: "); int b = Integer.parseInt(in.readLine()); int ketqua; ketqua = a+b; System.out.println("Ket qua bai toan a+b la: “ + ketqua); } } Nhập thử 2 số a và b vào đi bạn, kết quả bài toán a+b sẽ được in ra. *Lí thuyết: HTML Code: import java.io.*; public class Hello { public static void main(String[] args) throws Exception { BufferedReader in = new BufferedReader(new InputStreamReader(System.in)); System.out.print("Your name is: "); String str; str = in.readLine(); System.out.println("Welcome " + str + " to Java"); } } Tạm thời, trong chương trình này, bạn chỉ nên quan tâm đến dòng String str khai báo biến str kiểu chuỗi, và System.out.println("Welcome " + str + " to Java") Đây cũng là dòng System.out.println như chương trình đầu, có khác là + str + tức là đưa một biến vào chuỗi in ra. Chỉ đến đó thôi nhé, sau đó, hãy quan tâm đến bài hôm nay HTML Code: System.out.print("Nhap a: "); int a = Integer.parseInt(in.readLine()); System.out.print("Nhap b: "); int b = Integer.parseInt(in.readLine()); int ketqua; ketqua = a+b; System.out.println("Ket qua bai toan a+b la: “ + ketqua); Giải thích import bạn nhập class hay thư viện chuẩn, tạm thời đừng quan tâm nó là gì, chỉ cần nhớ là có nó để chương trình chạy HTML Code: System.out.print in ra một chuỗi, nhưng không xuống dòng System.out.println in ra một chuỗi, nhưng xuống dòng int ketqua tức là khai báo biến ketqua kiểu int ketqua = a+b tức là gán kết quả một biểu thức tính toán (ở đây là biến a + biến b) cho biến ketqua System.out.println("Ket qua bai toan a+b la: “ + ketqua) thì đơn giản rồi, in cái dòng đó ra, chỉ khác là nó đưa biến ketqua của bạn vào chuỗi đó. Nguồn: Tuoitre_8x - diendanaptech

Read More

Sử dụng Delegate để truyền giá trị trong C#

Để có thể viết được một ứng dụng phần mềm, bạn phải biết cách truyền giá trị qua lại giữa các Form.

Tuy nhiên, khi ta muốn lấy giá trị từ nhiều Form khác, chắc chúng ta sẽ gặp rắc rối với những cách làm thông thường. Delegate sẽ giúp chúng ta giải quyết vấn đề. Trước hết, tôi sẽ trình bày cho các bạn cách truyền giá trị theo cách thông thường. Dưới đây là giao diện của các Form: Đây là giao diện của Form chính. có 2 textbox để hiển thị giá trị lấy từ các Form khác. 2 button có chức năng hiển thị các form mà mình muốn lấy giá trị. Còn đây là giao diện của Form 1, Gồm 1 textbox để nhập giá trị, nút button để xác nhận giá trị đó và truyền giá trị được nhập trong ô textbox cho form chính. Tương tự như Form 1, Form 2 cũng gồm 1 textbox để nhập giá trị, nút button để xác nhận giá trị đó và truyền giá trị được nhập trong ô textbox cho form chính. 1. Với việc truyền giá trị thông thường: - Trong Form Chính: // Ta khai báo trường để lưu giá trị. private string _getFirstValue = null; // Thuộc tính này có nhiệm vụ lấy giá trị từ các Form khác. public string GetFirstValue { get { return _getFirstValue; } set { _getFirstValue = value; } } Và viết sự kiện cho nút btnGetValue1: private void btnGetValue1_Click(object sender, EventArgs e) { frmFirstValue first = new frmFirstValue(); first.ShowDialog(); } Và khi Form chính được hiển thị, ta phải hiển thị nhận được thông qua các thuộc tính GetFirstValue. private void frmMain_Load(object sender, EventArgs e) { txtFirstValue.Text = GetFirstValue; txtSecondValue.Text = GetSecondValue; } - Đối với Form 1: Ta chỉ cần viết sự kiện cho Nút btnSend: private void btnSend_Click(object sender, EventArgs e) { frmMain main = new frmMain(); main.GetFirstValue = txtValue.Text; // Truyền giá trị cho Form chính thông qua thuộc tính GetFirstValue. main.ShowDialog(); this.Hide(); } việc khai báo và xử lý sự kiện đối với Form 2 tương tự. Nhưng trong trường hợp này, khi lấy giá trị từ 2 Form khác nhau, cách truyền giá trị thông thường này sẽ không thể làm được. Vậy cách khác, ta sẽ dùng Delegate để giải quyết vấn đề: 2. Sử Dụng Delegate: - Dùng Delegate sẽ giúp chúng ta quyết định xem hàm nào sẽ được trong lúc chạy. Về mặt kỹ thuật, Delegate là một dạng tham chiếu được sử dụng để đóng gói 1 hàm với giá trị xác thực và kiểu giá trị trả về. - Trong Form 1: Ta khai báo Delegate có tên là PassData có 1 tham số kiểu string và ko có giá trị trả về. public delegate void PassData(string value); public PassData passData; private void btnSend_Click(object sender, EventArgs e) { if (passData != null) { passData(txtValue.Text); } this.Hide(); } - Còn trong Form chính: Ta viết Hàm GetFirstValue phải giống như khi khai báo Delegate: có 1 giá trị truyền vào là kiểu chuỗi, và không có giá trị trả về. public void GetFirstValue(string value) { txtFirstValue.Text = value; } Ta viết sự kiện cho nút btnGetValue1: private void btnGetValue1_Click(object sender, EventArgs e) { frmFirstValue first = new frmFirstValue(); first.passData = new frmFirstValue.PassData(GetFirstValue); first.Show(); } Nguồn: Zensoft

Read More

Hiển thị tiếng Việt Unicode trong VB6 dễ dàng hơn!

Trước hết, tôi cũng xây dựng một hàm tương tự như hàm CharUnicode và cũng thêm vào hộp công cụ của VB các điều khiển (control) của MS Forms 2.0 như hướng dẫn của anh Bằng.

Nhưng tôi đặt tên hàm là Viethoa (Việt hóa) và tạo ra chức năng chuyển thành mã tiếng Việt Unicode đối với chuỗi được gõ vào theo cách như khi bạn gõ tiếng Việt với kiểu gõ VNI (đoạn mã 1). Ví dụ, khi bạn muốn hiển thị cụm từ "Tiếng Việt", bạn chỉ cần viết đoạn mã như sau: Private Sub Form_Load() cmdTiengviet.Caption = Viethoa(“Tie61ng Vie65t”) End Sub Bạn có thể làm tương tự để dùng kiểu gõ khác mà bạn ưa thích. Chúc bạn thành công! Đoạn mã 1 Function Viethoa(chuoi As String) Dim i As Integer Dim j As Integer For j = 1 To 2 For i = 2 To Len(chuoi) Select Case Mid(chuoi, i, 1) Case "1" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HE1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HC1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA4) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EAF) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EAE) & Right(chuoi, Len(chuoi) - i) End If 'e If Mid(chuoi, i - 1, 1) = "e" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HE9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "E" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HC9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBF) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBE) & Right(chuoi, Len(chuoi) - i) End If 'i If Mid(chuoi, i - 1, 1) = "i" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HED) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "I" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HCD) & Right(chuoi, Len(chuoi) - i) End If 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HF3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HD3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED0) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EDB) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EDA) & Right(chuoi, Len(chuoi) - i) End If 'u If Mid(chuoi, i - 1, 1) = "u" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HFA) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "U" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HDA) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE8) & Right(chuoi, Len(chuoi) - i) End If 'y If Mid(chuoi, i - 1, 1) = "y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HFD) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "Y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HDD) & Right(chuoi, Len(chuoi) - i) End If Case "2" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HE0) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HC0) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA7) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA6) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB0) & Right(chuoi, Len(chuoi) - i) End If 'e If Mid(chuoi, i - 1, 1) = "e" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HE8) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "E" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HC8) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC0) & Right(chuoi, Len(chuoi) - i) End If 'i If Mid(chuoi, i - 1, 1) = "i" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HEC) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "I" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HCC) & Right(chuoi, Len(chuoi) - i) End If 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HF2) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HD2) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED2) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EDD) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EDC) & Right(chuoi, Len(chuoi) - i) End If 'u If Mid(chuoi, i - 1, 1) = "u" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HF9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "U" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HD9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EEB) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EEA) & Right(chuoi, Len(chuoi) - i) End If 'y If Mid(chuoi, i - 1, 1) = "y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "Y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF2) & Right(chuoi, Len(chuoi) - i) End If Case "3" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA2) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA8) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB2) & Right(chuoi, Len(chuoi) - i) End If 'e If Mid(chuoi, i - 1, 1) = "e" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBB) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "E" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBA) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC2) & Right(chuoi, Len(chuoi) - i) End If 'i If Mid(chuoi, i - 1, 1) = "i" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "I" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC8) & Right(chuoi, Len(chuoi) - i) End If 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ECF) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ECE) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED4) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EDF) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EDE) & Right(chuoi, Len(chuoi) - i) End If 'u If Mid(chuoi, i - 1, 1) = "u" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE7) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "U" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE6) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EED) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EEC) & Right(chuoi, Len(chuoi) - i) End If 'y If Mid(chuoi, i - 1, 1) = "y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF7) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "Y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF6) & Right(chuoi, Len(chuoi) - i) End If Case "4" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HE3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HC3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EAB) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EAA) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB4) & Right(chuoi, Len(chuoi) - i) End If 'e If Mid(chuoi, i - 1, 1) = "e" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBD) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "E" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBC) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC4) & Right(chuoi, Len(chuoi) - i) End If 'i If Mid(chuoi, i - 1, 1) = "i" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H129) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "I" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H128) & Right(chuoi, Len(chuoi) - i) End If 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HF5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HD5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED7) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED6) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE0) & Right(chuoi, Len(chuoi) - i) End If 'u If Mid(chuoi, i - 1, 1) = "u" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H169) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "U" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H168) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EEF) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EEE) & Right(chuoi, Len(chuoi) - i) End If 'y If Mid(chuoi, i - 1, 1) = "y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "Y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF8) & Right(chuoi, Len(chuoi) - i) End If Case "5" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA0) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EAD) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EAC) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB7) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB6) & Right(chuoi, Len(chuoi) - i) End If 'e If Mid(chuoi, i - 1, 1) = "e" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "E" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB8) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC7) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EC6) & Right(chuoi, Len(chuoi) - i) End If 'i If Mid(chuoi, i - 1, 1) = "i" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ECB) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "I" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ECA) & Right(chuoi, Len(chuoi) - i) End If 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ECD) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ECC) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED9) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&HD4) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED8) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE3) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE2) & Right(chuoi, Len(chuoi) - i) End If 'u If Mid(chuoi, i - 1, 1) = "u" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "U" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE4) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF0) & Right(chuoi, Len(chuoi) - i) End If 'y If Mid(chuoi, i - 1, 1) = "y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF5) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "Y" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1EF4) & Right(chuoi, Len(chuoi) - i) End If Case "6" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HE2) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HC2) & Right(chuoi, Len(chuoi) - i) End If 'e If Mid(chuoi, i - 1, 1) = "e" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HEA) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "E" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HCA) & Right(chuoi, Len(chuoi) - i) End If 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HF4) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&HD4) & Right(chuoi, Len(chuoi) - i) End If Case "7" 'o If Mid(chuoi, i - 1, 1) = "o" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1A1) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "O" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1A0) & Right(chuoi, Len(chuoi) - i) End If 'u If Mid(chuoi, i - 1, 1) = "u" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1B0) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "U" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H1AF) & Right(chuoi, Len(chuoi) - i) End If Case "8" 'a If Mid(chuoi, i - 1, 1) = "a" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H103) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "A" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H102) & Right(chuoi, Len(chuoi) - i) End If Case "9" 'd If Mid(chuoi, i - 1, 1) = "d" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H111) & Right(chuoi, Len(chuoi) - i) End If If Mid(chuoi, i - 1, 1) = "D" Then chuoi = Left(chuoi, i - 2) & ChrW$(&H110) & Right(chuoi, Len(chuoi) - i) End If End Select Next i Next j Viethoa = chuoi End Function Theo Huyata Kudo (echip)

Read More

Ứng dụng tin tức đơn giản với ASP.NET

Bài viết sẽ hướng dẫn bạn các bước cơ bản trong quá trình phát triển một ứng dụng: từ bước phân tích yêu cầu, phân tích chức năng, thiết kế hệ thống và hiện thực. Tổng quan, loạt bài viết sẽ gồm các phần sau đây:

Giới thiệu ứng dụng tin tức, phân tích yêu cầu và chức năng Phân tích và thiết kế ứng dụng theo mô hình 3 lớp logíc Phát triển ứng dụng, phần quản lý Phát triển ứng dụng, phần trình bày tin tức Tổng kết và hướng phát triển Giới thiệu ứng dụng tin tức, phân tích yêu cầu và chức năng. Trong bài đầu tiên này, tôi sẽ trình bày những yêu cầu của ứng dụng tin tức mà chúng ta sẽ phát triển. Không cần định nghĩ gì nhiều, các bạn có thể ghé thăm các website như Tuổi Trẻ Online, VNExpss, ViệtNamNet để có thể hình dung một ứng dụng quản lý tin tức sẽ như thế nào. Khi các bạn xem qua các trang này, sẽ thấy có nhiều chuyên mục, mỗi chuyên mục sẽ có nhiều tin tức. Hệ thống quản lý tin tức sẽ giúp các biên tập viên, các quản trị viên của website có thể gửi những nội dung mới lên website một cách dễ dàng nhanh chóng, không cần phải có kiến thức về HTML hay Web design nhiều cũng có thể tạo được các trang web như vậy. Như đã nói ngắn gọn ở trên, một ứng dụng quản lý tin tức sẽ cho phép người sử dụng(ở đây là các biên tập viên, quản trị viên của website) thực hiện các công việc sau: - Dễ dàng tạo mới và chỉnh sửa các chuyên mục cần thiết - Dễ dàng gửi một tin tức mới vào một chuyên mục nào đó: nhập nội dung, upload hình ảnh đi kèm… - Lưu trữ/Phục hồi tin tức cũ - Quản lý các thông tin phản hồi Ngoài ra, hệ thống quản lý tin tức cũng phải cung cấp các chức năng sau đây cho người xem tin: - Cho phép người dùng xem qua các tin mới nhất - Cho phép người dùng xem các tin trong một chuyên mục nào đó - Cho phép người dùng tìm kiếm một tin tức nào đó thỏa mãn một điều kiện nào đó, ví dụ như tìm các tin có từ “Cúm gà” và có ngày đăng từ tháng 2 năm 2005 trở lại đây… - Gửi một tin nào đó cho bạn bè, hoặc in ra máy in để xem - Gửi ý kiến/phản hồi của mình về nội dung một tin nào đó - Ngoài ra còn một số chức năng nâng cao khác như cho phép người dùng định nghĩa những chuyên mục nào là yêu thích nhất để xem trên trang chủ… nhận email thông báo khi có tin mới đăng… Ứng dụng quản lý của chúng ta đơn giản sẽ chỉ tập trung vào giải quyết một số chức năng cơ bản là: - Quản lý các chuyên mục: cho phép tạo, sửa, xóa các chuyên mục - Quản lý các tin tức trong chuyên mục: cho phép gửi tin mới, sửa tin cũ, hoặc xóa hẳn một hay nhiều tin nào đó - Liệt kê các tin mới nhất cho người xem - Liệt kệ danh sách các chuyên mục hiện có - Liệt kê các tin trong một chuyên mục nào đó - Trình bày thông tin chi tiết của một bản tin Với các chức năng này, các bạn hình dung ứng dụng của chúng ta sẽ gồm 2 phần chức năng chính. Một phần dành cho các biên tập viên và quản trị viên quản lý các chuyên mục/tin tức và một phần dành cho người xem tin. Các bạn cũng đã hình dung được một ứng dụng tin tức thường có những chức năng cơ bản nào. Trong bài viết sau tôi sẽ trình bày cách phân tích và thiết kế ứng dụng của chúng ta dựa trên mô hình 3 lớp. Mô hình 3 lớp (3layers) Trong bài viết này không có tham vọng trình bày lại chi tiết mô hình thiết kế ứng dụng đa lớp/tầng là như thế nào. Chỉ tóm tắt ngắn gọn lại những điểm chính của mô hình 3 lớp, mà cụ thể là 3 lớp logic. Lưu ý: Các bạn không nên nhầm lẫn khái niệm lớp(layer) trong phần này với khái niệm lớp(class) của các ngôn ngữ lập trình hướng đối tượng. Trong phát triển ứng dụng, để dễ quản lý các thành phần của hệ thống, cũng như không bị ảnh hưởng bởi các thay đổi, người ta hay nhóm các thành phần có cùng chức năng lại với nhau và phân chia trách nhiệm cho từng nhóm để công việc không bị chồng chéo và ảnh hưởng lẫn nhau. Ví dụ trong một công ty bạn có từng phòng ban, mỗi phòng ban sẽ chịu trách nhiệm một công việc cụ thể nào đó, phòng này không được can thiệp vào công việc nội bộ của phòng kia như Phòng tài chính thì chỉ phát lương, còn chuyện lấy tiền đâu phát cho các anh phòng Marketing thì các anh không cần biết. Trong phát triển phần mềm, người ta cũng áp dụng cách phân chia chức năng này. Bạn sẽ nghe nói đến thuật ngữ kiến trúc đa tầng/nhiều lớp, mỗi lớp sẽ thực hiện một chức năng nào đó, trong đó mô hình 3 lớp là phổ biến nhất. 3 lớp này là gì? Là psentation, Business Logic, và Data Access. Các lớp này sẽ giao tiếp với nhau thông qua các dịch vụ(services) mà mỗi lớp cung cấp để tạo nên ứng dụng, lớp này cũng không cần biết bên trong lớp kia làm gì mà chỉ cần biết lớp kia cung cấp dịch vụ gì cho mình và sử dụng nó mà thôi. Mô hình 3 lớp mà Microsoft đề nghị dùng cho các hệ thống phát triển trên nền .NET như sau: Bạn có thể tham khảo chi tiết các đề nghị thiết kế các thành phần trong lớp này như thế nào ở đây: http://www.microsoft.com/Downloads/details.aspx?familyid=A08E4A09-7AE3-4942-B466-CC778A3BAB34&displaylang=en psentation Layer Lớp này làm nhiệm vụ giao tiếp với người dùng cuối để thu thập dữ liệu và hiển thị kết quả/dữ liệu thông qua các thành phần trong giao diện người sử dụng. Lớp này sẽ sử dụng các dịch vụ do lớp Business Logic cung cấp. Trong .NET thì bạn có thể dùng Windows Forms, ASP.NET hay Mobile Forms để hiện thực lớp này. Trong lớp này có 2 thành phần chính là User Interface Components và User Interface Process Components. UI Components là những phần tử chịu trách nhiệm thu thập và hiển thị thông tin cho người dùng cuối. Trong ASP.NET thì những thành phần này có thể là các TextBox, các Button, DataGrid... UI Process Components: là thành phần chịu trách nhiệm quản lý các qui trình chuyển đổi giữa các UI Components. Ví dụ chịu trách nhiệm quản lý các màn hình nhập dữ liệu trong một loạt các thao tác định trước như các bước trong một Wizard... Lưu ý : lớp này không nên sử dụng trực tiếp các dịch vụ của lớp Data Access mà nên sử dụng thông qua các dịch vụ của lớp Business Logic vì khi bạn sử dụng trực tiếp như vậy, bạn có thể bỏ qua các ràng buộc, các logic nghiệp vụ mà ứng dụng cần phải có. Business Logic Layer Lớp này thực hiện các nghiệp vụ chính của hệ thống, sử dụng các dịch vụ do lớp Data Access cung cấp, và cung cấp các dịch vụ cho lớp psentation. Lớp này cũng có thể sử dụng các dịch vụ của các nhà cung cấp thứ 3 (3rd parties) để thực hiện công việc của mình(ví dụ như sử dụng dịch vụ của các cổng thanh tóan trực tuyến như VeriSign, Paypal...). Trong lớp này có các thành phần chính là Business Components, Business Entities và Service Interface. Service Interface là giao diện lập trình mà lớp này cung cấp cho lớp psentation sử dụng. Lớp psentation chỉ cần biết các dịch vụ thông qua giao diện này mà không cần phải quan tâm đến bên trong lớp này được hiện thực như thế nào. Business Entities là những thực thể mô tả những đối tượng thông tin mà hệ thống xử lý. Trong ứng dụng chúng ta các đối tượng này là các chuyên mục(Category) và bản tin(News). Các business entities này cũng được dùng để trao đổi thông tin giữa lớp psentation và lớp Data Access. Business Components là những thành phần chính thực hiện các dịch vụ mà Service Interface cung cấp, chịu trách nhiệm kiểm tra các ràng buộc logic(constraints), các qui tắc nghiệp vụ(business rules), sử dụng các dịch vụ bên ngoài khác để thực hiện các yêu cầu của ứng dụng. Trong ứng dụng của chúng ta, lớp này sẽ chứa các thành phần là CategoryService và NewsService làm nhiệm vụ cung cấp các dịch vụ quản lý chuyên mục và các bản tin (thêm, xóa, sửa, xem chi tiết, lấy danh sách...). Data Access Layer Lớp này thực hiện các nghiệp vụ liên quan đến lưu trữ và truy xuất dữ liệu của ứng dụng. Thường lớp này sẽ sử dụng các dịch vụ của các hệ quản trị cơ sở dữ liệu như SQL Server, Oracle,... để thực hiện nhiệm vụ của mình. Trong lớp này có các thành phần chính là Data Access Logic, Data Sources, Servive Agents. Data Access Logic components (DALC) là thành phần chính chịu trách nhiệm lưu trữ vào và truy xuất dữ liệu từ các nguồn dữ liệu - Data Sources như RDMBS, XML, File systems.... Trong .NET Các DALC này thường được hiện thực bằng cách sử dụng thư viện ADO.NET để giao tiếp với các hệ cơ sở dữ liệu hoặc sử dụng các O/R Mapping Frameworks để thực hiện việc ánh xạ các đối tượng trong bộ nhớ thành dữ liệu lưu trữ trong CSDL. Chúng ta sẽ tìm hiểu các thư viện O/R Mapping này trong một bài viết khác. Service Agents là những thành phần trợ giúp việc truy xuất các dịch vụ bên ngòai một cách dễ dàng và đơn giản như truy xuất các dịch vụ nội tại. Chúng ta đã tìm hiểu qua các lớp của mô hình 3 lớp. Lý thuyết hơi nhiều một chút có thể làm bạn khó hiểu vì khả năng trình bày có hạn, nên bây giờ thử tìm hiểu một qui trình cụ thể hơn để biết các lớp này giao tiếp với nhau như thế nào. Ví dụ trong ứng dụng của chúng ta có thao tác tạo một chuyên mục mới, thì các lớp sẽ ltương tác với nhau như sau: Lớp psentation - Trình bày một web form, có các text box cho phép người sử dụng nhập tên và mô tả cho chuyên mục - Khi người dùng nhấn nút tạo trên form này, ứng dụng sẽ thực hiện việc tạo một Business Entity Category mới như đoạn code sau minh họa: public void CreateNewCategory() { Category category = new Category(); category.Name = name.Text; category.Description = description.Text; // sử dụng dịch vụ do lớp Business cung cấp để tạo chuyên mục CategoryService.CreateCategory(category); } Lớp Business Logic Để cung cấp dịch vụ tạo một chuyên mục, thành phần CategoryService sẽ cung cấp hàm sau: public static void CreateCategory(Category category) { // kiểm tra xem tên khóa của chuyên mục đã tồn tại chưa? ... // kiểm tra tên khóa của chuyên mục có hợp lệ không? ... // sử dụng DV của lớp Data Access để lưu chuyên mục mới này vào CSDL CategoryDAO categoryDAO = new CategoryDAO(); categoryDAO.CreateCategory(category); } Lớp Data Access Tương tự, để cung cấp dịch vụ lưu một chuyên mục mới vào CSDL, thành phần CategoryDAO sẽ cung cấp hàm sau (sử dụng ADO.NET để kết nối với CSDL): public void CreateCategory(Category category) { // tạo connection ... // tạo command, khởi tạo các tham số... command.Parameters.Add(new SqlParameter("@KeyName", category.KeyName)); command.Parameters.Add(new SqlParameter("@Name", category.Name)); command.Parameters.Add(new SqlParameter("@Description", category.Description)); // lưu dữ liệu command.ExecuteNonQuery(); } Phân tích và thiết kế Ứng dụng của chúng ta sẽ viết bằng ASP.NET 2.0 và SQL Server 2000/2005. Ngôn ngữ được dùng là C#. Chúng ta đã tìm hiểu qua các thành phần chính trong mô hình 3 lớp, giờ đến lúc bắt tay vào thiết kế các thành phần đó cho ứng dụng tin tức của chúng ta. Trong ứng dụng tin tức mà chúng ta đã tìm hiểu yêu cầu qua bài viết trước, chúng ta thấy có hai đối tượng thông tin chính mà chúng ta cần quản lý là các chuyên mục(category) và tin tức(news). Ứng dụng quản lý của chúng ta sẽ thu thập những đối tượng dữ liệu này từ người dùng(phóng viên, biên tập viên) và trình bày lại cho người sử dụng khác xem(độc giả). Giờ chúng ta bắt tay vào thiết kế các thành phần Business Entities. Business Entities Ứng dụng của chúng ta sẽ bao gồm 2 entity chính là Category và News. Trước hết là Category. Một chuyên mục (Category) sẽ gồm những thông tin sau: CategoryId: Mã chuyên mục - sẽ được sinh tự động khi tạo mới Name: Tên chuyên mục. VD: Vi tính, Kinh tế... KeyName: Tên gợi nhớ dùng để phân biệt chuyên mục với nhau (không được trùng nhau). VD với VNExpss bạn sẽ thấy có Vi-tinh, Suc-khoe... Description: Mô tả cho chuyên mục. VD: Description cho Vi-tinh là: thông tin mới nhất về công nghệ thông tin của Việt Nam và thế giới... Picture: Hình ảnh đại diện cho chuyên mục Trong ứng dụng đơn giản này, chúng ta chỉ thiết kế chuyên mục có một cấp, không có các chuyên mục con, cháu... Và ứng dụng này cũng không có phần quản lý các nhà biên tập viên, nhà báo và cơ chế cấp quyền hạn duyệt bài, gửi bài...Tôi dành phần này cho các bạn phát triển thêm, nhưng tôi cũng sẽ gợi ý cho các bạn cách thiết kế trong phần mở rộng ứng dụng. Tiếp theo là News. Mỗi một bản tin sẽ có các thông tin sau: NewsId: mã bản tin. Sẽ được sinh tự động khi tạo mới. Title: tiêu đề chính của bản tin. VD: Microsoft tuyên bố phá sản! Subtitle: tiêu đề phụ của bản tin. VD: Bill Gates từ chức! Excerpt: phần giới thiệu ngắn gọn của bản tin Authors: danh sách tác giả bản tin. VD: Nguyễn Văn A, Hoàng Thị B Keywords: danh sách từ khóa chính trong bản tin dùng để tìm kiếm. VD: Microsoft, broken Body: Đây là phần nội dung chính của bản tin. Picture: Hình ảnh minh họa cho bản tin. CreationTime: Ngày giờ tạo bản tin LastModificationTime: Ngày giờ chỉnh sửa cuối cùng của bản tin PublishedTime: Ngày giờ bản tin được đăng TotalViews: Tổng số lượt người xem bản tin TotalRates: Tổng số lượt người đánh giá bản tin Rate: Điểm đánh giá trung bình của bản tin Status: Trạng thái hiện tại của bản tin. Có thể là Writting(Đang viết), Approving(Đang chờ duyệt), Published(Đã được đăng) Business Service Components Bước tiếp theo chúng ta sẽ phân tích và thiết kế các Business Service Components. Các thành phần này sẽ làm nhiệm vụ chính cung cấp các dịch vụ cho lớp psentation dùng để lấy và lưu trữ thông tin. Lớp CategoryService Chúng ta cần những thao tách chính trên đối tượng dữ liệu Category: Tạo mới - CreateCategory(Category category) Cập nhật - UpdateCategory(Category category) Xóa - DeleteCategory(int categoryId) Lấy thông tin chi tiết - GetCategory(int categoryId) Lấy danh sách các category - GetCategories() Kiểm tra một Key xem có trong database chưa - CheckKey(string keyName). Thao tác này dùng để kiểm tra xem khi tạo mới một category thì KeyName đã tồn tại trong hệ thống chưa. Thao tác này có thể dùng trên lớp psentation để kiểm tra và thông báo lỗi cho người dùng khi họ nhập một tên khóa đã có trong hệ thống Lưu ý: Chúng ta sẽ thực hiện các business logic của hệ thống trong lớp này. Tương tự đối với lớp NewsService, dựa trên những gì yêu cầu chúng ta phân tích ở bài viết đầu tiên, chúng ta cần những thao tác chính sau đây trên đối tượng News: Tạo mới - CreateNews(News news) Cập nhật - UpdateNews(News news) Xóa - DeleteNews(int newsId) Lấy thông tin chi tiết - GetNews(int newsId) Lấy danh sách các bản tin thuộc một chuyên mục nào đó, sắp xếp theo tin mới nhất - GetNewsOfCategory(int categoryId, int page, int pageSize, out int totalRecords) Cập nhật số lần xem của một bản tin - UpdateTotalViews(int newsId) Cập nhật đánh giá cho một bản tin - UpdateRate(int newsId, int rate) Tìm bài viết dựa trên từ khóa - SearchNews(string keyWords, int page, int pageSize, out int totalRecords) Trong các hàm trên, các bạn chú ý đến hàm GetNewsOfCategory. Trong hàm này có các tham số dùng để phân trang các bản tin. Chúng ta cần đến chức năng này vì khi trình bày trên trang tin, chúng ta chỉ trình bày một số lượng có hạn các bản tin của một chuyên mục nào đó chứ không thể trình bày tất cả trên màn hình được. Khi người dùng muốn xem thêm, họ có thể chọn trang tiếp theo hoặc nhấp vào link Xem tiếp, lúc đó ứng dụng sẽ trình bày các bản tin ở các trang tiếp theo. Tham số totalRecords cho chúng ta biết được tổng số bản tin thật sự có trong chuyên mục đó. Lưu ý: Khi phân tích thiết kế ban đầu bạn không thể nào hình dung được hết các yêu cầu phát sinh để thiết kế trước các thao tác cần thiết. Bạn phải cập nhật bản thiết kế thường xuyên để phù hợp với yêu cầu. Bản thiết kế này vẫn còn thiếu một số chức năng cần thiết mà tôi sẽ trình bày cho các bạn trong bài viết tiếp theo, chúng ta sẽ chỉnh sửa bản thiết kế này trong quá trình phát triển ứng dụng để phù hợp với các yêu cầu phát sinh mà chúng ta chưa nhìn thấy hết khi thiết kế. Data Access Components Bây giờ chúng ta sẽ thiết kế các lớp dùng để truy xuất và cập nhật dữ liệu. Các hàm của các lớp DAO cũng khá đơn giản, chỉ làm nhiệm vụ cập nhật dữ liệu vào database và truy xuất dữ liệu từ database. Các bạn cũng thấy chức năng nó giống như trên lớp Business Logic, nhưng ở đây chúng ta không có bất kỳ ràng buộc logic gì, chỉ đơn giản thực hiện việc truy xuất dữ liệu mà thôi. Các business logic đã được kiểm tra trên lớp Business Logic. Chúng ta tách biệt 2 lớp CategoryDAO (DAO - Data Access Object) và NewsDAO để dễ quản lý và thay đổi khi cần thiết. VD nếu bạn muốn thêm một thao tác truy xuất dữ liệu mới trên đối tượng News, bạn sẽ biết ngay mình phải thay đổi lớp NewsDAO. Nhưng có những thao tác bạn phải cân nhắc nên để nó lớp nào vì nó liên quan đến nhiều đối tượng, lúc đó bạn phải xét xem mục đích chính của thao tác đó là gì, thao tác trên đối tượng dữ liệu chính nào để đưa thao tác đó vào lớp phù hợp. Thiết kế cơ sở dữ liệu Do ứng dụng của chúng ta đơn giản nên chỉ có 2 bảng dữ liệu ánh xạ gần như 1-1 với các entities trên lớp Business Logic như sau: Hiện thực lớp Business Logic & Data Access Sau khi đã xong bước thiết kế, chúng ta sẽ tiến hành hiện thực 2 lớp Business và Data Access. Các bạn có thể xem source code đính kèm để biết chi tiết cách hiện thực 2 lớp này như thế nào. Lớp psentation sẽ được thiết kế và hiện thực trong bài viết tiếp theo. Phần bên dưới tôi sẽ trình bày một số điểm chính trong cách hiện thực. Hiện thực Data Access Components Do ứng dụng của chúng ta đơn giản nên được giới hạn sẽ dùng với CSDL SQL Server 2000/2005 nên lớp này không được thiết kế để chạy cùng lúc với nhiều loại database khác nhau. Chúng ta sẽ dùng cái Stored Procedures để truy xuất dữ liệu an toàn và dễ thay đổi hơn, tránh bị các lỗi như SQL Injection(không thể tránh hoàn toàn nếu bạn không hiện thực đúng). Các bạn có thể xem qua một cách hiện thực một hàm cơ bản như thế nào: public void CreateCategory(Category category) { using (SqlConnection connection = GetConnection()) { SqlCommand command = new SqlCommand("spCategoriesCreate", connection); command.CommandType = CommandType.StoredProcedure; command.Parameters.Add(new SqlParameter("@KeyName", category.KeyName)); command.Parameters.Add(new SqlParameter("@Name", category.Name)); command.Parameters.Add(new SqlParameter("@Description", category.Description)); command.Parameters.Add(new SqlParameter("@Picture", category.Picture)); SqlParameter paramCategoryId = new SqlParameter("@CategoryId", SqlDbType.Int, 4); paramCategoryId.Direction = ParameterDirection.Output; command.Parameters.Add(paramCategoryId); connection.Open(); command.ExecuteNonQuery(); if (paramCategoryId.Value != DBNull.Value) category.CategoryId = (int)paramCategoryId.Value; else throw new DataAccessException(String.Format(Resources.Strings.CreateEntityException, "Category")); } } Stored Procedure spCategoriesCreate đơn giản được viết như sau: CREATE PROCEDURE dbo.spCategoriesCreate @Name nvarchar(50), @KeyName varchar(30), @Description ntext, @Picture varchar(256), @CategoryId int output AS INSERT INTO Categories ( Name, KeyName, Description, Picture ) VALUES ( @Name, @KeyName, @Description, @Picture ) SELECT @CategoryId = SCOPE_IDENTITY() Hiện thực lớp Business Logic Hiện thực lớp Business Logic đòi hỏi bạn phải nắm rõ các business logic của ứng dụng. Ví dụ đối với ứng dụng tin tức của chúng ta thì khi tạo một chuyên mục mới, bạn phải kiểm tra xem KeyName của chuyên mục đó đã có trong hệ thống chưa? Nếu có rồi thì phải báo lỗi, và nếu chưa có thì chúng ta kiểm tra KeyName đó có hợp lệ hay không? (Chỉ chứa kí tự alphabet, chữ số, gạch dưới và gạch ngang...). public static void CreateCategory(Category category) { // Has this key name existed? if (!CheckKey(category.KeyName)) throw new BusinessException(String.Format(Resources.Strings.KeyNameExisted, category.KeyName)); // is this key name valid? if (!ValidateKey(category.KeyName)) throw new BusinessException(String.Format(Resources.Strings.InvalidKeyName, category.KeyName)); // ok , now save it to database CategoryDAO categoryDAO = new CategoryDAO(); categoryDAO.CreateCategory(category); } Nguồn: aptech

Read More