• الإعلانات

    • فيصل الحربي

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

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

Yousaf_Lnx

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

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

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

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

2 عادي

عن Yousaf_Lnx

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0
  1. DTMF   هيا  Dual-tone multi-frequency     كمبيوتر ارسل: Dtmf Tones جهاز اللاستقبال: Dtmf decoder   فيديو اخر:  http://www.youtube.com/watch?v=1M8usH1n-uY
  2. شكراً علي رد  طريقة البرامج هيا كل ما اكتب بلمفاتيح الاسهم علي PictureBox يرسم خطوط عند ما اضغط علي سهم اعلا اطبع رقم (1) يعني حرك الجهاز اللامام و رقم (2) للخلف و رقم (3) يمين رقم (4) يسار رقم (5) قلم فوق رقم (6) قلم تحت ... عمل متعب جيدُ . اريد تعديل في كود كل ما اكتب في TextBox جهاز اكتب منها. طريقة الكتابة الحالي هيا لو اعمل  خط بطول 1111111111111 خط بلعرض 3333333333  للمربع  11111333332222244444
  3. اسلام عليكم:   عندي مشروع بسيط استخدمت فيها نظام DTMF  مرسل و مستقبل جربت علي ماسحة ضوئية قديمة حولة الي شبه ماكينة CNC و عملت لها برامج خاص بلغة فيجول بيسك. احب اشارك معكم هذا المشروع  واريد بعد التعديل و تطوبر ارجو المساعدة يا اخواني................و شكراً...   ممكن تشاهدون الفيديو : http://www.youtube.com/watch?v=8Ap8vnnspnM   و بعد الصور:
  4. اسلام عليكم مطلوب مساعدة . صراحة هذا كود قوي جيدًا يقراء نص في اي مكان داخل شاشة مثل يقراء داخل انترنت اكسبلورير و لكن ما يقراء ارقام يقراء فقط نصوص ممكن حد يعدل في الكود اشان يقراء ارقام بخلاف بص صراحة انا محتاج جيداً مشروعي ناقص بلا هذا الكود...... ارجو المساعدة شكراً........................................ مثال مرفق GetText.zip
  5. ممكن توضيح اكثر او مثال بسيط شكراً.... انا جربت هذا طريقة نجحت ولكن لو اي جدول فاضي ما تظهر نتيجة Private Sub CmsdTotal_Click() ''''Math 2''''''' On Error Resume Next Data4.RecordSource = "Select * from TableB0" Data4.Refresh Do While Not Data4.Recordset.EOF khany0 = khany0 + Val(Data4.Recordset![dbTB0-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB1" Data4.Refresh Do While Not Data4.Recordset.EOF khany1 = khany1 + Val(Data4.Recordset![dbTB1-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB2" Data4.Refresh Do While Not Data4.Recordset.EOF khany2 = khany2 + Val(Data4.Recordset![dbTB2-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB3" Data4.Refresh Do While Not Data4.Recordset.EOF khany3 = khany3 + Val(Data4.Recordset![dbTB3-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB4" Data4.Refresh Do While Not Data4.Recordset.EOF khany4 = khany4 + Val(Data4.Recordset![dbTB4-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB5" Data4.Refresh Do While Not Data4.Recordset.EOF khany5 = khany5 + Val(Data4.Recordset![dbTB5-5]) Data4.Recordset.MoveNext Loop ''''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB6" Data4.Refresh Do While Not Data4.Recordset.EOF khany6 = khany6 + Val(Data4.Recordset![dbTB6-5]) Data4.Recordset.MoveNext Loop ''''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB7" Data4.Refresh Do While Not Data4.Recordset.EOF khany7 = khany7 + Val(Data4.Recordset![dbTB7-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB8" Data4.Refresh Do While Not Data4.Recordset.EOF khany8 = khany8 + Val(Data4.Recordset![dbTB8-5]) Data4.Recordset.MoveNext Loop '''''''''''''''''''''''''''''''''''''''''''''''' Data4.RecordSource = "Select * from TableB9" Data4.Refresh Do While Not Data4.Recordset.EOF khany9 = khany9 + Val(Data4.Recordset![dbTB9-5]) Data4.Recordset.MoveNext ''' Yousaf = Val(khany9) + Val(khany8) + Val(khany7) + Val(khany6) + Val(khany5) + Val(khany4) + Val(khany3) + Val(khany2) + Val(khany1) + Val(khany0) Text1 = (Yousaf) ''' If Data4.Recordset.EOF Then Exit Sub Loop End Sub
  6. اسلام عليكم عملت قاعدة البيانات يتكون من عشرة الجداول مطلوب اخذ جمع من كل جدول من حقل معين . مثال: GetSumTotal = GetSumTotal + Val(Data4.Recordset![dbTB9-5]) + Val(Data4.Recordset![dbTB8-5]) + Val(Data4.Recordset![dbTB7-5]) + Val(Data4.Recordset![dbTB6-5]) + Val(Data4.Recordset![dbTB5-5]) + Val(Data4.Recordset![dbTB4-5]) + Val(Data4.Recordset![dbTB3-5]) + Val(Data4.Recordset![dbTB2-5]) + Val(Data4.Recordset![dbTB1-5]) + Val(Data4.Recordset![dbTB0-5]) TextWrT4(7) = CInt(GetSumTotal) Data_Sum_work_3.zip
  7. هيا نفس العملية يمكن كود ما يريد اي تغير فكرت يمكن في طريقة اقوةاشان ما يحصل اى غلط في المعادلة شكراً................
  8. اسلام عليكم الأستفسار حول هذا الكود العملية حسابية ؟ حل في طريقة افضل و اضمن من هذا الكود ؟ مطلوب اضمن عملية حسابية لو حد عندة فكرة احسن من هذا. و شكراً.............. مثال: مرفق Test1.zip
  9. الف شكراً يا اخ العزيز الله يعطيك صحة و العاقية صراحة فرحت كثير على رد بهذة السرعة صراحة حليت لي مشكلة شكرأً
  10. اسلام عليكم عملية حسابية كيف ازيل علامة ناقص و خلي صفر في النتيجة ؟ مثال : 5 - 6 = -1 مطلوب: 5 - 6 = 0 الكود: Private Sub Command1_Click() Test1 = (Text2) - (Text1) Text3 = CInt(Test1) End Sub ____________.zip
  11. اسلام عليكم كيف اربط Data Control واحد مع عيدت جداول و مع عدت Dbgrid مفصول عن الاخر؟ و كيف اربط Dbgrid مع Data1 بواسطة الكود ؟ انا جربت هذة الطريقة ولكن ما نجح مثال مرفق. شكراً...................................... Data_Dbgrid.zip
  12. اسلام عليكم سراحة طلب عاجل. في DBGrid كيف اخذ المجموعة من احد الاعمدة ؟
  13. اسلام عليكم اريد قفل او تشفير القاعدة البيانات اشان ما حد ينسخ و يفتح في البرامج اخر مثل Ms access