banjalukaforum.com

Pokusavam napraviti jelku preko matrice, gdje korisnik unosi visinu i sirinu jelke. Prazan prostor oko jelke neka budu "-", a elementi jelke zvjezdice "*".

Public Class frmCT

Dim matrix(100, 100) As String

Private Sub btnFTT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFTT.Click

Dim h, w As Integer
h = txtHeight.Text
w = txtWidth.Text

ReDim matrix(h, w)

Dim s, l As Integer
If w Mod 2 = 0 Then
s = w / 2
l = w / 2
Else
s = w / 2
l = w / 2 + 1
End If

Dim g As Integer = 1

For i = 1 To h
For p = 1 To w

matrix(i, p) = "-"
matrix(i, s) = "*"
matrix(i, l) = "*"

Next

If g Mod 2 = 0 Then
s = s - 1
l = l + 1
Else
g = g + 1
End If

Next

For q = 1 To h
For k = 1 To w
txtPreview.Text &= matrix(q, k)
Next
txtPreview.Text &= vbNewLine
Next

End Sub


Sta tu ne valja, posto mi stalno pokazuje gresku "Index was outside the bounds of the array".

Ajooj, skontao sam gresku, trebam u If naredbi i u slucaju da je g parno povecati ga za 1.