تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لايعمل البرنامج في فيجول ستوديو 2010 thams 0 15 23-01-17, 10:29 PM
آخر رد: thams
  تحويل الارقام الي حروف محمد بوقزاحة 6 83 22-01-17, 05:01 PM
آخر رد: tryold
Exclamation [سؤال] التاكيد من موجد برامج قبل تشغيل البرنامج MOONMICROSYSTEM 1 142 22-01-17, 04:54 PM
آخر رد: thevirus
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 180 15-01-17, 02:11 PM
آخر رد: abudawoodd
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 515 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [سؤال] ربط البرنامج بعدة اجهزة ابو يوسف النواوي 2 3 143 12-01-17, 03:52 AM
آخر رد: Basil Abdallah
  [VB.NET] مشكلة تحويل من 32بت الى 64 بت yemen1 3 97 08-01-17, 01:23 PM
آخر رد: yemen1
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,870 04-01-17, 09:18 PM
آخر رد: jojo2014
  [سؤال] مشكلة تهنيج البرنامج ابو روضة 2 163 30-12-16, 04:47 PM
آخر رد: ابو روضة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,345 27-12-16, 01:25 PM
آخر رد: Basil Abdallah

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


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