| banjalukaforum.com https://www.banjalukaforum.com/ |
|
| Jelka preko VB.net-a? https://www.banjalukaforum.com/viewtopic.php?f=18&t=58720 |
Stranica 1 od 1 |
| Autoru: | AIV [ 23 Nov 2011, 17:49 ] |
| Tema posta: | Jelka preko VB.net-a? |
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". |
|
| Autoru: | AIV [ 23 Nov 2011, 17:57 ] |
| Tema posta: | Re: Jelka preko VB.net-a? |
Ajooj, skontao sam gresku, trebam u If naredbi i u slucaju da je g parno povecati ga za 1. |
|
| Stranica 1 od 1 | Sva vremena su u UTC [ DST ] |
| Powered by phpBB® Forum Software © phpBB Group http://www.phpbb.com/ |
|