• الإعلانات

    • فيصل الحربي

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

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

Tarek Adel Salah

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

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

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

كل شيء نشر بواسطة Tarek Adel Salah

  1. السلام عليكم ورحمة الله وبركاته انا اسف يا اخوانى الاعزاء على انقطاعى فترة عن المنتدى بسبب ظروف العمل اشتقت كثيرا لكم ولهذا المنتدى الرائع منتدى الفريق العربى للبرمجة وددت ان اقدم اليكم برنامج بسيط يحتوى على بعض دوال API الهامة والتى تختص بموضوع شيق وهو كيفية أخذ لقطة من الشاشة Screen Shot وحفظها على جهازك بسهولة ومن خلال هذه الفكرة يمكنك عمل برنامج مراقبة بسهولة اذا كان جهازك يشاركك فى استخدامه افراد اخرين حتى تعرف ماذا كان يحدث على جهازك اثناء غيابك تحياتى ...
  2. بالله عليكم كل هذه الزيارات وعمليات تحميل للملف المرفق ولا يوجد رد واحد الصراحة شىء غير مقبول خاصة انى غايب فترة عن المنتدى ولا يوجد حتى ترحيب لقد تغير حال المنتدى كثيرا
  3. اسهل طريقة فى نقل الملفات بين الاجهزة عن طريق اداة WinSock فى وجهة نظرى فتح الملف المراد نقله للاستخدام الثنائى Open "the path of your file" for Binary AS #1 ويتم فتح الملف للاستخدام الثنائى فى الجهازين ويلى ذلك تخزين بيانات الملف فى متغير من نوع String ثم نقله على دفعات لمراعاة انه قد يكون كبير الحجم 300 ميجا مثلا اذا كنت تريد نقل فيلم او شىء كهذا ويتم ذلك على النحو التالى بالنسبة لجهاز العميل وهو الجهاز المرسل سينقل بيانات الملف على النحو التالى Dim DataChunk As String Do While Not EOF(1) DataChunk = InPut(#1 , 4200) Winsock1.SendData DataChunk Loop الاجراء السابق سيستمر بنقل الملف الى الجهاز المستقبل طالما انه لم يتم الوصول الى نهاية الملف وهو شرط الخروج من التكرار وانا افترضت هنا ان اقصى دفعة يمكن نقلها هى 4200 Bytes ويستمر نقل الملف على دفعات حتى الوصول الى نهاية حجم الملف ولنرى الان كيف سيتم استقبال الملف من الجهاز الاخر Winsock1.GetData Data Put #1, , Data كما يمكن نقل الملف بطريقة اخرى وهى BytesArray ولكنها اصعب والطريقة السابقة تؤدى نفس الغرض وهى الافضل انا اردت ان انقل اليكم الفكرة فقط اعتقد انها واضحة وسهلة للغاية ... دمتم فى رعاية الله
  4. السلام عليكم ورحمة الله وبركاته بالنسبة لحذف ملف او حذف فولدر فان اسهل و اقوى طريقة فى وجهة نظرى هى باستخدام VBScript لان طريقة حذف الملف باستخدام Kill تعتبر غير مضمونة لان الملف قد يكون به خاصية Read-only وبالتالى اذا حاولت ان تمسح الملف بطريقة Kill سيعطيك رسالة خطأ ولن يمكنك اتمام العملية ... المثال التالى يعطيك امكانية مسح ملف او مسح مجلد باستخدام VBScript حتى لو كان بالملف خاصية Read-only Private Sub Command1_Click() 'Delete File Set aa = CreateObject("scripting.filesystemobject") aa.deletefile "the path of your file", True 'Delete Folder aa.deletefolder "the path of your folder", True End Sub
  5. السلام عليكم ورحمة الله وبركاته الاخ العزيز ابو عبير راقب المثال التالى فى كيفية اضافة او تعديل نص فى ملف notepad Open "the path of your file" For Output As #1 Print #1, "عزيزى ابو عبير" print #1, " سوف نلتقى فى الساعة العاشرة مساءا" Close #1
  6. بسم الله الرحمن الرحيم راسلنى احد الاعضاء وطلب منى شرح او مثال عن كيفية انهاء عمل اى برنامج شغال فى Task Manager وانا وددت ان اضع المثال هنا حتى يستفيد باقى الاعضاء الكود التالى سينهى عمل اى برنامج شغال فى Task Manager Shell "cmd.exe /c TASKKILL /IM taskmgr.exe /F" استبدل taskmgr.exe بأسم البرنامج الذى تريد انهاء عمله فى Task Manager والسلام عليكم ورحمة الله وبركاته
  7. ياسلام على الردود معقول الردود دى كلها الحقيقة شىء مشجع
  8. الاخ العزيز رساله الخطأ هذه تدل على ان هناك شىء خطأ فى قاعدة البيانات نفسها وليس فى الكود عليك ان تعيد صياغة العلاقات بين الجدولين وتأكد من ان id هو المفتاح الاساسى فى جدول الملف الشخصى للمرضى من نوع number حيث يتم ربطه بالمفتاح الثانوى فى الجدول الاخر وسيكون الاستعلام من خلال رقم id فى الجدول الاول وعرض نتائج الاستعلام من الجدول الاخر على اساس ان رقم id متساوى فى الجدولين بالطريقة السابقة.
  9. راقب هذا المثال Dim Db As New ADODB.Connection Dim Tb1 As New ADODB.Recordset Private Sub Form_Load() If Db.State = adStateOpen Then Db.Close Db.Open "provider=microsoft.jet.oledb.4.0;data source= your database source" Db.CursorLocation = adUseClient If Tb1.State = adStateOpen Then Tb1.Close Tb1.Open "New_Date", Db, adOpenDynamic, adLockOptimistic End Sub Private Sub Command1_Click() Dim New_Date As Date Dim n As Integer n = 10 For i = 1 To n New_Date = DateAdd("m", i, DateValue(Text1)) Tb1.AddNew Tb1("New_Date") = New_Date Tb1.Update Next i End Sub
  10. جرب هذا الاجراء ..سنستعلم مثلا عن تشخيص حالة مريض عن طريق كود المريض فى جدول البيانات الشخصية للمرضى وعرض النتائج من جدول تشخيص حالة المرضى على اساس ان كود المريض متساوى فى الجدولين Private Sub Command1_Click() Dim ser As String On Error GoTo Not_Found ser = InputBox("من فضلك ادخل كود المريض", "استعلام عن حالة مريض") If ser = "" Then Exit Sub sql = "select person1.id,person.name,person.category,person.disname,person.acute,person.chroni from person1,person where person1.id = person.id and person1.id=" & Val(ser) If rs.State = adStateOpen Then rs.Close rs.Open sql, Conn, adOpenDynamic, adLockOptimistic Form2.fg1.Row = 0 Form2.fg1.Col = 0 Form2.fg1.Text = "كود المريض" Form2.fg1.Col = 1 Form2.fg1.Text = "الاسم" Form2.fg1.Col = 2 Form2.fg1.Text = "نوع المرض" Form2.fg1.Col = 3 Form2.fg1.Text = "تشخيص المرض" Form2.fg1.Col = 4 Form2.fg1.Text = "حاد" Form2.fg1.Col = 5 Form2.fg1.Text = "مزمن" Form2.fg1.Row = 1 Form2.fg1.Col = 0 Form2.fg1.Text = rs("id") Form2.fg1.Col = 1 Form2.fg1.Text = rs("name") Form2.fg1.Col = 2 Form2.fg1.Text = rs("category") Form2.fg1.Col = 3 Form2.fg1.Text = rs("disname") Form2.fg1.Col = 4 Form2.fg1.Text = rs("acute") Form2.fg1.Col = 5 Form2.fg1.Text = rs("chronic") Form2.Show 1 Exit Sub Not_Found: MsgBox "كود المريض غير موجود فى قاعدة البيانات" End Sub
  11. or you can follow this : n = 1 Do While Not rs.EOF fg.Rows = fg.Rows + 1 fg.Col = 1 fg.Row = n fg.Text = rs("name") fg.Col = 2 fg.Row = n fg.Text = rs("phon") fg.Col = 3 fg.Row = n fg.Text = rs("address") fg.Col = 4 fg.Row = n fg.Text = rs("blood") fg.Col = 5 fg.Row = n fg.Text = rs("remaks") rs.MoveNext n = n + 1 Loop