السلام عليكم ورحمة الله وبركاته مررت يوما ببرنامج منظم كتابة أبيات الشعر ... أعجبك ففكرت أن تنجزه في هذه الدقائق وقتلا للرتابة لنحاول معا
01 - نفتح مشروعا جديدا نضمنه العناصر التالية :
- انبوت 1 و سنخصصه لكتابة الابيات سطرا تحت سطر أو الصدر و تحته العجز وهكذا .... على أن يكون هذا الانبوت متعدد الاسطر
- أنبوت 2 بنفس الخصائص و يكون أكبر حجما من حيث الطول مع التركيز أن تكون فيه الكتابة من اليمين لليسار + متعدد الاسطر
- عنصرComboBox نحقق فيه
وندخل في الحدث on select ونكتب :
كود PHP:
الكود:
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 كيفية التنظيم سلام لنسخ الناتج وظف اضافة الكيبورد