احمد عبد الحكيم

السلام عليكم شباب  لو سمحتو كن محتاج لسورس كود الخاص بلعبة legacy of discord وهى لعبة على الموبيل الاندرويد  او العاب شبيهة لها مش شرط هى بالظبط وشكرا ودى الصوره الخاصة بها

بسم الله الرحمن الرحيم  السلام عليكم شباب  نا دخلت على موضوع تطبيقات الاندرويد من خلال c# عن طريق مكتبات xamarin  حاولت فيها شويه ودورت على الانتر نت مافيش كثير من المواضيع او الشروحات  كل الفكره اى محتاج اكواد لفتح نموذج جديد عن طريق الضغط على الزر  لكن مالقيت ما اريد نهائى  

اخى الكريم من الممكن تصمم العاب لكن بال c# ز ليس ب vb.net الان شركه مكروسوفت قامت بطرح برنامج vb.net 2015 ومدمج معه بيئة تصميم الاندرويد لكن ب c# لا يوجد ل vb انا بقالى ثلاث سنوات اعمل على vb وبقالى 4 شهور اعمل على c# الى اكتشفتو ان c# احسن من vb مليوووووووووون مره فى كمان طريقة جمييله جدا جدا فى تصميم الالعاب وقد قمت بتصميم لعة مثل supway فى خلال يومين فقط وكانت اول مره اشتغل على تصميم الالعاب  من خلال unity مع برمجة c# وبصراحة هذا البرنامج متعة لا توصف نهائيا وده حبيبنى فى تصميم البرامج وتقدر تجيب الشخصيات 3d من خلال السوق الخاص به يوجد شخصيات مجانية وكذلك شخصيات بفلوس  ويوجد ايضا فديوهات للتعليم وسهلة جدا  حاول التعلم على برنامج unity مع الc# وللعلم اذا كنت تعمل على vb فسهل تعلم c# 

السلام عليكم شباب  هل في كتاب لغه عربيه لتعليم تصميم العاب على محرك unity ولغة برمجه c# أو vb.net  أو حتى فديوهات 

تحياتي لك اخي العزيز أنا عندي مشكله  اني اعمل في تصميم البرامج التجاريه العاديه لكن لا أستمتع للأمر كثيرا واعمل على تصميم الصور بالفيكتور مثل الرسوم واستمتع بصراحه بلامر لكن إذا مزجت لاثنين مع بعض مثل تصميم لألعاب من الممكن أستمتع أكثر للأمر وبصراحه هذا المقال افدني بعض الشئ لكن هناك أمر إذا صممت لعبة على unity ونسخه البرنامج مجانيه وبعد ذلك أحضرت النسخه التي قمت بشرائها هل سيتم حفظ العبه يوجد بها شعار يونيتي

بسم الله الرحمن الرحيم  السلام عليكم شباب  انا جديد فى مجال الاسيمبلى كل الفكره انى قريت عنو فقط لحد الان بجمع معلومات تفيدنى فى بدا تعلم لغة الاسيمبلى  انا قد قمت سابقا بتعلم لغات اخري وعندى خبره فى مجال البرمجه مدة عامين ونصف او اكثر قمت بالعمل على  vb.net و c# لكن ال c# خبره بسيطه وليست خبرة كبيره  كل الفكرة انى محتاج شرح بسيط عن تعلم هذه الغة فى البداية فقط  وممكن بعض الناس تقول ان الاسيمبلى صعبة وانتحار وحجات من دى انا هارد عليه واقلو انا بحب الصعب بحب اشتغل فى الحجات الى فيها مشاكل ومعقدة  وبحب الالغاز وبحب فك التشفر والحجات دى وطلما انا بحب الحجات دى يبقى الاسيمبلى هاتبقى سهلة  ياريت اكون اوضحت طلبى  ودمتم بخير وعافية يارب   

بسم الله الرحمن الرحيم هناك مشكله هى عند عمل اضافة جديد فى الفاتوره اسم الموظف يقوم بتغير الى #name? فا ارجو بامر يقوم بتسبيت مربع النص عند الضغط على زر جديد

ان الملف الصوت غير صحيح او الصيغه مش ماشيه مع البرنامج انا ماجربتش الحكايه دى عشان افيدك بس الرساله بتقول كده

' كود الحفظ والتعديل Try Application.DoEvents() If Label7.Text = "" Then 'كود اضافة سجل جديد Dim Add_NewRow As DataRow = DataSet1.Tables("item").NewRow() ' If TextBox1.Text = "" Then Add_NewRow("name") = DBNull.Value Else Add_NewRow("name") = TextBox1.Text.Trim If txtItemName.Text = "" Then Add_NewRow("itemname") = DBNull.Value Else Add_NewRow("itemname") = txtItemName.Text.Trim If txtsril.Text = "" Then Add_NewRow("serial") = DBNull.Value Else Add_NewRow("serial") = txtsril.Text.Trim If txthdd.Text = "" Then Add_NewRow("HDD") = DBNull.Value Else Add_NewRow("HDD") = txthdd.Text.Trim If txtram.Text = "" Then Add_NewRow("RAM") = DBNull.Value Else Add_NewRow("RAM") = txtram.Text.Trim If txtpro.Text = "" Then Add_NewRow("processor") = DBNull.Value Else Add_NewRow("processor") = txtpro.Text.Trim If txtadd.Text = "" Then Add_NewRow("add") = DBNull.Value Else Add_NewRow("add") = txtadd.Text.Trim If txtNote.Text = "" Then Add_NewRow("date") = DBNull.Value Else Add_NewRow("date") = txtNote.Text.Trim DataSet1.Tables("item").Rows.Add(Add_NewRow) 'كود حفظ الاضافة Validate() DataAdapter.Update(DataSet1.Tables("item")) DataSet1.AcceptChanges() butsave.Text = " تعديل" Con.Open() DataSet1.Clear() DataAdapter.Fill(DataSet1, "item") Con.Close() Me.BindingContext(DataSet1, "item").Position = Me.BindingContext(DataSet1, "item").Count - 1 '==================== متغير يكون بس ماقبل معي ======== Dim records, current As Integer records = Me.BindingContext(DataSet1, "item").Count current = Me.BindingContext(DataSet1, "item").Position + 1 Label12.Text = " عدد السجلات " & current.ToString & " من أصل " & records.ToString ' count() ' Cmb() '======================================================================= MsgBox("تـــم إضـــــافة العميل بنجاح ", 64, "نجاح") Else 'كود معرفة رقم الصف الحالي في قاعدة البيانات Dim Row_Num As Integer = Me.BindingContext(DataSet1, "item").Position DataSet1.Tables("item").Rows(Row_Num).BeginEdit() If txtItemName.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("itemname") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("itemname") = txtItemName.Text.Trim If txtsril.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("serial") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("serial") = txtsril.Text.Trim If txthdd.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("HDD") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("HDD") = txthdd.Text.Trim If txtram.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("RAM") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("RAM") = txthdd.Text.Trim If txtpro.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("processor") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("processor") = txtpro.Text.Trim If txtadd.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("add") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("add") = txtadd.Text.Trim If txtNote.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("date") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("date") = txtNote.Text.Trim ' If Tet_item_name.Text ="" Then DataSet1.Tables("item").Rows(Row_Num)Item("name")=DBNULL.VALUE ELSE DataSet1.Tables("item").rows(row_num).Item("name")=Tet_item_name.Text.Teim DataSet1.Tables("item").Rows(Row_Num).EndEdit() Validate() DataAdapter.Update(DataSet1.Tables(0)) DataSet1.AcceptChanges() ' count() ' Cmb() '==================== متغير يكون بس ماقبل معي ======== Dim records, current As Integer records = Me.BindingContext(DataSet1, "item").Count current = Me.BindingContext(DataSet1, "item").Position + 1 Label12.Text = " عدد السجلات " & current.ToString & " من أصل " & records.ToString '======================================================================= MsgBox("تم التعــــديل بنــجاج", 64, "تعديل العملاء") End If Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

بسم الله الرحمن الرحيم عند الضغط على زر الحفظ تظهر لى هذه الرساله مع العلم اننى قمت بمراجعه الاكواد اكثر من مره واعاده كتابتها مرة اخرى لكن تواجهنى نفس الشكلة   هذه هى الرساله التى تظهر   syntax error INSERT INTO statement

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

بسم الله الرحمن الرحيم   هل من طريقه لعمل عمليه حسابيه بين مربعين نص من نموزجين مختلفبن

بسم الله الرحمن الرحيم  انا نزلت الكريستال ريبورت الخاص بالفيجوال بيسك 2010  لكن عند تسطيب الكريستال ريبورت الخاص ب 2010 يظهر لى رساله بان فيجوال بيسك 2010 غير موجود  ارجو الحل 

ما الخطئ فى جمله insert into cmdInsH.CommandText = "INSERT INTO invohd VALUES(" + TextBox1.Text + ",'" + DateTimePicker1.Text + "','" + ComboBox1.Text + "'," + txtNam.Text + "'," + txtAddr.Text + "'," + txtPhon.Text + "','" + ComboBox5.Text + "'," + ComboBox6.Text + "','" + ComboBox3.Text + "'," + txtCnam.Text + "'," + txtCq.Text + "'," + txtCnum.Text + "'," + TextBox5.Text + ")"

تم حل المشكله يا شباب والحمد لله