• الإعلانات

    • فيصل الحربي

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

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

البحث في المنتدى

Showing results for tags 'ارسال رسالة للكل'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 31 نتيجة

  1. المطلوب : احبتي  عند  الضغط  على  زر  اضافة  عميل سابق  لا  يظفيف  فاتورة  جديدة  الا  اذا  كانت الفاتورة  الحالية  في حقل الباقي (BAKY)= صفر  اما  اذا  كانت  الفاتورة  الحالية  في حقل  الباقي(BAKY) = اي مبلغ  يظهر  رسالة  الرجاء  تسديد  الفاتورة  السابقة قبل  اضافة  فاتورة  جديدة  للعميل  طبعا  كل  عميل  لة  رقم  عميل  
  2. السلام عليكم عملت برنامج للاجازات على اكسس 2010 عند آخر عمليه لتحزيم البرنامج بواسطه الديفلوبر تظهرلي رساله تقول "حدث خطأ غير متوقع " ثم ينشأ ملف به ملفات التثبيت لكن بعد الضغط على setup. تظهر رساله اخرى تقول : خيار "عرض" غير صالح في ملف الاعدادات. الخيارات الصالحه هي: صامت او (بلا) او اساسي او مصغر او تام  ماذا يقصد بها وكيف اتداركها جزاكم الله خيرا  سأرفق صور الخطأ https://db.tt/yssNFdJ1 https://db.tt/jrVV1WdS بارك الله فيكم
  3. السلام عليكم ورحمة الله وبركاته اخواني الكرام اعضاء ومشرفين المنتدى _ انا عملت برنامج ولكني عند تشغيله يظهر لي الرساله التالية : ? your 30 day trial of macro scheduler has expired.would you like to purchase a license  ما المقصود بهذه الرساله ؟ وما هو هذا المكرو ؟ كيف اتعامل مع هذه الرساله ؟ لانها تعيق وتمنع عمل البرنامج  وكيف اتغلب على هذه المشكلة ؟ (مع العلم أن هذه الرساله لم تكن تظهر لي من قبل ابدا) برجاء المساعدة للأهمية. مع الشكر والتقدير لجميع أعضاء المنتدى وجميع مشرفين المنتدى
  4. السلام عليكم  اريد  ان يعطيني البرنامج رسالة تنبيه قبل انتهاء الصلاحية او في نفس اليوم المراد  الريد شرح مبسط عن طريق الاستعلامات اذا فيه  او التنسيق الشريطي  وشكرا   
  5. السلام عليكم   كيف يمكنني عمل رسالة تنبيه تظهر بشكل تلقائي عندما يقترب موعد تنفيذ عمل ما؛ - حيث المنظومة تعمد إدراج مجموعة من أوامر الأعمال مدرجة برقم أمر عمل وتاريخ استحقاق نفيذه. - أن تقوم الرسالة بالتنبيه قبل 3 أيام من تنفيذ العمل، تنازلياً؛ أي 2 يوم و1 يوم.   شكراً مقدماً      
  6. السلام عليكم   توجد مشكلتان في برنامج المخزن ( الذي تعلمت كيف أصنعه )   المشكلة الأولى : -   عدم ظهور تقرير حركة صنف بين تاريخين بصورة صحيحة   فكما ترى الآن فى الصور اننى أدخلت تاريخين ( لتحديد الاستعلام المسؤول عن بيانات تقرير حركة صنف )  وهما  1 يناير 2010   و   1 يناير  2020       تكون النتيجة تقرير فارغ بدون أي حركات على الصنف       بالرغم من وجود حركات على الصنف ( الموجود في نموذج الاستعلام عن حركة صنف بين تاريخين )  كما هو موضح في فاتورة الشراء التالية       وأيضا إذا قمنا بعمل الاستعلام بين التاريخين  1 يناير 2010   و   31 يناير 2020    تكون النتيجة صحيحة ويخرج لنا تقرير حركة الصنف بطريقة منضبطة  مثل ذلك         ولكننا إذا أدخلنا التاريخين    1 يناير 2010    و    31 يناير 2010    تكون نفس النتيجة السابقة ( بالرغم من عدم وجود بيانات حركات بين هذين التاريخين )       ومن ذلك يتضح لنا أنه يخرج لنا الفترة بين الايام فقط دون النظر الى الشهور أو السنوات للتاريخين       فما هو حل هذه المشكلة حتى تكون نتائج التقرير سليمة وتخرج الحركات بين التاريخين لنفس الصنف طبعا  ؟؟؟!!!!!       المشكلة الثانية : -   ظهور رسالة التنبيه بتخطي الحد الأدنى للصنف مع صنف تعدي الحد الادنى فعلا ثم ظهورها مع كل الاصناف الاخرى فى فاتورة البيع  بالرغم من ان هذه الاصناف لم تتعدى الحد الادنى بالمخزن           فما هي الطريقة الصحيحة لجعل الرسالة تظهر فقط للصنف الذي تعدى الحد الادنى فقط وعدم ظهورها مع باقى الاصناف التى لم تتعدى الحد الادنى بالمخزن  ؟؟؟!!!!!     وجزاكم الله خيرا   مهندس / أحـمـــد
  7. بسم الله الرحمن الرحيم وبه نستعين ارسل عدد ضخم من البريد الالكتروني دون الحاجة الي بيانات ارسال او سيرفر ارسال SMTP ضمان وصول الرسالة inbox بنسبة 95%   شاهد احصائيات الرساله كاملة مفصلة :  عدد البريد المرسل عدد الاشخاص الذين فتحوا الرساله عدد الرسائل الغير مفتوحة عدد الاشخاص الذين الغوا الاشتراك من القائمة سهولة التعامل مع الحساب فقط في اربع خطوات : سجل بالموقع واختار طريقة الدفع فعل حسابك انشيء خطة جديدة اضف القائمة وارسل الرساله مشاهدة المزيد سكربت ارسال الرسائل من شركة الواني رابط السكربت : http://send-emails.owncolors.com/ موقع الشركة : http://www.owncolors.com/   
  8. بسم الله الرحمن الرحيم عند تسطيب السيكوال سيرفر لاول مرة على الحاسوب وبعد عمل الجداول الخاصة بك اذا اردت ان تعدل جدول ما وبعد الحفظ سوف تظهر لك رسالة بـ أنه يجب عليك مسح الجدول وانشائه من جديد ولإلغاء ظهر هذه الرسالة بدون مسح الجدول عمل الاتي:                                                    
  9. السلام عليكم برجاء التكرم منكم بحل المشكلة التالية اريد عند تحميل نموذج الاسماء ان تظهر رسالة تذكير توضح عدد الموظفين .... شاكر لكم حسن تعاونكم ... recorde_count.rar
  10. السلام عليكم   لدي برنامج به نموذج عند إغلاقه تظهر رسالة خطأ لا أعرف مصدرها أرجو المساعدة في إلغائها.   وأيضاً في النموذج ذاته مربع لإضافة صورة موظف ولكن أريدها تكون مدمجه أي مضمنه في نفس النموذج أي ليس لها مسار في مجلد في نفس الجهاز  وذلك لغرض إستعمالها في مشاركتها عبر الشبكه الداخليه .   وجزاكم الله خير     Enjaaaz18for fixing.rar
  11. رسالة خطأ

    السلام عليكم / منتدي الفريق العربي المبدع   object variable or with block variable not set  ارجو من الاخوة الافاضل ايجاد لي حل لهذة الرسالة 
  12. عندي داتا جريد مرتبط بقاعدة بيانات عن طريق BindingSource1 واريد عند الضغط علي زر ادخال الموجود في فور products ان يتم اضافة بيانات الفورم الي سطر جدييد في الداتا جريد وهذة هو البرنامج في المرفق ارجو من الاخوة الا يبخلوا علي اخيهم علما ني استخدمت هذة الطريقة وظهرة رسالةالخطاء   Dim tb As DataTable = New DataTable()        Dim row As DataRow        tb = CType(BindingSource1.DataSource.Tables(BindingSource1.DataMember), DataTable)        tb = DataGridView1.DataSource        row = tb.NewRow        row(4) = TextBox3.Text        row(5) = TextBox3.Text        row(6) = TextBox8.Text        row(7) = TextBox9.Text        tb.Rows.Add(row)رسالة الخطا Unable to cast object of type 'System.Windows.Forms.BindingSource' to type 'System.Data.DataTable'.ولكم جزيل الشكر اخوانيalsahm_program.rar
  13. بسم الله الرحمن الرحيمالسسلام عليكم ورحمة الله وبركاته تحية طيبة وبعد دي اول مشاركة لي واول طلب لي في الموقع الممتاز دة انا صممت برنامج للمكتبة بمساعدة احد الزملاء واقتربت من نهايته ولكن اريد عمل رسالة تنبه بانتهاء مدة الاستعارة وعند الاشارة على احد الاستعارة لا تظهر ( اي عند ارجاع الكتاب لا يظهر المستعير )  مع تعديل نموذج الاستعلام الذي يظهر للطباعة وجزاكم الله خير . مرسل اليكم البرنامج كامل  ولكم جزيل الشكر  للأسف البرنامج بعد الضغط 9 ميجا    دة الرابط ان شاء الله http://up.top4top.net/downloadf-top4top_5c502ebadb1-rar.html
  14. السلام عليكم ورحمة الله   الفكرة برنامج لارسال رسالة نصية المشكلة : عند اختيار القسم من القائمة المنسدلة للتحديد وقراءة جميع العملاء في هذا القسم لارسال الرسالة (ارسال رسالة جماعية) تطهر لي المشكلة   cn.Open() Dim se As String = ("select [staff.ID],[staff.Name],[staff.depar],[staff.Job],[staff.Tel] from Staff where [staff.depar] = '" & ComboBox1.Text & "'") Dim com As New SqlClient.SqlCommand(se, cn) Dim re As SqlClient.SqlDataReader = com.ExecuteReader re.Read() While re.Read() IDS = re.GetValue(0) Name = re.GetValue(1) depar = re.GetValue(2) job = re.GetValue(3) tel = re.GetValue(4) re.Close() Dim enter1 As String = "INSERT INTO ozekimessageout(sender,receiver,msg,operator,status)" & "values ('0918244733','" & tel & "','" & TextBox1.Text & "','Sudani','send') " Dim com2 As New SqlClient.SqlCommand(enter1, cn) com2.ExecuteNonQuery() Dim enter As String = "INSERT INTO MSGDetails([staff.Name],[staff.depar],[staff.Job],[staff.Tel],MSG,date)" & "values ('" & Name & "','" & depar & "','" & job & "','" & tel & "','" & TextBox1.Text & "','" & DateTimePicker1.Text & "') " Dim com1 As New SqlClient.SqlCommand(enter, cn) com1.ExecuteNonQuery() End While MsgBox(" ", MsgBoxStyle.Information, "OK") TextBox1.Text = "" ComboBox1.SelectedIndex = -1 ComboBox1.Focus() cn.Close() End Sub  
  15. اريد معرفة معني الرسالة التي تظهر في الصورة المرفقة؟؟؟؟وهل يوجد خطأ في كود الحفظ المرفق؟؟؟Protected Sub Save_btn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Save_btn.Click         Dim conn As New SqlConnection         Dim cmd As New SqlCommand         Dim reader As SqlDataReader         conn.ConnectionString = "server=.;database=school;trusted_connection=true"         conn.Open()         cmd.CommandTimeout = 500         cmd.Connection = conn         'cmd.CommandText = "insert into student_data_new (national_no,student_name,birth_date,sex,nationality,gov,city,day_t,month_t,year_t,raw,mam_name,dad_job,Kaid_no,tel,address) values (" + nat_no.Text + "," + st_nam.Text + "," + birth_day_txt.Text + "," + sex_combo.SelectedValue + "," + nationality_combo.SelectedValue + "," + birth_place_combo.SelectedValue + "," + birth_city_combo.SelectedValue + "," + od.Text + "," + om.Text + "," + oy.Text + "," + raw_combo.SelectedValue + "," + mom_name_txt.Text + "," + dad_job_txt.Text + "," + kaid_no_txt.Text + "," + tels_txt.Text + "," + address_txt.Text + " )"         cmd.CommandText = "insert into student_data_new (national_no,sex,nationality,gov,city,day_t,month_t,year_t,raw,mam_name,dad_job,Kaid_no,tel,address) values (" + nat_no.Text + "," + sex_combo.SelectedValue + "," + nationality_combo.SelectedValue + "," + birth_place_combo.SelectedValue + "," + birth_city_combo.SelectedValue + "," + od.Text + "," + om.Text + "," + oy.Text + "," + raw_combo.SelectedValue + "," + mom_name_txt.Text + "," + dad_job_txt.Text + "," + kaid_no_txt.Text + "," + tels_txt.Text + "," + address_txt.Text + " )"         reader = cmd.ExecuteReader()         cmd.ExecuteNonQuery()         If reader.Read Then         End If         conn.Close()     End Sub
  16. السلام عليكم ورحمة الله   حملت ملف من هذا الموقع لأحد المشتركين ويقوم بإرسال رسالة إلى البريد الألكتروني ولكن بعد ما قمت بالتعديل عليه تظهر رسالة تم الإرسال ولكن لا يصلني شي إلى بريدي !! مع أن كل التعديلات سليمة , ممكن أحد يصلح الملف .   المرفق الأول هو الملف الأصلي الي يرسل وأستقبلت منه عبر البريد   والمرفق الثاني هو بعد التعديل ولم يتم الإرسال .   يجب إدخال البريد وكلمة المرور في الجدول المخصص أولاً قبل الإرسال  من نوع جي ميل وبدون  @gmail.com       SendEmail ForFixing.rar
  17. السلام عليكم ورحمة الله وبركاته اخوتي واخواتي لدية تقرير اريد ارسال مباشرة الى الايميل كما في الاكسل والورد ارجو المساعدة ان امكن
  18. منذ فترة طويلة تم طرح موضوع من قبل أحد الإخوة بخصوص ارسال رسائل sms عن طريق الأكسيس وقد كان رد من أستاذتنا الكبيرة ( أم عهود ) وقد قامت مشكورة بوضع مثال على ذلك وشرح وافي عن كامل عملية الارسال ..وقد كان هذا الموضوع على هذا الرابط ..هنا   وقد قالت الأستاذة زهرة أن يتم نسخ ملف smscontrol.dll  _ المرفق _ في مجلد system32 في مجلد Windows .. وتسجيلها بالأمر التالي :   regsvr32 "C:\WINDOWS\system32\SmsControl.dll"   وقد قمت بذلك واشتركت عند أحد مزودي خدمة ارسال الرسائل .. وهي شركة saudisms ونجحت التجربة بامتياز  وقد قمت بارسال العديد من الرسائل من خلال الأكسيس ......   ولكن بعد أن قمت بعمل فورمات للجهاز .. وقمت بإعادة كامل الخطوات لم يقبل الويندوز تسجيل الملف smscontrol.dll .. تظهر الرسالة كما في الصورة المرفقة ..    أرجو من الأستاذة الأعزاء حل هذه المشكلة ..               SmsControl.rar
  19. السلام عليكم اود ان اطرح سؤالى على اعضاء الموقع الكرام وارجو منكم مساعدتى   اريد ان اجعل صفحة للتواصل داخل موقع asp.net C#   ويقوم من خلالها الزائر بارسال رسالة الى بريدى الالكترونى وهو ياهووو     عن طريق ثلاث تكست بوكسز احدهما للاسم والثانى للايميل والثالث  للموضوع او الرساله   ماهو الكود الذى يمكننى من ذلك لانى حاولت ولم اصل للكود المطلوب       وارجو منكم الرد  
  20. السلام عليكم اريد مساعدة    فى تطبيق ارسال البيانات من موقع الى الاندرويد يستقبل فيه نص الرسالة واذا لم يتمكن من استلامها لمدة ساعه سيتم ارسالها الى الموقع مرة اخرى
  21. بسم الله الرحمن الرحيم استفسار بسيط اتمنى اجابة لة ....................................................................................................................................................... لدى قاعدة بيانات موضوعة على سيرفر اسمها MDB1  قمت بأخذ نسخة منها واسميتها MDB2 حذفت كافة جداول القاعدة الثانية وربطها بالقاعدة الأولى   واعطيت النسخة الثانية لباقى المستخدمين للعمل عليها فى بحث او ادخل بيانات ....................................................................................................................................................... المشكلة فى حالة التعديل على جداول قاعدة البيانات الأصلية MDB1 يجب على كافة المستخدين ايقاف العمل (عدد المستخدمين اكثر من 50 مستخدم فى اماكن متفرقة ) يصعب الاتصال بالجميع للاغلاق فى حالة اضافة نموذج جديد يجب التنبية على المستخدمين بأخذ نسخة جديدة لايجاد التعديلات ....................................................................................................................................................... المطلوب - طريقة لفصل كافة المستخدمين بزر أو خلافة موجود على القاعدة الأصلية MDB1 - ارسال رسالة للجميع بضرورة الاغلاق للتعديل او لأخذ نسخة جديدة من خلال القاعدة MDB1 الى القاعدة MDb2 ....................................................................................................................................................... وشكرا للجميع
  22. السلام عليكم ورحمة لله وبركاتة     اريد التعديل على كود ارسال رسالة من الجيميل   بحيث استطيع ارسال رسالة من الايميل الخاص بالموقع          هذا هو كود ارسال رسالة من الجيميل  الى المشتركين Public Sub sendMsgToEmail(SubjectMsg As String, bodyMsg As String, toEmail As String) ' Dim client As New SmtpClient("smtp.gmail.com", 587) client.EnableSsl = True client.DeliveryMethod = SmtpDeliveryMethod.Network client.UseDefaultCredentials = False client.Credentials = New System.Net.NetworkCredential("الايميل", "كلمةالسر") Dim mail As String = toEmail Dim msg As New MailMessage(toEmail, mail) msg.Subject = String.Format("{0}", SubjectMsg) msg.Body = bodyMsg client.Send(msg) End Sub-------------
  23. مقدمة كثيرا ما نحتاج الى استخدام الحاسوب لعرض نتائج معينة ترسل من جهاز خارجي او التحكم بجهاز خارجي عبر الحاسوب .او تحسس بحالة جهاز معين وتمرير حالته الى الحاسوب الذي بدوره يحلل الحالة ويأمر الجهاز الخارجي بتنفيذ عمل معين من خلال إرسال أوامر للجهاز الخارجي.مثلا أجهزة التكييف تمرر نسبة هواء الغرفة الى الحاسوب وهو بدوره يرى اذا كانت درجة البرودة اعلى من المطلوب يرسل امر الى المكيف بتقليل نسبة البرودة . او  مثلا التحكم بمروحة نشغلها ونوقفها  عبر الحاسوب  . اي هنا الحاسوب فقط يرسل أوامر تم تعريف معناها لدى الجهاز الخارجي لتنفذ . مثلا في برمجة PIC (الذي يكتب كوده بلغة Micro C )الخاص بجهاز إنارة خارجي مربوط بحاسوب  تم تحديد الرقم 8H لتشغيل الضوء الأخضر على الجهاز الخارجي فعند ارسال 8H بلغة VB.NET الى الجهاز الخارجي عبر المنفذ المربوط عليه الجهاز سوف يعمل الضوء الأخضر في داخله . اي هنا دور لغة VB.NET هي تمرير أوامر  من الحاسوب الى الجهاز الخارجي  وتكون هذه الأوامر معرفة لدى الجهاز الخارجي   او يستلم الحاسوب  بيانات من الجهاز الخارجي  ليحللها ويعالجها سنحتاج الى Cable  يربط بين الحاسوب والجهاز الخارجي ليمرر البيانات بين الطرفين كما في الشكل(1) بالأسفل   طبعا الأجهزة الخارجية ممكن ان تتصل بالحاسوب عبر Serial Port او عبر USB ففي كلا الحالتين يفتح منفذ بين الجهاز والحاسوب لكن في حالة  USB تنتقل البيانات بشكل تسلسلي وسريع و Serial Port  أيضا ينقل بشكل تسلسلي .واغلب الحواسيب الحديثة لا تحتوي على Serial Port وتستخدم USB في إرسال واستلام البيانات   شكل(1) Cable يربط بين حاسوب وجهاز خارجي المنافذ COM & LPT وبما إننا نريد أن نتعامل مع أجهزة خارجية فلا بد من وجود منفذ معين يتصل به هذا الجهاز الخارجي وكل جهاز خارجي يتصل مع الحاسوب يكون له  الحاسوب منفذ معين من خلال هذا المنفذ نستطيع إرسال بيانات للجهاز واستلام البيانات القادمة من الجهاز من خلال هذا المنفذ وتكون أرقام المنافذ بشكل التالي COM وبعده رقم المنفذ مثلا COM3 معناه المنفذ الثالث . ولمعرفة المنفذ الذي سيشغله أي جهاز نفتح  Device Manager من خلال الذهاب إلى  ("Start"? "Run"? "devmgmt.msc") صورة من جهاز LapTop نرى انه يستخدم كثير من المنافذ من اجل تقنية Bluetooth  صورة من حاسبة مكتبية في تبويب Ports (COM & LPT) سوف تظهر لنا المنافذ المستغلة في الحاسوب مثلا هنا حدد COM1  مستخدم من قبل منفذ الاتصال. فعند ربط أي جهاز خارجي بالحاسوب سيظهر هنا اسم الجهاز ورقم المنفذ الذي سيستغله ومن خلال معرفة الرقم الذي يستغله الجهاز الخارجي نستخدم هذا المنفذ في إرسال بيانات له ونستقبل بيانات منه التعامل مع الأجهزة الخارجية في بيئة VB.NET هناك مكتبة خاصة بالتعامل مع الأجهزة الخارجية تحتوي على جميع الأدوات التي سنحتاجها في التعامل مع أي جهاز خارجي  سوف نستدعيها في أي برنامج نتعامل من خلاله مع المنافذ وهي المكتبة التالية   VB.NET CodeImports System.IO.Ports  بما إننا نتعامل مع المنافذ  هناك أداة اسمها SerialPort  تمكنا من الاتصال والتعامل مع الأجهزة الخارجية فيها  فيه كل ما نحتاج إليه     أو نكونها بالكود نعرف  كائن جديد من نوع  SerialPort في التعريفات العامة بشكل التالي    VB.NET CodeDim SerialPort1 As New SerialPort  تطبيق: لدينا جهاز خارجي فيه شاشة عرض يعرض البيانات القادمة من الحاسوب على شاشته .عند ربطه بالحاسوب يأخذ   منفذ COM1 .وهذا الجهاز مبرمج انه يستقبل البيانات بشكل سلسلة نصية لكلي يعرضها على شاشته؟   المطلوب انه نكون برنامج فيه Textbox1 وزر إرسال Button1 ونكتب في Textbox1 بيانات ونضغط إرسال تعرض هذه البيانات على الجهاز الخارجي. وأداة ComboBox1 لعرض جميع منافذ. نكون مشروع جديد كما في الشكل   في البداية نستدعي المكتبة المتخصصة بالتعامل مع المنافذ ونكون كائن جديد من نوع SerialPort  للتعامل من خلاله مع المنفذ وإرسال بيانات إلى الجهاز الخارجي   VB.NET Code Imports System.IO.PortsPublic Class Form1Dim SerialPort1 As New SerialPortEnd Class  لكي نحمل ComboBox1 بجميع منافذ الحاسبة الفعالة في حدث تحميل النافذة Form1_Load نكتب الكود التالي. حيث يعمل أجراء SerialPort.GetPortNames بجلب جميع منافذ الحاسبة الفعالة لكي نعرضها منفذ منفذ داخل اداة ComboBox1  وحتى يسهل لنا اختيار المنفذ المطلوب بكل برنامج   VB.NET CodePrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComboBox1.Items.Clear()For Each Nport As String In SerialPort.GetPortNamesComboBox1.Items.Add(Nport)NextEnd Sub  في زر الإرسال نكتب الكود التالي  .هنا استخدمنا أسلوب يفتح منفذ و بعد كل إرسال يغلق المنفذ نستطيع أيضا فتح المنفذ مرة واحدة واستمرار إرسال البيانات عليه.وسيقوم هذا الكود بإرسال النصوص التي سنكتبها داخل  Textbox1 الى الجهاز الخارجي المربوط على المنفذ الذي سنختاره من ComboBox1   VB.NET CodeTryWith SerialPort1.PortName = ComboBox1.Text.BaudRate = 34800.DataBits = 8.Parity = IO.Ports.Parity.None.StopBits = IO.Ports.StopBits.One.Handshake = IO.Ports.Handshake.NoneEnd WithIf Not (SerialPort1.IsOpen = True) ThenSerialPort1.Open()End IfSerialPort1.DiscardOutBuffer()SerialPort1.Write(TextBox1.Text)SerialPort1.Close()MsgBox("تم ارسال البيانات الى الجهاز الخارجي")Catch ex As ExceptionMsgBox(ex.Message)End Try    كود البرنامج كامل   VB.NET CodeImports System.IO.PortsPublic Class Form1Dim SerialPort1 As New SerialPortPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTryWith SerialPort1.PortName = ComboBox1.Text.BaudRate = 34800.DataBits = 8.Parity = IO.Ports.Parity.None.StopBits = IO.Ports.StopBits.One.Handshake = IO.Ports.Handshake.NoneEnd WithIf Not (SerialPort1.IsOpen = True) ThenSerialPort1.Open()End IfSerialPort1.DiscardOutBuffer()SerialPort1.Write(TextBox1.Text)SerialPort1.Close()MsgBox("تم ارسال البيانات الى الجهاز الخارجي")Catch ex As ExceptionMsgBox(ex.Message)End TryEnd SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComboBox1.Items.Clear()For Each Nport As String In SerialPort.GetPortNamesComboBox1.Items.Add(Nport)NextEnd SubEnd Class        مدونتي http://hussienahmmed.blogspot.com/
  24.  نرجوا المساعدة لمبتدئ  فى الاكسيس     قمت بتصميم برنامج عيادة اسنان  بواسطة برنامج الاكسيس   OFFICE  XP   ونظام التشغيل لدى هو   ويندوز اكس بى  والبرنامج يعمل بكفاءة عاليه على جهازى    قمت باعطاء هذا البرنامج الى طبيب اسنان وقمت بتثبيت نسخة OFFICE XP  على جهاز الكمبيوتر الخاص به علما بان نسخة الويندوز لديه هى WINDIOWS  7      ولكن فؤجئت عن فتح البرنامج للعمل تظهر هذه الرسالة (الرسالة مرفق مع سؤالى هذا )   نرجوا الافادة عن هذا الموضوع