منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : برنامج اسئلة بين برنامجين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
(03-03-14, 03:23 PM)mohssan كتب : [ -> ]
(01-03-14, 10:27 PM)سعود كتب : [ -> ]على فكرة .. طريقة التراسل بين طرفين سواء على lan او على Net نفس الاكواد ..الفرق في الاي بي.

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

المثال انت تسويه انا جربت الطريقة اللي بالفيديو هذا ونجحت بالتراسل لكن الناقص كيف افتح المنفذ بالكود لاني افتحه بالطريقة اليدوية من الراوتر.
(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
إضغط على حفظ البرنامجين وبأذن الله بيشتغل معك
الصفحات : 1 2