پردازش تصویر

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

ای بابا وقت کیه .. ؟ قول می دم 15 دقیقه در روز وقت بخواد ...

 

[زرينه]

پاسخ : پردازش تصویر ... ؟

من كه هر كدي مي نويسم جواب نميده!
لطفا يكي به من بگه كجاش مشكل داره، خسته شدم...

 Dim MyPic As Bitmap
Dim PixelColor(400, 500) As System.Drawing.Color
Dim path As String = ":\Documents and Settings\‌Zarineh\Desktop\ZARINEH.bmp"
 MyPic = Image.FromFile(path)
  Dim i, j As Integer

        For i = 0 To 400
            For j = 0 To 500
                ReDim Preserve PixelColor(i, j)
                PixelColor(i, j) = MyPic.GetPixel(i, j)
            Next j
        Next i

 

[ffff]

پاسخ : پردازش تصویر ... ؟

من كه هر كدي مي نويسم جواب نميده!
لطفا يكي به من بگه كجاش مشكل داره، خسته شدم...

 Dim MyPic As Bitmap
Dim PixelColor(400, 500) As System.Drawing.Color
Dim path As String = ":\Documents and Settings\‌Zarineh\Desktop\ZARINEH.bmp"
 MyPic = Image.FromFile(path)
  Dim i, j As Integer

        For i = 0 To 400
            For j = 0 To 500
                ReDim Preserve PixelColor(i, j)
                PixelColor(i, j) = MyPic.GetPixel(i, j)
            Next j
        Next i

چیه این آخه نوشتی !؟
از خودت که نباید در بیاری ! مدیر : لطفا مودب باشید ...

dim mypic as bitmap=new bitmap("c:/pic.bmp")

یا تو که خودت لود کردی:

dim mypic as bitmap= new bitmap("400,500)

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

این قراره چه کار کنه ؟

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

Dim bm As New Bitmap(file_name)

این کار رو کن .. الان بگو مشکلت کجاست ؟

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

Dim PixelColor(400, 500) As System.Drawing.Color
این واسه چیه ؟ آدرس هم که اشتباهه ..یکی یکی جلو برو .. اگه مشکل داری بفرست ...

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

آقای فراز اپوزیسون خوبه که شروع کنید خودتون هم ...

 

[ffff]

پاسخ : پردازش تصویر ... ؟

آقای فراز اپوزیسون خوبه که شروع کنید خودتون هم ...

چی بگم من ؟!

تا حالا نشده کسی ازم سوالی پرسیده باشه من جوابش رو تا ته نداده باشم. (تو پیام خصوصی، یاهو مسنجر، ایمیل، ...)

خیلی هم مودبم. مدلم این جوریه. کسی اگه بخواد چیز یاد بگیره با این چیزا ناراحت نمیشه.
مثلا تا حالا بار ها شده به یکی یه چیز گفتم گفته فلانی اون جوری گفتا ... منم فورا گفتم فلانی غلط کرد ! ناراحتی داره این !؟


حالا بخوایم جواب زرینه رو کامل تر بدیم باید بپرسیم که چرا اصلا رنگ هارو تو آرایه دوبعدی کپی می کنی ؟!
مگه بیت مپ چیزی به جز همونه ؟؟؟

بعدشم وقتی اندازه عکس 400 در 500 هست for باید از 0 تا 399 و 499 بره. (یا از 1 تا اون عدد نه از صفر)
وقتی ران تایم ارور میده زرتی ok نکن که بسته بشه.
یه زره زور بزن بخونی چیزی که نوشته رو. برای عمه من که ننوشته برا تو می نویسه !

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

آدما اگه هم رو ناراحت کنن که خوب نیستش .. بازم تند حرفیدی ... اگه اعتراضی بشه پاک می شه این حرفا ...
همه هم خفن نیستن مثل شما که .. اول کارشون ...
شروع کن شما هم به جاهای قشنگی می رسیم .. این که اول کاره ..هنوز وارد پردازش تصویر نشدیم ..

 

[ffff]

پاسخ : پردازش تصویر ... ؟

الان هدف پردازش تصویر برای اسمال سایزه ؟
اسمال که پردازش تصویر نداره دیگه. دیر رسیدی !
ssl-vision

اگرم نیست که پس به تو چه !؟ (منظورم انجمن رباتیک ه نه تو !)
اگر هست :
opencv
aforge
یا اصلا matlab آشغال !

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

هدف آموزشه و من بهتر از نو می دونم sslvision چیه پسر .. غرور بده ... فکر کردی open cv ران کنی یعنی تموم .. ؟پسر حان علمه نه خاله بازی ... آدمای اینجا یاد می گیرن که بعدا ادامه بدن ...
چون machin vision جاش همین جاست ... جاش مهم نیست کارش مهمه ....

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

جواب رو امروز نذارم ... ؟ تا دوشنبه نیستم ... کار کنید همگی ایشالا که حله .... :)

 

[aghasina]

پاسخ : پردازش تصویر ... ؟

 

[ffff]

پاسخ : پردازش تصویر ... ؟

هدف آموزشه و من بهتر از نو می دونم sslvision چیه پسر .. غرور بده ... فکر کردی open cv ران کنی یعنی تموم .. ؟پسر حان علمه نه خاله بازی ... آدمای اینجا یاد می گیرن که بعدا ادامه بدن ...
چون machin vision جاش همین جاست ... جاش مهم نیست کارش مهمه ....

چرا حالا انقدر هول کردی ؟!

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

خدا هدایتت کنه ..

 

[زرينه]

پاسخ : پردازش تصویر ... ؟

خودم اشتباهم رو فهميدم:
درستش اين ميشه:

 Dim MyPic As Bitmap
MyPic = NewBitmap(file_name)

در ضمن،

وقتی ران تایم ارور میده زرتی ok نکن که بسته بشه.
یه زره زور بزن بخونی چیزی که نوشته رو. برای عمه من که ننوشته برا تو می نویسه !

اگه منظورتون با من بوده، بايد بگم درسته كه دانش برنامه نويسي شما صد برابر از من بيشتره، ولي حداقل اون قدر مسلط به زبان انگلبسي هستم كه بخونم ببينم ارور چي ميده. ولي شما زبان فارسي رو هم درست نميدونين. به نظر شما "زره" درسته يا "ذره"؟

 

[زرينه]

پاسخ : پردازش تصویر ... ؟

بفرماييد اينم كد من:

 Dim MyPic As Bitmap
Dim MyCanvas As Bitmap

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        MyPic = New Bitmap("C:\Documents and Settings\Zarineh\Desktop\ZARINEH.bmp")
        MyCanvas = New Bitmap(400, 500)
        Dim i, j As Integer

        For i = 0 To 399
            For j = 0 To 499
                ' MyPic.GetPixel(i, j)
                MyCanvas.SetPixel(i, j, MyPic.GetPixel(i, j))
            Next j
        Next i

        PictureBox2.Image = MyCanvas

    End Sub

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

لطفا solution رو آپ کنید تا Run کنمش و بقیه استفاده کنند ..
c++ و c# رو هم من آپ می کنم ..

 

[زرينه]

پاسخ : پردازش تصویر ... ؟

سلام
هم فايل .exe رو ميذارم و هم فايل پروژه:
براي باز كردن فايل exe برين به آدرس bin\debug
دو تا textbox گذاشتم كه مي تونين تعداد پيكسل هاي پهنا و درازاي تصوير جديد رو تعيين كنين.
فكر مي كنم دوباره بايد آدرس عكس رو توي كد عوض كنين. بلد نبودم فايل resource درست كنم...

 

[امید بخشنده]

پاسخ : پردازش تصویر ... ؟

می شه تو rapidshare.com آپ کنی ؟ آخه واسه من dl نمی شه اون عکس امنیتی رو نمی یاره که بنویسم