hanysaad

السلام عليكم اخى jemy man هاحاول اجاوبك على بعض الاسئلة لو كنت تقصد تحريك موتور فى اتجاهين مختلفين فيمكنك استخدام relay لم افهم السؤال ايضا لم افهم السؤال جيدا ولكن عموما , يفضل عند استخدام الparallel port عدم استخدامه كمصدر للبور ولكن تستخدم مصدر بور خارجى وت…

السلام عليكم اخى Maythem Kamal هل تقصد انك تقيس البينات با ستخدام افوميتر؟؟؟ عموما لاحظ ان الـStatus port به البينة الاخيرةS7 معكوسة , وتأكد من ترتيب البينات ولاحظ ايضا ان البينات الظاهرة فى الـStatus port تبدأ من s3 to s7 و اول 3 بيت ليس لها بينات خارجية اى ع…

اكثر من رائع يا حازم :rolleyes: واصل ابداعاتك,,

اخى Amrkhaledccd ما المشكلة؟؟؟ :unsure: ان شاء الله الدرس القادم قريبا ولكنه طويل الى حد ما لذلك يحتاج الى اعداد جيد , وانا مشغول جدا ان شاء الله ساضعه قريبا جدا

:lol: :lol: :lol:

شكرا جزيلا على مواضيعك الشيقة اخى neo

شكرا جزيلا على هذا البرنامج الرائع

ايه هى المشكلة الاهم دى؟؟؟

شكرا جزيلا يا شريف على تعليقك الجميل انا يشرفنى الرد على مثل هذا الموضوع وربنا يوفقك انت وكل الاعضاء ويزيدكم من علمه :rolleyes:

الاخ ناصر والاخت بنت اليمن بارك الله فيكم وجعل هذه الدروس فى ميزان حسناكم :)

شكرا لكم جميعا على الردود والمشاركة :) شكرا جزيلا اخى gaf58 على دعاؤك الجميل وبارك الله فيك :)

شِكرا على ردك يا شريف بالفعل هذا الكود يمكن ان يستخدم للضغط وفك الضغط zipIT = App.Path & "winzip32 -a" unzipIT = App.Path & "winzip32 -e " If zip = True Then Shell (zipIT & target & source) Else: Shell (unzipIT & target & source) End If

شكرا جزيلا اخى شريف على ردك :)

شكرا جزيلا اخى HaithamEgy على ردك وبارك الله فيك

ان شاء الله انا هاشرح الطريقة بتاعتى اللى وعدت بيها ولكن بعد انتهاء الاخ xacker من تقييم الحماية وكمان اكون انا فضيت شوية لانى مشغول جدا هذه الايام وان شاء الله الموضوع سينتهى بافضل صورة ممكنة وسيكون مفيد لنا كلنا وارجو ان تعذروا الاخ / هشام على انشغاله , وعلى…

هذه قائمة بأخطاء فيجوال بيسك والارقام المقابلة لها تفيد عندما يعرض لك الفيجوال رسالة كالتالية Error 3289 فيمكنك معرفة سبب او نوع هذا الخطأ

هذا الكود يستخدم لاظهار نافذة الخطأ البيضاء المخيفة الخاصة بالويندوز Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String) Private Sub Form_Load() FatalAppExit 0, "Contactez le revendeur de…

كود جميل لاستخدم WinZip8 في برنامجك! Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean) zipIT = App.Path & "winzip32 -a" unzipIT = App.Path & "winzip32 -e " If zip = True Then Shell (zipIT & target & source) Else: Shell (un…

ربما يفيدك هذا الكود Private Sub cmdExit_Click() End End Sub Private Sub cmdReadSamp_Click() Dim SamplingRate As Integer Dim FileNum As Integer Dim PathName, FileName ' Get a free file number. FileNum = FreeFile PathName = App.Path If Right(PathName, 1) <> "\"…

السلام عليكم اخى العزيز هشام بالفعل الاخ محمد سألنى قبل ان ينقل الموضوع لقسم الارشيف وانا وافقت لاننى غير قادر على المشاركة فى الوقت الحالى ولم اكن اعلم انك تنوى وضع طريقتك فى الموضوع بالاضافة الى ان الموضوع بدأ ينام من فترة كبيرة ولم تكن فيه مشاركات تذكر علشا…