تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغيير كود جافا الى فيجوال بيسك
#5
الواضح من كود الجافا أنك تريد تقسيم الصورة الأصلية الي عدة صور صغيرة
ثم نحفظ تلك الصورة في مصفوفة 
ثم لاحقا تحفظ الصور الصغيرة علي الكمبيوتر

الكود التالي مكتوب بالفيجوال بيك دوت نت وسوف يؤدي المطلوب

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 , amna jamal


الردود في هذا الموضوع
RE: تغيير كود جافا الى فيجوال بيسك - بواسطة silverlight - 23-01-18, 05:01 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,024 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,248 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,233 09-07-25, 12:45 AM
آخر رد: abo ragab
  مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت سيد أحمد 5 821 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  [سؤال] تغيير الفورم الرئيسي عند تشغيل البرنامج في Visual Studio مع .NET 8؟ silverlord 2 655 09-03-25, 03:52 AM
آخر رد: silverlord
  كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010 walkady 2 782 07-02-25, 07:57 PM
آخر رد: الورد2
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 13 10,789 07-02-25, 07:55 PM
آخر رد: الورد2
  [كود] كود تغيير حجم النص في التكست بوكس hassan 8 8,800 30-01-25, 02:33 AM
آخر رد: خالد كامل1
  كيفية التعامل مع inputbox في فيجوال ستوديو أسامة حسين 4 3,514 14-01-25, 02:04 AM
آخر رد: أبو خالد الشكري
  تغيير أسم ملف DOX.1 3 3,275 01-01-25, 09:37 PM
آخر رد: anes

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


يقوم بقرائة الموضوع: