مشکل در ارتباط سریال با vb و usb2com

[M3R]

سلام.
من تو vb یه برنامه نوشتم که اطلاعات پورت سریال رو دریافت کنه و چون سیستمی که استفاده میکنم پورت کام نداره مجبور به استفاده از usb2com شدم.
حالا با این usb2com تو ترمینال کدویژن و بسکام مشکلی ندارم و جواب میده ولی تو برنامه vb ارور میده که نمیتونه پورت رو open کنه.اینم برنامه:

PrivateSubForm_load()
MSComm1.CommPort=65
MSComm1.Settings="9600,n,8,1"
MSComm1.PortOpen=True
End Sub

خطا هم تو اون خط هست که میخواد port رو open کنه!!
شماره پورت کام مجازی هم 65 هست و با هر شماره دیگه هم که امتحان کردم همین خط ارور میداد.

[skiboys]

من قبلا از پورت com و VB استفاده کردم البته از تبدیلش استفاده نکرده بودم هرچی هست فکرکنم سر همین تبدیله usb بهserial هستش حالا باید بگردم اون پروژه ها را پیدا کنم اگر چیزی دستگیرم شد در این قسمت قرار می دهم
شما چک کنید ببینید باود ریت و نام پورت و بقیه چیزها درست هستش

[M3R]

آره همه چیز رو چک کردم درسته.
همینطور که گفتم با ترمینال اصلا مشکلی ندارم و با اکثر برنامه هایی که با پورت سریال ارتباط برقرار میکنن تست کردم درست جواب داده!
ولی تو vb نمیدونم چرا پورت open نمیشه!!

[ali_h]

سلام،
تو برنامه های دیگه پورت رو می بندید دیگه؟ پورت com در هر لحظه فقط می تونه تو یک برنامه باز باشه.

[skiboys]

سلام،
تو برنامه های دیگه پورت رو می بندید دیگه؟ پورت com در هر لحظه فقط می تونه تو یک برنامه باز باشه.

افرین علی اقا
احتمالا شما برنامه دیگه ای دارید که پورت باز کرده

[ppittl]

یه مورد دیگه به نظر من بهتره تو روتین لود فرم ، پورت رو باز نکنی
دستورت درسته و فقط می تونه شماره پورت اشتباه باشه یا موردی که دوستان گفتن
موفق باشی

[M3R]

سلام.
ممنون از راهنمایی دوستان
موقعی که برنامه vb بازه هیچ برنامه دیگه ای که از پورت com استفاده کنه باز نیست و تنها برنامه ای که بازه همین vb هست!
در مورد فرمایش ppittl پورت رو تو کدوم قسمت باز کنم؟
من تو vb یکم تازه کارم و همین برنامه هم از تو pmm1 برداشتم!

[ppittl]

کلا موقع لود برنامه اصلی بهتره اینکار رو انجام ندی
البته این نظر منه . چون بعضی اوقات مشکل پیدا میکنه
تو یه کلید قرار بده که بعد از لود برنامه انجامش بدی
ON ERROR GOTO X1
COM1.CommPort = 3
If COM1.PortOpen = True Then
COM1.PortOpen = False
MSGBOX "PORT CLOSED"
Exit Sub
End If
COM1.PortOpen = True
MSGBOX "PORT IS OPEN"
EXIT SUB
X1:
MSGBOX "PORT OPEN FAIL"

این کد رو تو روال یه کلید بنویس و نتیجه رو ببین
اگر زمان اجرا پورت باز باشد پورت را می بندد و برعکس