إعـــــــلان

عبد الهادي بهاب · 01-01-2017, 12:53 PM

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

عبد الهادي بهاب · 01-01-2017, 01:06 PM

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

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

هـــــــــــــذا ملف نصي -- ( Text )
يحتوي على اسطر عديده

اريد ادراج الملف النصي في ( ListBox) بحيث
ارقم الاسطر الفردية > 1 . 3 . 5 . 7 الــــــــخ في ( ItemText )

وارقام الاسطر الزوجية > 2 . 4 . 6 . 8 الــــخ في ( ItemData)

بهذا الشكل

كود PHP:


ListBox.AddItem("ListBox1", "الاسطر الفردية", "الاسطر الزوجية");

ما هو الكود لعمل ذالك ؟

الملف النصي في المرفقات للتجربة

موفقين بإذن الله ... لكم مني أجمل تحية .

لفكرة الاولى هو ان نجعل دالة التكرار for تنتقل بمرتين عوض مرة واحدة وهذا باضضافة 2 الى التنقلات

كود PHP:


for i=1,100,2 do

ضع اثنين من اليسبوكس بجانب بعضهم البعض .......
الان سنجعل ليسبوكس الاول يعرض لنا الحكم الانجلزية و اليسبوكس الثاني يعرض الحكم بالعربي
نزرع في زر او في onshow للصفحة هذا الكود

كود PHP:


list = TextFile.ReadToTable("AutoPlay\\Docs\\Text.txt");



for i = 1 , #list ,2 do

ListBox.AddItem("ListBox1", list[i], "");

ListBox.AddItem("ListBox2", list[i+1] , "");

end



ListBox.DeleteItem("ListBox1", 1);

اخر الكود سنحدف سطر من ليسبوكس1 لانه فارغ

**ياسرهتهت ياسرهتهت** · 01-01-2017, 01:15 PM

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

لفكرة الاولى هو ان نجعل دالة التكرار for تنتقل بمرتين عوض مرة واحدة وهذا باضضافة 2 الى التنقلات

كود PHP:


for i=1,100,2 do

ضع اثنين من اليسبوكس بجانب بعضهم البعض .......
الان سنجعل ليسبوكس الاول يعرض لنا الحكم الانجلزية و اليسبوكس الثاني يعرض الحكم بالعربي
نزرع في زر او في onshow للصفحة هذا الكود

كود PHP:


list = TextFile.ReadToTable("AutoPlay\\Docs\\Text.txt");



for i = 1 , #list ,2 do

ListBox.AddItem("ListBox1", list[i], "");

ListBox.AddItem("ListBox2", list[i+1] , "");

end



ListBox.DeleteItem("ListBox1", 1);

اخر الكود سنحدف سطر من ليسبوكس1 لانه فارغ

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

بارك الله فيك

جاري التطبيق
موفق بإذن الله ... لك مني أجمل تحية .

عبد الهادي بهاب · 01-01-2017, 01:23 PM

محاولة اخرى ........قبل كل شيء ارجع الى لمف التكست و احدف السطر الاول لانه فارغ

نضغ ليسبوكس واحد فقط ..........بجانبه paragraph
في onshow نزرع الكود التالي :

كود PHP:




list = TextFile.ReadToTable("AutoPlay\\Docs\\Text.txt");

for i = 1 , #list ,2 do

  if i < #list then

ListBox.AddItem("ListBox1", list[i], list[i+1]);

end

end

الان في اليسبوكس نزرع الكود التالي :

كود PHP:


r = ListBox.GetSelected("ListBox1");

g = ListBox.GetItemData("ListBox1", r[1]);

Paragraph.SetText("Paragraph1", g)

**ياسرهتهت ياسرهتهت** · 01-01-2017, 01:40 PM

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

محاولة اخرى ........قبل كل شيء ارجع الى لمف التكست و احدف السطر الاول لانه فارغ

نضغ ليسبوكس واحد فقط ..........بجانبه paragraph
في onshow نزرع الكود التالي :

كود PHP:




list = TextFile.ReadToTable("AutoPlay\\Docs\\Text.txt");

for i = 1 , #list ,2 do

  if i < #list then

ListBox.AddItem("ListBox1", list[i], list[i+1]);

end

end

الان في اليسبوكس نزرع الكود التالي :

كود PHP:


r = ListBox.GetSelected("ListBox1");

g = ListBox.GetItemData("ListBox1", r[1]);

Paragraph.SetText("Paragraph1", g)

---------------------------------------

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

ممتاز جدا اخي المحترف

فقط ممكن تشرحلي هذا السطر

كود PHP:


for i = 1 , #list ,2 do

انا فاهم ان i = 1 يعني ابد من السطر الاول
و #listعدد الاسطر الكلي في الملف

لكن 2 مش فاهمها المفروض عدد التنقلت ؟؟
ممكن تحاول توضحلي ؟

موفق بإذن الله ... لك مني أجمل تحية .

عبد الهادي بهاب · 01-01-2017, 01:45 PM

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

---------------------------------------

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

ممتاز جدا اخي المحترف

فقط ممكن تشرحلي هذا السطر

كود PHP:


for i = 1 , #list ,2 do

انا فاهم ان i = 1 يعني ابد من السطر الاول
و #listعدد الاسطر الكلي في الملف

لكن 2 مش فاهمها المفروض عدد التنقلت ؟؟
ممكن تحاول توضحلي ؟

موفق بإذن الله ... لك مني أجمل تحية .

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

http://sites.ienajah.com/vb2/showthread.php?t=33299

هه هي الجزئية :

الجزء الأول : الكلمة المحجوزة for :

أولا : يمكن أن يكون التكرار Numeric رقمية أو عددية ويكون بناء هذه الحلقة كالتالى :

كود:

--
for var=exp1,exp2,exp3 do
something
end

هذه الصورة مصغره .. نقره على هذا الشريط لعرض الصوره بالمقاس الحقيقي.
الحلقات التكرارية " repeat while

فى الكود السابق تم وضع متغير إفتراضى " يمكن تغييره بآخر كما تريد " كان المتغير هو "var" يوضع لهذا المتغير من وإلى ومقدار خطوة أو خطوات تنفيذية إما المقدار يكون بالإيجاب أو بالسلب أى زيادة أو نقصان بمعنى إجمالى تم وضع معطيات للتكرار " رسم طريق له "
فإذا أخذنا على سبيل المثال الكود التالى :

كود:

--
for var=1,15,2 do
Dialog.Message("Notice", var, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

إذن فى الكود السابق نطلب تكرارا لمعطيات متغير إسمه "var" كان المعطى الأول هو بداية العملية التكرارية من القيمة العددية أو الرقمية 1
وكان المعطى الثانى هو نهاية العملية التكرارية عند القيمة العددية أو الرقمية 15
وكان المعطى الثالث هو مقدار تحرك أو خطوات التكرار عند القيمة العددية أو الرقمية التقديرية 2 أى مقدار خطوتين فى المرة الواحدة أثناء التكرار
إذن التكرار السابق بدأ من 1 ثم يزيد رقمين إلى هذا الرقم الذى بدأ منه فيكون الناتج هو 3 فى المرة التالية للمرة الأولى
ثم يزيد رقمين على المرة الثانية فيكون الناتج هو 5 فى المرة الثالثة
ثم يزيد رقمين على المرة الثالثة فيكون الناتج هو 7 فى المرة الرابعة
ثم يزيد رقمين على المرة الرابعة فيكون الناتج هو 9 فى المرة الخامسة
ثم يزيد رقمين على المرة الخامسة فيكون الناتج هو 11 فى المرة السادسة
ثم يزيد رقمين على المرة السادسة فيكون الناتج هو 13 فى المرة السابعة
ثم يزيد رقمين على المرة السابعة فيكون الناتج هو 15 فى المرة الثامنة
عندما يصل الناتج إلى الحد أو القيمة التى وضعناها وهى 15 يكون هو نهاية إجبارية للدالة التكرارية .
إذن التكرار تم على ثمانى مراحل نتيجة إعطاء مقدار تحرك للدالة وهو 2
إذن إذا تم تغيير عدد الخطوات أو مقدار تحرك 3 بدلا من 2 سوف تبدأ النتيجة من 1 ثم يتم زيادة 3 للنتيجة فى كل مرة
حتى يصل إلى النتيجة النهائية 13 فيتوقف التكرار عندها لآنة إذا تم زيادة 3 إلى 13 ستكون النتيجة 16 ولكننا وضعنا الحد هو 15 فقط وعلى ذلك لن يتم تنفيذ هذة الخطوة .
ما سبق يمكن تسميتة تكرار تصاعدى بمقدار معين .

تابع الموضوع تجد اسرار اخرى

بالتوفيق

**ياسرهتهت ياسرهتهت** · 01-01-2017, 02:00 PM

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

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

http://sites.ienajah.com/vb2/showthread.php?t=33299

هه هي الجزئية :

الجزء الأول : الكلمة المحجوزة for :

أولا : يمكن أن يكون التكرار Numeric رقمية أو عددية ويكون بناء هذه الحلقة كالتالى :

كود:

--
for var=exp1,exp2,exp3 do
something
end

هذه الصورة مصغره .. نقره على هذا الشريط لعرض الصوره بالمقاس الحقيقي.
الحلقات التكرارية " repeat while

فى الكود السابق تم وضع متغير إفتراضى " يمكن تغييره بآخر كما تريد " كان المتغير هو "var" يوضع لهذا المتغير من وإلى ومقدار خطوة أو خطوات تنفيذية إما المقدار يكون بالإيجاب أو بالسلب أى زيادة أو نقصان بمعنى إجمالى تم وضع معطيات للتكرار " رسم طريق له "
فإذا أخذنا على سبيل المثال الكود التالى :

كود:

--
for var=1,15,2 do
Dialog.Message("Notice", var, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

إذن فى الكود السابق نطلب تكرارا لمعطيات متغير إسمه "var" كان المعطى الأول هو بداية العملية التكرارية من القيمة العددية أو الرقمية 1
وكان المعطى الثانى هو نهاية العملية التكرارية عند القيمة العددية أو الرقمية 15
وكان المعطى الثالث هو مقدار تحرك أو خطوات التكرار عند القيمة العددية أو الرقمية التقديرية 2 أى مقدار خطوتين فى المرة الواحدة أثناء التكرار
إذن التكرار السابق بدأ من 1 ثم يزيد رقمين إلى هذا الرقم الذى بدأ منه فيكون الناتج هو 3 فى المرة التالية للمرة الأولى
ثم يزيد رقمين على المرة الثانية فيكون الناتج هو 5 فى المرة الثالثة
ثم يزيد رقمين على المرة الثالثة فيكون الناتج هو 7 فى المرة الرابعة
ثم يزيد رقمين على المرة الرابعة فيكون الناتج هو 9 فى المرة الخامسة
ثم يزيد رقمين على المرة الخامسة فيكون الناتج هو 11 فى المرة السادسة
ثم يزيد رقمين على المرة السادسة فيكون الناتج هو 13 فى المرة السابعة
ثم يزيد رقمين على المرة السابعة فيكون الناتج هو 15 فى المرة الثامنة
عندما يصل الناتج إلى الحد أو القيمة التى وضعناها وهى 15 يكون هو نهاية إجبارية للدالة التكرارية .
إذن التكرار تم على ثمانى مراحل نتيجة إعطاء مقدار تحرك للدالة وهو 2
إذن إذا تم تغيير عدد الخطوات أو مقدار تحرك 3 بدلا من 2 سوف تبدأ النتيجة من 1 ثم يتم زيادة 3 للنتيجة فى كل مرة
حتى يصل إلى النتيجة النهائية 13 فيتوقف التكرار عندها لآنة إذا تم زيادة 3 إلى 13 ستكون النتيجة 16 ولكننا وضعنا الحد هو 15 فقط وعلى ذلك لن يتم تنفيذ هذة الخطوة .
ما سبق يمكن تسميتة تكرار تصاعدى بمقدار معين .

تابع الموضوع تجد اسرار اخرى

بالتوفيق

-----------------------------------------------------

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

شكر لك وصلت المعلومة

إعـــــــلان

استفســـــار حـــــول ( Text to listbox ) ؟

استفســـــار حـــــول ( Text to listbox ) ؟

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك