برنامج اسئلة بين برنامجين - نسخة قابلة للطباعة

برنامج اسئلة بين برنامجين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برنامج اسئلة بين برنامجين (/showthread.php?tid=2034)

الصفحات: 1 2

RE: برنامج اسئلة بين برنامجين - سعود - 03-03-14

(03-03-14, 03:23 PM)mohssan كتب :
(01-03-14, 10:27 PM)سعود كتب : على فكرة .. طريقة التراسل بين طرفين سواء على lan او على Net نفس الاكواد ..الفرق في الاي بي.

هل ممكن مثال
لان دوت وااجد صار لي يومين و ما حصلت شي يفيدني

المثال انت تسويه انا جربت الطريقة اللي بالفيديو هذا ونجحت بالتراسل لكن الناقص كيف افتح المنفذ بالكود لاني افتحه بالطريقة اليدوية من الراوتر.

RE: برنامج اسئلة بين برنامجين - ٌRy SAEED - 05-02-17

(26-02-14, 05:34 PM)mohssan كتب : السلام عليكم

ابغي اسوي برنامج مسابقات

برنامج يكون في الجهاز الرئيسي و الثاني يكون في جهاز ثاني يكون على نفس الشبكة ( الراوتر)

البرنامج الي في الجهاز الرئيسي فيه textbox و buttan
بعد ما يكتب سؤال في ال textbox
و يضغط على ال buttan
النص الي في textbox ينرسل للبرنامج الي في الجهاز الثاني على شكل ليبل

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

وعليكم السلام
أخي
كل ما بتفكر فيه ليس مستحيل لغة البيسك تستطيع أن تفعل أكثر من ذلك ولكن يجب على مستخدمها التعب لكي يحصل على هذا الكود بالتفكير ورسم البرناج
على أوراق خارجية واستعمال الخوارزميات لتساعدك على إيجاد هذا اكود

البرنامج الأول: لإرسال النص المطلوب إرساله
في الجنرال في الأعلى

كود :

Imports System.Net

بعد إضافة Button1 و TextBox1 نضع هذا الكود في Button1

كود :

Dim x As New webClient

ثم نذهب نفتح ملف نصي ونضع فيه هذا الكود بعد وضع الكود إذهب إلى File ثم Save As ثم ضع بدل .text ضع php. لكي يصبح ملف php

PHP كود :

<?php

$x = $_GET['a'];

if ($x == "write"){
$open = fopen("cmd.txt","w");
fwrite($open , $_GET['cmd']);

}elseif ($x == "read"){

echo file_get_contents("cmd.txt");

}

?>

ثم إذهب إلى الكمبيوتر ثم قرص D أو E ننشأ مجلد نسميه new ثم نذهب إلى فيجوال بيسك
نضع في Button

كود :

("x.DownloadString(http://Localhost/new/sender.php?a=write&cmd="&Textbox1.text

ثم نفتح فيجول بيسك نافذة أخرى
نسمي البرنامج Server
نقوم بإضافة Textbox1 و Timer1 خصائص التايمر نضع السرعة بدل 100--->1000
ثم نضغط على اداة التايمر مرتان نضع الكود التالي

كود :

Public Class Form1

    Dim x As New System.Net.WebClient

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        ("TextBox1.text = x.DownloadString("http://Localhost/new/sender.php?a=read

    End Sub

End Class

إضغط على حفظ البرنامجين وبأذن الله بيشتغل معك