- Chào các bạn, hôm nay mình sẽ giới thiệu với các bạn Phần mềm tách file và Gửi Email hàng loạt cho khách hàng hoặc nhân viên mà không dùng OutLook, cụ thể các bạn xem Video bên dưới, nếu các bạn có nhu cầu hãy liên hệ với mình: facebook + zalo + skype : 0933558229
Phạm Minh Tùng /  at 11/12/2017 08:50:00 SA /  No comments
- Chào các bạn, hôm nay mình sẽ giới thiệu với các bạn Phần mềm tách file và Gửi Email hàng loạt cho khách hàng hoặc nhân viên mà không dùng OutLook, cụ thể các bạn xem Video bên dưới, nếu các bạn có nhu cầu hãy liên hệ với mình: facebook + zalo + skype : 0933558229
- Đôi khi bạn cần chuyển đổi qua lại giữa Win 10 và Win 7, tuy nhiên vào một ngày đẹp trời, máy tính của bạn báo như hình bên dưới, thì bạn sẽ rất hoang mang và đa số sẽ chuyển đổi định dạng và mất tất cả dữ liệu trên ổ Cứng, và có một phần mềm rất chuyên nghiệp sẽ chuyển đổi rất nhanh mà không mất dữ liệu
- Mình xin giới thiệu với các bạn phần mềm: AOMEI Partition Assistant , chức năng của nó thì bạn có thể search google nhé, ở đây mình chỉ giới thiệu cho các bạn thôi.
Phạm Minh Tùng /  at 10/27/2017 07:34:00 SA /  No comments
- Đôi khi bạn cần chuyển đổi qua lại giữa Win 10 và Win 7, tuy nhiên vào một ngày đẹp trời, máy tính của bạn báo như hình bên dưới, thì bạn sẽ rất hoang mang và đa số sẽ chuyển đổi định dạng và mất tất cả dữ liệu trên ổ Cứng, và có một phần mềm rất chuyên nghiệp sẽ chuyển đổi rất nhanh mà không mất dữ liệu
- Mình xin giới thiệu với các bạn phần mềm: AOMEI Partition Assistant , chức năng của nó thì bạn có thể search google nhé, ở đây mình chỉ giới thiệu cho các bạn thôi.
- Khi máy tính bạn bị lỗi không tìm thấy máy tính trong mạng Lan hoặc connect máy in qua Lan đòi Password trong khi các máy khác thì kết nối bình thường và bạn đã bật các kết nối và turn off password sharing ==> giải pháp là cho máy client mượn 1 tài khoản Administrator, các bước thực hiện như sau:
- Right Click lên My Computer -> manage -> Local Users and Groups -> users -> set password cho Administrator và bên máy Client thì đăng nhập bằng Administrator với mật khẩu vừa tạo
Phạm Minh Tùng /  at 10/09/2017 11:32:00 SA /  No comments
- Khi máy tính bạn bị lỗi không tìm thấy máy tính trong mạng Lan hoặc connect máy in qua Lan đòi Password trong khi các máy khác thì kết nối bình thường và bạn đã bật các kết nối và turn off password sharing ==> giải pháp là cho máy client mượn 1 tài khoản Administrator, các bước thực hiện như sau:
- Right Click lên My Computer -> manage -> Local Users and Groups -> users -> set password cho Administrator và bên máy Client thì đăng nhập bằng Administrator với mật khẩu vừa tạo
- khóa học này là khóa học hướng dẫn theo chuẩn hướng đối tượng, tư duy lập trình hiện đại theo hướng đối tượng, đây là một khóa học cực kì hay, tổng số Video của khóa học là 65 video, với tổng dung lượng sau khi nén là 3G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 10:18:00 CH /  No comments
- khóa học này là khóa học hướng dẫn theo chuẩn hướng đối tượng, tư duy lập trình hiện đại theo hướng đối tượng, đây là một khóa học cực kì hay, tổng số Video của khóa học là 65 video, với tổng dung lượng sau khi nén là 3G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Khóa học này cung cấp đầy đủ nhất về kiến thức lập trình php để bạn có thể tạo ra được một trang web theo ý muốn của mình, đồng thời hiểu rõ bản chất của ngôn ngữ lập trình php, tổng dung lượng Video sau khi nén là 4,5G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 10:14:00 CH /  No comments
- Khóa học này cung cấp đầy đủ nhất về kiến thức lập trình php để bạn có thể tạo ra được một trang web theo ý muốn của mình, đồng thời hiểu rõ bản chất của ngôn ngữ lập trình php, tổng dung lượng Video sau khi nén là 4,5G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Cũng giống như jQuery đây là khóa học từ gốc đến ngọn về linQ, tất cả kiến thức bạn cần đều nằm trong 71 video này, tổng dung lượng sau khi nén là 4,8G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 10:08:00 CH /  No comments
- Cũng giống như jQuery đây là khóa học từ gốc đến ngọn về linQ, tất cả kiến thức bạn cần đều nằm trong 71 video này, tổng dung lượng sau khi nén là 4,8G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Nếu bạn nào đang làm việc với jQuery thì không thể bỏ qua khóa này, nói đơn giản thế thôi, khóa học gồm 104 Video hướng dẫn chi tiết, tất tần tật về jQuery, tổng dung lượng Video là 7,3G nhé
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 10:04:00 CH /  No comments
- Nếu bạn nào đang làm việc với jQuery thì không thể bỏ qua khóa này, nói đơn giản thế thôi, khóa học gồm 104 Video hướng dẫn chi tiết, tất tần tật về jQuery, tổng dung lượng Video là 7,3G nhé
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Khi bạn học cơ sở dữ liệu khó khắn lớn nhất chính là làm sao thiết kế được một dữ liệu đúng chuẩn, hợp lý giữa các table, và các mỗi quan hệ giữa các bảng, đồng thời thực hiện các truy vấn trong SQL server, khóa học này sẽ hướng dẫn từng bước bạn làm việc đó với 25 Video , tổng dung lượng là 2,5G hướng dẫn từ lúc bạn nhận dự án và cách phân tích thiết kế CSDL như thế nào
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 09:57:00 CH /  No comments
- Khi bạn học cơ sở dữ liệu khó khắn lớn nhất chính là làm sao thiết kế được một dữ liệu đúng chuẩn, hợp lý giữa các table, và các mỗi quan hệ giữa các bảng, đồng thời thực hiện các truy vấn trong SQL server, khóa học này sẽ hướng dẫn từng bước bạn làm việc đó với 25 Video , tổng dung lượng là 2,5G hướng dẫn từ lúc bạn nhận dự án và cách phân tích thiết kế CSDL như thế nào
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Khóa học này nếu các bạn tiếp thu được thì chỉ trong tầm 1-2 ngày là làm ra được 1 blog đẹp bằng WordPress hoặc Blogger, khóa học sẽ hướng dẫn làm trên 2 công cụ này
=> CHI PHÍ: 150.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 08:25:00 CH /  No comments
- Khóa học này nếu các bạn tiếp thu được thì chỉ trong tầm 1-2 ngày là làm ra được 1 blog đẹp bằng WordPress hoặc Blogger, khóa học sẽ hướng dẫn làm trên 2 công cụ này
=> CHI PHÍ: 150.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- khóa học trang bị các cơ bản đến nâng cao của ASP.NET do thạc sỹ Phạm Hữu Khang giảng dạy, khóa học gồm 18 chuyên đề, mỗi chuyên đề có thời lượng từ 1h đến 2h30 , tổng dung lượng sau khi nén 3,7G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 08:17:00 CH /  No comments
- khóa học trang bị các cơ bản đến nâng cao của ASP.NET do thạc sỹ Phạm Hữu Khang giảng dạy, khóa học gồm 18 chuyên đề, mỗi chuyên đề có thời lượng từ 1h đến 2h30 , tổng dung lượng sau khi nén 3,7G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Khóa này thiên về lý thuyết, thích hợp cho các bạn sinh viên đang học đại học hoặc cho các lập trình viên luyện tập tư duy, khóa học bao gồm 59 video, tổng dung lượng sau khi nén video là 3G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 07:53:00 CH /  No comments
- Khóa này thiên về lý thuyết, thích hợp cho các bạn sinh viên đang học đại học hoặc cho các lập trình viên luyện tập tư duy, khóa học bao gồm 59 video, tổng dung lượng sau khi nén video là 3G
=> CHI PHÍ: 199.000 Đ
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
1. Khóa học phần 1 lập trình # trong 5 tuần: gồm 70 bài giảng để bắt đầu với C#
- Cách thức cài đặt Visual Studio
- Cách khai báo biến
- Kiểu dữ liệu trong C#
- Các cấu trúc điều khiển
- Cấu trúc các vòng lặp
- Các hàm
- Các tham trị
- các tham biến
- Cách lập trình hướng đối tượng
- thiết kế giao diện sử dụng các control cơ bản và nâng cao
- Các kiến thức liên quan đến cơ sở dữ liệu, cụ thể là sẽ tương tác với SQL Server và Access ( truy vấn thêm, sửa, xóa, các Truy vấn, Store Procedure)
- In ấn
- Kiến trúc đa tầng
- đóng gói phần mềm
=> CHI PHÍ: 199.000 Đồng
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
2. Khóa học lập trình C# nâng cao: bao gồm các kiến thức nâng cao trong C#, khóa học bao gồm 65 video
=> CHI PHÍ: 199.000 Đồng
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 07:48:00 CH /  No comments
1. Khóa học phần 1 lập trình # trong 5 tuần: gồm 70 bài giảng để bắt đầu với C#
- Cách thức cài đặt Visual Studio
- Cách khai báo biến
- Kiểu dữ liệu trong C#
- Các cấu trúc điều khiển
- Cấu trúc các vòng lặp
- Các hàm
- Các tham trị
- các tham biến
- Cách lập trình hướng đối tượng
- thiết kế giao diện sử dụng các control cơ bản và nâng cao
- Các kiến thức liên quan đến cơ sở dữ liệu, cụ thể là sẽ tương tác với SQL Server và Access ( truy vấn thêm, sửa, xóa, các Truy vấn, Store Procedure)
- In ấn
- Kiến trúc đa tầng
- đóng gói phần mềm
=> CHI PHÍ: 199.000 Đồng
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
2. Khóa học lập trình C# nâng cao: bao gồm các kiến thức nâng cao trong C#, khóa học bao gồm 65 video
=> CHI PHÍ: 199.000 Đồng
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Hôm nay mình xin giới thiệu với các bạn khóa học MVC5 với các cải tiến mới nhất, khóa học này mình mua trong quá trình học tập, nay xin chia sẽ với các bạn với chi phí < 1/5 giá góc
- Chi tiết: Tổng dung lượng khóa học 6,5 G
=> CHI PHÍ: 199.000 Đ (Giá này chỉ bằng 1/5 giá gốc )
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
Phạm Minh Tùng /  at 10/01/2017 03:05:00 CH /  No comments
- Hôm nay mình xin giới thiệu với các bạn khóa học MVC5 với các cải tiến mới nhất, khóa học này mình mua trong quá trình học tập, nay xin chia sẽ với các bạn với chi phí < 1/5 giá góc
- Chi tiết: Tổng dung lượng khóa học 6,5 G
=> CHI PHÍ: 199.000 Đ (Giá này chỉ bằng 1/5 giá gốc )
Các bạn chuyển Khoản với nội dung:
<Số điện thoại> <Tên của bạn> Số Tài Khoản:0601000503828 Họ Tên: Phạm Minh Tùng Tại ngân hàng VietComBank chi nhánh TP. Cao Lãnh, Đồng Tháp
- Hôm nay mình xin giới thiệu với bạn khóa học đầy chất lượng: " Khóa học Làm dự án thực tế với ASP.NET sử dụng công nghệ MVC, công nghệ WebAPI và công nghệ AngularJS "
- Các bạn lưu ý đây là khóa học mình mua trên mạng chứ không phải là mình giảng dạy, muốn chia sẽ với các bạn với khoản phí rất rẽ so với giá gốc của khóa học để duy trì chi phí lưu trữ video hàng tháng.
- Chi tiết : Dung lượng khóa học sau khi nén lại là 16,5 G
Phạm Minh Tùng /  at 10/01/2017 02:48:00 CH /  No comments
- Hôm nay mình xin giới thiệu với bạn khóa học đầy chất lượng: " Khóa học Làm dự án thực tế với ASP.NET sử dụng công nghệ MVC, công nghệ WebAPI và công nghệ AngularJS "
- Các bạn lưu ý đây là khóa học mình mua trên mạng chứ không phải là mình giảng dạy, muốn chia sẽ với các bạn với khoản phí rất rẽ so với giá gốc của khóa học để duy trì chi phí lưu trữ video hàng tháng.
- Chi tiết : Dung lượng khóa học sau khi nén lại là 16,5 G
- Ta sẽ lấy lại ví dụ tính tổng N số nguyên người dùng nhập vào nhé
Sub Main()
Dim n As Integer, i As Integer, so As Integer, tong As Integer
Dim l As New List(Of Integer)
Console.OutputEncoding = System.Text.Encoding.UTF8
Console.WriteLine("Số lượng số nguyên mà bạn muốn tính tổng: ")
n = Console.ReadLine
For i = 1 To n
Console.WriteLine("mời bạn nhập số thứ: " & i)
so = Console.ReadLine
l.Add(so)
Next
For i = 0 To l.Count - 1
tong += l.Item(i)
Next
Console.WriteLine("Tổng của {0} số nguyên nhập vào là {1} ", n, tong)
Console.ReadLine()
End Sub
Phạm Minh Tùng /  at 9/26/2017 10:48:00 CH /  No comments
- Ta sẽ lấy lại ví dụ tính tổng N số nguyên người dùng nhập vào nhé
Sub Main()
Dim n As Integer, i As Integer, so As Integer, tong As Integer
Dim l As New List(Of Integer)
Console.OutputEncoding = System.Text.Encoding.UTF8
Console.WriteLine("Số lượng số nguyên mà bạn muốn tính tổng: ")
n = Console.ReadLine
For i = 1 To n
Console.WriteLine("mời bạn nhập số thứ: " & i)
so = Console.ReadLine
l.Add(so)
Next
For i = 0 To l.Count - 1
tong += l.Item(i)
Next
Console.WriteLine("Tổng của {0} số nguyên nhập vào là {1} ", n, tong)
Console.ReadLine()
End Sub
- Đầu tiên ta sẽ xét cách khai báo và truy xuất phần tử trong List
Sub Main()
Dim l As New List(Of Integer)
l.Add(10)
l.Add(20)
Console.WriteLine("Phan tu 1 la {0}, phan tu thu 2 la {1} ", l.Item(0), l.Item(1))
Console.ReadLine()
End Sub
- Tiếp theo chúng ta cùng xét ứng dụng tính tổng n số nguyên nhập vào
Sub Main()
Dim n As Integer, i As Integer, so As Integer, tong As Integer
Dim l As New List(Of Integer)
Console.WriteLine("So Luong so nguyen ma ban muon tinh tong: ")
n = Console.ReadLine
For i = 1 To n
Console.WriteLine("moi ban nhap so thu: " & i)
so = Console.ReadLine
l.Add(so)
Next
For i = 0 To l.Count - 1
tong += l.Item(i)
Next
Console.WriteLine("Tong cua {0} so nguyen nhap vao la {1} ", n, tong)
Console.ReadLine()
End Sub
=> qua các ví dụ trên ta thấy List có ưu điểm rất nhiều so với mảng, list hỗ trợ rất nhiều phương thức mà ta sẽ khám phá ở những bài sau
Phạm Minh Tùng /  at 9/26/2017 10:43:00 CH /  No comments
- Đầu tiên ta sẽ xét cách khai báo và truy xuất phần tử trong List
Sub Main()
Dim l As New List(Of Integer)
l.Add(10)
l.Add(20)
Console.WriteLine("Phan tu 1 la {0}, phan tu thu 2 la {1} ", l.Item(0), l.Item(1))
Console.ReadLine()
End Sub
- Tiếp theo chúng ta cùng xét ứng dụng tính tổng n số nguyên nhập vào
Sub Main()
Dim n As Integer, i As Integer, so As Integer, tong As Integer
Dim l As New List(Of Integer)
Console.WriteLine("So Luong so nguyen ma ban muon tinh tong: ")
n = Console.ReadLine
For i = 1 To n
Console.WriteLine("moi ban nhap so thu: " & i)
so = Console.ReadLine
l.Add(so)
Next
For i = 0 To l.Count - 1
tong += l.Item(i)
Next
Console.WriteLine("Tong cua {0} so nguyen nhap vao la {1} ", n, tong)
Console.ReadLine()
End Sub
=> qua các ví dụ trên ta thấy List có ưu điểm rất nhiều so với mảng, list hỗ trợ rất nhiều phương thức mà ta sẽ khám phá ở những bài sau
I - Biến Mảng 1 Chiều
- Đầu tiên ta sẽ vừa khai báo, vừa khởi tạo biến mảng kiểu Integer với 101 phần tử
Sub Main()
Dim Ghe_Int() as Integer = New As Integer(100) {}
' Sau đó ta sẽ gán phân tử cho mảng
Ghe_int(0) =1
Ghe_int(1)=2
' ..............................
End Sub
- Xét qua ví dụ trên bạn sẽ thấy nhược điểm của Mảng chính là dư thừa bộ nhớ, tức là chúng ta khai báo 101 phần tử nhưng chỉ sử dụng có 2 phần từ, trong khi thực tế thì ta không biết trước số phân tử thỏa mản là bao nhiêu, nên ta sẽ khai báo thừa như thế
== > Để khắc phục nhược điểm này chúng ta cùng nghiên cứu về List ở phần sau nhé II- Biến Mảng 2 Chiều
Đầu tiên ta khai báo biến như sau:
Sub Main()
Dim M2C(9, 9) As Integer
M2C(1, 5) = 6
M2C(9, 1) = 10
End Sub
- Bạn cứ hình dung mảng 2 chiều như một ma trận 2 chiều, và mảng trên có 10 * 10 = 100 phần tử
- Sau Đây mình sẽ Demo tính tổng của ma trận 2 chiều 4 dòng và 4 cột
- Ta thấy mỗi cụm có tổng là 20 => Tổng ma trận là 80 nhé
Sub Main()
Dim M2C(3, 3) As Integer
Dim i As Byte, j As Byte, Tong As Long
M2C(0, 0) = 2
M2C(0, 1) = 4
M2C(0, 2) = 6
M2C(0, 3) = 8
For i = 0 To 3
For j = 0 To 3
Tong += M2C(i, j)
Next
Next
Console.WriteLine("Tong ma tran la: " & Tong)
Console.ReadLine()
End Sub
Phạm Minh Tùng /  at 9/26/2017 09:59:00 CH /  No comments
I - Biến Mảng 1 Chiều
- Đầu tiên ta sẽ vừa khai báo, vừa khởi tạo biến mảng kiểu Integer với 101 phần tử
Sub Main()
Dim Ghe_Int() as Integer = New As Integer(100) {}
' Sau đó ta sẽ gán phân tử cho mảng
Ghe_int(0) =1
Ghe_int(1)=2
' ..............................
End Sub
- Xét qua ví dụ trên bạn sẽ thấy nhược điểm của Mảng chính là dư thừa bộ nhớ, tức là chúng ta khai báo 101 phần tử nhưng chỉ sử dụng có 2 phần từ, trong khi thực tế thì ta không biết trước số phân tử thỏa mản là bao nhiêu, nên ta sẽ khai báo thừa như thế
== > Để khắc phục nhược điểm này chúng ta cùng nghiên cứu về List ở phần sau nhé II- Biến Mảng 2 Chiều
Đầu tiên ta khai báo biến như sau:
Sub Main()
Dim M2C(9, 9) As Integer
M2C(1, 5) = 6
M2C(9, 1) = 10
End Sub
- Bạn cứ hình dung mảng 2 chiều như một ma trận 2 chiều, và mảng trên có 10 * 10 = 100 phần tử
- Sau Đây mình sẽ Demo tính tổng của ma trận 2 chiều 4 dòng và 4 cột
- Ta thấy mỗi cụm có tổng là 20 => Tổng ma trận là 80 nhé
Sub Main()
Dim M2C(3, 3) As Integer
Dim i As Byte, j As Byte, Tong As Long
M2C(0, 0) = 2
M2C(0, 1) = 4
M2C(0, 2) = 6
M2C(0, 3) = 8
- Trong quá trình nhập liệu nếu ta khai báo biến Single hoặc các biến dạng số mà người dùng họ nhập vào chuỗi thì chương trình ta viết sẽ bị lỗi, do đó ta sẽ bẫy lỗi bằng TryParse
Sub Main()
Dim hoten As String
Dim diemtoan As Single
Dim diemvan As Single
Dim dtb As Single
Dim stringtoan As String
Dim stringvan As String
Thoat:
Console.WriteLine("Nhap vao ten cua ban ")
hoten = Console.ReadLine()
Console.WriteLine("Nhap vao diem toan")
stringtoan = Console.ReadLine()
Console.WriteLine("nhap vao diem van")
stringvan = Console.ReadLine()
If Not Single.TryParse(stringtoan, diemtoan) Or Not Single.TryParse(stringvan, diemvan) Then
Console.WriteLine("Diem toan hoac Van khong dung dinh dang")
GoTo Thoat
End If
dtb = (diemtoan + diemvan) / 2
Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hoten, diemtoan, diemvan, dtb)
Console.ReadLine()
End Sub
Phạm Minh Tùng /  at 9/26/2017 01:04:00 CH /  No comments
- Trong quá trình nhập liệu nếu ta khai báo biến Single hoặc các biến dạng số mà người dùng họ nhập vào chuỗi thì chương trình ta viết sẽ bị lỗi, do đó ta sẽ bẫy lỗi bằng TryParse
Sub Main()
Dim hoten As String
Dim diemtoan As Single
Dim diemvan As Single
Dim dtb As Single
Dim stringtoan As String
Dim stringvan As String
Thoat:
Console.WriteLine("Nhap vao ten cua ban ")
hoten = Console.ReadLine()
Console.WriteLine("Nhap vao diem toan")
stringtoan = Console.ReadLine()
Console.WriteLine("nhap vao diem van")
stringvan = Console.ReadLine()
If Not Single.TryParse(stringtoan, diemtoan) Or Not Single.TryParse(stringvan, diemvan) Then
Console.WriteLine("Diem toan hoac Van khong dung dinh dang")
GoTo Thoat
End If
dtb = (diemtoan + diemvan) / 2
Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hoten, diemtoan, diemvan, dtb)
Console.ReadLine()
End Sub
1. Đầu tiên ta hãy xem một đoạn code hướng thủ tục về nhập xuất dữ liệu
Sub Main() Dim hoten As String Dim diemtoan As Single Dim diemvan As Single Dim dtb As Single
Console.WriteLine("Nhap vao ten cua ban ") hoten = Console.ReadLine() Console.WriteLine("Nhap vao diem toan") diemtoan = Console.ReadLine() Console.WriteLine("nhap vao diem van") diemvan = Console.ReadLine() dtb = (diemtoan + diemvan) / 2 Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hoten, diemtoan, diemvan, dtb) Console.ReadLine() End Sub
--------------------------------------------------------------------------- Sub Main() Dim hs As New CauTrucHocSinh Nhap(hs) TinhDiemTB(hs) Xuat(hs) Console.ReadKey() End Sub ---------------------------------------------------------------------------- Structure CauTrucHocSinh Dim Hoten As String Dim DiemToan As Double Dim DiemVan As Double Dim dtb As Double End Structure Sub Nhap(ByRef hs As CauTrucHocSinh) Console.WriteLine("Nhap vao ten cua ban ") hs.Hoten = Console.ReadLine() Console.WriteLine("Nhap vao diem toan") hs.DiemToan = Console.ReadLine() Console.WriteLine("nhap vao diem van") hs.DiemVan = Console.ReadLine() End Sub
Sub TinhDiemTB(ByRef hs As CauTrucHocSinh) hs.dtb = (hs.DiemToan + hs.DiemVan) / 2 End Sub
Sub Xuat(ByRef hs As CauTrucHocSinh) Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hs.Hoten, hs.DiemToan, hs.DiemVan, hs.dtb) End Sub
------------------------------------------ Sub Main() Dim hs As New HocSinh hs.Nhap() hs.TinhDTB() hs.Xuat() Console.ReadKey() End Sub -------------------------------------------- Public Class HocSinh Private _Hoten As String Private _diemtoan As Double Private _diemvan As Double Private _dtb As Double Public Sub Nhap() Console.WriteLine("Nhap vao ten cua ban ") _Hoten = Console.ReadLine() Console.WriteLine("Nhap vao diem toan") _diemtoan = Console.ReadLine() Console.WriteLine("nhap vao diem van") _diemvan = Console.ReadLine() End Sub Public Sub TinhDTB() _dtb = (_diemtoan + _diemvan) / 2 End Sub
Public Sub Xuat() Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", _Hoten, _diemtoan, _diemvan, _dtb) End Sub End Class
Phạm Minh Tùng /  at 9/26/2017 12:50:00 CH /  No comments
1. Đầu tiên ta hãy xem một đoạn code hướng thủ tục về nhập xuất dữ liệu
Sub Main() Dim hoten As String Dim diemtoan As Single Dim diemvan As Single Dim dtb As Single
Console.WriteLine("Nhap vao ten cua ban ") hoten = Console.ReadLine() Console.WriteLine("Nhap vao diem toan") diemtoan = Console.ReadLine() Console.WriteLine("nhap vao diem van") diemvan = Console.ReadLine() dtb = (diemtoan + diemvan) / 2 Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hoten, diemtoan, diemvan, dtb) Console.ReadLine() End Sub
--------------------------------------------------------------------------- Sub Main() Dim hs As New CauTrucHocSinh Nhap(hs) TinhDiemTB(hs) Xuat(hs) Console.ReadKey() End Sub ---------------------------------------------------------------------------- Structure CauTrucHocSinh Dim Hoten As String Dim DiemToan As Double Dim DiemVan As Double Dim dtb As Double End Structure Sub Nhap(ByRef hs As CauTrucHocSinh) Console.WriteLine("Nhap vao ten cua ban ") hs.Hoten = Console.ReadLine() Console.WriteLine("Nhap vao diem toan") hs.DiemToan = Console.ReadLine() Console.WriteLine("nhap vao diem van") hs.DiemVan = Console.ReadLine() End Sub
Sub TinhDiemTB(ByRef hs As CauTrucHocSinh) hs.dtb = (hs.DiemToan + hs.DiemVan) / 2 End Sub
Sub Xuat(ByRef hs As CauTrucHocSinh) Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", hs.Hoten, hs.DiemToan, hs.DiemVan, hs.dtb) End Sub
------------------------------------------ Sub Main() Dim hs As New HocSinh hs.Nhap() hs.TinhDTB() hs.Xuat() Console.ReadKey() End Sub -------------------------------------------- Public Class HocSinh Private _Hoten As String Private _diemtoan As Double Private _diemvan As Double Private _dtb As Double Public Sub Nhap() Console.WriteLine("Nhap vao ten cua ban ") _Hoten = Console.ReadLine() Console.WriteLine("Nhap vao diem toan") _diemtoan = Console.ReadLine() Console.WriteLine("nhap vao diem van") _diemvan = Console.ReadLine() End Sub Public Sub TinhDTB() _dtb = (_diemtoan + _diemvan) / 2 End Sub
Public Sub Xuat() Console.WriteLine("ten cua ban {0}, diem toan {1}, diem van {2}, diem trung binh {3}", _Hoten, _diemtoan, _diemvan, _dtb) End Sub End Class
Format(0.25,"Percent") ==>kết quả sẽ cho ra : 25.00% , cũng giống như VBA trong Excel, access nó cũng có các định dạng sẵn như Excel, các bạn có thể thay đổi các định dạng khác nhé
Phạm Minh Tùng /  at 9/25/2017 03:06:00 CH /  No comments
Format(0.25,"Percent") ==>kết quả sẽ cho ra : 25.00% , cũng giống như VBA trong Excel, access nó cũng có các định dạng sẵn như Excel, các bạn có thể thay đổi các định dạng khác nhé
- Các bạn thay &H1A& thành các đường dẫn đặc biệt bên dưới nhé
Sub Test()
Dim KhoiTao, ThuMuc, DoiTuong
Set KhoiTao = CreateObject("Shell.Application")
Set ThuMuc = KhoiTao.Namespace(&H1A&)
Set DoiTuong = ThuMuc.Self
MsgBox DoiTuong.Path
Set KhoiTao = Nothing
Set ThuMuc = Nothing
Set DoiTuong = Nothing
End Sub
3. &H1& Internet Explorer 4. &H2& Programs 5. &H3& Control Panel 6. &H4& Printers and Faxes 7. &H5& My Documents 8. &H6& Favorites 9. &H7& Startup 10. &H8& My Recent Documents 11. &H9& SendTo 12. &Ha& Recycle Bin 13. &Hb& Start Menu 14. &Hd& My Music 15. &He& My Videos 16. &H10& Desktop 17. &H11& My Computer 18. &H12& My Network Places 19. &H13& NetHood 20. &H14& Fonts 21. &H15& Templates 22. &H16& All Users Start Menu 23. &H17& All Users Programs 24. &H18& All Users Startup 25. &H19& All Users Desktop 26. &H1a& Application Data 27. &H1b& PrintHood 28. &H1c& Local Settings\Application Data 29. &H19& All Users Favorites 30. &H20& Local Settings\ Temporary Internet Files 31. &H21& Cookies 32. &H22& Local Settings\History 33. &H23& All Users Application Data 34. &H24& Windows 35. &H25& System32 36. &H26& Program Files 37. &H27& My Pictures 38. &H28& User Profile 39. &H2b& Common Files 40. &H2e& All Users Templates 41. &H2f& Administrative Tools 42. &H31& Network Connections
- Các bạn thay &H1A& thành các đường dẫn đặc biệt bên dưới nhé
Sub Test()
Dim KhoiTao, ThuMuc, DoiTuong
Set KhoiTao = CreateObject("Shell.Application")
Set ThuMuc = KhoiTao.Namespace(&H1A&)
Set DoiTuong = ThuMuc.Self
MsgBox DoiTuong.Path
Set KhoiTao = Nothing
Set ThuMuc = Nothing
Set DoiTuong = Nothing
End Sub
3. &H1& Internet Explorer 4. &H2& Programs 5. &H3& Control Panel 6. &H4& Printers and Faxes 7. &H5& My Documents 8. &H6& Favorites 9. &H7& Startup 10. &H8& My Recent Documents 11. &H9& SendTo 12. &Ha& Recycle Bin 13. &Hb& Start Menu 14. &Hd& My Music 15. &He& My Videos 16. &H10& Desktop 17. &H11& My Computer 18. &H12& My Network Places 19. &H13& NetHood 20. &H14& Fonts 21. &H15& Templates 22. &H16& All Users Start Menu 23. &H17& All Users Programs 24. &H18& All Users Startup 25. &H19& All Users Desktop 26. &H1a& Application Data 27. &H1b& PrintHood 28. &H1c& Local Settings\Application Data 29. &H19& All Users Favorites 30. &H20& Local Settings\ Temporary Internet Files 31. &H21& Cookies 32. &H22& Local Settings\History 33. &H23& All Users Application Data 34. &H24& Windows 35. &H25& System32 36. &H26& Program Files 37. &H27& My Pictures 38. &H28& User Profile 39. &H2b& Common Files 40. &H2e& All Users Templates 41. &H2f& Administrative Tools 42. &H31& Network Connections
- Trong thực tế khi lập trình VBA trong Excel đôi khi chúng ta cần chuyển Coumn Header từ dạng số sang dạng chữ để thao tác với Hàm Range , hoặc trường hợp ta thao tác với Cells thì có thể sử dụng dạng số chẳng hạn, thì hôm nay mình xin tổng hợp lại các cách để thực hiện việc đó:
=> Chuyển Column dạng chữ sang số
Function
GetColumnNumber(ByVal strColumnName As String)
Function
GetColumnHeader4(intColumnNumber As Integer) As String
If intColumnNumber > 26 Then
GetColumnHeader4 =
GetColumnHeader4((intColumnNumber - ((intColumnNumber - 1) Mod 26)) / 26) +
Chr((intColumnNumber - 1) Mod 26 + 65)
Else
GetColumnHeader4 = Chr(intColumnNumber
+ 64)
End If
End Function
Phạm Minh Tùng /  at 9/10/2017 08:51:00 SA /  No comments
- Trong thực tế khi lập trình VBA trong Excel đôi khi chúng ta cần chuyển Coumn Header từ dạng số sang dạng chữ để thao tác với Hàm Range , hoặc trường hợp ta thao tác với Cells thì có thể sử dụng dạng số chẳng hạn, thì hôm nay mình xin tổng hợp lại các cách để thực hiện việc đó:
=> Chuyển Column dạng chữ sang số
Function
GetColumnNumber(ByVal strColumnName As String)
- Để chèn hình ảnh vào trong excel các bạn chuẩn bị 1 thư mục chứa các hình ảnh cần thiết, và 1 file excel cần chèn hình ảnh, sau đó xem video bên dưới để thực hiện.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub
Nếu Các bạn muốn copy một hình có sẵn trên sheet khác thì có thể copy code bên dưới nhé, và xem video mình họa, ở đây sheet dữ liệu là sheet2, nếu các bạn đặt ở sheet khác thì có thế thay đổi cho phù hợp
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error Resume Next
Target(, 2).Worksheet.Shapes(Target.Address).Delete
On Error GoTo Thoat
With Sheet2
.Shapes(.Range("data").Find(Target.Value, , xlValues, xlWhole).Value).CopyPicture
End With
ActiveSheet.PasteSpecial
With Selection
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Thoat:
Target.Offset(1, 0).Select
End Sub
Phạm Minh Tùng /  at 9/05/2017 09:35:00 SA /  8 comments
- Để chèn hình ảnh vào trong excel các bạn chuẩn bị 1 thư mục chứa các hình ảnh cần thiết, và 1 file excel cần chèn hình ảnh, sau đó xem video bên dưới để thực hiện.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub
Nếu Các bạn muốn copy một hình có sẵn trên sheet khác thì có thể copy code bên dưới nhé, và xem video mình họa, ở đây sheet dữ liệu là sheet2, nếu các bạn đặt ở sheet khác thì có thế thay đổi cho phù hợp
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error Resume Next
Target(, 2).Worksheet.Shapes(Target.Address).Delete
On Error GoTo Thoat
With Sheet2
.Shapes(.Range("data").Find(Target.Value, , xlValues, xlWhole).Value).CopyPicture
End With
ActiveSheet.PasteSpecial
With Selection
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Thoat:
Target.Offset(1, 0).Select
End Sub
- Nguyên nhân chính là do tính bảo mật nên những file chm khi download trên mạng về thì đều bị lock nên ta không thể xem được, vì thế ta right click lên file chọn Property và bấm nút Unlock
Phạm Minh Tùng /  at 8/27/2017 09:21:00 CH /  No comments
- Nguyên nhân chính là do tính bảo mật nên những file chm khi download trên mạng về thì đều bị lock nên ta không thể xem được, vì thế ta right click lên file chọn Property và bấm nút Unlock
- Ngày 26/8/2017: Khi các bạn làm việc vơi Họ tên, mà các bạn nhập tên và họ liền nhau khi đó chúng ta cần tách tên sang một cột riêng, và người lại ta đang có 2 cột họ và tên và chúng ta cần gộp lại hoặc ghép các cột khác nhau thành một cột thì tiện ích sau đây sẽ giúp bạn.
Phạm Minh Tùng /  at 8/26/2017 10:56:00 SA /  1 comment
- Ngày 26/8/2017: Khi các bạn làm việc vơi Họ tên, mà các bạn nhập tên và họ liền nhau khi đó chúng ta cần tách tên sang một cột riêng, và người lại ta đang có 2 cột họ và tên và chúng ta cần gộp lại hoặc ghép các cột khác nhau thành một cột thì tiện ích sau đây sẽ giúp bạn.
- Ngày 26/8/2017: giả sử trong file excel ta có rất nhiều sheet, giờ muốn tạo hyperlink đến các sheet đó, nhưng nếu làm thủ công thì rất mất thời gian, các bạn xem video nhé, và download file ở bên dưới
Phạm Minh Tùng /  at 8/26/2017 10:28:00 SA /  No comments
- Ngày 26/8/2017: giả sử trong file excel ta có rất nhiều sheet, giờ muốn tạo hyperlink đến các sheet đó, nhưng nếu làm thủ công thì rất mất thời gian, các bạn xem video nhé, và download file ở bên dưới
0 nhận xét: