Toon posts:

[VB.NET] Wat doe ik fout?

Pagina: 1
Acties:
  • 35 views sinds 30-01-2008

vrijdag 13 juni 2003 11:57

Acties:
  • mpie
  • Registratie: Maart 2001
  • Laatst online: 25-01-2016

mpie

Topicstarter
Ik heb zoals aangeraden bij mijn vorige post gebruik gemaakt van een arraylist.
Tijdens het compilen geeft VB geen fouten aan. Maar nadat ik op de knop Toon drukt dan geeft ie de melding : index was out of range. Must be non negative and less than the size of the collection.

De aangepaste versie voor zover staat hieronder.
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210

    Const filename As String = "D:\projecten\verjaardagskalender\index.html"
    Private iArray, iGeheugen As Integer
    Private arrAantal As New ArrayList()

    Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
        Toevoegen()
    End Sub

    Private Sub Toevoegen()
        Dim p As gegevens.Persoon
        Dim check As Boolean
        Dim d As gegevens.Datum

        p.Naam = txtNaam.Text

        d.Dag = CType(txtDag.Text, Integer)
        d.Maand = CType(txtMaand.Text, Integer)
        d.Jaar = CType(txtJaar.Text, Integer)

        If modDatum.CheckDatum(d) = False Then
            MessageBox.Show("De ingevoerde datum is een incorrecte datum" & vbNewLine & "vul een nieuwe datum in: ", "Datumcontrole", MessageBoxButtons.OK)
            txtDag.Text = ""
            txtMaand.Text = ""
            txtJaar.Text = ""
            txtDag.Focus()
            Exit Sub
        End If

        p.Verjaardag = d

        MessageBox.Show(p.Naam & " is toegevoegd!", "Toegevoegd", MessageBoxButtons.OK)

        iArray += 1
        iGeheugen += 1

        arrAantal.Add(p)
        lblGeheugenAantal.Text = CStr(iGeheugen)
    End Sub

    Private Sub btnToon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToon.Click
        Tonen()
    End Sub

    Private Sub Tonen()
        Dim p As gegevens.Persoon
        Dim prompt, Naam As String
        Dim i, Dag, Maand, Jaar As Integer

        'opent index.html, maakt index.html aan als het nog niet bestaat
        Dim myFileStream As New System.IO.FileStream(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write, System.IO.FileShare.None)
        Dim myWriter As New System.IO.StreamWriter(myFileStream)

        Me.lstWeergave.Items.Clear()
        Sorteer()

        FileOpen(1, "filename", OpenMode.Output)
        myWriter.WriteLine("<html>" & vbNewLine & "<head>" & vbNewLine & "<title>Verjaardags Kalender</title>" & vbNewLine & "</head>")
        myWriter.WriteLine("<body bgcolor=#EEF3F7>" & vbNewLine & "<center>")
        myWriter.WriteLine("<table width=500 bgcolor=#A8C5D8 cellpadding=5 cellspacing=1>")
        myWriter.WriteLine("<tr>")
        myWriter.WriteLine("<td colspan=2 align=center bgcolor=#CCCCCC><font color=#336699 face=verdana size=2><b>")
        myWriter.WriteLine("Verjaardagskalender")
        myWriter.WriteLine("</b></font></td>")
        myWriter.WriteLine("</tr>")
        myWriter.WriteLine("<tr>")
        myWriter.WriteLine("<td align=center bgcolor=#EEEEEE><font color=#336699 face=verdana size=2><b>")
        myWriter.WriteLine("Naam")
        myWriter.WriteLine("</b></font></td>")
        myWriter.WriteLine("<td align=center bgcolor=#EEEEEE><font color=#336699 face=verdana size=2><b>")
        myWriter.WriteLine("Datum")
        myWriter.WriteLine("</b></font></td>")
        myWriter.WriteLine("</tr>")

        For i = 1 To arrAantal.Count

            p = CType(arrAantal(iArray), gegevens.Persoon)
            Naam = p.Naam
            Dag = p.Verjaardag.Dag
            Maand = p.Verjaardag.Maand
            Jaar = p.Verjaardag.Jaar

            prompt = Naam & vbTab & vbTab & Dag & " - " & Maand & " - " & Jaar

            Me.lstWeergave.Items.Add(prompt)

            myWriter.WriteLine("<tr>")
            myWriter.WriteLine("<td valign=top bgcolor=#FFFFFF><font color=#769CB5 face=verdana size=2>")
            myWriter.WriteLine(Naam)
            myWriter.WriteLine("</font></td>")
            myWriter.WriteLine("<td valign=top bgcolor=#FFFFFF><font color=#769CB5 face=verdana size=2>")
            myWriter.WriteLine(Dag & " - " & Maand & " - " & Jaar)
            myWriter.WriteLine("</font></td>")
            myWriter.WriteLine("</tr>")

        Next i

        myWriter.WriteLine("</table>")
        myWriter.WriteLine("<font color=#336699 face=verdana size=2>Created with VB.NET</font>")
        myWriter.WriteLine("</center>" & vbNewLine & "</body>")
        myWriter.WriteLine("</html>")
        myWriter.Close()
        myFileStream.Close()
        iGeheugen = 0
        lblGeheugenAantal.Text = CStr(iGeheugen)
        lblLijstTotaal.Text = CStr(iArray)
        FileClose(1)
    End Sub

    Private Sub Sorteer()
        Dim i, j As Integer
        Dim p1, p2, hulp As gegevens.Persoon
        Dim dag, maand, jaar, dag1, maand1, jaar1 As Integer


        For i = 1 To arrAantal.Count - 1
            For j = i + 1 To arrAantal.Count

                p1 = CType(arrAantal(i), gegevens.Persoon)
                p2 = CType(arrAantal(j), gegevens.Persoon)

                dag = p1.Verjaardag.Dag
                maand = p1.Verjaardag.Maand
                jaar = p1.Verjaardag.Jaar

                dag1 = p2.Verjaardag.Dag
                maand1 = p2.Verjaardag.Maand
                jaar1 = p2.Verjaardag.Jaar

                If jaar = jaar1 Then
                    If maand = maand1 Then
                        If dag > dag1 Then
                            Wisselen(CType(arrAantal(i), gegevens.Persoon), CType(arrAantal(j), gegevens.Persoon))
                        End If
                    Else
                        If maand > maand1 Then
                            Wisselen(CType(arrAantal(i), gegevens.Persoon), CType(arrAantal(j), gegevens.Persoon))
                        End If
                    End If
                Else
                    If jaar > jaar1 Then
                        Wisselen(CType(arrAantal(i), gegevens.Persoon), CType(arrAantal(j), gegevens.Persoon))
                    End If
                End If

            Next j
        Next i
    End Sub

    Private Sub MnuToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuToevoegen.Click
        Toevoegen()
    End Sub

    Private Sub MnuToon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuToon.Click
        Tonen()
    End Sub

    Private Sub MnuAfsluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAfsluiten.Click
        If (MessageBox.Show("Weet u zeker dat u wilt afsluiten", "Afsluiten", MessageBoxButtons.YesNo)) = DialogResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub txtNaam_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNaam.KeyPress
        'op dit moment gebruikersinvoer controleren op niet-string
        If IsNumeric(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
            Beep()
        End If
    End Sub

    Private Sub txtDag_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDag.KeyPress
        'op dit moment gebruikersinvoer controleren op niet-numeriek
        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
            Beep()
        End If
    End Sub

    Private Sub txtMaand_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMaand.KeyPress
        'op dit moment gebruikersinvoer controleren op niet-numeriek
        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
            Beep()
        End If
    End Sub

    Private Sub txtJaar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJaar.KeyPress
        'op dit moment gebruikersinvoer controleren op niet-numeriek
        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
            Beep()
        End If
    End Sub

    Private Sub lstWeergave_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstWeergave.DoubleClick
        Dim i, j As Integer
        Dim hulp As gegevens.Persoon

        i = lstWeergave.SelectedIndex

        i += 1

        For j = i To arrAantal.Count - 1
            arrAantal(j) = arrAantal(j + 1)
        Next j

        iArray -= 1

        Tonen()
    End Sub

Wat je wil is niet altijd wat je nodig hebt!

vrijdag 13 juni 2003 11:59

Acties:
  • whoami
  • Registratie: December 2000
  • Laatst online: 01:57

whoami

Post eens enkel het relevante stukje code ipv zo'n lap van 200 regels.

Debug je code eens, zodat je ziet op welke regel het fout gaat. Zo ga je misschien zelf ook al zien wat de aanleiding is van die error.

(Een array begint bij 0)

https://fgheysels.github.io/

vrijdag 13 juni 2003 11:59

Acties:
  • curry684
  • Registratie: Juni 2000
  • Laatst online: 13-08 16:46

curry684

left part of the evil twins

En ga gewoon verder in je vorige topic, tis pas 2 dagen oud en dit is gewoon het vervolg.

Professionele website nodig?

Dit topic is gesloten.