Lập trình giao tiếp cổng LPT bằng VB6

[duchungspkt]

xin chào các anh em ? anh em có thể gửi tài liệu vào gmail : duchungspkt@gmail.com
được không? em xin cảm ơn

[rongconn2t]

Trong VB để giao tiếp LPT, tôi dùng thư viện động inpout32.dll .
Các bạn tải file này về máy rồi để trong thư mụch chứa file .vbp đang làm, hoặc trong windows/system32.
Trong lưu đồ của inpout32.dll nó tự nhận ra hệ điều hành là 98 hay NT để có cách điều khiển port thích hợp cái này người viết VB không cần quan tâm lắm. Chỉ việc declare và dùng là xong.
Muốn vào ra số liệu từ LPT mình declare thế này:

Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAdderess As Integer) As Integer
Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Sau đó muốn xuất ra LPT số 10 chẳng hạn (thập phân - cái này thằng VB mặc định là Decimal). Ta chỉ việc dùng lệnh

Out 888, 10

Trong đó 888 là địa chỉ của cổng LPT.
Nếu muốn nhập số liệu vào biến d từ LPT ta chỉ việc dùng lệnh

Inp 888, d

Quá đơn giản phải không !

------------------------------
định trêu anh phucthinhel một cái nhưng thôi,
--------------------------
Ờ mà em không tài nào upload được file , bác nào cần thì kiếm trên net, hoặc mail cho em.

theo em nhớ thì thằng LPT không những mình có thể điều khiển đc 8 đầu IO mà mình còn có thể điều khiển đc hình như là 4 hay 5 đầu nữa thì phải
vậy mình phải dùng lệnh gì để có thể điều khiển đc những đầu kia.thanks

[hamanha]

Mấy bạn ai có file inpour32.dll và inpour32.lb không vậy cho mình với vì mình đang học lập trình C++ mà không có 2 file đó mình cảm ơn các bạn nhiều nha!!!!!!!!!

[rongconn2t]

không hiểu tại sao mình NTport để điều khiển LPT.
nhưng khi xuất ra tín hiệu của cổng thì cứ bị lệch đi mất 2 bit nghĩa là sao nhỉ
em có dùng mấy con led để test kiểm tra.cắm 8 con led từ D0..D7 (chân 2 ->9 cổng LPT)
cho tích cực mức thấp.
khi xuất ra giá trị 255 thì tất cả các led cùng tắt.ok
khi xuất ra giá trị 0 thì chỉ có 6 led sáng .D2..D7 sáng cái này kô hiểu
khi xuất ra các giá trị khác thì tất cả đều bị lệch mất 2 bit.
có ai cho em 1 lời giải thích với. cảm ơn nhiều

[easy]

chao a hai bac ,e lam do an robot 4 chan
dieu khein bang dong co rc servo dc loai co 3 day
e khong the vua dieu khien dong co nay,ma van giu dong co kia tai vi tri do
mong anh giup e
e lap trinh tren 89c
cam anh truoc nhen

[ngle]

lúc trước mình đã làm cái này rồi , Dùng VB lập trình giao tiếp wa cổng LPT để làm sáng đèn . cũng đơn giản lắm , ko khó đâu . Mình sẽ làm lại thử , tại bỏ lâu rồi ..

[thienanilu]

Có ai tài liệu ko, send cho mình với nha, cảm ơn nhiều.

[kenshin99]

em đang cần phần code để điều khiển 12 con led qua cổng LPT bằng VB ,có bác nào biết,viết giúp em với.em đang tìm hiểu về nó nên chưa biết gì hết.

[tranhuuthong]

em chao cac anh chi. em muon giao tiep qua cong com cua may tinh, dung AVR. tren Visual basic em muon mo phong led 7 doan thi phai lam the nao a?

[MrLon3ly]

Một bộ đèn LED được ghép nối trên cổng LPT1 có 8 LED được nối vào 8 bit dữ liệu tương ứng từng LED một. Khi bit dữ liệu có giá trị 1 thì LED sáng, có giá trị 0 thì LED tắt. Cho trước thư viện IO.DLL có hàm Inp(port) và thủ tục Outp(port,value) có chức năng lần lượt là đọc 1 byte từ cổng và gửi 1 byte ra cổng. Hãy lập trình điều khiển bật tắt các LED sáng tối luân phiên đồng thời.
Ai làm giúp em bài này với

[chieuhado]

mình học công nghệ thông tin mà sao vẫn không biết "lập trình giao tiếp cổng LPT " này nhỉ ???

Có thể do quên chăng ???????????
______________________________
Giao duc|Cong nghe thong tin|Khoa hoc|Tin Cong nghe

[thienbinhvn]

thực là khó khăn mà.em cũng đang làm lập trình bằng VB hoặc VC++ để điều khiển 12 led qua cổng lpt ma chưa biết làm sao? có bác nào giúp em tý hok ?

[hacker76]

hi!tớ mới vào làng VB cac b chỉ cho mình cấu hình từ máy tính đến card giao tiếp và các thủ tục lập trình

thanks

[atnguyen003]

Hay lắm. Cảm ơn bạn