کار با پورت ها و صدا ی بوق از سیستم

[kamran_14]

سلام
این یه کد ساده ای هس که برا تولید صدای بوق از کامپیوتر استفاده می شه
ولی وقتی این کد و می نویسم برنامه error می ده
این برنامه نیاز به فایل port.dll داره اما من اونو به داخل پوشه ی نصب این برنامم و هم داخل windows کپی کردم
باید این فایل رو چطوری به برنامم اضافه کنم؟
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 Time As Integer)


Private Sub Command1_Click()
Dim n As Integer
Dim t As Integer

For n = 1 To 100
OUTPORT(97,(INPORT(97) Or 2))

For t = 1 To 10000: Next t
OUTPORT(97, (INPORT(97) And 253))
For t = 1 To 10000: Next t
Next
End Sub

[محسن واژدی]

سلام
اگر این فایل یک dll استاندارد است کپی آن در کنار برنامه یا قرار دادن آن در فولدر سیستم کافی است، و اگر یک ActiveX-DLL است بایستی ابتدا ریجسترش کنید (با regsvr32)

موفق باشید