Hallo, liebe Mitmenschen,
ich bin ein ziemlicher Neuling in Visual Basic. Momentan programmiere ich ein bisschen an einem Gehirnjogging-Programm für die Schule. Ich habe allerdings folgendes Problem: Sobald man auf den Start-Button klickt, kommt der Fehler "Der Index war außerhalb des Arraybereichs" mit Markierung in der Zeile
btnAntwortA.Text = CStr(arr1(aa, frage))
Wie gesagt, ich bin hier vollkommen neu und programmiere eigentlich auch nicht sicher mit Arrays. Ich hoffe, ihr helft mir trotzdem... :)
ich weiß, das Array hätte ich schöner hinschreiben können. Aber das sollte doch nicht das Problem sein?
Vielen Dank für eure Hilfe!
ich bin ein ziemlicher Neuling in Visual Basic. Momentan programmiere ich ein bisschen an einem Gehirnjogging-Programm für die Schule. Ich habe allerdings folgendes Problem: Sobald man auf den Start-Button klickt, kommt der Fehler "Der Index war außerhalb des Arraybereichs" mit Markierung in der Zeile
btnAntwortA.Text = CStr(arr1(aa, frage))
Wie gesagt, ich bin hier vollkommen neu und programmiere eigentlich auch nicht sicher mit Arrays. Ich hoffe, ihr helft mir trotzdem... :)
VB.NET-Quellcode
- Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click btnStart.Visible = False lblBewertung.Visible = False lblFrage.Visible = True lblAnleitung.Visible = False lblAnleitung2.Visible = False lblAnleitung3.Visible = False btnAntwortA.Visible = True btnAntwortB.Visible = True btnAntwortC.Visible = True btnAntwortD.Visible = True
- tmrZeit.Start() prgZeit.Visible = True prgZeit.Value = 0 p = 0 pn1 = Randomnumber(1, 4) passt1 = Randomnumber(0, 11) passt2 = Randomnumber(0, 11) passt3 = Randomnumber(0, 11) passtnicht1 = Randomnumber(12, 23) frage = Randomnumber(0, 5) If pn1 = 1 Then p1 = 2 aa = passtnicht1 antA = False ab = passt1 antB = True Else : p1 = 1 aa = passt1 antA = True End If If pn1 = 2 Or p1 = 2 Then p2 = 3 ac = passt2 antC = True If pn1 = 2 Then ab = passtnicht1 antB = False End If Else : p2 = 2 ab = passt2 antB = True End If If pn1 = 3 Or p2 = 3 Then p3 = 4 ad = passt3 antD = True If pn1 = 3 Then ac = passtnicht1 antC = False End If Else : p3 = 3 ac = passt3 antC = True ad = passtnicht1 antD = False End If lblFrage.Text = "Finde die Antwort, die nicht zu den anderen passt."
- Dim arr1(25, 5) As String
- btnAntwortA.Text = CStr(arr1(aa, frage)) btnAntwortB.Text = CStr(arr1(ab, frage)) btnAntwortC.Text = CStr(arr1(ac, frage)) btnAntwortD.Text = CStr(arr1(ad, frage))
- p = p + arr1(24, frage)
- arr1(0, 0) = "Paris" arr1(1, 0) = "Warschau" arr1(2, 0) = "Kopenhagen" arr1(3, 0) = "Dakar" arr1(4, 0) = "Brasilia" arr1(5, 0) = "Nairobi" arr1(6, 0) = "Moskau" arr1(7, 0) = "Rom" arr1(8, 0) = "Canberra" arr1(9, 0) = "Wien" arr1(10, 0) = "Amsterdam" arr1(11, 0) = "Brüssel" arr1(12, 0) = "Nordrhein-Westfalen" arr1(13, 0) = "Niedersachsen" arr1(14, 0) = "Thüringen" arr1(15, 0) = "Hamburg" arr1(16, 0) = "Bremen" arr1(17, 0) = "Rheinland-Pfalz" arr1(18, 0) = "Hessen" arr1(19, 0) = "Harrisburg" arr1(20, 0) = "Austin" arr1(21, 0) = "Nashville" arr1(22, 0) = "Oklahoma City" arr1(23, 0) = "Indianapolis" arr1(24, 0) = 10 arr1(25, 0) = " ist keine Hauptstadt" arr1(0, 1) = "Juneau" arr1(1, 1) = "Phoenix" arr1(2, 1) = "Springfield" arr1(3, 1) = "Baton Rouge" arr1(4, 1) = "Frankfort" arr1(5, 1) = "Boston" arr1(6, 1) = "Santa Fé" arr1(7, 1) = "Austin" arr1(8, 1) = "Nashville" arr1(9, 1) = "Oklahoma City" arr1(10, 1) = "Indianapolis" arr1(11, 1) = "Harrisburg" arr1(12, 1) = "Paris" arr1(13, 1) = "Warschau" arr1(14, 1) = "Kopenhagen" arr1(15, 1) = "Dakar" arr1(16, 1) = "Brasilia" arr1(17, 1) = "Nairobi" arr1(18, 1) = "Moskau" arr1(19, 1) = "Rom" arr1(20, 1) = "Canberra" arr1(21, 1) = "Wien" arr1(22, 1) = "Amsterdam" arr1(23, 1) = "Brüssel" arr1(24, 1) = 20 arr1(25, 1) = " ist keine Hauptstadt eines US-amerikanischen Bundesstaats." arr1(0, 2) = "Bayern" arr1(1, 2) = "Baden-Württemberg" arr1(2, 2) = "Sachsen" arr1(3, 2) = "Sachsen-Anhalt" arr1(4, 2) = "Saarland" arr1(5, 2) = "Nordrhein-Westfalen" arr1(6, 2) = "Niedersachsen" arr1(7, 2) = "Thüringen" arr1(8, 2) = "Hamburg" arr1(9, 2) = "Bremen" arr1(10, 2) = "Rheinland-Pfalz" arr1(11, 2) = "Hessen" arr1(12, 2) = "Paris" arr1(13, 2) = "Warschau" arr1(14, 2) = "Kopenhagen" arr1(15, 2) = "Wien" arr1(16, 2) = "Amsterdam" arr1(17, 2) = "Brüssel" arr1(18, 2) = "Santa Fé" arr1(19, 2) = "Austin" arr1(20, 2) = "Nashville" arr1(21, 2) = "Oklahoma City" arr1(22, 2) = "Indianapolis" arr1(23, 2) = "Harrisburg" arr1(24, 2) = 10 arr1(25, 2) = " ist kein deutsches Bundesland." arr1(0, 3) = 5 arr1(1, 3) = 20 arr1(2, 3) = 25 arr1(3, 3) = 35 arr1(4, 3) = 10 arr1(5, 3) = 75 arr1(6, 3) = 45 arr1(7, 3) = 90 arr1(8, 3) = 95 arr1(9, 3) = 15 arr1(10, 3) = 0 arr1(11, 3) = 65 arr1(12, 3) = 7 arr1(13, 3) = 3 arr1(14, 3) = 17 arr1(15, 3) = 11 arr1(16, 3) = 79 arr1(17, 3) = 14 arr1(18, 3) = 16 arr1(19, 3) = 18 arr1(20, 3) = 20 arr1(21, 3) = 22 arr1(22, 3) = 24 arr1(23, 3) = 76 arr1(24, 3) = 10 arr1(25, 3) = " ist nicht restlos durch 5 teilbar." arr1(0, 4) = 12 arr1(1, 4) = 14 arr1(2, 4) = 16 arr1(3, 4) = 18 arr1(4, 4) = 20 arr1(5, 4) = 22 arr1(6, 4) = 24 arr1(7, 4) = 26 arr1(8, 4) = 28 arr1(9, 4) = 30 arr1(10, 4) = 32 arr1(11, 4) = 34 arr1(12, 4) = 45 arr1(13, 4) = 90 arr1(14, 4) = 95 arr1(15, 4) = 15 arr1(16, 4) = 0 arr1(17, 4) = 65 arr1(18, 4) = 37 arr1(19, 4) = 7 arr1(20, 4) = 3 arr1(21, 4) = 17 arr1(22, 4) = 11 arr1(23, 4) = 19 arr1(24, 4) = 15 arr1(25, 4) = " ist keine gerade Zahl." arr1(0, 5) = 7 arr1(1, 5) = 3 arr1(2, 5) = 17 arr1(3, 5) = 11 arr1(4, 5) = 79 arr1(5, 5) = 37 arr1(6, 5) = 23 arr1(7, 5) = 29 arr1(8, 5) = 89 arr1(9, 5) = 73 arr1(10, 5) = 47 arr1(11, 5) = 19 arr1(12, 5) = 45 arr1(13, 5) = 90 arr1(14, 5) = 95 arr1(15, 5) = 15 arr1(16, 5) = 0 arr1(17, 5) = 65 arr1(18, 5) = 20 arr1(19, 5) = 14 arr1(20, 5) = 16 arr1(21, 5) = 18 arr1(22, 5) = 22 arr1(23, 5) = 24 arr1(24, 5) = 20 arr1(25, 5) = " ist keine Primzahl."
- End Sub
ich weiß, das Array hätte ich schöner hinschreiben können. Aber das sollte doch nicht das Problem sein?
Vielen Dank für eure Hilfe!