[salah mansour]

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

[silverlight]

الموضوع سهل لكن سؤال : كيف سيحدد العميل نوعية النشاط

[حريف برمجة]

في بداية تشغيل البرنامج بعد التنصيب طبعاً لأول مره تشغيل البرنامج تضع كومبو بوكس يحمل الأنشطة مثلاً :
سوبر ماركت
صيدلية
.... إلخ

وتضع صورة لكل نشاط وبعد تحديد النشاط تقوم بعرض الصورة .

[salah mansour]

(01-07-17, 05:44 AM)silverlight كتب : الموضوع سهل لكن سؤال : كيف سيحدد العميل نوعية النشاط

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

---

(01-07-17, 02:40 PM)حريف برمجة كتب : في بداية تشغيل البرنامج بعد التنصيب طبعاً لأول مره تشغيل البرنامج تضع كومبو بوكس يحمل الأنشطة مثلاً :
سوبر ماركت
صيدلية
.... إلخ

وتضع صورة لكل نشاط وبعد تحديد النشاط تقوم بعرض الصورة .

شكرا اخى العزيز حريف برمجة...هى الفكرة طبعا حلوة ةباذن الله ساجرب واخبرك بالنتيجة

[silverlight]

سؤال أخير
هل العميل سيخدد النشاط اثناء مرحلة Setup للبرنامج أم عند تشغيل البرنامج؟

[salah mansour]

(02-07-17, 08:07 AM)silverlight كتب : سؤال أخير
هل العميل سيخدد النشاط اثناء مرحلة Setup للبرنامج أم عند تشغيل البرنامج؟

سيحدد العميل النشاط عند بداية تشغيل البرنامج فى اعدادات المنشأة وكتابة البيانات التى ستطبع بالفواتير

[silverlight]

هذه هي الفكرة

أنت تحتاج الي Enum لتحديد نوع النشاط
ومنه تحدد الصورة
و تضع جميع الصور في Resources المشروع

و الكود سيكون بالشكل التالي

PHP كود :

Public Class Form1

    Private Enum ActivityTypes
        Suprmarket
        Pharmacy
        ' أضف جميع الانشظة الأخري
    End Enum

    Private Function GetBackgroundImage(activity As ActivityTypes) As Bitmap
        Dim result As Bitmap = Nothing
        Select Case activity
            Case ActivityTypes.Pharmacy
                result = New Bitmap(My.Resources.pharmacy)
            Case ActivityTypes.Suprmarket
                result = New Bitmap(My.Resources.supermarket)

                ' أكمل بنفس الأسلوب ان كان لديك أنشطة أخري
        End Select

        Return result
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' بعد ان يحدد العميل النشاط و بناء علي اختيار العميل
        ' تختار النشاط
        Dim activity As ActivityTypes = ActivityTypes.Pharmacy
        Me.BackgroundImage = GetBackgroundImage(activity)
    End Sub
End Class 


[salah mansour]

(05-07-17, 04:52 AM)silverlight كتب : هذه هي الفكرة

أنت تحتاج الي Enum لتحديد نوع النشاط
ومنه تحدد الصورة
و تضع جميع الصور في Resources المشروع

و الكود سيكون بالشكل التالي

PHP كود :

Public Class Form1

    Private Enum ActivityTypes
        Suprmarket
        Pharmacy
        ' أضف جميع الانشظة الأخري
    End Enum

    Private Function GetBackgroundImage(activity As ActivityTypes) As Bitmap
        Dim result As Bitmap = Nothing
        Select Case activity
            Case ActivityTypes.Pharmacy
                result = New Bitmap(My.Resources.pharmacy)
            Case ActivityTypes.Suprmarket
                result = New Bitmap(My.Resources.supermarket)

                ' أكمل بنفس الأسلوب ان كان لديك أنشطة أخري
        End Select

        Return result
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' بعد ان يحدد العميل النشاط و بناء علي اختيار العميل
        ' تختار النشاط
        Dim activity As ActivityTypes = ActivityTypes.Pharmacy
        Me.BackgroundImage = GetBackgroundImage(activity)
    End Sub
End Class 


خالص الشكر اخى العزيز باذن الله ساجرب الكود واخبرك بالنتيجة ان شاء الله

---

(05-07-17, 08:54 PM)salah mansour كتب :

(05-07-17, 04:52 AM)silverlight كتب : هذه هي الفكرة

أنت تحتاج الي Enum لتحديد نوع النشاط
ومنه تحدد الصورة
و تضع جميع الصور في Resources المشروع

و الكود سيكون بالشكل التالي

PHP كود :

Public Class Form1

    Private Enum ActivityTypes
        Suprmarket
        Pharmacy
        ' أضف جميع الانشظة الأخري
    End Enum

    Private Function GetBackgroundImage(activity As ActivityTypes) As Bitmap
        Dim result As Bitmap = Nothing
        Select Case activity
            Case ActivityTypes.Pharmacy
                result = New Bitmap(My.Resources.pharmacy)
            Case ActivityTypes.Suprmarket
                result = New Bitmap(My.Resources.supermarket)

                ' أكمل بنفس الأسلوب ان كان لديك أنشطة أخري
        End Select

        Return result
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' بعد ان يحدد العميل النشاط و بناء علي اختيار العميل
        ' تختار النشاط
        Dim activity As ActivityTypes = ActivityTypes.Pharmacy
        Me.BackgroundImage = GetBackgroundImage(activity)
    End Sub
End Class 


خالص الشكر اخى العزيز باذن الله ساجرب الكود واخبرك بالنتيجة ان شاء الله

تمام ياريس الله يبارك فيك ويكرمك اشتغل الكود تمام....جزاك الله خيرا