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

محمد بن أحمد أبو حذيفة · 26-08-2017, 09:03 AM

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

أو : لا تحذف شيء من اليست بوكس خليه كما كان

لكن احذف السطر الأول و الثاني المكتبوبين في التايمر
هاهما سبب المشاكل

[html]File = String.SplitPath("CD_Root\AutoPlay\Audio");
Label.SetText("status", "Now Playing: "..File.Filename);
[/html]و اكتب الكود السابق في زر تحميل شريط الحالي
[html] num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, "C:\\"..y.."\\", true, true, false, true, nil);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end[/html]

بارك الله فيك ورحمك الكود يعمل بشكل جيد لكن اردت التعديل عليه لاجعل المستخدم يحدد مكان حفظ المجلد لكن وقع معي خلل
http://sites.ienajah.com/vb2/showpost.p...1&postcount=30

**ثامر أبو بلقيس ثامر أبو بلقيس** · 26-08-2017, 10:28 AM

عد لآخر الصفحة السابقة وجرب الكود ثانية

موفق

محمد بن أحمد أبو حذيفة · 26-08-2017, 12:25 PM

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

عد لآخر الصفحة السابقة وجرب الكود ثانية

موفق

بارك الله فيك ورحمك
كما تعمل المستخدم هو من يقوم بتفريغ المواد الصوتية ويحفظها
الحفظ يكون في مجلد الأسطوانة ويتم استدعائه إن وجد عند التحديد من اليست بوكس
لكن ماذا لو لم يوجد ملف التفريغ هل ممكن أن نستدعي ملف تفريغ افتراضي

الملف المفتوح الاخير

**ثامر أبو بلقيس ثامر أبو بلقيس** · 26-08-2017, 01:56 PM

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

بارك الله فيك ورحمك
كما تعمل المستخدم هو من يقوم بتفريغ المواد الصوتية ويحفظها
الحفظ يكون في مجلد الأسطوانة ويتم استدعائه إن وجد عند التحديد من اليست بوكس
لكن ماذا لو لم يوجد ملف التفريغ هل ممكن أن نستدعي ملف تفريغ افتراضي

الملف المفتوح الاخير

لم أفهم وأجد صعوبة في بناء كود فكرته قد تعرفها أنت أفضل من غيرك (قربك لبيئة العمل تتيح ذلك)

قد يفهم أحد الزملاء الطلب ويجيب إن شاء الله

محمد بن أحمد أبو حذيفة · 26-08-2017, 02:35 PM

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

لم أفهم وأجد صعوبة في بناء كود فكرته قد تعرفها أنت أفضل من غيرك (قربك لبيئة العمل تتيح ذلك)

قد يفهم أحد الزملاء الطلب ويجيب إن شاء الله

بارك الله فيك اتعبتك واسال الله ان يجعلك تعبك هذا راحه يوم القيامة
الفكرة بسيطة

عند تحديد ملق صوتي مناليست بوكس مثلا رقم واحد تتم قرائت في الميديا بلاير
بالمقابل يوجد لنفس الملف الوصتي رقم واحد ملف نصي يعرض في البراقراف

ايضا يوجد ملف صوتي رقم 2 نححد وتتم قرائته في الميديا بلاير
لكن لا يوجد له ملف نصي لنعرضه

فهل ممكن في هذه الحالة عرض ملف نصي افتراضي

**ياسرهتهت ياسرهتهت** · 26-08-2017, 02:58 PM

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

بارك الله فيك اخي ياسر
قدم الاخ ثامر هذا الكود

[HTML]num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
Folder.Create("C:\\"..full_name);
TextFile.WriteFromString("C:\\"..full_name.."\\".. Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, "C:\\"..y.."\\", true, true, false, true, nil);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

[/HTML]

وهو يعمل جيدا

لكن ارت ان اجعل المستخدم هو من يحدد مكان حفظ المجلد حاولت بهذا الكود لكن لم ينحج يحفظ التفريغ فقط

الكود
[HTML] num = ListBox.GetSelected("ListBox1");
if num~=nil then
SONG = ListBox.GetItemData("ListBox1", num[1]);
y = ListBox.GetItemText("ListBox1", num[1]);
t = Dialog.FolderBrowse(": من فضلك قم بتحديد مكان الحفظ للملف ", _DesktopFolder);
full_name = Dialog.Input("Welcome", "Please enter your full name:",y);
--StatusDlg.Show(MB_ICONNONE, false);
Folder.Create(t.."\\"..full_name);
TextFile.WriteFromString(t.."\\"..full_name.."\\". .Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);
File.Copy(SONG, t.."\\"..full_name, true, true, false, true, copy);
--File.Copy(result.."\\*.*", t.."\\"..name, true, true, false, true, copy);
else
Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
[/HTML]اين الخلل

بارك الله فيكم جميعا على سعت صدركم وصبركم على تعليمنا

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

ضع هذا في زر الحفظ

كود PHP:


num = ListBox.GetSelected("ListBox1");  

if num~=nil then

SONG = ListBox.GetItemData("ListBox1", num[1]);   

y = ListBox.GetItemText("ListBox1", num[1]);

full_name = Dialog.Input("Welcome", "Please enter your full name:",y);

msar = Dialog.FolderBrowse("Please select a folder:", "");



Folder.Create(msar..full_name);

TextFile.WriteFromString(msar..full_name.."\\"..Paragraph.GetText("Paragraph1")..".txt", RichText.GetText("RichText1", false), false);

File.Copy(SONG, msar..y.."\\", true, true, false, true, nil);

else

Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

----------
فقط تم اضافة مربع حوار لتحديد مجلد ليكون الحفظ فيه وكذا يكون المستخدم هو من حدد المسار ( msar )

------------
اما بخصوص الملف الافتراضي نضع في Docs نسمية ( الافتراضي )
ويصبح الكود في اليست بكس هكذ

كود PHP:


num = ListBox.GetSelected("ListBox1");  

SONG = ListBox.GetItemData("ListBox1", num[1]);  

MediaPlayer.Load("media_player", SONG);  



Button.SetVisible("Btn_Pause", true);

Button.SetVisible("Btn_Play", false);

--Page.StartTimer(1);    

  

Progress.SetRange("Progress0", 0, Audio.GetLength(CHANNEL_BACKGROUND));

    Page.StartTimer(500,1)

    

--&#199;ÓÊÏÚÇÁ ÇáÇãÓ ÇáãÍÏÏ Ýí áíÓÊ ÈæßÓ Çááì ÈÑÞÑÇÝ

num = ListBox.GetSelected("ListBox1");  

--SONG = ListBox.GetItemData("ListBox1", num[1]);  

SONG = ListBox.GetItemText("ListBox1", num[1]);



Paragraph.SetText("Paragraph1", SONG);

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

tfreg = File.DoesExist("AutoPlay\\Docs\\"..SONG..".rtf");

if tfreg == false then

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\ÇáÇÝÊÑÇÖí.rtf");

else



RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");

end

----
يعني ان وجد ملف التفريغ يقتح وان لم يوجد يفتح الافتراضي
وفي حالة الحفظ نفس الشي

----------------------
وهذا ملفك الاخير بعد التعديل

http://www.mediafire.com/file/80i593...-13%282%29.rar

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

محمد بن أحمد أبو حذيفة · 26-08-2017, 03:16 PM

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

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

ضع هذا في زر الحفظ

كود PHP:


num = listbox.getselected("listbox1");  
if num~=nil then
song = listbox.getitemdata("listbox1", num[1]);   
y = listbox.getitemtext("listbox1", num[1]);
full_name = dialog.input("welcome", "please enter your full name:",y);
msar = dialog.folderbrowse("please select a folder:", "");

folder.create(msar..full_name);
textfile.writefromstring(msar..full_name.."\\"..paragraph.gettext("paragraph1")..".txt", richtext.gettext("richtext1", false), false);
file.copy(song, msar..y.."\\", true, true, false, true, nil);
else
dialog.message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", mb_ok, mb_iconinformation, mb_defbutton1);
end

----------
فقط تم اضافة مربع حوار لتحديد مجلد ليكون الحفظ فيه وكذا يكون المستخدم هو من حدد المسار ( msar )

------------
اما بخصوص الملف الافتراضي نضع في docs نسمية ( الافتراضي )
ويصبح الكود في اليست بكس هكذ

كود PHP:


num = listbox.getselected("listbox1");  
song = listbox.getitemdata("listbox1", num[1]);  
mediaplayer.load("media_player", song);  

button.setvisible("btn_pause", true);
button.setvisible("btn_play", false);
--page.starttimer(1);    
  
progress.setrange("progress0", 0, audio.getlength(channel_background));
    page.starttimer(500,1)
    
--&#199;ÓÊÏÚÇÁ ÇáÇãÓ ÇáãÍÏÏ Ýí áíÓÊ ÈæßÓ Çááì ÈÑÞÑÇÝ
num = listbox.getselected("listbox1");  
--song = listbox.getitemdata("listbox1", num[1]);  
song = listbox.getitemtext("listbox1", num[1]);

paragraph.settext("paragraph1", song);
-------------------------
tfreg = file.doesexist("autoplay\\docs\\"..song..".rtf");
if tfreg == false then
richtext.loadfromfile("richtext1", "autoplay\\docs\\ÇáÇÝÊÑÇÖí.rtf");
else

richtext.loadfromfile("richtext1", "autoplay\\docs\\"..song..".rtf");
end

----
يعني ان وجد ملف التفريغ يقتح وان لم يوجد يفتح الافتراضي
وفي حالة الحفظ نفس الشي

----------------------
وهذا ملفك الاخير بعد التعديل

http://www.mediafire.com/file/80i593...-13%282%29.rar

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

رحمك الله وغفر لك

الملف رائع
لكن الافضل في رائي ان نجعل حفظ التفريغ في مجلد داخل التجميعة ليتم استدعائه

بارك الله فيك

محمد بن أحمد أبو حذيفة · 26-08-2017, 03:27 PM

ان لم اثقل عليكم اريد المزيد

هل ممكن ان نستبدل RichText1
بعنصر اخر يقبل التنسيق مثل الورد

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

**ياسرهتهت ياسرهتهت** · 26-08-2017, 08:56 PM

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

ان لم اثقل عليكم اريد المزيد

هل ممكن ان نستبدل RichText1
بعنصر اخر يقبل التنسيق مثل الورد

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

---------------------------
بسم الله الرحمن الرحيم
اخي العزيز لم افهم كيف نستبدل RichText1 بالورد
لا يوجد عنصر ورد في البرنامج ؟؟؟
ممكن توضيح ؟

--------
اما عملية التنبيه بعدم الحفظ يجب ان تكون في خيارات التنقل لليست بكس
لان مجرد الانتقال من سلكشن الي اخر يمسح ما هو مكتوب RichText1

ويحل محله صاحب الاسم في التحديد

محمد بن أحمد أبو حذيفة · 26-08-2017, 10:57 PM

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

---------------------------
بسم الله الرحمن الرحيم
اخي العزيز لم افهم كيف نستبدل RichText1 بالورد
لا يوجد عنصر ورد في البرنامج ؟؟؟
ممكن توضيح ؟

--------
اما عملية التنبيه بعدم الحفظ يجب ان تكون في خيارات التنقل لليست بكس
لان مجرد الانتقال من سلكشن الي اخر يمسح ما هو مكتوب RichText1

ويحل محله صاحب الاسم في التحديد

بارك الله فيك
اقصد هل ممكن تنسيق النص RichText1 مثل برنامج الورد

أما رسالة التنبيه ففكرتك جيدة اقصد فكرة التنبيه عند الانتقال من تحديد إلي آخر
لكن ماذا لو لم ينتقل المستخدم بل قرر الخروج أليس من الضروري التنبيه عند إغلاق التجمعية أيضا

عبد الهادي بهاب · 27-08-2017, 12:00 AM

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

بارك الله فيك
اقصد هل ممكن تنسيق النص RichText1 مثل برنامج الورد

أما رسالة التنبيه ففكرتك جيدة اقصد فكرة التنبيه عند الانتقال من تحديد إلي آخر
لكن ماذا لو لم ينتقل المستخدم بل قرر الخروج أليس من الضروري التنبيه عند إغلاق التجمعية أيضا

في زر الخروج

كود PHP:


if save == false then

Dialog.Message("","انت لم تحمل");

else

Application.Exit(0);

end

في الصقحة on show

كود PHP:


save = false;

في زر التحميل تحت دبالوح تم التخفظ ينجاح اضف هذا السطر

كود PHP:


save= true;

عبد الهادي بهاب · 27-08-2017, 12:02 AM

عنصر richtext هو الوحيد الذي يمكن ان تستعمل الالوان و الحجم لكل كلمة بحد ذاتها
اما الاتوبت و البراغارف فتتغير كلها

عبد الهادي بهاب · 27-08-2017, 12:03 AM

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

رحمك الله وغفر لك

الملف رائع
لكن الافضل في رائي ان نجعل حفظ التفريغ في مجلد داخل التجميعة ليتم استدعائه

بارك الله فيك

هل فكرت في ان الاسطواتة في قرص فلا يمكن التحميل في قرص
لذلك اجعل الافتراضي قي المستندات او في temps

محمد بن أحمد أبو حذيفة · 27-08-2017, 12:13 AM

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

في زر الخروج

كود PHP:


if save == false then
dialog.message("","انت لم تحمل");
else
application.exit(0);
end

في الصقحة on show

كود PHP:


save = false;

في زر التحميل تحت دبالوح تم التخفظ ينجاح اضف هذا السطر

كود PHP:


save= true;

بارك الله فيك
الكود في زر التحميل يعمل
لطن الكود في زر الخروج يظهر دائما حوار وحتى وان لم تغير في التفريغ

ايضا هل ممكن ان نظيف كود في الحدث ان سلكت في اليست بوكس لحفظ التغير في التفريغ اذا نسي المستخدم

محمد بن أحمد أبو حذيفة · 27-08-2017, 12:14 AM

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

هل فكرت في ان الاسطواتة في قرص فلا يمكن التحميل في قرص
لذلك اجعل الافتراضي قي المستندات او في temps

بارك الله فيك انا احفظ العمل في مثل هذ التجميعات بصيغة
Hard drive folder

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

طريقة حفظ ملف من ليست بوكس مع نص من فقرة وحفظهما في مكان معين

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك