مشکل در کار با mscomm

[mostafa_bahar]

دوستان به کد زیر دقت کنید

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1

MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
w = MSComm1.Input
End Sub

Private Sub Timer1_Timer()
'c = MSComm1.Input
'If c <> "" Then
'List1.AddItem (c)
'End If
End Sub
من داخل رویداد oncom کد نوشتم ولی وقتی اطلاعات می آید فعال نمی شود ولی اگر در داخل تایمر بزارم اطلاعات می آید مشکل کجاست

[mostafa_bahar]

دوستان كسي نيست جواب دهد

[poorhasan]

دوستان به کد زیر دقت کنید

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1

MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
w = MSComm1.Input
End Sub

Private Sub Timer1_Timer()
'c = MSComm1.Input
'If c <> "" Then
'List1.AddItem (c)
'End If
End Subمن داخل رویداد oncom کد نوشتم ولی وقتی اطلاعات می آید فعال نمی شود ولی اگر در داخل تایمر بزارم اطلاعات می آید مشکل کجاست

با سلام
کد رو به این صورت بنویس

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
w = MSComm1.Input
end select
End Sub

[mostafa_bahar]

ببینید اصلا رویداد oncomm وقتی اطلاعات می آید فراخوانی نمی شود مشکل من اینه برای رفع یک تایمر گذتشتم که هر چند ثانیه خودش تست کنه که اطلاعات آمده یا نه
کمک کنید لطفا

[mostafa_bahar]

کسی نی جواب بده سوال منو لطفا کمک کنید

[poorhasan]

ببینید اصلا رویداد oncomm وقتی اطلاعات می آید فراخوانی نمی شود مشکل من اینه برای رفع یک تایمر گذتشتم که هر چند ثانیه خودش تست کنه که اطلاعات آمده یا نه
کمک کنید لطفا
کدی که گفتم جواب نداد؟
اگه که نه این کاررو هم امتحان کن البته اون دستوری که گفتم رو حتما باید تو روی داد oncomm بذاری
mscomm1.inputlen=1
راستی با تایمر جواب درست می گیری یا یه اطلاعات بی منطق اگه با تایمر جواب بگیری باید با oncomm هم بتونی بیشتر دقت کن

[mostafa_bahar]

ببینید اصلا رویداد oncomm فراخوانی نمیشه که من کد داخلش بز ارم وقتی اطلاعات می اید داخل رویداد نمی رود

[poorhasan]

ببینید اصلا رویداد oncomm فراخوانی نمیشه که من کد داخلش بز ارم وقتی اطلاعات می اید داخل رویداد نمی رود
با سلام دوست عزیز
یه مسئله مهم رو من تازه یادم اومد اینکه حتما باید مقدار RThreshold باید برابر با یک باشه تا روید resive فراخوانی بشه
بهتره تنظیمات کام رو به صورت زیر انجام بدی
MSComm1.seting="9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
موفق باشی

[mostafa_bahar]

عالی بود جواب داد