VBA Function Tách họ và tên (ver 2)

Function Tachhoten(ByVal hovaten As String, n As String, Optional stachten As Boolean = True) As String
Dim space_left As Integer
Dim space_right As Integer
'neu du lieu nhap vao la trong thi khong lam gi
If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten)                     'Loai bo cac khoang trang vo nghia
space_left = InStr(hovaten, " ")            'Lay gia tri khoang trang dau tien tu ben trai
space_right = InStrRev(hovaten, " ")        'Lay gia tri khoang trang dau tien tu ben phai

'Neu cac khoang trang o dau hoac cuoi thi khong lam gi
If space_left < 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Or space_right < 0 Or _
space_right - 1 < 0 Or space_right + 1 > Len(hovaten) Then GoTo endfunc:

Select Case n                               'Duyet qua cac gia tri de xac dinh tac dung cua ham
Case "ho"                                   'Neu muc dich la tach lay "ho"
    If stachten Then                        'Neu chi muon lay ho
        Tachhoten = Left(hovaten, space_left - 1)
    Else                                    'Neu muon lay ca ho va ten dem
        Tachhoten = Left(hovaten, space_right - 1)
    End If
   
Case "dem"
    If space_right < space_left + 1 Then GoTo endfunc:
   
    Tachhoten = Mid(hovaten, space_left + 1, space_right - space_left - 1)
   
Case "ten"                                  'Neu muc dich la tach lay "ten"
    If stachten Then                        'Neu chi muon lay ten
        Tachhoten = Mid(hovaten, space_right + 1)
    Else                                    'Neu muon lay ca ten dem va ten
        Tachhoten = Mid(hovaten, space_left + 1)
    End If
   
Case Else                                   'Neu gia tri nhap vao khong phai la "ho", "ten", "dem" thi bao loi
    MsgBox ("Chi nhap vao cac gia tri 'ho', 'dem', 'ten'." & vbNewLine & "Hay nhap lai du lieu")
    GoTo endfunc:
       
End Select

endfunc:

End Function

VBA function tách họ, tách tên, tách tên đệm (các function riêng biệt)

Function Tachten(ByVal hovaten As String, Optional nTachten As Boolean = True) As String
Dim pos_right As Integer
If hovaten = vbNullString Then GoTo endfunc:
 
    hovaten = Trim(hovaten)
    pos_right = InStrRev(hovaten, " ")
    If pos_right = 0 Or pos_right - 1 < 0 Or pos_right + 1 > Len(hovaten) Then
        GoTo endfunc:
    End If
    If nTachten Then
        Tachten = Mid(hovaten, pos_right + 1)
    Else
        Tachten = Left(hovaten, pos_right - 1)
    End If
endfunc:

End Function


Function tachho(ByVal hovaten As String, Optional ntachho As Boolean = True) As String
Dim space_left As Integer
If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten)
space_left = InStr(hovaten, " ")
If space_left = 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Then GoTo endfunc:
If ntachho Then
    tachho = Left(hovaten, space_left - 1)
Else
    tachho = Mid(hovaten, space_left + 1)
End If
endfunc:

End Function

Function tachdem(ByVal hovaten As String) As String

Dim space_left As Integer

Dim space_right As Integer

If hovaten = vbNullString Then GoTo endfunc:

hovaten = Trim(hovaten)

space_left = InStr(hovaten, " ")

space_right = InStrRev(hovaten, " ")

If space_left = 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Or _

    space_right = 0 Or space_right - 1 < 0 Or space_right + 1 > Len(hovaten) Or space_right < space_left + 1 Then

    GoTo endfunc:

End If

tachdem = Mid(hovaten, space_left + 1, space_right - space_left - 1)

endfunc:

End Function

VBA function Tách họ và tên (ver 1)

Function Tachhoten(ByVal hovaten As String, n As String) As String
Dim space_left As Integer
Dim space_right As Integer

If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten)
space_left = InStr(hovaten, " ")
space_right = InStrRev(hovaten, " ")
If space_left < 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Or space_right < 0 Or _
space_right - 1 < 0 Or space_right + 1 > Len(hovaten) Then GoTo endfunc:

Select Case n
Case "ho"
    Tachhoten = Left(hovaten, space_left - 1)
Case "dem"
    If space_right < space_left + 1 Then GoTo endfunc:
 
    Tachhoten = Mid(hovaten, space_left + 1, space_right - space_left - 1)
 
Case "ten"
    Tachhoten = Mid(hovaten, space_right + 1)
Case Else
    MsgBox ("Chi nhap vao cac gia tri 'ho', 'dem', 'ten'." & vbNewLine & "Hay nhap lai du lieu")
    GoTo endfunc:
     
End Select

endfunc:

End Function

WHAT IS ISO in camera?

ISO is actually a common short name for the International Organisation for Standardization.

The ISO setting on your camera is something that has carried over from film. Remember back in the ‘old days’ when you used to go and buy your rolls of film and you would buy film rated at 100, 200 or 400, maybe even 800 or 1600? Well that number refers to the film’s sensitivity to light. The higher the number, the more sensitive to light the film is. The ISO bit is from the standards for film sensitivity, and the number refers to it’s rating.

So what does sensitivity mean? Well a low sensitivity means that the film has to be exposed to light for a longer period of time than a film with a high sensitivity in order to properly expose the image. With a lower sensitivity you also get a better quality image too which is why you should always try and use the lowest sensitivity you can get away with. Let’s not get ahead of ourselves though, a little more explanation is required.

You might remember buying film for a sunny holiday and the shop assistant would recommend using a film rated at 100 or 200. If, on the other hand, you were going to be taking pictures indoors, then you might be recommended a higher sensitivity like 400 or maybe 800. If you used ISO100 film and decided to take some pictures indoors, chances are you would need to use the flash, or your pictures would come out quite dark. This is because the film’s sensitivity is so low that the shutter would need to be open for a long time to let enough light in. Your camera may not have had the features to allow it to keep the shutter open for long enough, which is why you ended up with dark pictures.

This was one of the problems with film. Once you’d loaded it into your camera, you were pretty much stuck with that film sensitivity for 24 or 36 shots.

Bring on digital cameras and you can now change the ISO setting for each shot you take. That is one of the big advantages of digital photography.

So why do you only get choices like 100, 200, 400, 800, 1600 and maybe 3200 when it’s digital, surely you could set 154 or 958 if you wanted it? It’s only electrical currents and circuits after all, not a piece of film. Well, in theory you could choose any setting you wanted, but imagine how tricky that would be. There are three settings which combine to give you the exposure, these are Aperture, Shutter Speedand ISO. Each one can be changed individually to allow you to set then to what you think will give you the perfect exposure, or you can let the camera set them for you to what it thinks is the perfect exposure for the conditions it can detect. Already with three different options, each having several settings themselves, the combinations are numerous, so keeping ISO to set values, which people will understand makes it a little less confusing.

Now, I mentioned quality too, and that better quality images are achieved with a lower ISO number. If, again, you go back to film days you may remember the sort of grainy effect some images had. Well this grain effect is what is introduced with a higher sensitivity film. Digital has it’s own grain effect with higher sensitivity and is known as Noise. Digital noise can be seen a sort of speckley effect in areas of similar colour, like skies or dark shadow areas. It is a subject of much discussion and the camera is often judged on the amount of noise it produces at these higher sensitivities. This is why you should always try and keep your ISO set to the lowest number, and use aperture and shutter speed to get the right exposure. If you can’t do that with aperture or shutter speed, move up to the next ISO setting and try again. One of the big selling points about digital cameras is how they handle the digital noise at higher ISO settings. The top pro level cameras from Nikon or Canon will have better control over noise than the cheaper models and this allows the pros (or anyone that can afford a Nikon D3 or Canon 1Ds for example) to get away with using a higher ISO and still getting good enough quality for print.

Why is a high ISO setting needed? Well for indoor work, where flash isn’t allowed and the light levels are fairly low. Or you can use it deliberately to get the grainy gritty feel to the image (although I would prefer to add this later on the computer).

It’s well worth experimenting with ISO settings so you can see just how your camera performs at the various levels. Once you have got to grips with how changing Aperture, Shutter Speed and ISO effect your image, you’ve pretty much got all the technical fundamentals nailed.

Over at the Digital Photography School Blog there is a nice post on how to choose the right ISO setting which is worth checking out. My rule of thumb is to keep the setting as low as possible until you absolutely need to increase it in order to get the shutter speed you need. Just remember to turn it back down low again when conditions get better.

Phim tat win 7

Thứ Tư, 03/11/2010 - 03:53

Khám phá những phím tắt trên Windows 7

(Dân trí) - Nắm bắt những phím tắt trên Windows sẽ giúp người dùng sử dụng máy tính được nhanh chóng thuận tiện hơn. Bài viết dưới đây sẽ giới thiệu một vài phím tắt hữu dụng trên Windows 7 mà có thể bạn chưa biết.

Thành thạo các phím tắt sẽ giúp người dùng không cần phải sử dụng đến chuột để thao tác, điều này giúp làm việc trên máy tính được hiệu quả hơn.

Lưu ý: trong các phím được sử dụng, phím Windows là phím có biểu tượng cửa sổ, nằm giữa 2 phím Ctrl và Alt trên bàn phím.

Những phím tắt với chức năng Aero:

Aero là tính năng làm tăng hiệu ứng hiển thị cho Windows, giúp giao diện Windows 7 trở nên bóng bẩy và đẹp mắt hơn, chẳng hạn hiệu ứng thanh taskbar trong suốt, cửa sổ trong suốt…

Tuy nhiên Aero sử dụng khá nhiều tài nguyên trên hệ thống, do vậy, với những máy tính có cấu hình không quá mạnh, Windows sẽ tự động tắt chức năng này.

Trong trường hợp Windows không mặc định kích hoạt chức năng Để kích hoạt chức năng Aero trên Windows, từ desktop, bạn kích chuột phải và chọn Personalize. Từ cửa sổ Personalize hiện ra, bạn chọn 1 trong những kiểu giao diện có sử dụng hiệu ứng Aero từ danh sách.

Nếu máy tính đủ khả năng hỗ trợ Aero, bạn sẽ được chuyển về mẫu giao diện mới, và thanh taskbar cũng như thanh tiêu đề các cửa sổ trở nên trong suốt, cũng như xuất hiện thumbnails các cửa sổ đang được mở ở trên taskbar…

Dưới đây là một vài phím tắt của Windows sử dụng hiệu ứng Aero:

- Nhấn tổ hợp phím “Windows” + “Spacebar” (thanh dài) để biến tất cả các cửa sổ trở nên trong suốt.

- “Windows” + “Home”: thu nhỏ toàn bộ các cửa sổ, ngoại trừ cửa sổ đang được chọn.

- “Windows” + phím mũi tên trái (tương ứng phải): đưa cửa sổ về một nửa màn hình bên trái (hoặc bên phải). Với cách thức này, bạn có thể đưa 2 cửa sổ nằm song song ở 2 nửa của màn hình, thuận tiện trong việc so sánh hoặc đối chiếu nội dung nào đó.

- “Windows” + phím mũi tên lên (tương ứng xuống): đưa cửa sổ về kích cỡ thu nhỏ hoặc lớn tối đa.

- “Windows” + “Tab”: chuyển đổi cửa sổ để chọn lựa với hiệu ứng 3D. Nhấn phím Tab để lựa chọn.

Những phím tắt tác động lên cửa sổ và thanh Taskbar:

- “Windows” + D (hoặc M): thu nhỏ toàn bộ các cửa sổ đang mở để quay về desktop.

- “Alt” + “Tab”: chuyển đổi các cửa sổ đang mở. Nhấn phím Tab để chọn lựa.

- “Alt” + “Ctrl” + “Tab”: hiển thị danh sách các cửa sổ đang mở. Sử dụng phím mũi tên trái phải để chọn lựa cửa sổ cần sử dụng. Với tổ hợp phím “Alt” + “Tab” ở trên, bạn phải bấm và giữ phím Alt trong quá trình chọn lựa cửa sổ, nhưng với tổ hợp phím này, bạn có thể chỉ sử dụng các phím qua lại để chọn lựa mà không cần giữ các nút khác.

- “Windows” + T: di chuyển tới các cửa sổ đang mở trên taskbar. Giữ phím “Windows” và nhấn phím T để di chuyển theo chiều từ trái sang phải. Khi đến được biểu tượng của cửa sổ cần thiết, nhấn Enter để mở cửa sổ đó.

- “Windows” + “Alt” + T: tương tự như trên, nhưng di chuyển theo chiều ngược lại, từ phải sang trái.

- “Windows” + B: chuyển trỏ chuột về mục hiển thị các biểu tượng ẩn trên taskbar. Nhấn Enter hoặc phím Space để hiển thị chúng.

- “Windows” + 1 (từ 1 đến 9): kích hoạt các phần mềm được đánh dấu trên taskbar, theo thứ tự từ 1 đến 9 (từ trái qua phải).

- “Windows” + “Alt” + 1 (từ 1 đến 9): mở jump list của các biểu tượng trên Taskbar.

Chế độ nhiều màn hình:

Nếu bạn đang sử dụng máy tính với kết nối nhiều màn hình hoặc kết nối giữa laptop và màn hình lcd, kết nối máy chiếu… thì các phím tắt sau đây có thể sẽ hữu dụng.

- “Windows” + “Shift” + phím trái (tương ứng phải): chuyển cửa sổ hiện tại sang màn hình khác.

- “Windows” + P: chọn lựa chế độ hiển thị máy chiếu.

Hiệu ứng kính lúp: là hiệu ứng cho phép phóng lớn một vị trí nào đó trên màn hình.

- “Windows” + “+”: kích hoạt hiệu ứng kính lúp. Một hộp thoại hiện ra cho phép bạn chọn lựa khu vực để phóng lớn. Nhấn tiếp tổ hợp phím “Windows” + “+” để tăng mức độ phóng lớn. Nhấn “Windows” + “-“ để thu nhỏ.

- “Ctrl” + “Alt” + F: sau khi đã kích hoạt hiệu ứng kính lúp, nhấn tổ hợp phím này để đưa toàn bộ màn hình về hiệu ứng kính lúp.

- “Ctrl” + “Alt” + I: tương tự, nhấn tổ hợp phím này để đưa về hiệu ứng âm bản.

- “Windows” + “Esc”: thoát khỏi hiệu ứng kính lúp và trở lại bình thường.

Trên đây là một vài phím tắt không chỉ hữu ích khi làm việc và thao tác trên máy, mà cũng có thể hữu ích để khám phá thêm các tính năng mới trên Windows 7 mà có thể bạn chưa biết.

Cách khôi phục lại mục folder option và regedit

Vào RUN gõ lệnh gpedit.msc > Enter.
- Trong cửa sổ Group Policy > chọn User Configuration > Administrative Templates > System > nhìn qua bên phải chọn và double-click vào "Prevent access to registry editing tools" > chọn Disable > OK. (để mở lại Registry)
- User Configuration > Administrative Templates > System > Ctrl + Alt + Del options > double "Remove Task Manager" > chọn Disable > OK (để mở lại Task Manager bị lỗi).
- User Configuration > Administrative Templates > Windows Components > Windows Explorer > double-click "Remove the Folder Options menu item from the Tools menu" > chọn Disalbe > OK. (để làm xuất hiện lại mục Folder Options bị mất do virus)

Sau khi chỉnh các thiết lập này xong, vào cmd gõ lệnh gpupdate /force > OK.

Tăng tốc máy tính

Tăng tốc toàn bộ máy tính bằng tay - 7/7/2007 9h:18

1- Tăng tốc độ thực hiện của hệ thống:

Mặc định Windows sẽ tự mình điều khiển các thiết lập về tốc độ xử lý của hệ thống sao cho phù hợp, nhưng đôi khi Windows lại “lạm dụng” điều này ưu tiên xử lý cho các công việc không cần thiết, gây lãng phí tài nguyên hệ thống. Do vậy để hệ thống dành nhiều tài nguyên hơn cho các công việc cụ thể, bạn hãy thay đổi lại như sau:

Bấm chuột phải vào My Computer rồi chọn Properties (hoặc đơn giản nhấn phím Window+Break), tiếp theo chọn thẻ Advanced, bấm nút Settings trong khung Performance, chọn thẻ Visual Effects, chọn nút Adjust for best performance. Sau đó, trong khung danh sách các thiết lập bên dưới, cuộn xuống và đánh dấu hộp Use visual styles on windows and buttons rồi bấm OK hai lần để đóng lại các cửa sổ.

2- Tối ưu bộ nhớ hệ thống:

Việc tinh chỉnh này sẽ tạo cho “nhân” của Windows chạy trong bộ nhớ để tăng tốc hệ thống, đưa các dữ liệu vào bộ nhớ để xử lý nhanh hơn (thay vì xử lý từ bộ nhớ ảo trên đĩa cứng). Lưu ý: để chỉnh sửa các thiết lập này yêu cầu máy tính có RAM tối thiểu là 256MB. Cách thực hiện như sau:

Bấm Start > Run > gõ regedit > OK hoặc Enter. Sau đó tìm đến khoá HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management. Trong cửa sổ bên phải, bấm kép mục DisablePagingExecutive và thay đổi lại giá trị là 1, tiếp theo bấm kép mục LargeSystemCache và cũng thay đổi lại giá trị là 1.

Kế tiếp, tại khoá này bạn tạo mục mới kiểu DWORD tên là IOPageLockLimit (bấm chuột phải vào một vùng trống, chọn New > DWORD Value) và đặt giá trị của nó như sau: nếu máy tính của bạn có RAM là128MB thì đặt giá trị là 4000, 256MB thì đặt 10000, từ 512MB trở lên thì đặt 40000.

Tiếp theo, bạn tìm đến khoá HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer, tạo một mục mới loại DWORD tên là AlwaysUnloadDLL và đặt giá trị là 1. Cuối cùng, đóng cửa sổ Registry Editor lại.

Kế tiếp, bạn cũng bấm lại Start > Run > gõ msconfig > OK, chọn thẻ SYSTEM.INI, bấm phần [386enh], bấm nút New và thêm mục mới "ConservativeSwapfileUsage=1" (không có dấu nháy kép), xong bấm OK. Nếu có hộp thông báo yêu cầu khởi động lại máy thì bạn bấm nút Exit Without Restart.

3- Tăng tốc xử lý tập tin:

Trước khi chỉnh sửa thiết lập này, bạn hãy kiểm tra lại hệ thống tập tin trên máy bằng cách vào My Computer, bấm chuột phải vào ổ đĩa C, chọn Properties. Trong thẻ General và ở dòng File system, nếu để chữ FAT32 thì bạn hãy bỏ qua bước này, ngược lại là chữ NTFS thì có thể chỉnh sửa cho thiết lập này như sau: Vào trình Registry Editor, tìm đến khoá HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem, thay đổi lại giá trị của mục DisableNTFSLastAccessUpdate là 1. Tiếp theo cũng tại khoá này, bạn tạo mục mới loại DWORD tên là NtfsMftZoneReservation và đặt giá trị của nó là 2.

4- Điều chỉnh chức năng Prefetch của Windows:

Chức năng này cho phép Windows tăng tốc chạy các ứng dụng, giảm thời gian khởi động máy hoặc cả hai. Mặc định Windows chọn giảm thời gian khởi động máy, nhưng bạn hãy thay đổi lại thiết lập này cho tối ưu hơn. Vào trình Registry Editor, tìm khoá HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters, thay đổi lại giá trị của mục EnablePrefetcher là 3.

5- Tăng tốc kết nối Internet lên 20%:

Mặc định Windows sẽ giới hạn lượng băng thông kết nối là 20%, nhưng bạn có thể bỏ giới hạn này để đạt được tốc độ kết nối tối ưu hơn. Bấm Start > Run > gõ gpedit.msc > OK, tìm theo đường dẫn Local Computer Policy\Computer Configuration\Administrative Templates\Network\QoS Packet Scheduler, bấm kép thiết lập Limit reservable bandwidth trong cửa sổ phải, chọn nút Enable, gõ số không (0) vào hộp Bandwidth limit, bấm OK rồi đóng cửa sổ Group Policy lại.

Tiếp theo bạn hãy vào phần thiết lập mạng bằng cách bấm Start > Settings > Network Connections, bấm chuột phải vào kết nối mạng của bạn và chọn Properties (hoặc bấm biểu tượng kết nối mạng ở khay hệ thống nếu nó hiện ra, bấm nút Properties), trong thẻ General đánh dấu giao thức QoS Packet Scheduler (nếu nó chưa được đánh dấu) rồi bấm OK.

Các thiết lập ở bước này tuy dành cho những loại hình kết nối tốc độ cao (như ADSL), nhưng qua thử nghiệm với loại kết nối Dial-up, kết quả đáng kinh ngạc, tốc độ lướt web tăng lên thật đáng kể.