Class PEReader VB6 - العرب المتحدون للهندسة العكسية
  التسجيل   التعليمات   خيارات سريعة   اجعل كافة الأقسام مقروءة
قديم 08-08-2012, بتوقيت مكة المكرمة :08:48 PM رقم المشاركة : ( 1 )
saedaoui
موقوف لمخالفة الشروط

 
saedaoui is on a distinguished road

saedaoui غير متواجد حالياً


Lightbulb Class PEReader VB6


السلام عليكم

قمت ببرمجة هذه class حسب طلب أخونا service manual وأضعه هنا لعله يفيد شخصا ما ... يوجد مع الكلاس مثال بسيط للإستعمال...

دمتم بخير

الملفات المرفقة
نوع الملف: rar Class VPEReader B6.rar‏ (5.5 كيلوبايت, المشاهدات 79)
 
رد مع اقتباس
قديم 08-09-2012, بتوقيت مكة المكرمة :12:10 AM رقم المشاركة : ( 2 )
Service Manual
عضو في - AoRE Team

الصورة الرمزية Service Manual

 

 
Service Manual is on a distinguished road

Service Manual غير متواجد حالياً


افتراضي


شکرا اخي saedaoui و بارک الله فيک

توقيع Service Manual

قُلْ يَا عِبَادِيَ الَّذِينَ أَسْرَفُوا عَلَى أَنفُسِهِمْ لَا تَقْنَطُوا مِن رَّحْمَةِ اللَّهِ إِنَّ اللَّهَ يَغْفِرُ الذُّنُوبَ جَمِيعًا إِنَّهُ هُوَ الْغَفُورُ الرَّحِيمُ


Table for Identification and Selection of Unique Chips


Instant Demo Portable >> AoRE Team

 
رد مع اقتباس
قديم 08-12-2012, بتوقيت مكة المكرمة :12:13 AM رقم المشاركة : ( 3 )
SMP3
.:: VIP Reverser ::.

الصورة الرمزية SMP3

 

 
SMP3 is on a distinguished road

SMP3 غير متواجد حالياً


Smile


شكرا أخي saedaoui على الكلاس
جميل جدا
جزاك الله خيرا

كاضافة : مايكروسوفت تنصح بتجنب استخدام On Error GoTo و استخدام بدائل أخرى مثل Try/Catch
و لقد تم الاستغناء عنها في الدوت نت رغم امكانية استخدامها عبر MS Visual Basic .NET Compatibility library
الا انه ينصح بعدم استخدامها

توقيع SMP3

Open Your Source .. Open Your Mind

 
رد مع اقتباس
قديم 08-12-2012, بتوقيت مكة المكرمة :04:53 AM رقم المشاركة : ( 4 )
saedaoui
موقوف لمخالفة الشروط

 
saedaoui is on a distinguished road

saedaoui غير متواجد حالياً


افتراضي


السلام عليك ورحمة الله وبركاته ، نورت الموضوع بمرورك وبارك الله فيك

اقتباس:
المشاركة الأصلية كتبت بواسطة SMP3 مشاهدة المشاركة

كاضافة : مايكروسوفت تنصح بتجنب استخدام On Error GoTo و استخدام بدائل أخرى مثل Try/Catch
و لقد تم الاستغناء عنها في الدوت نت رغم امكانية استخدامها عبر MS Visual Basic .NET Compatibility library
الا انه ينصح بعدم استخدامها
أنا أستعمل try في c وdelphi و vb.net أو حتى أحيانا في الأسمبلي بدون مشاكل لكن لا أستطيع إستعمالها في فيسوال باسك النسخة السادسة مباشرة لأنها تعليمة غير مكونة له ... ربما أجهل أمر ما، صحح لي إن كنت مخطأ


 
رد مع اقتباس
قديم 08-12-2012, بتوقيت مكة المكرمة :09:40 AM رقم المشاركة : ( 5 )
SMP3
.:: VIP Reverser ::.

الصورة الرمزية SMP3

 

 
SMP3 is on a distinguished road

SMP3 غير متواجد حالياً


Smile


اقتباس:
المشاركة الأصلية كتبت بواسطة saedaoui مشاهدة المشاركة
السلام عليك ورحمة الله وبركاته ، نورت الموضوع بمرورك وبارك الله فيك



أنا أستعمل try في c وdelphi و vb.net أو حتى أحيانا في الأسمبلي بدون مشاكل لكن لا أستطيع إستعمالها في فيسوال باسك النسخة السادسة مباشرة لأنها تعليمة غير مكونة له ... ربما أجهل أمر ما، صحح لي إن كنت مخطأ
مبدئيا لا يمكن استخدام الكتلة try مع الاصدار 6 لا انه يمكن عمل Error Handling و هذا الذي كنت أقصده

هذا مثال سريع : رغم انني لا املك vb6 و عندي زمان لم ابرمج بالفيبي 6 (يعني المثال يحتمل انه خاطئ من ناحية syntax ) لذلك أرجوا ان تجربه

كود PHP:

Public Sub MySub () 
on error goto errx

do somthing 


not_Yet_end 
:

exit 
sub

errx
:

select Case Err.Number

case err1 
'do somthing 1 

case err2
'
do somthing 1 

case else 
msgbox err.description

end select

resume not_Yet_end 
;


end sub 

توقيع SMP3

Open Your Source .. Open Your Mind

 
رد مع اقتباس
قديم 08-12-2012, بتوقيت مكة المكرمة :10:39 AM رقم المشاركة : ( 6 )
saedaoui
موقوف لمخالفة الشروط

 
saedaoui is on a distinguished road

saedaoui غير متواجد حالياً


افتراضي


اقتباس:
المشاركة الأصلية كتبت بواسطة SMP3 مشاهدة المشاركة
مبدئيا لا يمكن استخدام الكتلة try مع الاصدار 6 لا انه يمكن عمل Error Handling و هذا الذي كنت أقصده

هذا مثال سريع : رغم انني لا املك vb6 و عندي زمان لم ابرمج بالفيبي 6 (يعني المثال يحتمل انه خاطئ من ناحية syntax ) لذلك أرجوا ان تجربه

كود PHP:

Public Sub MySub () 
on error goto errx

do somthing 


not_Yet_end 
:

exit 
sub

errx
:

select Case Err.Number

case err1 
'do somthing 1 

case err2
'
do somthing 1 

case else 
msgbox err.description

end select

resume not_Yet_end 
;


end sub 

جزاك الله كل خير ، هذا بالظبط ما فعلته في الدوال التي تحتمل الخطأ في الكلاس إستعملت on error goto

 
رد مع اقتباس
إضافة رد


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
Enum Window Class Styles SMP3 دلفي [Delphi] 2 10-24-2012 بتوقيت مكة المكرمة :04:49 AM


الساعة الآن بتوقيت مكة المكرمة :08:07 AM.