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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طريقة لتجميع الاصناف المتشابهة hassan 14 8 125 أمس, 06:35 AM
آخر رد: mero5000
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 221 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [SQL] اريد buckup لقاعدة بيانات 2008 sabrizinoubi 0 53 09-10-18, 04:52 PM
آخر رد: sabrizinoubi
  سؤال عن تفعيل البرنامج عن طريق الفلاش ميمورى asemshahen5 7 227 07-10-18, 09:48 PM
آخر رد: %Eman%
  بخصوص حماية البرنامج وتفعيله salah mansour 2 68 06-10-18, 11:31 PM
آخر رد: asemshahen5
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 185 06-10-18, 02:07 AM
آخر رد: ابو روضة
  [VB.NET] استفسار :- Speech To Text تحويل الصوت الى حروف dubai.eig 1 91 05-10-18, 07:08 PM
آخر رد: alsouf
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 10 232 03-10-18, 04:54 PM
آخر رد: essawq
  سؤال فى تفعيل البرنامج salah mansour 1 71 02-10-18, 12:10 AM
آخر رد: Hazem1
  [VB.NET] اريد تغير بسيط ع الكود ... e-coder 3 111 29-09-18, 04:09 PM
آخر رد: عبد الرؤوف

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


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