أمر GoTo في eVB

الزمان · 11-07-2003, 06:30 PM

السلام عليكم ورحمة الله وبركاته

أنا أعمل حالياً على تصميم برنامج للبوكيت بي سي ، وذلك عن طريق لغة VB ببرنامج eVB ، ولكن المشكلة التي أوقفتني هي عدم قدرة eVB على فهم أمر GoTo ، ومما يزيد من تعقيد الأمر هو أنني لا أستطيع الاستغناء عن هذا الأمر في برنامجي هذا ، لأنه برنامج كبير ومعقد ويحتاج للإنتقال ما بين جزء من الكود إلى آخر.

فهل أجد من يساعدني على حل مشكلة الأمر GoTo في eVB ?

انا من انا · 12-07-2003, 07:07 PM

فعلا امر goto غير مدعوم في ال eVb .. لكن ممكن التحايل على الموضوع هذا .. من وحي اللحظه ممكن اعطيك فكره .. اما انك تقسم العمليه الى اكثر من بروسيجر (حتى لو كررت نفس الكود .. يعني ممكن الكود اللي تبي تتوجه له بامر ال goto تكتبه مره ثانيه في بروسيجر جديد) وبعد كذا تنتقل للبروسيجر عن طريق if ستيتمنت او حتى تكرر الكود نفسه وبدال ال goto تنفذ الكود المكرر مباشره .. تكرار الكود في اكثر من بروسيجر ما يمثل مشكله بالعكس ممكن يكون افضل في بعض الحالات لان ال eVb ماتطلع اكسيكيوتبل فايل لكنها تطلع ملف vb يشتغل عن طريق انتربتر وهذا معناته ان كثر الاستدعائات للانتقال من بروسيجر للثاني يخلي التنفيذ ابطأ بينما تكرار الكود يزيد حجم الملف صحيح لكنه يخلي التنفيذ اسرع.

الزمان · 13-07-2003, 01:42 PM

شكراً لك أخي ( أنا من أنا ) على الرد ومحاولة المساعدة بالتحايل ، ولكن المشكلة أن برنامجي ليس من الممكن التحايل عليه بهذه الطريقة فالأمر معقد فهو برنامج كيميائي يعتمد على رموز وحسابات.

عموماً سوف أحاول أن أتحايل عليه فممكن أنجح ولكن مهما يكن فالأمر GoTo مهم جداً وعدم وجوده يعتبر مشكلة كبيرة بالنسبة لي

POCKET PC · 21-07-2003, 02:06 AM

ليش ما تسوي تفرع مشروط ؟؟ بدل Goto

ThE eMpErOr · 02-08-2003, 02:05 AM

Salam

Brother, probably the set of code below can be used instead:

On Error Resume Next
If Err.number <> 0
MsgBox Err.Description, vbCritical, "MyFunction Error"
End if

Hope it helps . let me know of any progress!

Wasallam
Kamal

11-07-2003, 06:30 PM	#1
الزمان عضو مشارك تاريخ التسجيل: 23-10-2002 الدولة: الكويت المشاركات: 156 مشاركات الشكر: 0 شكر 6 مرات في 5 مشاركات	أمر GoTo في eVB السلام عليكم ورحمة الله وبركاته أنا أعمل حالياً على تصميم برنامج للبوكيت بي سي ، وذلك عن طريق لغة VB ببرنامج eVB ، ولكن المشكلة التي أوقفتني هي عدم قدرة eVB على فهم أمر GoTo ، ومما يزيد من تعقيد الأمر هو أنني لا أستطيع الاستغناء عن هذا الأمر في برنامجي هذا ، لأنه برنامج كبير ومعقد ويحتاج للإنتقال ما بين جزء من الكود إلى آخر. فهل أجد من يساعدني على حل مشكلة الأمر GoTo في eVB ?

اخر 5 مواضيع للعضو الزمان
الموضوع	الاقسام	الرد الاخير للعضو	الردود	مشاهده	اخر مشاركة
كيف تستخدم الـ EDGE في الكمبيوتر المحمول؟ سؤال	منتدى الدعم الفني لخدمات الاتصالات والشبكات	ashkanani74	8	1749	12-01-2006 01:05 PM

12-07-2003, 07:07 PM	#2
انا من انا عضو جديد تاريخ التسجيل: 16-06-2003 المشاركات: 8 مشاركات الشكر: 0 شكر 0 مرات في 0 مشاركات	فعلا امر goto غير مدعوم في ال eVb .. لكن ممكن التحايل على الموضوع هذا .. من وحي اللحظه ممكن اعطيك فكره .. اما انك تقسم العمليه الى اكثر من بروسيجر (حتى لو كررت نفس الكود .. يعني ممكن الكود اللي تبي تتوجه له بامر ال goto تكتبه مره ثانيه في بروسيجر جديد) وبعد كذا تنتقل للبروسيجر عن طريق if ستيتمنت او حتى تكرر الكود نفسه وبدال ال goto تنفذ الكود المكرر مباشره .. تكرار الكود في اكثر من بروسيجر ما يمثل مشكله بالعكس ممكن يكون افضل في بعض الحالات لان ال eVb ماتطلع اكسيكيوتبل فايل لكنها تطلع ملف vb يشتغل عن طريق انتربتر وهذا معناته ان كثر الاستدعائات للانتقال من بروسيجر للثاني يخلي التنفيذ ابطأ بينما تكرار الكود يزيد حجم الملف صحيح لكنه يخلي التنفيذ اسرع.

13-07-2003, 01:42 PM	#3
الزمان عضو مشارك تاريخ التسجيل: 23-10-2002 الدولة: الكويت المشاركات: 156 مشاركات الشكر: 0 شكر 6 مرات في 5 مشاركات	شكراً لك أخي ( أنا من أنا ) على الرد ومحاولة المساعدة بالتحايل ، ولكن المشكلة أن برنامجي ليس من الممكن التحايل عليه بهذه الطريقة فالأمر معقد فهو برنامج كيميائي يعتمد على رموز وحسابات. عموماً سوف أحاول أن أتحايل عليه فممكن أنجح ولكن مهما يكن فالأمر GoTo مهم جداً وعدم وجوده يعتبر مشكلة كبيرة بالنسبة لي

21-07-2003, 02:06 AM	#4
POCKET PC عضو جديد تاريخ التسجيل: 26-10-2002 المشاركات: 69 مشاركات الشكر: 0 شكر 0 مرات في 0 مشاركات	ليش ما تسوي تفرع مشروط ؟؟ بدل Goto

02-08-2003, 02:05 AM	#5
ThE eMpErOr عضو جديد تاريخ التسجيل: 01-08-2003 الدولة: United Kingdom المشاركات: 1 مشاركات الشكر: 0 شكر 0 مرات في 0 مشاركات	Salam Brother, probably the set of code below can be used instead: On Error Resume Next If Err.number <> 0 MsgBox Err.Description, vbCritical, "MyFunction Error" End if Hope it helps . let me know of any progress! Wasallam Kamal

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

اعلان