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

[ياسرهتهت]

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

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

http://b.top4top.net/p_366t9ani1.png


http://www.abc4web.net/vb/images/icons/joomla.png اريد ادراج الملف النصي في ( ListBox) بحيث
ارقم الاسطر الفردية > 1 . 3 . 5 . 7 الــــــــخ في ( ItemText )

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

بهذا الشكل

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

http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif ما هو الكود لعمل ذالك ؟

http://www.abc4web.net/vb/images/icons/abc00.gif الملف النصي في المرفقات للتجربة


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

[عبد الهادي بهاب]

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

[عبد الهادي بهاب]

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

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

http://b.top4top.net/p_366t9ani1.png


http://www.abc4web.net/vb/images/icons/joomla.png اريد ادراج الملف النصي في ( ListBox) بحيث
ارقم الاسطر الفردية > 1 . 3 . 5 . 7 الــــــــخ في ( ItemText )

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

بهذا الشكل

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

http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif ما هو الكود لعمل ذالك ؟

http://www.abc4web.net/vb/images/icons/abc00.gif الملف النصي في المرفقات للتجربة


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



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

for i=1,100,2 do

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

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 لانه فارغ

[ياسرهتهت]

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

for i=1,100,2 do

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

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 لانه فارغ

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

بارك الله فيك

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

[عبد الهادي بهاب]

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

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



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




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


r = ListBox.GetSelected("ListBox1");
g = ListBox.GetItemData("ListBox1", r[1]);
Paragraph.SetText("Paragraph1", g)

[ياسرهتهت]

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

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



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




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


r = ListBox.GetSelected("ListBox1");
g = ListBox.GetItemData("ListBox1", r[1]);
Paragraph.SetText("Paragraph1", g)

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

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

فقط ممكن تشرحلي هذا السطر for i = 1 , #list ,2 do

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

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

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

[عبد الهادي بهاب]

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

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

فقط ممكن تشرحلي هذا السطر for i = 1 , #list ,2 do

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

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

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



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

http://www.abc4web.net/vb/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 فقط وعلى ذلك لن يتم تنفيذ هذة الخطوة .
ما سبق يمكن تسميتة تكرار تصاعدى بمقدار معين .

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

بالتوفيق

[ياسرهتهت]

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

http://www.abc4web.net/vb/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 فقط وعلى ذلك لن يتم تنفيذ هذة الخطوة .
ما سبق يمكن تسميتة تكرار تصاعدى بمقدار معين .

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

بالتوفيق
-----------------------------------------------------
بسم الله الرحمن الرحيم

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