[wolf1120]

استفسار عن اداة 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)

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

[abulayth]

السلام عليكم

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

كود :

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

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

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

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

[wolf1120]

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

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

كود :

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

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

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

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

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

[abulayth]

السلام عليكم

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

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

[wolf1120]

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

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

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

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

[abulayth]

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

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