تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سلام اريد تحويل البرنامج من c# الي vb.net
#1
سلام 

الرجاء تحويل البرنامج من c# الي vb.net 

البرنامج عبارة تحويل صور الي ابيض واسود 

جربت تحويله عن طريق الموقع http://converter.telerik.com/

ولكن بعد التحويل يعطي خطا البرنامج 


الملفات المرفقة
.rar   edge detect.rar (الحجم : 656.62 ك ب / التحميلات : 6)
الرد }}}}
تم الشكر بواسطة:
#2
أعتقد ان مشكلتك تكمن في الكود الخاص بعملية تحويل الصورة لا غير و طبعا البرامج المستخدمة علي النت و التي تقوم بتحويل الكود لا تراعي اخطاء البرمجة أصلا عند التحويل من لغة الي لغة أخري
عموما عليك فقط ان تعيد صياغه الدالة التي تقوم بعملية تحويل الصورة لتكتب بالشكل التالي




PHP كود :
   Public Function ConvertImage(im As Image) As Image
        Dim gx 
As Integer(,) = New Integer(,) {{-101}, {-202}, {-101}}
 
       '  The matrix Gx
        Dim gy As Integer(,) = New Integer(,) {{1, 2, 1}, {0, 0, 0}, {-1, -2, -1}}
        ' 
 The matrix Gy
        Dim b 
As Bitmap DirectCast(imBitmap)
 
       Dim b1 As New Bitmap(im)
 
       For i As Integer 1 To b.Height 2
            
' loop for the image pixels height
            For j As Integer = 1 To b.Width - 2
                ' 
loop for image pixels width    
                Dim new_x 
As Single 0new_y As Single 0
                Dim c 
As Single
                For hw 
As Integer = -1 To 1
                    
'loop for cov matrix
                    For wi As Integer = -1 To 1
                        Dim bColor As Color = b.GetPixel(j + wi, i + hw)
                        Dim rColor As Color = b.GetPixel(j + wi, i + hw)
                        Dim gColor As Color = b.GetPixel(j + wi, i + hw)

                        c = CSng(Math.Min(bColor.B, 255) + Math.Min(rColor.R, 255) + Math.Min(gColor.G, 255)) / 3
                        new_x += gx(hw + 1, wi + 1) * (c)
                        new_y += gy(hw + 1, wi + 1) * (c)
                    Next
                Next


                If new_x * new_x + new_y * new_y > 128 * 128 Then
                    b1.SetPixel(j, i, Color.Black)
                Else
                    b1.SetPixel(j, i, Color.White)
                End If
            Next
        Next
        Return DirectCast(b1, Image)
    End Function 
الرد }}}}
تم الشكر بواسطة:
#3
مشكور على سرعة الاجابه
اجرب الحل ان شاء الله
ومشكور مسبقا
الرد }}}}
تم الشكر بواسطة:
#4
Thumbs Up 
مشكور silverlight Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,998 25-05-17, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 58 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 116 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 50 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 120 15-05-17, 04:08 AM
آخر رد: samawi
  تحويل الصوت الى نص Basil Abdallah 0 32 14-05-17, 09:34 PM
آخر رد: Basil Abdallah
  [SQL] التاريخ في البرنامج العواد الصغير 7 190 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 87 11-05-17, 09:56 AM
آخر رد: جميل علي
  اخطاء في البرنامج zinab ali 1 49 08-05-17, 12:44 AM
آخر رد: zinom

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


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