التحدي الكبير

لقد غيرت النقاط الى قيم .. والمثال الذي ارفقته هو عباره عن نفس البرنامج .. ومازل الخط عند الnext >>

حمل الملف المرفق وتاكد ..

لم ترفق الملف

فقط ارسل ما مكتوب على رسالة الخطأ

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

اقتباس

اصنع لي شفرة تكون قاعدة لهذه البيانات. تسهل على المستخدم لهذه الشفرة الوصول لأي معلومة يريدها

و المستخدم هنا حتما سيكون مبرمج ... لذا فما عليه سوى اضافة الكلاس الى مشروعه و انشاء Instance منه و استدعاء فنكشن و هي GetPrayerInfo و عند فتح القوس بعد هذه الفنكشن يظهر له لائحة للصلوات و يختار منها ما يريد ثم ترجع له كل المعلومات الخاصة بهذه الصلاة من اسم و عدد ركعات و النوع (سرية او جهرية) ...

Prayer.rar

س/// هل يستحق هذا الموضوع التثبيت ؟؟؟؟؟

اقتباس

السؤال هو بطريقتين عاوز اضمن ان الكلمة الكتوبة تكون بنفس الخط الى انا كتبته بيه

ممكن تضع الكتابة كصورة

وممكن أيضا أن تضع ملف الـ Font مع البرنامج ويضعه في مجلد الخطوط

اقتباس

اصنع لي شفرة تكون قاعدة لهذه البيانات. تسهل على المستخدم لهذه الشفرة الوصول لأي معلومة يريدها.

ممتاز أخي crazy-man.. الفئة التي صنعتها تفي بالغرض، ولي بعض الملاحظات:

-المستخدم لا يمكنه إلا أن ينادي على getPrayerInfo وهذا جملة طويلة تحوي معلومات كثيرة يحتاج المستخدم إلى تقطيعها للوصول إلى المعلومة التي يريد! وهذا أمر صعب!

-تستطيع حل هذه المشكلة لو جعلت بقية الإجراءات عامة public ليصبح لدى المستخدم خيار أكبر في الوصول لما يريد! مثل rak3atNumber, isJahran

-rak3atNumber ترجع قيمة كلمة String ومن المفترض أن ترجع قيمة رقم!

-isJahran ترجع قيمة String ومن المفترض أن ترجع قيمة Boolean.

-استخدامك لـ Enum شيء رائع حقا يربط المستخدم لإدخال القيم المحصورة، وهذا يؤدي إلى قلة الأخطاء!

-في نظامك، لست بحاجة إلى صنع كائن جديد، لأنك تستطيع أن تجعل جميع هذه الدوال ثابتة أو static.

معلومة: بصراحة لا أدري إن كانت هذه VB أم VB.NET؟!!

________________

هذا حلي: من ميزاته:

1- أمر واحد للوصول إلى جميع الصلوات مرتبة هندسيا هكذا:

اليوم: فيه خمس صلوات

الصلاة: فيها عدد من الركعات، واسم ، وجهرية أم سرية

الركعة: سرية أم جهرية

وبه بعض العيوب!!:

1- بعد أن يكون للمستخدم دالة الصلوات، قد يخطئ وقد يغير اسم الصلاة مثلا أو عدد ركعاتها أو يغير وضعها!!

(يعني أن المستخدم له صلاحة تغيير عدد الركعات مثلا وهذا لا ينبغي)، المستخدم يجب أن يستطيع القراءة فقط دون الكتابة!

هذه الشفرة البسيطة أرجو التعليق عليها!

PrayerStructure.zip

نعم أخي العزيز ملاحظاتك في محلها

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

اقتباس

في نظامك، لست بحاجة إلى صنع كائن جديد، لأنك تستطيع أن تجعل جميع هذه الدوال ثابتة أو static.

نعم صحيح لكن يبدو أن الفيبي . نت أثر علي :)

هذه لا تنفع أبدا لتغيير قيم متغيرين!!

x = x * y
y = x / y
x = x / y

أخي أبو مازن ما هي المشكلة في هذه الطريقة ؟

سؤال تحدي (أيضا بسيط)

اذا اردت طباعة اسمي في text1 فالكود هو text1.text="hisham"

السؤال هو

كيف يمكن ان اطبع علامة التنصيص ( " ) نفسها

الجواب سهل:

Text1.Text="""hisham"""
'أو 
Text1.Text = Chr(34) & "hisham" & Chr(34)

في السطر الأول كل "" (بدون فراغات بينهما) تعادل " (يجب مضاعفتها لأنها وردت ضمن سلسلة محارف)

في السطر الثاني محرف الأسكي ذو الرقم 34 يكافئ quotation mark أي "

أخي أحمد...

إذا كانت إحدى القيم صفرا فلن تعمل الطريقة وقد تنتج خطأ.

اقتباس

أخي أحمد...

إذا كانت إحدى القيم صفرا فلن تعمل الطريقة وقد تنتج خطأ

طقع

اقتباس

طقع

يعنى ايه ؟ :unsure:

abu sabreen كتب:

.

طقع

←

على ما اظن تدل على لطمه او ضربه جامده ..

ولكن هنا الاخ ابو صابرين اعطا لها معنى ايماء الى انها غلطه عويص او كبيره...

جزاك الله خيرًا أخي :: أبو مازن :: على هذه الملاحظة

بالفعل لم أنتبه إلى هذا الخطأ ؟

ملاحظة : نريد تنظيم طريقة طرح الأسئلة ( أو التحديات ) بحيث لا يتم طرح التحدي إلا بعد التأكد من أن التحدي الذي قبله قد تم الإجابة عليه ومناقشة الحلول المطروحة ومن ثم الانتقال إلى التحدي الذي يليه .

نعم و نريد أسئلة تكون في المستوى مش أسئلة .... انتو عارفين حتى تزيد معلومات المشاركين و المشاهدين على حد سواء

المهم اليكم سؤال آخر و هذه المرة حول المصفوفات

نريد عمل برنامج يقوم باعطائنا 200 رقم عشوائي و و نستطيع ترتيب هذه الأرقام على حسب رغبتنا سواء Sort Descending أو Ascending

في المرفقات ستجدون مثال بسيط لما أعني :)

Array.rar

لم يعمل الملف عندي، يقول

The Language DLL 'VB6FR.DLL' could not be found.

الظاهر أني أحتاج تحميل VB6! وليس عندي أي وصلة لتحميله!

.....

أعتقد الانتظار قد يضيع الوقت... خاصة وأن الأعضاء لا يأتون بنظام واحد، فأنا في إجازة حاليا، سآتي أكثر من البعض وقد لا أنتظر رد أحد معين!

لحل المشكلة:

أقترح وضع كل تحدي في موضوع خاص. حتى لا تختلط التحديات.. وإن كثرت التحديات جعلنا لها منتدى خاصا!!

هذا هو الملف مرفق ضعه في system32

اما بالنسبة لوضع كل تحدي في موضوع جديد فأظن انه غير ممكن

VB6FR.rar

لانشاء 200 عدد عشوائيا

dim a(199) as integer,b(199) as integer
private sub form load()
ranomize 
for i=0 to 199 
a(i)= int(rnd*1000)
next
end sub

ثم نريد ترتيبها

for i=0 to 198
for j=1 to 199
if a(i)>a(j) then 
temp=a(i)
a(i)=a(j)
a(j)=temp
end if
next
next

هذا لترتيبها تصاعديا .... ولترتيبها تنازليا نعكس الاشارة في جملة if

حل سؤال أخي Crazy-man تجدونه في المرفقات

وبالنسبة لكثرة عدد صفحات هذا الموضوع.. فسيتم عمل برنامج به قاعدة بيانات لكل 30 تحدي ويتم وضع به الحلول المقدمة من الأعضاء مع المرفقات إذا وجدت.

ومع كل إصدار جديد من البرنامج سيتم إضافة الأسئلة الجديدة عليه وهكذا..

فهل يتبرع أحد الأخوة بعمله معي ؟

==================================

وبالنسبة لحل سؤال نقل نص من متغير إلي أخر بدون استخدام تعبير رياضي داخل البيسيك:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim Str1 As String, Str2 As String, MyArray() As Byte, lLen As Integer
Str1 = "Pharaonic_Guy"
lLen = LenB(Str1)
ReDim MyArray(lLen)
CopyMemory Str2, Str1, lLen
Debug.Print Str2
End Sub

أو

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim Str1 As String, Str2 As String, MyArray() As Byte, lLen As Integer
Str1 = "Pharaonic_Guy"
lLen = LenB(Str1)
ReDim MyArray(lLen)
CopyMemory MyArray(0), ByVal StrPtr(Str1), lLen
Debug.Print MyArray
For I = 0 To UBound(MyArray) Step 2
 Str2 = Str2 & Chr(MyArray(I))
Next I
Debug.Print Str2
End Sub

=================================================

وبالنسبة لسؤال نقل قيمة متغير عددي إلي متغير أخر, فأعتقد أن هذا السؤال قد تكرر في كل منتديات البرمجة العربية وبنفس طرق الحل. وكأنه لا يوجد سؤال رياضي غيره.

وكحل جديد لهذا السؤال يمكننا أيضا استخدام CopyMemory :

Private Sub Command2_Click()

Dim A As Long, B As Long
A = 5000
CopyMemory B, A, 4
MsgBox B

End Sub

Sort random numbers.zip

شكرا للتنبيه ANSI

الخطأ في المشاركة رقم 70 يوجد

end if قبل جملة next

وكذلك في msgbox نسيت ان اغلق القوس "

أخي hishamnasr فرق مشاركتي دقيقتين عنك ..

فلا يأخذك عقلك لأشياء غير كويسة عندما تري حلي ..

علي العموم هذا السؤال من بقايا لغة البيسيك القديمة..

بسم الله الرحمن الرحيم

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

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

فهل يمكنك ان تضع لي شفرة تظهر لي مربع نص يعلمني بمجرد تشغيل البرنامج اذا كنت اشغل البرنامج من خلال الفيجوال بيسك او كبرنامج مستقل؟

حبذا لو كانت لو راعينا بساطة الشفرة و خلوها من الادوات الخارجية او اوامر الاي بي اي !

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