• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

abd3d3

اعضاء جدد
  • عدد المشاركات

    13
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

4 عادي

عن abd3d3

  • الرتبة
    عضو جديد
  1. كيفيه عمل اجراء للحفظ بأسلوب oop

    على ماأعتقد كذا var Varname1 = from varName2 in tablename where dbcontext.tablename.columnName=Value;Varname1.ColumnName = NewValue;Varname1.ColumnName = NewValue;dbcontext.SubmitChanges();
  2.   عفوأ أخي الموضوع مخصص للمبرمجين ليس لك
  3. أشكر لك مرورك ......................
  4. السلام عليكم ورحمة الله وبركاته كنت أبحث بالنت عن البرمجة للويندوز فون لقيت قناة تشرح الكثير عن هذا الموضوع وباللغة العربية فحبيت أشارككم المعرفة   http://www.youtube.com/user/ManasrahAcademy?feature=watch
  5. السلام عليكم لقد تم حل المشكلة شاكرين لكم تفاعلكم معنا ....................
  6. السلام عليكم شكراً أخي محمد رضى على المشاركة لكن ما لأرته قبل ذلك هو عندما أقوم بسحب ملف الفلاش إمتداد swf على أيقونة البرنامج يقوم البرنامج بتشغيله
  7. جزاك الله خير وجعله في موازين حسناتك.....
  8. السلام عليكم لقد قمت بعمل برنامج مشغل للفلاش........... لكن كيف أجعل البرنامج هو المشغل الأساسي للإمتداد swf بحيث أني لو سحبت ملف الفلاش بالفارة و أطلقتها على أيقونة البرنامج يقوم بتشغيل الملف في البرنامج ؟ نرجوا منكم المساعدة و شكراً........................................... هذا كود تشغيل البرنامج عن طريق القائمة Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click Try OpenFileDialog1.Title = "Open Flash File" OpenFileDialog1.FileName = " " OpenFileDialog1.Filter = "All File |*.*| Flash File SWF | *.swf " OpenFileDialog1.ShowDialog() AxShockwaveFlash1.Movie = OpenFileDialog1.FileName Catch ex As Exception End Try End Sub
  9. السلام عليكــم ورحمـة الله وبركاتــه ،، شف هذا كود عملته من أجل تغيير اللست بوكس مع الكومبو بكس الكود كامل [size=2][color="#0000ff"][size=2][color="#0000ff"] Public[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Class[/color][/size][/color][/size][size=2] Form1 [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Form1_Load([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]MyBase[/color][/size][/color][/size][size=2].Load ComboBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"1"[/color][/size][/color][/size][size=2]) ComboBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"2"[/color][/size][/color][/size][size=2]) ComboBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"3"[/color][/size][/color][/size][size=2]) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] ComboBox1_SelectedIndexChanged([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] ComboBox1.SelectedIndexChanged [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Select[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Case[/color][/size][/color][/size][size=2] ComboBox1.SelectedItem [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Case[/color][/size][/color][/size][size=2] 1 ListBox1.Items.Clear() ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"A"[/color][/size][/color][/size][size=2]) ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"A"[/color][/size][/color][/size][size=2]) ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"A"[/color][/size][/color][/size][size=2]) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Case[/color][/size][/color][/size][size=2] 2 ListBox1.Items.Clear() ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"B"[/color][/size][/color][/size][size=2]) ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"B"[/color][/size][/color][/size][size=2]) ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"B"[/color][/size][/color][/size][size=2]) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Case[/color][/size][/color][/size][size=2] 3 ListBox1.Items.Clear() ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"C"[/color][/size][/color][/size][size=2]) ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"C"[/color][/size][/color][/size][size=2]) ListBox1.Items.Add([/size][size=2][color="#a31515"][size=2][color="#a31515"]"C"[/color][/size][/color][/size][size=2]) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Select [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Class[/color][/size][/color][/size]
  10. برنامج بنك الاكواد

    شكراً لك اخي الكريم البرنامج روعة.....................
  11. الله يسلمك ............................................
  12. السلام عليكــم ورحمـة الله وبركاتــه ،، طبعاً هذا درس بسيط لعمل أله حاسبة بسيطة أولأ : قم بتشغيل Microsoft Visual Studio وقم بفتح windows form بلغة الفجيول بيسك و سمه Calculater (التسمية إختيارية) ثانياً : قم بإضافةال objects وهي 4 أزرار (Buttons) و 4 Labels و 2 TextBox كما في الصورة (طبعاً إعادة التسمية و تغير الألوان عن طريق الخصائص properties بالزر الأيمن على أي من object) ونأتي الآن للكود: في Label1 ستضهر النتائج إذن الكود شبة متكرر بالمسبة للأزرار نقوم بالضغط مرتين على زر + الجمع و نكتب : Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text) لكن عندما نشغل البرنامج بالضغط على F5 ونجرب هذا الزر سيعمل لكن عندما يكون (مربع النص الأول و الثاني) فارغا سيظهر لنا خطأ و هو أن القيمتين لايمكن جمعهما و الحل : جملة إستثناء مثل : MsgBox("أدخل القيم", MsgBoxStyle.Information) Else Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End If If TextBox1.Text = Nothing Or TextBox1.Text = Nothing Then بحيث أنه إذا كان (مربع النص الأول و الثاني) فارغا سيعطي البرنامج المستخدم رسالة محتواها "أدخل القيم" ونعمل مع بقية الأزرار نفس الكود لكن بتغيير العلامة من + إلى - وإلى * و إلى / و هذا الكود كاملاً Public[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Class[/color][/size][/color][/size][size=2] Form1 [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button1_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button1.Click [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then [/color][/size][/color][/size][size=2] MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else [/color][/size][/color][/size][size=2] Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button4_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button4.Click [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then [/color][/size][/color][/size][size=2] MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else [/color][/size][/color][/size][size=2] Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button3_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button3.Click [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then [/color][/size][/color][/size][size=2] MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else [/color][/size][/color][/size][size=2] Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button2_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button2.Click [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then [/color][/size][/color][/size][size=2] MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else [/color][/size][/color][/size][size=2] Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If [/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Class[/color][/size][/color][/size] [size=2][color="#0000ff"][size=2][color="#0000ff"] بالتوفيق