[amna jamal]

السلام عليكم
هل يمكنكم مساعدتي في تقسيم الصورة الى شبكة؟
اي ان المستخدم يضغط على زر لتحميل صورة من الكومبيوتر (هذا الكود قمت بتنفيذه)
بمجرد ان يختار صورة معينة يتم عرضها في picbox (الى هنا الحمدلله نفذت الكود)

الصورة تعرض على شكل شبكة تتكون من مجموعة خلايا وكل خلية يتم اعطاءها اسم افتراضي كما ان المستخدم يمكنه ان يختار خلايا معينة من نفس الصورة التي عُرضت كشبكة
من ثم يتم تخزين اسم الصورة + اسم الخلايا التي قام بإختيارها المستخدم في textbox

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

https://kalanir.blogspot.com/2010/02/how-to-split-image-into-chunks-java.html

اتمنى ان تستطيعوا مساعدتي
ولكم جزيل الشكر

[محمد كريّم]

بعض الحلول قد تفيدك
https://github.com/TGrove/ImageSplitter
https://stackoverflow.com/questions/1362...es-c-sharp

[silverlight]

PHP كود :

       ' نحدد الصورة المراد تقسيمها
        ' هنا أن أضفتها لفهرس المشروع
        ' يمكن تحديد الصورة الأصلية بأساليب كثيرة أخري
        Dim source As Bitmap = My.Resources.silver
        ' نعرف متغير يحد عدد الصور 
        Dim count As Integer = 10
        ' نحدد عرض الصورة الصغيرة
        Dim chunkWidth As Integer = source.Width() / count
        ' نحدد طول الصورة الصغيرة
        Dim chunkHeight As Integer = source.Height() / count
        ' نعرف المصفوفة التي سنملأها بالصور الصغيرة  
        Dim bitmaps As List(Of Bitmap) = New List(Of Bitmap)()

        ' نقوم بباء حلقة الدوران لكي نقتطع الصور الصغيرة من الصورة الأصلية
        Dim x As Integer = 0
        Dim y As Integer = 0
        While x < count
            While y < count
                ' تعريف االصورة الصغيرة
                Dim current As Bitmap = New Bitmap(chunkWidth, chunkHeight, source.PixelFormat)
                ' نرسم الصورة الصغيرة
                Using g As Graphics = Graphics.FromImage(current)
                    Dim dstRect As Rectangle = New Rectangle(0, 0, chunkWidth, chunkHeight)
                    Dim srcRect As Rectangle = New Rectangle(chunkWidth * y, chunkHeight * x, chunkWidth * y + chunkWidth, chunkHeight * x + chunkHeight)
                    ' عملية الرسم تتم باقتطاع الجزء المحدد مكانه علي الصورة الأاصلية
                    g.DrawImage(source, dstRect, srcRect, GraphicsUnit.Pixel)
                End Using
                ' نضيف الصورة الصغيرة للمصفوفة
                bitmaps.Add(current)
                y += 1
            End While
            x += 1
        End While

        ' حلقة دورام لكي نحفظ الصورة علي فهرس المشروع
        Dim i As Integer = 0
        While i < bitmaps.Count
            Dim bmp As Bitmap = bitmaps(i)
            bmp.Save(".\image" + i.ToString + ".jpg")
            i += 1
        End While