Ai biết VB6 vào giúp em với ạ

[Tuan0470]

Private Sub Command1_Click()
MSComm1.Output = "@"
MSComm1.Output = Chr(Val(Text1.Text) \ 256) ' Byte cao
MSComm1.Output = Chr(Val(Text1.Text) Mod 256) ' Byte thap
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Ai giải thích giùm em tại sao phải chia cho 256 không ạ.
Cái này là em dùng để hiển thị số nhập từ ô text ra 4 led 7 đoạn kêt nối với pic18f4520 ạ

[Tuan0470]

Ai có thể giúp em được không ạ. Em không hiểu tại sao ạ

[T.L.M]

Cái này cần kiến thức về số nhị phân chứ không liên quan gì đến vb cả. Chia cho 2 thì dời 1 bit. Chia 4 (=2^2) thì dời 2 bit. chia 256 (=2^8) thì dời 8 bit.

[duong_act]

Bởi vì nó chỉ truyền được từng byte, mỗi byte là 8 bit. Nhưng dữ lieu truyền đi có số byte >8 nên nó phải cắt thành từng đoạn 8 bit rồi gửi từng đoạn một.
Mà để lấy được 8 bit cao thì nó phải dịch phải 8 bit cao vào vị trí 8 bit thấp rồi lấy 8 bit thấp ra.
Phép dịch phải 8 bit thì tương đương chia 2^8 = 256.