کمک برای حلقه شرطی

[sayidc0der]

سلام رفقا
اولین پست اولین سوال ایشالا موندگار شیم

من 7-8 سال پیش کمی vb یاد گرفتم و در حال حاضر چیزی بلد نیستم
یه برنامه نوشتم
که داخل چت رو به افرادی که وارد میشن پیام خوش آمد گویی می ده

ولی یه ایرادی داره تا زمانی که نفر بعدی وارد نشده این پیام رو به طور مداوم براش ارسال می کنه
چون از یه تایمر برای چک کردن لیست باکس خودم(chatroom) استفاده کردم این اتفاق می افته
چند تا حلقه شرطی هم نوشتم ولی جواب نداد if و else رو با هم انجام می داد
اگه ممکنه کمک کنید

Private Sub Timer8_Timer()

Dim txt1 As String
Dim txt2 As String

lstChatRecMess.ListIndex = SendMessage(lstChatRecMess.hwnd, LB_FINDSTRING, SearchText1, ByVal SearchText1.Text)
Text1 = lstChatRecMess.Text
txt1 = Split(Text1, "*-**-*")(1)
txt2 = Split(txt1, ":joined the room!")(0)
JoinedText = txt2

sendData SendPm(frmMain.tUser.Text, JoinedText.Text, welcomemessageText.Text)


End Sub
کسانی که وارد رو میشن به این طریق که اول ایدی شون *-**-* به این شکل هست وارد میشن که دستور txt1 = Split(Text1, "*-**-*")(1) ستاره ها رو بر می داره و دستور
txt2 = Split(txt1, ":joined the room!")(0)
:joined the room رو حدف میکنه
ای دی که ما باید به اون پیام رو ارسال کنیم JoinedText هستش یه تکس باکس
و دستور endData SendPm(frmMain.tUser.Text, JoinedText.Text, welcomemessageText.Text) پیام رو ارسال می کنه

من می خوام یه حلقه شرط با شه که اگه JoinedText تکراری بود مسیج نفرسته

با تشکر از همه دوستان

[mohsensaghafi]

سلام دوست عزیز.
باید تو یه متغیر ID کسانی رو که بهشون پیغام فرستادی رو ذخیره کنی. یا اینکه یه متغیر بگیری مثلا integer که هگه واسه یه نفر پیغام فرستادی اون متغیر رو 1 کنی.

[sayidc0der]

من یه متغیر تعریف کردم از نوع استرینگ بعد با یه حلقه شرطی if مشخص کردم که اگه txt2 و txt3 باهم برابر بود پیام ارسال نکنه ولی else رو هم اجرا می کرد

[mohsensaghafi]

سلام دوست عزیز.
لطفا کد رو بگذارید.

[sayidc0der]

دوست عزیز ممنون مشکلشو حل کردم



:قلب: