• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Chuyển nhanh giữa các cơ số: 8, 10, 16

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4762
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Chuyển nhanh giữa các cơ số: 8, 10, 16

Gửi bàigửi bởi truongphu » T.Bảy 10/05/2008 10:00 am

Thủ thuật: Chuyển nhanh giữa các cơ số: 8, 10, 16
Tác giả: truongphu
Mô tả: Trừ việc chuyển số từ cơ số 2 qua cơ số 10 và ngược lại còn khó khăn. Chuyển đổi qua lại giữa các số có cơ số 8, 10 và 16 đã được VB6 hổ trợ
Ví dụ có số Long = 123456. Code chuyển đổi như sau


Mã: Chọn hết

  1. Function D2B(ByVal n As Long) As String
  2. If n = 0 Then D2B = 0
  3. Do Until n = 0
  4.     If (n Mod 2) Then D2B = "1" & D2B Else D2B = "0" & D2B
  5.     n = n \ 2
  6. Loop
  7. End Function
  8. Function B2D(ByVal s As String) As Long
  9. For i% = 1 To Len(s)
  10. B2D = B2D + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - i)
  11. Next
  12. End Function
  13. Private Sub Form_Load()
  14. MsgBox B2D("11110001001000000")
  15. MsgBox CLng(&O361100)
  16. MsgBox CLng(&H1E240)
  17. MsgBox D2B(123456)
  18. MsgBox Oct(123456)
  19. MsgBox Hex(123456)
  20. End Sub


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4762
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Chuyển nhanh giữa các cơ số: 8, 10, 16

Gửi bàigửi bởi truongphu » CN 12/10/2008 7:43 pm

Hệ 8 dùng các số từ 0 -> 7
Windows đã hổ trợ chuyển từ hệ 8 qua hệ 10
VD có số 9 (hệ 10)
với hệ 8 phải ghi là 11

như DiodeZ nói đúng, bạn chỉ cần gọi hàm CLng là xong, cấu trúc như DiodeZ đề nghị
Nhớ thêm "&0" ở trước để trình biên dịch biết đó là số Oct
Vd Msgbox CLng(&011) --> kq là 9
Bài viết tôi giới thiệu cho bạn cũng thế thôi, có chăng là giúp bạn làm quen thêm nhiều hệ cơ số đếm!
Đừng ngại, trước đây gần năm tôi cũng y chang bạn
Quyết tâm là vượt qua
(Gởi nhầm địa chỉ! :D )
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách