اول از همه ضمیمه این پست رو دانلود کنید که یه dll و یه کنترل ActiveX هست.
مد زیر رو تو یه ماژول بنویسید و با نام inpouttv4.bas ذخیره کنید:
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
یه فرم طراحی کنید که شامل دو کنترل Label و دو کنترل TextBox و دو کنترل CommandButton هست.نام تکست باکس ها رو به ترتیب Text1 و Text2 بذارید.نام دکمه ها رو هم به ترتیب Command1 و Command2 بذارید.Text1 کنترلی هست که آدرس پورت مورد نظر رو بهش نسبت میدین و Text2 کنترلی هست که دیتا رو براتون یا می خونه یا می نویسه.
کد زیر رو به Command1_Click() اضافه کنید:
Text2.Text = Str(Inp(Val("&H" + Text1.Text)))
کد زیر رو هم توی Command2_Click() بنویسید:
Out Val("&H" + Text1.Text), Val(Text2.Text)
یادتون نره که قبل از هر کاری این دو اکتیوایکس رو رجیستر کنید.این همون کنترل های inpout32 هست که بهتون گفتم تو اینترنت بصورت رایگان وجود داره.اگه کسی هم به دردش می خوره سورسش رو هم آپلود می کنم که با زبان VC++ 6.0 نوشته شده.
موفق باشید!
پاسخ با نقل قول