Private Sub Timer1_Timer() 'gio phut
Text1.Text = Format(Now, "hh:nn:ss") 'hien thi gio phut giay hien tai trong text1
Text2.Text = Format(Now, "dd/mm/yyyy") 'hien thi ngay thang nam hien tai trong text2
Text5.Text = Format(Now, "hh:nn") 'dinh dang hien thi gio phut
send ("g") ' gui ky tu g xuong VDK
a = Hour(Now) ' gan gio hien tai cho bien a
send (Chr(a Mod 256)) ' gui byte thap cua gio xuong VDK
send (Chr(a \ 256)) ' gui byte cao cua gio xuong VDK
b = Minute(Now) ' gan phut hien tai cho bien b
send (Chr(b Mod 256)) ' gui byte thap cua phut xuong VDK
send (Chr(b \ 256)) ' gui byte cao cua phut xuong VDK
c = Second(Now) ' gan giay hien tai cho bien c
send (Chr(c Mod 256)) ' gui byte cao cua giay xuong VDK
send (Chr(c \ 256)) ' gui byte cao cua giay xuong VDK
d = Day(Now) ' gan ngay hien tai cho bien d
send (Chr(d Mod 256)) ' gui byte thap cua ngay xuong VDK
send (Chr(d \ 256)) ' gui byte cao cua ngay xuong VDK
e = Month(Now) ' gan thang hien tai cho bien e
send (Chr(e Mod 256)) ' gui byte thap cua thang xuong VDK
send (Chr(e \ 256)) ' gui byte cao cua thang xuong VDK
f = Year(Now) ' gan nam hien tai cho bien f
send (Chr(((f Mod 1000) Mod 100) Mod 256)) ' gui byte thap cua nam xuong VDK
send (Chr(((f Mod 1000) Mod 100) / 256)) ' gui byte cao cua nam xuong VDK
End Sub
Ai có thể giải thích cho em các hảm gửi byte cao với byte thấp với. tại sao lại là chia cho 256. và giải thích rõ ràng hộ em 2 câu lệnh này với
send (Chr(((f Mod 1000) Mod 100) Mod 256)) ' gui byte thap cua nam xuong VDK
send (Chr(((f Mod 1000) Mod 100) / 256)) ' gui byte cao cua nam xuong VDK
Text1.Text = Format(Now, "hh:nn:ss") 'hien thi gio phut giay hien tai trong text1
Text2.Text = Format(Now, "dd/mm/yyyy") 'hien thi ngay thang nam hien tai trong text2
Text5.Text = Format(Now, "hh:nn") 'dinh dang hien thi gio phut
send ("g") ' gui ky tu g xuong VDK
a = Hour(Now) ' gan gio hien tai cho bien a
send (Chr(a Mod 256)) ' gui byte thap cua gio xuong VDK
send (Chr(a \ 256)) ' gui byte cao cua gio xuong VDK
b = Minute(Now) ' gan phut hien tai cho bien b
send (Chr(b Mod 256)) ' gui byte thap cua phut xuong VDK
send (Chr(b \ 256)) ' gui byte cao cua phut xuong VDK
c = Second(Now) ' gan giay hien tai cho bien c
send (Chr(c Mod 256)) ' gui byte cao cua giay xuong VDK
send (Chr(c \ 256)) ' gui byte cao cua giay xuong VDK
d = Day(Now) ' gan ngay hien tai cho bien d
send (Chr(d Mod 256)) ' gui byte thap cua ngay xuong VDK
send (Chr(d \ 256)) ' gui byte cao cua ngay xuong VDK
e = Month(Now) ' gan thang hien tai cho bien e
send (Chr(e Mod 256)) ' gui byte thap cua thang xuong VDK
send (Chr(e \ 256)) ' gui byte cao cua thang xuong VDK
f = Year(Now) ' gan nam hien tai cho bien f
send (Chr(((f Mod 1000) Mod 100) Mod 256)) ' gui byte thap cua nam xuong VDK
send (Chr(((f Mod 1000) Mod 100) / 256)) ' gui byte cao cua nam xuong VDK
End Sub
Ai có thể giải thích cho em các hảm gửi byte cao với byte thấp với. tại sao lại là chia cho 256. và giải thích rõ ràng hộ em 2 câu lệnh này với
send (Chr(((f Mod 1000) Mod 100) Mod 256)) ' gui byte thap cua nam xuong VDK
send (Chr(((f Mod 1000) Mod 100) / 256)) ' gui byte cao cua nam xuong VDK
Comment