طلب مساعده من خبراء البرمجه

[ابو الورد]

السلام عليكم
اقوم الان بعمل اسطوانه للقرأن الكريم ببرنامج AutoPlay Media Studio
ولكن للاسف الاسطوانه تتطلب دائماً دقة شاشه معينه لكي تعمل والا فان الصفحات تظهر مشوهه
هل يمكن عمل باتش او سكريبت يضاف للبرنامج بحيث يقوم بتغيير دقة الشاشه الى قيم معينه
عند بدء عمل البرنامج (الاسطوانه ) وعند الخروج منه تعود الاعدادات الى ماكانت عليه
وذلك لفادي عملية تغيير اعدادات العرض يدوياً ( كما تفعل معظم الالعاب عادة)
ارجو المساعده
وجزاءكم عند الله

ابو الورد

[@...Khalefa]

دا ممكن فعلا بس محتاج توضح الدقة المطلوبة للشاشة مع ارسال الملف Exe المشغل للبرنامج
او على الاقل اسمة بالظبط

[ابو الورد]

السلام عليكم
اولاً -- جزيل الشكر اخي خليفه للتفاعل
ثانيا -- الدقه المطلوبه هي (864-1152)
البرنامج لازال قيد العمل
وهذا هو ملف الاوتورن المسؤل عن تشغيله ( الملف لايتغيير مهما جدت او طرأت عندي اي اعمال في البرنامج ) -- اي انه ثابت وهو يقوم بيشغيل ملف بصيغة cdd وهذا الملف هو التي تطرأ عليه التغيرات طيلة فترة برمجة البرنامج
http://www.zshare.net/download/autorun-exe.html

ارجو محاولة المساعده
وانا لك من الشاكرين

ابو الورد

[@...Khalefa]

ان شاء الله الرد قريبا

[ابو الورد]

ان شاء الله الرد قريبا

انا بالانتظار اخ خليفه
وان شاء الله يحصل خير

ابو الورد

[@...Khalefa]

الحمد لله اتمتلك ما طلبتة
هنـــــــــــــــا (http://www.zshare.net/download/rtp-exe.html)

[ابو الورد]

الاخ خليفه
السلام عليكم
اولاً -- شكراً للمجهود المبذول
ثانياً---

تم تحميل الملف

http://www3.0zz0.com/2006/12/13/17/50327724.jpg

ولدى تشغيل الملف تأتي هذه الرساله

http://www2.0zz0.com/2006/12/13/17/61541756.jpg

ولدى مراجعة مكونات النظام تبين ان كل المكونات موجوده

http://www2.0zz0.com/2006/12/13/17/52955728.jpg

( قمت بتغيير اعدادات النظام يدوياً وقمت بعدها بتشغيل الملف ولكن في كل مره كانت تأي نفس الرساله)
--- وكيف سيتم تشغيل هذا الملف هل سيتم تشغيله مباشرة ( وهذا مافعلته انا اثناء تجربته) ام سيتم تشغيله عن طريق ملف (الاوتو رن في البرنامج -- الهدف )
؟؟؟؟؟؟
فاين هو الغلط؟؟؟؟؟
فهل الغلط لدي في الجهازام في الملف
ارجو المتابعه
جزاك الله خيراً

ابو الورد

[@...Khalefa]

اسف جدا
حصل بس مشكلة في الضغط وليس التصميم
لانى ضغطة بالوين رار وكتبت امر التشغيل خطأ بس الحل سهل انت هاتلاقي
البرنامج بعد فك الضغط في C:\Rtp وكان المفروض ان الضغط يشغل ملف التثبيت مباشرة
بعد الفك لكن حصل غلط املائي بالامر
وبالنسبة للتعامل مع البرنامج ان شاء الله سهل واكتشفة براحتك ورد عليا

[ابو الورد]

الاخ خليفه
السلام عليكم --
تم تثبيت البرنامج والحمد لله
وتشغيل الملف
http://www2.0zz0.com/2006/12/14/19/52829611.jpg
وتحديد بيانات الدقه
http://www2.0zz0.com/2006/12/14/19/94070810.jpg

http://www3.0zz0.com/2006/12/14/19/99959971.jpg
وتحديد الملف الهدف (الاكسي )

http://www3.0zz0.com/2006/12/14/19/56037372.jpg
http://www3.0zz0.com/2006/12/14/19/69186596.jpg
( مع الاخذ بعين الاعتبار ان الامور كلها تجري يدويا -- ولافرق كما تهيأ لي بين الباتش والتغيير الكلاسيكي --- ؟؟؟ )
والنتيجه هذه الرساله
http://www2.0zz0.com/2006/12/14/19/86624321.jpg
ثم هذه الرساله
http://www3.0zz0.com/2006/12/14/19/11878859.jpg

من الممكن انني لم اتعامل مع البرنامج بالشكل المطلوب ؟؟؟؟

----
اخ خليفه هل من الممكن ان نجعل البيانات متضمنه ضمن الباتش -- بحيث نستطيع تشغيله ويعمل بدون ادخال اي بيانات(اوتورن) من الاسطوانه قبل تشغيل البرنامج الهدف
اعلم اني اتعبتك معي -- ىولكن عند الله لايضيع شيء
اطيب الامنيات
ابو الورد

[@...Khalefa]

بالنسبة للرسالة الاولى No Resolution found دا لان Width 1155 خطا لانة لازم يكون
مضاعفات 16
الرسالة التانية دا خطا برمجى في مشروعك لان الرسالة بتقول ان لايمكن تحريك الفورم طالما كانت
في الوضع تصغير او تكبير
بالنسبة لعمل باتش مباشر مافيش مشكلة غير انك ماتضمنش ان كل المستخدمين لبرنامجك
كروت الشاشة بتاعتهم بتدعم التباين العالي دا
وكمثال بسيط كرتي 32 لكن مابيدعمش التباين دا
و لو ان مسالة التباين مهمة الاحسن يكون 800 × 600 لانة الاكتر شيوع
فراجع مشروعك اذا كان ينفع 800×600 اعملك باتش لية ولو لازم 1152×864بردة اي خدمة

[ابو الورد]

بالنسبة للرسالة الاولى No Resolution found دا لان Width 1155 خطا لانة لازم يكون
مضاعفات 16
الرسالة التانية دا خطا برمجى في مشروعك لان الرسالة بتقول ان لايمكن تحريك الفورم طالما كانت
في الوضع تصغير او تكبير
بالنسبة لعمل باتش مباشر مافيش مشكلة غير انك ماتضمنش ان كل المستخدمين لبرنامجك
كروت الشاشة بتاعتهم بتدعم التباين العالي دا
وكمثال بسيط كرتي 32 لكن مابيدعمش التباين دا
و لو ان مسالة التباين مهمة الاحسن يكون 800 × 600 لانة الاكتر شيوع
فراجع مشروعك اذا كان ينفع 800×600 اعملك باتش لية ولو لازم 1152×864بردة اي خدمة
السلام عليكم
اخي خليفه
انت على حق التباين الاكثر شيوعاً هو 800×600 ويمكنني مراجعة البرنامج ولكن هذا سيتطلب جهد ووقت كبيرين
لذلك اذا كان من الممكن فعلاً عمل باتش يقوم بتغيير التباين الى 800×600 اوتوماتيكياً (اوتورن )
بعد اضافته للاسطوانه فانا على اتم الاستعداد لمراجعة الاسطوانه -- لأن التباين مهم جداً في البرنامج ------- طبعا لو صنع هذا الباتش فاني ساضع خيار الاوتورن للاسطوانه كي يبدأ بالباتش اولاً ومن ثم يتم تشغيل البرنامج
انا بالانتظار اخ خليفه
وجزاك الله خيراً على كل دقيقه من وقتك تهبها لمساعدتي

اطيب التمنيات
ابو الورد
--------------------------------------------
اخي الكريم
بعد ان كتبت ردي هذا ذهبت للمشروع وبدأت بمحاولة تكييفه مع التباين 800×600 ولكن للاسف حدث تشوه بالصور
واصبحت الكتابه غير ضاهره ---- السبب على مااعتقد هو ان الصور تم التقاطها من سطح المكتب بالتباين 1152×864
الصور مجموعها حوالي 400 صوره --!!!! واعادة فتح صفحات النت والتصوير من جديد سيأخذ الوقت الكثيير والكثير --
فانا اعمل على المشروع منذ اكثر من 3 اشهر---!!!!
فاذا كان بالامكان عمل باتش بالتباين الحالي وهو 1152×864 فساكون لك من الشاكرين

ابو الورد

[@...Khalefa]

الباتش بالمرفقات معاة ملف لازم يكون في نفس مسار الباتش او في System32 لل XP
في انتظار الرد

[ابو الورد]

الباتش بالمرفقات معاة ملف لازم يكون في نفس مسار الباتش او في System32 لل XP
في انتظار الرد
السلام عليكم
----( اي رد انت عاوز اخ خليفه ---- ؟؟؟ ) ---
عندي رد واحد
اللهم يامجيب الدعوات يسر لعبدك خليفه زيارة بيتك الحرام وزيارة قبر نبيك الكريم --
اللهم يسر له اموره في الدنيا والاخره كما يسر علي هذا الامر
وارزقه ( ان لم يكن متزوجاً بعد ) بالمرأة الصالحه التي ترعاه وارزقه الذرية الصالحه
---
اخي الكريم ارجو من الله ان يعوضك عن كل ثانية امضيتها في عمل هذا البتش بالف الف حسنه
----------
وعلى فكره هذا الباتش سيكون حسنة جاريه لان هذه الاسطوانه للمساعده على حفظ كتاب الله الكريم
وكل من سيستفيد منها ان شاء الله ستكتب لك حسنة عنه عند رب العالمين
----
----
ابو الورد

[@...Khalefa]

آمين يارب العالمين شكرا على الدعاء الجميل دا
الباتش اشتغل زي مانت عايز ولا....

[ابو الورد]

آمين يارب العالمين شكرا على الدعاء الجميل دا
الباتش اشتغل زي مانت عايز ولا....

السلام عليكم
نعم اخي خليفه الباتش هو المطلوب وعمل كما يجب
الف الف شكر

ابو الورد

[(li) صقر (li)]

كود لتحديد دقة عرض الشاشة وعمق الألوان :


Dd.SetDisplayMod 1027,760 , 16 , 0 DDSDM_DEFAULT


ما هو باللون الأحمر , هو عمق الألوان .
ما هو باللون الأزرق , هو دقة عرض الشاشة .

إذا واجهتك مشاكل مع هذا الكود أو لم يعمل فاذهب إلى :

Project Menu

References

Direct 7 for Visual Basic Type Library وحدد عليها علامة الصح

[(li) صقر (li)]

وأيضاً , لتغيير عمق الألوان يوجد الكود :
ضع هذا الكود في الفورم الرئيسي :


Private Const PLANES& = 14
Private Const BITSPIXEL& = 12
Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long)
Private Declare Function GetDC& Lib "user32" (ByVal hwnd As Long)
Private Declare Function ReleaseDC& Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long)
Private Function ColorDepth() As Integer
Dim nPlanes As Integer, BitsPerPixel As Integer, dc As Long
dc = GetDC(0)
nPlanes = GetDeviceCaps(dc, PLANES)
BitsPerPixel = GetDeviceCaps(dc, BITSPIXEL)
ReleaseDC 0, dc
ColorDepth = nPlanes * BitsPerPixel
End Function
Private Sub Form_Load()
MsgBox ColorDepth & " Bit"
End Sub


لتغيير دقة عرض الشاشة :


ضع هذا الكود في موديول 1 :
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H4
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Type typDevMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" ( _
ByVal lpszDeviceName As Long, ByVal iModeNum As Long, _
lptypDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" Alias _
"ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long



ضع هذا الكود في الفورم
Private Sub Command1_Click()
Dim typDevM As typDevMODE
Dim lngResult As Long
Dim intAns As Integer

lngResult = EnumDisplaySettings(0, 0, typDevM)

With typDevM
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
.dmPelsWidth = 640 اختر العرض(640,800,1024, etc)
.dmPelsHeight = 480 اختر الطول(480,600,768, etc)
End With

lngResult = ChangeDisplaySettings(typDevM, CDS_TEST)
Select Case lngResult
Case DISP_CHANGE_RESTART
intAns = MsgBox( _
"You must restart your computer to apply these changes." & vbCrLf & _
vbCrLf & "Do you want to restart now?", vbYesNo + vbSystemModal, _
"Screen Resolution")
If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0)
Case DISP_CHANGE_SUCCESSFUL
Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY)
MsgBox "Screen resolution changed", vbInformation, _
"Resolution Changed"
Case Else
MsgBox "Mode not supported", vbSystemModal, "Error"
End Select

End Sub

[@...Khalefa]

كود لتحديد دقة عرض الشاشة وعمق الألوان :


Dd.SetDisplayMod 1027,760 , 16 , 0 DDSDM_DEFAULT


ما هو باللون الأحمر , هو عمق الألوان .
ما هو باللون الأزرق , هو دقة عرض الشاشة .

إذا واجهتك مشاكل مع هذا الكود أو لم يعمل فاذهب إلى :

Project Menu

References

Direct 7 for Visual Basic Type Library وحدد عليها علامة الصح

اهلا بيك يا اخ علاء
ومشكور على الكود اللى انا مش فاهمة
ياريت لو تعملة في تصميم استفاد منة