لاستخراج أرقام صفحات طباعة الكتب

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

السلام عليكم ورحمة الله وبركاته
لطباعة الكتب على صفحيتن و للوجهين
تحتاج لبرمجة تستخرج هذه الصفحات
افتح مشروعا جديدا :
ضمنه العتاصر التالية
ListBox1
ListBox2
هذين العنصرين يمكن فيما بعد إخفائهما
ضف
Input1 وهو الذي ستكتب فيه عدد صفحات الكتاب
وكما هو معروف يكون من قواسم 4
Input2 ستظهر فيه أرقام صفحات الواجه
Input3 ستظهر فيه أرقام صفحات الظهر
بعد الضغط على الزر
الذي ستدرج تحته الكود التالي
وهذا للكتب غير عربيــة
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
ListBox.DeleteItem("ListBox2",LB_ALLITEMS);
x =Input.GetText("Input1");
if Math.Mod(x, 4)==0 then

for i = 1 , x ,2 do
result = ListBox.AddItem("ListBox1", i, "");
end
----
for h = x , 1 ,-2 do
result = ListBox.AddItem("ListBox2", h, "");
end
-----------
p ="";
g=1
f = ListBox.GetCount("ListBox1");
for g =1,x/4 do
m = ListBox.GetItemText("ListBox1", g);
c=ListBox.GetItemText("ListBox2", g);
p=p..m..","..c ..","
end

input_string = p
length = String.Length(input_string);
my_table = {}
for i = 0 , length do
result = String.Mid(input_string, i, 1);
Table.Insert(my_table, i, result);
end
last_letter = my_table[length]
Table.Remove(my_table, length);
for i,v in pairs (my_table) do
finish = Input.GetText("Input2");
Input.SetText("Input2", finish..v);
end
p2 ="";
g2=1
f = ListBox.GetCount("ListBox1");
for g2=f/2+1,x/2 do
m2 = ListBox.GetItemText("ListBox1", g2);
c2=ListBox.GetItemText("ListBox2", g2);
p2=p2..m2..","..c2 ..","
end
input_string = p2
length = String.Length(input_string);
my_table = {}
for i = 0 , length do
result = String.Mid(input_string, i, 1);
Table.Insert(my_table, i, result);
end
last_letter = my_table[length]
Table.Remove(my_table, length);
for i,v in pairs (my_table) do
finish = Input.GetText("Input3");
Input.SetText("Input3", finish..v);
end
else
result = Dialog.Message("Notice", "العدد يكون من قواسم 4", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

لحظات و سأدرج اكواد المخصصة لطباعة كتب اللغة العربية

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

وهذا كود لكتب العربية
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
ListBox.DeleteItem("ListBox2",LB_ALLITEMS);
x =Input.GetText("Input1");
if Math.Mod(x, 4)==0 then
for i = 1 , x ,2 do
result = ListBox.AddItem("ListBox1", i, "");
end
----
for h = x , 1 ,-2 do
result = ListBox.AddItem("ListBox2", h, "");
end
-----------
p ="";
g=1
f = ListBox.GetCount("ListBox1");
for g =1,x/4 do
m = ListBox.GetItemText("ListBox1", g);
c=ListBox.GetItemText("ListBox2", g);
p=p..c..","..m ..","
end

input_string = p
length = String.Length(input_string);
my_table = {}
for i = 0 , length do
result = String.Mid(input_string, i, 1);
Table.Insert(my_table, i, result);
end
last_letter = my_table[length]
Table.Remove(my_table, length);
for i,v in pairs (my_table) do
finish = Input.GetText("Input2");
Input.SetText("Input2", finish..v);
end
--- ÇáÙåÑ
---- g =f/2+1,x/4
p2 ="";
g2=1
f = ListBox.GetCount("ListBox1");
for g2=f/2+1,x/2 do
m2 = ListBox.GetItemText("ListBox1", g2);
c2=ListBox.GetItemText("ListBox2", g2);
p2=p2..c2..","..m2 ..","
end
input_string = p2
length = String.Length(input_string);
my_table = {}
for i = 0 , length do
result = String.Mid(input_string, i, 1);
Table.Insert(my_table, i, result);
end
last_letter = my_table[length]
Table.Remove(my_table, length);
for i,v in pairs (my_table) do
finish = Input.GetText("Input3");
Input.SetText("Input3", finish..v);
end
else
result = Dialog.Message("Notice", "العدد يكون من قواسم 4", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end


وهذا سلامي إلى حين توفر الفرصة و وضع أكواد
من العيار الثقيل :abc_138:

[أبو فارس]

كل هذا من العيار الخفيف

الله يستر من العيار الثقيل

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

وبارك الله في وقتك

[أبو يوسف]

جزاك الله خيرا اخانا أبا بلقيس

:abc_152:

[فرح صالحي]

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

[امل الماضي]

جزاك الله كل خير ووفقك
:abc_152:

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

سررت بمرور الوجوه الطيبة على هذه المشاركة البسيطة :abc_138:

القادم اجمل إن شاء الله :abc_152:

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

سررت بمرور الوجوه الطيبة على هذه المشاركة البسيطة :abc_138:

القادم اجمل إن شاء الله :abc_152:

السلام عليكم

نستمر في اكتشاف الكنوز و احيائها نستفيد منها و سيتفيد منها الاخرون
دائما مع روائع الاستاذ ثامر ابو بلقيس ربي يشفيها

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

http://www.abc4web.net/vb/attachment.php?attachmentid=3077&stc=1&d=1444680654


اكثر من صفحة و بالتالي قد لا يناسبك خاصية الترقيم في الوورد
لذلك
http://www.abc4web.net/vb/attachment.php?attachmentid=3078&stc=1&d=1444680654

الملف المفتوح في المرفقات
حمل و ادع للاستاذ

[abohmam]

جزاك الله خيرا أخى ثامر أبا بلقيس

بارك الله فيك وفى جهودك

والشكر لأخينا المحترف على إضافته ومتابعاته الدائمة

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

بارك الله فيك أخي المحترف على سلسلة المشاركات المفيدة التي تقدمها
من حين لآخر ...وبمعية روح العطاء و الافادة التي ألمحها في شخصك ...
في كل مشاركة لك أجدد ما قلته سابقا أنك بدأت أستاذا في عالم الاوتوبلاي
موفق :abc_138:

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

بارك الله فيك أخي المحترف على سلسلة المشاركات المفيدة التي تقدمها
من حين لآخر ...وبمعية روح العطاء و الافادة التي ألمحها في شخصك ...
في كل مشاركة لك أجدد ما قلته سابقا أنك بدأت أستاذا في عالم الاوتوبلاي
موفق :abc_138:

شكرا جزيلا منكم نتعلم يبق الكثير من الامور التي نتعلمها من حلال فهم الاكواد اكثر و اكثر

[عبدوعزيز]

مشكور جزاك الله خيرا

[محمد سامر]

مشكووووووووووووووووووووور ين