Ошибка при работе с изображениями: Параметр должен быть положительным и меньше ширины

@bratkovsky · Регистрация: 30.07.2012

Author24 — интернет-сервис помощи студентам

Вот попробовал написать программку по созданию рамдомного изображения, тоисть со случайным набором данных.
Может кто спец по (bitmap,random)?

У меня Visual Studio Выдает ошибку:
(Необработанное исключение типа "System.ArgumentOutOfRangeException" в Microsoft.VisualBasic.dll
Дополнительные сведения: Параметр должен быть положительным и меньше ширины.)

ну положительным то это понятно что не 0 или -1
В чем проблемка?

VB.NET

Public Class Form1
 
    Dim xWidth As Integer = 640
    Dim xHeight As Integer = 320
    Dim xBitmap = New Bitmap(xWidth, xHeight)
    Dim xRandom As System.Random = New System.Random()
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim X As Integer
        Dim Y As Integer
 
        Dim a As Integer
        Dim r As Integer
        Dim g As Integer
        Dim b As Integer
 
 
        For Y = 0 To xHeight
            For X = 0 To xWidth
 
 
                a = xRandom.Next(256)
                r = xRandom.Next(256)
                g = xRandom.Next(256)
                b = xRandom.Next(256)
 
                xBitmap.SetPixel(X, Y, Color.FromArgb(a, r, g, b))
            Next
        Next
 
        PictureBox1.Image = xBitmap
 
    End Sub
End Class

если вывести результат в Textbox таким образом:

VB.NET

        For Y = 0 To xHeight 
            For X = 0 To xWidth
 
 
                a = xRandom.Next(256)
                r = xRandom.Next(256)
                g = xRandom.Next(256)
                b = xRandom.Next(256)
 
                TextBox1.Text = "a: " & a & vbCrLf & "r: " & r & vbCrLf & "g: " & g & vbCrLf & "b: " & b & vbCrLf
 
            Next
        Next

то получаю такой результат:

a: 194
r: 4
g: 130
b: 227

В чем здесь проблема товарищи)?

Добавлено через 8 минут
Мне почему то кажется что это проблема где то в For но какая и в чем...?

Добавлено через 2 минуты
там же к примеру должно быть так:

a: 194 254 215 111 ... итд..
r: 4 5 123 200 110 ... итд..
g: 130 20 35 170 ... итд..
b: 227 10 2 1 ... итд..

Добавлено через 56 секунд
типа соответствуя ширине и высоте по количеству пикселей

@OwenGlendower · 04.02.2015, 13:17

bratkovsky, циклы должен быть такими:

VB.NET

1 2	For Y = 0 To xHeight-1 For X = 0 To xWidth-1

@bratkovsky · 04.02.2015, 14:06 **[ТС]**

Все правельно!
И вроде раньше так и делал но как то не так по ходу)) Все работает, спасибо!

Добавлено через 18 минут
Кстате вот живой белый шум) у меня только в таком размере нормально работает
а у кого как работает и с каким размером изображения с той самой скоростью)?

VB.NET

Public Class Form1
 
    Dim xWidth As Integer = 50
    Dim xHeight As Integer = 50
    Dim xBitmap = New Bitmap(xWidth, xHeight)
    Dim xRandom As System.Random = New System.Random()
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 10
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim X As Integer
        Dim Y As Integer
 
        Dim a As Integer
        Dim r As Integer
        Dim g As Integer
        Dim b As Integer
 
 
        For Y = 0 To xHeight - 1
            For X = 0 To xWidth - 1
 
 
                a = xRandom.Next(256)
                r = xRandom.Next(256)
                g = xRandom.Next(256)
                b = xRandom.Next(256)
 
                xBitmap.SetPixel(X, Y, Color.FromArgb(a, r, g, b))
 
            Next
        Next
 
        PictureBox1.Image = xBitmap
 
    End Sub
End Class

	04.02.2015, 14:06

Ошибка при работе с изображениями: Параметр должен быть положительным и меньше ширины

Решение