Tweet
Lập trình giao tiếp trong winXP dùng VB, xin được chỉ giáo
Mình là thành viên mới, vừa mới mua tài liệu ghép nối máy tính trong window của thày Tập về đọc. Mình may mắn kiếm được file port.dll version 1.0.0.0 nên làm thử ví dụ đầu tiên trong sách là làm cho loa bên trong máy tinh xuất 1 tiếng kêu. Nhưng biên dịch tới câu lệnh OUTPORT thì bị báo lỗi khong thấy file PORT.DLL, mặc dù mình đã để file này trong thu mục chứa chương trình ví dụ này. Mới bắt đầu nên cái gì cũng còn mơ hồ rất mong được các bạn đi trước rộng lòng chỉ giáo. Mình tự học nên khi cần người chỉ rất khó,mong các bạn giúp. Sau đây là phần chương trình:
Phần khai báo trong modul1.bas:
Declare Sub OUTPORT Lib "PORT.DLL" (ByVal Adr As Integer, ByVal Dat As Integer)
Declare Function INPORT Lib "PORT.DLL" (ByVal Adr As Integer) As Integer
Declare Sub DELAY Lib "PORT.DLL" (ByVal Th_gian As Integer)
Chương trình xuất âm: (tone.frm)
Private Sub tone_Click()
For n = 1 To 100
OUTPORT 97, (INPORT(97) Or 2)
DELAY 1
OUTPORT 97, (INPORT(97) And 253)
DELAY 1
Next n
End Sub
Không biết sai sót là ở chỗ nào, mong được chỉ bảo
Phần khai báo trong modul1.bas:
Declare Sub OUTPORT Lib "PORT.DLL" (ByVal Adr As Integer, ByVal Dat As Integer)
Declare Function INPORT Lib "PORT.DLL" (ByVal Adr As Integer) As Integer
Declare Sub DELAY Lib "PORT.DLL" (ByVal Th_gian As Integer)
Chương trình xuất âm: (tone.frm)
Private Sub tone_Click()
For n = 1 To 100
OUTPORT 97, (INPORT(97) Or 2)
DELAY 1
OUTPORT 97, (INPORT(97) And 253)
DELAY 1
Next n
End Sub
Không biết sai sót là ở chỗ nào, mong được chỉ bảo
Comment