تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجو المساعدة : How to Split an Image into Chunks
#1
السلام عليكم
هل يمكنكم مساعدتي في تقسيم الصورة الى شبكة؟
اي ان المستخدم يضغط على زر لتحميل صورة من الكومبيوتر (هذا الكود قمت بتنفيذه)
بمجرد ان يختار صورة معينة يتم عرضها في picbox (الى هنا الحمدلله نفذت الكود)

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

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

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

اتمنى ان تستطيعوا مساعدتي
ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
بعض الحلول قد تفيدك
https://github.com/TGrove/ImageSplitter
https://stackoverflow.com/questions/1362...es-c-sharp

الرد
تم الشكر بواسطة: amna jamal
#3
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(00chunkWidthchunkHeight)
 
                   Dim srcRect As Rectangle = New Rectangle(chunkWidth ychunkHeight xchunkWidth chunkWidthchunkHeight 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 
Retired
الرد
تم الشكر بواسطة: amna jamal



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم