الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]

[WaHdAiN]

كود استيراد ملفات النصوص لم يعمل...كل سطر فيه أكثر من خطأ...
أستعمل VB9 (2008)...

أنا استخدم VB6 كما أسلفت لك سابقاً ^^

[؛ّ نديمك ؛ّ]

شكرا جزيلا بخصوص الشفافية...

أنا استخدم VB6 كما أسلفت لك سابقاً ^^

نعم...وصلتني المعلومة متأخرة...^^...
الكود سهل الفهم وقصير...خسارة...سأحاول إيجاد غيره...
شكرا لمساعدة

[؛ّ نديمك ؛ّ]

سؤال جديد:

خاصية GoTo لا تعمل عندي...أليست مهمتها العودة لسطر ما في الكود؟
عندما أكتب Goto 4 يخرج لي خطأ...

label '4' Is not defined

أرجو حل هذه المشكلة...
أيضا ما الكود لتكرار عملية ما؟...

[قلب جامح]

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

عندي سؤال محيرني ...

نزلت برنامج لتحميل الفيديو من اليوتيوب بصيغ مختلفة زي صيغة
الpsp ..

اسمه ( FreeYouTubeToiPodConverter) .. وحملت كم فيديو
وتم تحويلهم بنجاح لصيغة mp4

لكن لما نزلت الفيديو على جهازي psp في ملف الفيديو _ يطلع لي صورة ملف عليه استفهام ويكتب

( un Unsupported data) .. ايش الحل .. ايش اسوي ؟؟ ..

[؛ّ نديمك ؛ّ]

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

عندي سؤال محيرني ...

نزلت برنامج لتحميل الفيديو من اليوتيوب بصيغ مختلفة زي صيغة
الpsp ..

اسمه ( FreeYouTubeToiPodConverter) .. وحملت كم فيديو
وتم تحويلهم بنجاح لصيغة mp4

لكن لما نزلت الفيديو على جهازي psp في ملف الفيديو _ يطلع لي صورة ملف عليه استفهام ويكتب

( un Unsupported data) .. ايش الحل .. ايش اسوي ؟؟ ..

الحقيقة أختي أن هذا ليس المكان الصحيح لسؤالك...اطرحي السؤال هنا:
[-● اطلب واسأل واستفسر ، وبإذن الله سنجيبك•9• ◘ يمنع عرض التوقيع ◘ ●-]–~إضافات جديدة~ نرجوا القراءه

[الرجل الطيب]

شباب أنا عندي مشكلة
أنا أستخدم ويندوز 7
ولما ركبت الفيجول بيسك
إشتغل معاي
ولكن بعض الخصائص لا تعمل مثل :
خاصية right to left
لا أستطيع إختيار true فقط false
ممكن جواب
والله يجزاكم خير

بإنتظاركم

[؛ّ نديمك ؛ّ]

شباب أنا عندي مشكلة
أنا أستخدم ويندوز 7
ولما ركبت الفيجول بيسك
إشتغل معاي
ولكن بعض الخصائص لا تعمل مثل :
خاصية right to left
لا أستطيع إختيار true فقط false
ممكن جواب
والله يجزاكم خير

بإنتظاركم

كانت نفس المشكلة لدي مع فيجول بيسك6 على ويندوز7...
لا أعرف السبب الحقيقة...

[الرجل الطيب]

طيب
إيش الحل ؟
نغير الإصدار ولا نغير النظام ؟

طيب
لو ركبنا البرنامج الذي إسمه XP MODE
هل ينفع أم لا ؟

[؛ّ نديمك ؛ّ]

طيب
إيش الحل ؟
نغير الإصدار ولا نغير النظام ؟

طيب
لو ركبنا البرنامج الذي إسمه XP MODE
هل ينفع أم لا ؟

الحقيقة لا أعرف...
لكن الحال الآن مع ويندوز XP طبيعي بدون مشاكل...

[المارد الأبيض]

مشكور أخي

[WaHdAiN]

خاصية GoTo لا تعمل عندي...أليست مهمتها العودة لسطر ما في الكود؟
عندما أكتب Goto 4 يخرج لي خطأ...

الكود شغال معي تمام

جرب تغيير رقم 4 بكلمة بدل ارقام وإذا مازالت نفس المشكلة قم بتعريفه كمتغير String

ربما كان هذا حلا ^^"

أيضا ما الكود لتكرار عملية ما؟...

كود تكرار عملية لعدد معين من المرات هو

For wahdain = 1 To 10
MsgBox wahdain, vbInformation
Next wahdain

قم بتغيير الرقم 10 لعدد مرات التكرار التي تريد ^_^

أما لتكرار الكود إلى مالا نهاية

Do
DoEvents
MsgBox "WaHdAiN", vbInformation
loop

مابين Do و loop يتم تكراره إلى مالا نهاية

أما الدالة DoEvents ففائدتها تقليل تعليق (تهنيق) البرنامج اثناء فترة عمل التكرار

[؛ّ نديمك ؛ّ]

الكود شغال معي تمام

جرب تغيير رقم 4 بكلمة بدل ارقام وإذا مازالت نفس المشكلة قم بتعريفه كمتغير String

ربما كان هذا حلا ^^"

أكتبها Four مثلا؟...جربت الآن ولم أفلح...
لم أفهم كيف أعرف السطر كـString؟

شكرا على كود التكرار...
لكن كيف يكرر حتى الحصول على ناتج معين ويتوقف؟...بدون تحديد عدد تكرار أو تركها مفتوحة...

س/
كيف أعطي أمر للبرنامج بأن يبحث داخل قاعدة بيانات في البرنامج (أداة DataGridView) عن نص معين ويأتيني باسم الخلية الخاوية لذلك النص؟

[ام برق]

× مرحبــآ ×


مدري إذآ المكآن هنآ صح ولـآ لـأ ؟!
أنـآ أبغـآ برنـآمج " الـفوتــوشـوب " مـآأدري أي الإصـدآرآت أفـضل !!
المهم يكون ـ عربــي ـ !



أنتظركـمـ ..

[؛ّ نديمك ؛ّ]

× مرحبــآ ×


مدري إذآ المكآن هنآ صح ولـآ لـأ ؟!
أنـآ أبغـآ برنـآمج " الـفوتــوشـوب " مـآأدري أي الإصـدآرآت أفـضل !!
المهم يكون ـ عربــي ـ !



أنتظركـمـ ..

للأسف المكان هنا:
[-● اطلب واسأل واستفسر ، وبإذن الله سنجيبك•9• ◘ يمنع عرض التوقيع ◘ ●-]–~إضافات جديدة~ نرجوا القراءه...
ولكن تفضلي:
حصرياً Photoshop CS4 Middle Eastern آخر اصدار فوتوشوب 11 برابط واحد سريع

[إسلام 2006]

Eye Code

شكرا لك لمتابعتك الدائمة للموضوع وردودك على الأعضاء

طيب
إيش الحل ؟
نغير الإصدار ولا نغير النظام ؟

طيب
لو ركبنا البرنامج الذي إسمه XP MODE
هل ينفع أم لا ؟

أخي ان كنت مصرا على استخدام الإصدار السادس من فيجوال بيسك فقم بتغيير نظام التشغيل الى اكس بي، أما لو كنت متمسكا بنظام تشغيل ويندوز 7 وتريد استخدام فيجوال بيسك 6 فجرب أولا أن تقوم بتغيير خاصية ال compatibility الموجودة في ويندوز 7

وذلك بأن تضغطل كيك يمين على ايقونة تشغيل فيجوال بيسك 6 بعد تنصيبه على ويندوز 7 ثم اختار properties

بعدها اختر قائمة compatibility

ستجد مربع مكتوب بجانبه run thins program in compatibility mode for:

ضع عليها علامة صح واختر من القائمة الموجودة windows xp sp2 كما في الصورة:



ان لم تفلح الطريقة قم بتحميل برنامج virtual pc وقم بتنصيب ويندوز اكس بي عليه وبرنامج فيجوال بيسك 6 واعمل من خلاله

يمكنك تحميله مجانا من هنا:

http://www.microsoft.com/windows/virtual-pc/

مشكور أخي

عفوا أخي وشكرا لك

أكتبها Four مثلا؟...جربت الآن ولم أفلح...
لم أفهم كيف أعرف السطر كـString؟

شكرا على كود التكرار...
لكن كيف يكرر حتى الحصول على ناتج معين ويتوقف؟...بدون تحديد عدد تكرار أو تركها مفتوحة...

س/
كيف أعطي أمر للبرنامج بأن يبحث داخل قاعدة بيانات في البرنامج (أداة DataGridView) عن نص معين ويأتيني باسم الخلية الخاوية لذلك النص؟

هل قمت بكتابة label معين أولا حتى تستطيع العودة اليه باستخدام أمر Goto لأنك لم تذكر هذا الأمر؟

ثانيا ان كنت قد فعلت فربما يجب ألا يكون هذا ال label رقما فقط، بل تحتاج الى كتابة حروف أولا ثم رقم، هذا هو ما يقصده مازن بأن يكون اسم ال label من نوع string

طريقة كتابة ال label تكون بكتابة اسمه ثم وضع نقطتين فوق بعضهما (

مثال:

Start_Label:

<أسطر الكود الخاصة بك>

GoTo Start_Label

بالنسبة للتكرار يمكن ايقافه بوضع نص شرطي يكون ناتجه أمر GoTo أيضا

اي كما في المثال السابق الذي وضعته لك تكتب مثلا تحت <أسطر الكود الخاصة بك> الجملة الشرطية مثل مثلا:

If i = 5 Then
GoTo Exit_Label

وتضع ال label المسمى Exit_Label تحت سطر GoTo Start_Label الموجود في المثال السابق

هذه طريقة

وهي ليست طريقة مستحبة أبدا، بل ان استخدام أمر GoTo في حد ذاته غير مرغوب فيه، فهو يجعل الكود متشعب جدا يصعب متابعته، فأنت فيه تتقافز من سطر الى اخر بطريقة سيئة كافية جدا لأن تفقد تركيزك في حال حدوث خطأ ما وأردت أن تحاول اصلاحه بتتبع الكود

أمر GoTo هو من الأوامر القديمة جدا وكان يستخدم في الإصدارات الاولى في لغات البرمجة وهو من الأوامر التي يفضل دائما ألا تستخدم إلا في حالة الضرورة القصوى فقط

لكن يستعاض عنه بأوامر أخرى مثل For في حالة كان عدد التكرار معروفا أو بأوامر أخرى مثل While أو do while في حالة كان عدد التكرار غير معروف

والفرق بين While أو do while أن الأولى توضع للتأكد من شرط معين قبل البدئ في الأسطر التي سوف تتكرر بينما الأخرى نستخدمها اذا كنا نريد مثلا تنفيذ كود معين لمرة واحدة على الأقل قبل التأكد من الشرط الذي سيحدد هل سنقوم بعملية التكرار أم لا

مثال:

لو أردنا مثلا عمل برنامج يحسب مساحة المربع وبعد أن يقوم بحساب المساحة يقوم بسؤال المستخدم هل يريد ان يحسب مساحة مربع اخر ام لا

فإننا في هذه الحالة نريد تنفيذ كود حساب مساحة المربع مرة واحدة على الأقل قبل التأكد من المستخدم مما ان كان يريد القيام بذلك مرة أخرى ام لا، لذا في هذه الحالة نستخدم do while

مثال اخر:

لدينا متغير اسمه i وهذا المتغير قيمته غير معروفة وتتغير باستمرار ويجب علينا التأكد من قيمته دائما بعدد غير محدود من المرات، بل يجب علينا التأكد من قيمته قبل أن نبدأ باستخدامه أصلا بحيث لو كانت قيمته = -1 فإن البرنامج يقوم بالخروج

اما ان كانت قيمته غير ذلك فيجب علينا أن نقوم بطرح 1 منه مثلا

في هذه الحالة نحتاج الى استخدام while حتى نتأكد اساسا من قيمة -1 قبل ان نقوم بطرح الواحد منه

ما يدرينا ربما تكون قيمة i من الأصل = -1 وفي هذه الحالة لا نحتاج أصلا لأن نقوم بالطرح منه

لذا لا يصلح هنا استخدام do while لأننا لو استخدمناها سيقوم الكود بطرح واحد من قيمة i مرة على الأقل قبل التأكد من قيمة i، فلو كانت قيمة i من البداية = -1 فهذا يعني اننا سنطرح منها 1 مرة أخرة وستصبح قيمتها في هذه الحالة -2 وهو أمر لا يجب السماح به أصلا

أتمنى أن يكون شرحي واضحا فقد كتبته سريعا، ان لم يكن مفهوما أخبرني وسأحاول شرحها بطريقة أخرى ^_^

[ام برق]

للأسف المكان هنا:
[-● اطلب واسأل واستفسر ، وبإذن الله سنجيبك•9• ◘ يمنع عرض التوقيع ◘ ●-]–~إضافات جديدة~ نرجوا القراءه...
ولكن تفضلي:
حصرياً Photoshop CS4 Middle Eastern آخر اصدار فوتوشوب 11 برابط واحد سريع

أعتذر لصآحب الموضوع ..
وأشكرك جدآ Eye Code على الرد + الرآبط ..
يعطيك العــآفيه =)

[~ MissCloud ~]

الســلآم عليكم جميعاً..

لي سؤال عن برنـامج أثري نوعاً للغات البرمجة..

البرنـامج اسمه : qbasic..

تحديداً بالـ loops..

ما هي " بشرح وافي ومبسط في آنٍ واحد " الصياغة المُدخلة لبرنامج لإخراج الناتج التالي :

1
2 2
3 3 3
4 4 4 4
5 5 5 5 5

على اعتبار أن دورة العملية من 1 إلي 5..تزداد إذا ازدادت الدورة بنفس النمط التسلسلي..

بدون فكرة كتابة الناتج على طريقة print.. وعلى اعتبار أن الرقم يدخل بواسطة المُستخدم ؟

وجزى الله كل خير من يساعدني.

أتوقف عند هذا القدر.

كلآود

[WaHdAiN]

أهلا بعودتك إسلامو , شكرا لردك ^_^
================================================== ============

الســلآم عليكم جميعاً..

لي سؤال عن برنـامج أثري نوعاً للغات البرمجة..

البرنـامج اسمه : qbasic..

تحديداً بالـ loops..

ما هي " بشرح وافي ومبسط في آنٍ واحد " الصياغة المُدخلة لبرنامج لإخراج الناتج التالي :

1
2 2
3 3 3
4 4 4 4
5 5 5 5 5

على اعتبار أن دورة العملية من 1 إلي 5..تزداد إذا ازدادت الدورة بنفس النمط التسلسلي..

بدون فكرة كتابة الناتج على طريقة print.. وعلى اعتبار أن الرقم يدخل بواسطة المُستخدم ؟

وجزى الله كل خير من يساعدني.

أتوقف عند هذا القدر.

كلآود

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

بدون فكرة كتابة الناتج على طريقة print

لم أفهم هذه النقطة جيدا , كيف تريدي ان يخرج الناتج إذا؟ ^^"

على كل هذا هو كود العملية التي طلبتيها وإن شاء الله يكون واضح

Dim inside, outside ' تعريف متغيرات البرنامج

For outside = 1 To user_entry

  For inside = 1 To outside
   Print outside; ' الكتابة على نفس الخط
  Next inside
  
Print 'خط جديد

Next outside

غيري user_entry إلى متغير إدخال المستخدم

أي نقطة ليست واضحة في الكود سأقوم بشرحها بإذن الله

[shekoforever]

أهلا بعودتك إسلامو , شكرا لردك ^_^
================================================== ============

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


لم أفهم هذه النقطة جيدا , كيف تريدي ان يخرج الناتج إذا؟ ^^"

على كل هذا هو كود العملية التي طلبتيها وإن شاء الله يكون واضح

Dim inside, outside ' تعريف متغيرات البرنامج

For outside = 1 To user_entry

  For inside = 1 To outside
   Print outside; ' الكتابة على نفس الخط
  Next inside
  
Print 'خط جديد

Next outside

غيري user_entry إلى متغير إدخال المستخدم

أي نقطة ليست واضحة في الكود سأقوم بشرحها بإذن الله

على ما أعتقد فى QBasic يمكت تعديل بسيط على الكود ليصبح هكذا:

Input "Enter a number: ",N
For outside = 1 To N
    For inside = 1 To outside
        Print outside;
    Next inside
    Print
Next outside

يمكن عمل تلك الحركة فى روبى بنفس فكرة التكرار و لكن أيضاً يمكن ذلك بسطرين (يعتبروا سطرا واحد)!

print "Enter a number: "
(1..gets.to_i).map{|i| puts "#{i} "*i}

هكذا هى اللغات الحديثة

[Abo Khalid]

سؤال جديد:

خاصية GoTo لا تعمل عندي...أليست مهمتها العودة لسطر ما في الكود؟
عندما أكتب Goto 4 يخرج لي خطأ...

اقتباس:
label '4' Is not defined
أرجو حل هذه المشكلة...
أيضا ما الكود لتكرار عملية ما؟

أهلاً حسام (: ..

بالنسبة للمشكلة الأولى .. فهذا مثال توضيحي باستخدام ال FORTRAN ..

A=5
 B=3
 IF(A.GT.B) GOTO 4   
  IF(B.GT.A)  GOTO 5
 4 SUM=A+B
5 SUM=A-B

طبعًا هنا ستكون قيمة SUM 8 لأنها تحقق الشرط ..

label '4' Is not defined

أعتقد بأنك لم تضع الرقم 4 قبل السطر الذي تود الإنتقال إليه ..

أيضا ما الكود لتكرار عملية ما؟

هو ال Loop وأعتقد أن أخي محمد قد أجابك على السؤال ..

لذا لا يصلح هنا استخدام do while

أهلا محمد ..

هل تتحداني أن أستخدم ال DO WHILE في هذه الحالة ؟

برأيي .. يمكن استخدامها في هذه الحالة .. " class="inlineimg" />

بالتوفيق ..