دوستان لطفا راهنمایی؟؟!

[سپهر-111]

سلام دوستان گل



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

یک مشکل دارم ، وقتی فرم برنامه رو میخوام با موس جابه جا کنم یا اینکه وقتی روی یکی از تکست باکسها راست کلیک کنم ، کار ارسال و دریافت متوقف میشه و وقتی از حالت راست کلیک برمیگردم دوبار کار ارسال دریافت شروع میشه...

تقریبا میشه گفت که اولویت کار برنامه رو به موس میده...



ایا راهی وجود داره که بشه این مشکل برطرف کرد؟؟؟



ممنون میشم اگه راهنمایی بفرمایید

باتشکر از توجه شما

[meys34]

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

[سپهر-111]

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

سلام دوست من:قلب:

فرض مثال این کد کوتاه رو چک کنید دقیقا همین مشکلی که بالا گفتم رو داره....


Private Sub Command1_Click()
MSComm1.PortOpen = True
Dim str As String
str = "it is test"
Text1.Text = str

Do
MSComm1.Output = str
DoEvents
Loop
End Sub

[meys34]

سلام دوست من:قلب:

فرض مثال این کد کوتاه رو چک کنید دقیقا همین مشکلی که بالا گفتم رو داره....


Private Sub Command1_Click()
MSComm1.PortOpen = True
Dim str As String
str = "it is test"
Text1.Text = str

Do
MSComm1.Output = str
DoEvents
Loop
End Sub

از تایمر استفاده کنید به جای اون حلقه...


Dim str As String

Private Sub Command1_Click()
MSComm1.PortOpen = True
str = "it is test"
Text1.Text = str

Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
MSComm1.Output = str
End Sub