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

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

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

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

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


الملفات المرفقة
.rar   edge detect.rar (الحجم : 656.62 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة:
#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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني

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


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