الرجاء المساعدة في هذا الموضوع
عندي نافذة تتكون من الأرقام 0 إلى 9 والحروف من a -f
إذا عدد الأرقام والحروف هو 16
الرجاء المساعدة في كيفيفة ترتيبهم عشوائيا من خلال دالة Rnd
ولكم الشكر
تم تعديل هذه المشاركة بواسطة Xacker في 29 نوفمبر 2005 في 02:14
إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]
جرب التالي وقل لي : فقد كتبته دون التحقق من صحته :
Dim str As String ,ch As String * 1 Dim i As Integer,chIndex As Integer str = "123456789abcdef" Do While i <16 chIndex = Int((16 * Rnd) + 1) ch = ch + Mid(str,chIndex,1) i = i +1 Loop
التخصص : نظم معلومات - جامعة سبأ - اليمن
من مواضيعي :
السلسلة الذهبية في تعلم البرمجة [شرح عن الإجراءات والدوال function وبناء الـ Classes] .
لقد وضعت هذا الكود في زر كوماند ولم يعمل
أرجو التوضيح
وشكرا على الرد
إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]
يمكنك رفع الموضوع القديم -- تجنب تكرار الموضوع مرة ثانية ولا تنسى ان عليك التحلي بالصبر ولو كان الجواب لسؤال ابسط من السابق. (تم حذف القديم وتعديل الحالي)
بالتوفيق
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
بالمناسبة,
ch As String * 1
غيره الى
ch As String
وسيعمل الكود
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هذا الموضوع مغلق.