منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار عن اداة Winsock1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : استفسار عن اداة Winsock1 (/showthread.php?tid=9057)



استفسار عن اداة Winsock1 - wolf1120 - 28-05-13

استفسار عن اداة Winsock1

في زر الارسال

كود :
If Winsock1.State <> 7 Then
   Label8.Caption = "connect"
   Exit Sub
End If

Winsock1.SendData "15" & Trim$(Text1.Text) & Trim$(Text2.Text)


وانا لديا 2 text

كيف اقوم بضبط :زر ارسال بحيث


text=time
text2=date


بحيث text1 يحمل الوقت

و

text2 يحمل التاريخ

انا وضعت كود ارسال بهد الشكل

كود :
Winsock1.SendData "15" & Trim$(Text1.Text) & Trim$(Text2.Text)
لكنه يقوم بارسالهما مع بعض في برنامج العميل

وانا في برنامج العميل لديا 2 textbox


فيظهر في التكست 1 بهد الشكل 14.52 28/05/2013

والتكست 2 يخرج فارغ بحيث التاكست يحمل قيمة التاريخ وحده

والتكست 1 يحمل قيمة الوقت وحده

المطلوب تعديل على كود الارسال هدا


كود :
Winsock1.SendData "15" & Trim$(Text1.Text) & Trim$(Text2.Text)

ليظهر كما في الصورة المرفقة


استفسار عن اداة Winsock1 - abulayth - 28-05-13

السلام عليكم

اخي الكريم عليك وضع علامة للفصل بين المتغيرين في كود الارسال

كود :
Winsock1.SendData "15" & Trim$(Text1.Text) & "|" & Trim$(Text2.Text)

وتقوم بفصل البيانات المستقبلة بناء على هذه العلامة

ارى ان تضع المثال كامل لكي يتم التعديل عليه

يعطيك العافية


استفسار عن اداة Winsock1 - wolf1120 - 28-05-13

abulayth كتب :السلام عليكم

اخي الكريم عليك وضع علامة للفصل بين المتغيرين في كود الارسال

كود :
Winsock1.SendData "15" & Trim$(Text1.Text) & "|" & Trim$(Text2.Text)

وتقوم بفصل البيانات المستقبلة بناء على هذه العلامة

ارى ان تضع المثال كامل لكي يتم التعديل عليه

يعطيك العافية


تفضل المرفقات


استفسار عن اداة Winsock1 - abulayth - 28-05-13

السلام عليكم

لقد تم التعديل على a و b ارجو ان يكون هذا طلبك

يعطيك العافية


استفسار عن اداة Winsock1 - wolf1120 - 28-05-13

abulayth كتب :السلام عليكم

لقد تم التعديل على a و b ارجو ان يكون هذا طلبك

يعطيك العافية


الله يعطيك العافية برك الله فيك


استفسار عن اداة Winsock1 - abulayth - 28-05-13

wolf1120 كتب :الله يعطيك العافية برك الله فيك

حيــــــــــــــــاك الله