منظم الشعر

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
مررت يوما ببرنامج منظم كتابة أبيات الشعر ... أعجبك
ففكرت أن تنجزه في هذه الدقائق وقتلا للرتابة لنحاول معا

01 - نفتح مشروعا جديدا نضمنه العناصر التالية :

- انبوت 1 و سنخصصه لكتابة الابيات سطرا تحت سطر أو الصدر و تحته العجز وهكذا ....
على أن يكون هذا الانبوت متعدد الاسطر
http://im50.gulfup.com/fCdGDT.png (http://www.gulfup.com/?Zjwaca)

- أنبوت 2 بنفس الخصائص و يكون أكبر حجما من حيث الطول مع التركيز أن تكون فيه الكتابة من اليمين لليسار + متعدد الاسطر

- عنصرComboBox نحقق فيه
http://im50.gulfup.com/U36Jjo.png (http://www.gulfup.com/?1FbeNT)

وندخل في الحدث on select ونكتب :
TextFile.WriteFromString("AutoPlay\\Docs\\Text-value.txt", Input.GetText("Input1"), false);
p = TextFile.ReadToTable("AutoPlay\\Docs\\Text-value.txt");
h = Table.Count(p);
tamer=""
tamer2=""
for i = 1 , h ,2 do
tamer = tamer ..p[i].."\r\n"..p[i+1]..String.Repeat(" ", String.Length(p[i])*2).."\r\n"
tamer2 = tamer2..p[i]..String.Repeat(" ", String.Length(p[i])/2)..p[i+1].."\r\n"
end
if ComboBox.GetText("ComboBox1")=="متدرج" then
Input.SetText("Input2",tamer);
else
Input.SetText("Input2",tamer2);
end





02 - انتهى عاين مشروعك و اذ كان ناجحا ارفع ملفا مفتوحا موضحا أكثر بإضافات من اختيارك .
أكتب الابيات تحت بعضها في الانبوت 1 و اختر من ComboBox كيفية التنظيم
سلام :abc_138:
لنسخ الناتج وظف اضافة الكيبورد

[ياسرهتهت]

وعليكم السلام ورحمة الله وبركاته
شكر لك استاذنا الكريم
علي هذه الافكار التعليمية الرائعة
:abc_152::abc_152::abc_152:
هذا الملف المفتوح للاكواد والفكرة
رائـــــــــ :abc_152: ـــع وممتــــــــ :abc_152: ـــــــاز

http://im72.gulfup.com/xApChG.gif

التحميل
http://www.gulfup.com/?4ZYQf4
-------------------------------------------
موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

بارك الله فيك أستاذ ياسر على الملف المتقن
جزاك الله خيرا

لاحظ أخي أني لازلت أحاول عند اختيار التنسيق المتدرج
يقوم مستعمل هذه المحاولة النسخ ليلصق القصيدة بهذا التنسيق المختار

الاظافة " Clipboard " و النسخ العادي عند اللصق في صفحة ووورد مثلا
أو مستند نصي فلن يظهر التنسيق المتدرج و تظهر الابيات تحت بعضها كما كتبت لأول مرة في الانبوت 1
لكن لو قمنا باللصق في عنصر داخل الاوتوبلاي أنبوت مثلا سيظهر التنسيق لكن المستعمل يريد أن يلصق القصيدة بعد تنسيقها
في مستند .....
جاري التفكير في حل إن شاء الله حتى تكتمل الصورة :abc_138:
شكرا على الملف الجميل

[ثامر أبو بلقيس]

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

لم أجد حلا .... لكن بالتسبة للتنسيق المتدرج - ان صح التعبير -
سأمرره لعنصر grid على شكل كتابة شعرية و من ثمة أحدده و أنسخه ليحقق لصقا منسقا
إن شاء الله :abc_152:

------------------------------
بعد تحميل ملف الأستاذ ياسر
01 - نضيف لتجميعيتنا عنصر grid بالخصائص التالية :
http://im60.gulfup.com/ibkDEm.png (http://www.gulfup.com/?sMLtXU)

02 - هذا العنصر نجعله غير ظاهر لأننا لن نحتاج ظهوره و نجعل بحجم صغير جدا في أي مكان من التجميعية
http://im60.gulfup.com/qV7Akq.png (http://www.gulfup.com/?l0wbYx)

03 - ندخل الى عنصر ComboBox1 ونعوض الاكواد المكتوبة بمايلي :
---
totalRows = Grid.GetRowCount("Grid1")
for k = 1 ,totalRows do
Grid.DeleteRow("Grid1", totalRows-k , true);
end
---
TextFile.WriteFromString("AutoPlay\\Docs\\Text-value.txt", Input.GetText("Input1"), false);
p = TextFile.ReadToTable("AutoPlay\\Docs\\Text-value.txt");
h = Table.Count(p);
-----
numLoopCount = 0;
repeat
numLoopCount = numLoopCount + 1;
Grid.InsertRow("Grid1", -1, true);
until numLoopCount == h;
----------------

if ComboBox.GetText("ComboBox1")=="متدرج" then
for i = 1 , h ,2 do
Grid.SetCellText("Grid1", i-1, 0, p[i], true);
Grid.SetCellText("Grid1", i, 1, p[i+1]..String.Repeat(" ", String.Length(p[i])*2), true);
end
Grid.SelectAll("Grid1");
Grid.EditCopy("Grid1");
end

------------
tamer=""
tamer2=""
for z = 1 , h ,2 do
tamer = tamer ..p[z].."\r\n"..p[z+1]..String.Repeat(" ", String.Length(p[z])*2).."\r\n"
tamer2 = tamer2..p[z]..String.Repeat(" ", String.Length(p[z])/2)..p[z+1].."\r\n"
end
if ComboBox.GetText("ComboBox1")=="متدرج" then
Input.SetText("Input2",tamer);
else
Input.SetText("Input2",tamer2);
end


و أخيرا بعد التجربة و عند اختيار تنسيقا متدرجا للقصيدة
نقوم بعملية اللصق مباشرة في صفحة ووورد مثلا لأن النسخ تم عند الاختيار مباشرة من الـ grid

بالتوفيق :abc_138:
نلتقي بود :abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
اخي العزيز ابو بلقيس
في ورد 2013 ظهرت معي كم في التنسيق
من البداية
فعند الصق نختار المحافظة على تنسيق المصدر
---:abc_152:---
موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

:abc_138:شكرا جزيلا :abc_138:
http://www.gulfup.com/?4cKvjs

[عبود عبود]

نتمنى لكم التوفيق

تحياتى لكم :abc_152:

[ثامر أبو بلقيس]

مرور عطر
جزاك الله خيرا:abc_138:

[ياسرهتهت]

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

[أبو يوسف]

جزاكم الله خيرا جميعا على هذا التعاون

.

[خادم المسلمين]

أقل ما يقال عنك
انك عبقرى ومفكر كبير جدا للاوتو بلاى

http://im76.gulfup.com/rKtT7b.gif (http://www.gulfup.com/?gxg0AE)

[أبو صخر]

خالص الشكر ووافر الامتنان على ما بذلت من جهد :abc_022: موفق بإذن الله ... لك مني أجمل تحية .

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
جزاكم الله خيرا

[ثامر أبو بلقيس]

مرور عطر :abc_138: