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

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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاضافات والتعديلات لا تظهر اثناء تشغيل البرنامج تناسيم 1 63 12-12-17, 08:53 PM
آخر رد: zinom
  تحويل عدد الى تاريخ الميساني 2 68 12-12-17, 08:23 PM
آخر رد: الميساني
  [VB.NET] نا اريد مساعدة سريعة حنان المغربى 0 49 12-12-17, 04:14 PM
آخر رد: حنان المغربى
  اريد جلب هذا الرابط ابو روضة 0 34 11-12-17, 02:10 AM
آخر رد: ابو روضة
  اريد جملة شرطية متوسطة ƊЄƔƖԼ ƇƠƊЄƦ 1 44 07-12-17, 09:07 PM
آخر رد: Rabeea Qbaha
  فجئة البرنامج يطلب تغير الفريم ويرك altho8 1 38 04-12-17, 12:41 PM
آخر رد: طالب برمجة
  اريد مساعدة في هد الكود واكون ممنون ahmedbezia 2 51 03-12-17, 06:16 PM
آخر رد: ahmedbezia
  اريد طريقه لوضع شرط عند الحفظ ahmedmansour 11 267 03-12-17, 06:03 PM
آخر رد: ahmedmansour
  [VB.NET] تحويل التاريخ الميلادي والهجري محمد مسافر 7 6,405 03-12-17, 05:15 AM
آخر رد: mabualwafa2
  اريد يا اخوان دروس حول شرح كريستال ريبورت 2012 ahmedbezia 0 31 02-12-17, 07:46 PM
آخر رد: ahmedbezia

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


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