Hallo

Ich hab ein rießen Problem und niemand kann mir helfen!

Ich mus für meinen Lehrer einen einfachen Vokabeltrainer in C# machen......nur das Problem ist, dass ich keine Ahnung von dem ganzen hab!in Programmieren bin ich echt ne 0!

das noch größere problem ist, dass ich einen unfall hatte,deswegen lange nix machen konnte und nun hängt davon mein abbi ab!

Leute ich bin verzweifelt!


könnt ihr mir bitte irgendwie helfen?
ich bin echt total verzweifelt!

gggglg sunny

Eventuell, wenn du uns sagst wie wir helfen können?
(Ohne das wir für dich deine Hausaufgabe machen)

tja es ist so.....ci hhab keine ahnung von irgendwas!bissher hab ich nur dieses grundgerüst!und da weiß ich nicht ganz was ich damit anfangen soll!

Hier:

Code c#:

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

Public Class frm1202    ' Liste der Fragen   Dim frage As New List(Of String)     ' Liste der Antworten    Dim antwort As New List(Of String)      ' Zufallszahl für ein Element der beiden Listen   Dim zufallszahl As Integer     ' Richtung der Vokabel-Abfrage    Dim richtung As Integer      Private Sub frm1202_Load( ... ) Handles MyBase.Load       ' Initialisierung des Zufallsgenerators      Randomize()      ' Startrichtung Englisch - Deutsch       richtung = 2    End Sub [ ... ] End Class   Public Class frm1202 [ ... ]    Private Sub cmdStart_Click( ... ) Handles ...       Dim con As New OleDb.OleDbConnection       Dim cmd As New OleDb.OleDbCommand       Dim reader As OleDb.OleDbDataReader         con.ConnectionString = _          "Provider=Microsoft.Jet.OLEDB.4.0;" & _          "Data Source=C:\Temp\lernen.mdb"       cmd.Connection = con       cmd.CommandText = "select * from vokabel"         Try          con.Open()          reader = cmd.ExecuteReader()            ' Speicherung in den Listen gemäß         ' ausgewählter Richtung          Do While reader.Read()             If richtung = 1 Or richtung = 3 Then                frage.Add(reader("deutsch"))             ElseIf richtung = 2 Then                frage.Add(reader("englisch"))             Else                frage.Add(reader("französisch"))             End If             If richtung = 2 Or richtung = 4 Then                antwort.Add(reader("deutsch"))             ElseIf richtung = 1 Then                antwort.Add(reader("englisch"))             Else                antwort.Add(reader("französisch"))             End If          Loop            reader.Close()          con.Close()            ' Buttons und Menü (de)aktivieren         cmdStart.Enabled = False         cmdPrüfen.Enabled = True         mnuRichtung.Enabled = False           ' Erste Vokabel erscheint          Nächste_Vokabel()         Catch ex As Exception          MsgBox(ex.Message)       End Try    End Sub [ ... ] End Class   Public Class frm1202 [ ... ]    Sub Nächste_Vokabel()       ' Falls keine Vokabel mehr in der Liste: Ende      If frage.Count < 1 Then         MsgBox("Gratuliere! Alle Vokabeln geschafft")         Test_Init()        ' Falls noch Vokabeln in der Liste: Nächste       Else          zufallszahl = Rnd() * (frage.Count - 1)          lblFrage.Text = frage(zufallszahl)          txtAntwort.Text = ""       End If    End Sub      Sub Test_Init()       ' Buttons und Menü (de)aktivieren      cmdStart.Enabled = True      cmdPrüfen.Enabled = False      mnuRichtung.Enabled = True        ' Felder leeren       lblFrage.Text = ""       txtAntwort.Text = ""    End Sub [ ... ] End Class   Public Class frm1202 [ ... ]    Private Sub cmdPrüfen_Click( ... ) Handles ...       ' Falls richtig beantwortet:      ' Vokabel aus Liste nehmen       If txtAntwort.Text = antwort(zufallszahl) Then          MsgBox("Richtig", , "Vokabel")          frage.RemoveAt(zufallszahl)          antwort.RemoveAt(zufallszahl)         ' Falls falsch beantwortet: richtige Antwort nennen      Else         MsgBox("Falsch, die richtige Antwort ist " & _                vbCrLf & "'" & antwort(zufallszahl) & _                "'", , "Vokabel")      End If          ' Nächste Vokabel erscheint       Nächste_Vokabel()    End Sub [ ... ] End Class   Public Class frm1202 [ ... ]    Private Sub mnuEndeTest_Click() Handles ...       ' Abbruch mit Rückfrage      If MsgBox("Wollen Sie den Text wirklich " _               & "abbrechen?", MsgBoxStyle.YesNo, _               & "Vokabel") = MsgBoxResult.Yes Then         Test_Init()      End If   End Sub     Private Sub mnuEndeProgramm_Click( ... ) Handles ...      ' Beenden mit Rückfrage       If MsgBox("Wollen Sie das Programm wirklich " _             & "beenden?", MsgBoxStyle.YesNo, _             "Vokabel") = MsgBoxResult.Yes Then          Me.Close()       End If    End Sub      Private Sub mnuDE_Click( ... ) Handles ...       ' Richtung wird geändert      richtung = 1      Check_False()      mnuDE.Checked = True   End Sub     Private Sub mnuED_Click( ... ) Handles ...      richtung = 2      Check_False()      mnuED.Checked = True   End Sub     Private Sub mnuDF_Click( ... ) Handles ...      richtung = 3      Check_False()      mnuDF.Checked = True   End Sub     Private Sub mnuFD_Click( ... ) Handles ...      richtung = 4      Check_False()      mnuFD.Checked = True   End Sub     Sub Check_False()      mnuDE.Checked = False      mnuED.Checked = False      mnuDF.Checked = False      mnuFD.Checked = False   End Sub     Private Sub mnuAnleitung_Click( ... ) Handles ...      MsgBox("Bestimmen Sie die Richtung von Frage " _         & "und Antwort." & vbCrLf & "Starten Sie " _         & "den Test." & vbCrLf & "Sie werden nach " _         & "den Übersetzungen der Vokabeln so lange " _         & "gefragt, bis Sie alle richtig übersetzt " _         & "haben." & vbCrLf & "Bei einer falschen " _         & "Antwort wird Ihnen die richtige Antwort " _         & "genannt." , , "Vokabel")   End Sub End Class

Mehr als mich noch zusätzlich verwirren tut mich das nicht!

gggglg sunny

Ließ dir erst mal das Galileo Openbook zu VB.Net durch. Da stehen die Grundlagen drin.

Hallo,

wenn du keine Ahnung hast, ist der kopierte Quelltext den du da gepostest hast der falsche Anfang. Sag doch mal wieviel du von .Net (VB oder c#) du kannst / kennst. Ich denke darauf können wir dann sicherlich aufbauen und Dir helfen.
Aber wie schon Spyke sagte ein komplettes Programm bekommst Du hier glaub ich nicht.

Gruß
Col.Blake