28-05-13, 05:55 PM
استفسار عن اداة Winsock1
في زر الارسال
وانا لديا 2 text
كيف اقوم بضبط :زر ارسال بحيث
text=time
text2=date
بحيث text1 يحمل الوقت
و
text2 يحمل التاريخ
انا وضعت كود ارسال بهد الشكل
لكنه يقوم بارسالهما مع بعض في برنامج العميل
وانا في برنامج العميل لديا 2 textbox
فيظهر في التكست 1 بهد الشكل 14.52 28/05/2013
والتكست 2 يخرج فارغ بحيث التاكست يحمل قيمة التاريخ وحده
والتكست 1 يحمل قيمة الوقت وحده
المطلوب تعديل على كود الارسال هدا
ليظهر كما في الصورة المرفقة
في زر الارسال
كود :
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)
ليظهر كما في الصورة المرفقة