VisualBasic Latein Programm

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • VisualBasic Latein Programm

    Hi ich bräuchte bei einem Programm hilfe!

    Ich wollte einen Latein programmierer machen doch als ich dann 20 vokabel nahm hat es nicht mehr gefunzt!

    Quellcode

    1. System.IndexOUTOfRangeException
    2. If sr.EndOfStream = False Then
    3. xA = Split(sr.ReadLine, " - ", -1, 0)
    4. dict.Add(xA(0).ToString.ToLower, xA(1).ToString)
    er sagt das ich System.IndexOUTOfRangeException fehler habe
    Pls help!!!!


    Quellcode

    1. Option Explicit On
    2. Imports System
    3. Imports System.IO
    4. Imports System.IndexOUTOfRangeException
    5. Public Class Form1
    6. Dim visuell As New Dictionary(Of String, String)
    7. Dim eintragen As KeyValuePair(Of String, String)
    8. Dim dict As New Dictionary(Of String, String)
    9. Dim entry As KeyValuePair(Of String, String)
    10. Dim Kärtchen1 As New Dictionary(Of String, String)
    11. Dim eitrag As KeyValuePair(Of String, String)
    12. Dim sPfad As String = Environment.ExpandEnvironmentVariables("%userprofile%") & _
    13. "\Eigene Dateien\Übersetzer 1.1.0"
    14. Dim Kärtchen As String = Environment.ExpandEnvironmentVariables("%userprofile%") & _
    15. "\Eigene Dateien\Übersetzer 1.1.0\Karteikarten"
    16. Dim ii As String = FILE_NAME1
    17. Dim FILE_NAME1 As String = Kärtchen & "\Karteikarten.dic"
    18. Public FILE_NAME As String = sPfad & "\Wörterbuch.txt"
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    21. If Not Directory.Exists(sPfad) = True Then
    22. Directory.CreateDirectory(sPfad)
    23. End If
    24. If Not Directory.Exists(Kärtchen) = True Then
    25. Directory.CreateDirectory(Kärtchen)
    26. End If
    27. If Not File.Exists(FILE_NAME1) Then
    28. MsgBox("Karteikärtchenordner wurde erstellt.")
    29. Using sw As StreamWriter = File.CreateText(FILE_NAME1)
    30. End Using
    31. End If
    34. If Not File.Exists(FILE_NAME) Then
    35. MsgBox("Keine Datenbank vorhanden. Erstelle leere Datenbank.")
    36. Using sw As StreamWriter = File.CreateText(FILE_NAME)
    37. sw.WriteLine("simulacrum - Abbild")
    38. sw.WriteLine("intercipere - abfangen")
    39. sw.WriteLine("legatus - Abgesandter ")
    40. sw.WriteLine("secretus - abgesondert")
    41. sw.WriteLine("aversus - abgewandt")
    42. sw.WriteLine("durare - abhärten")
    43. sw.WriteLine("duritia f - Abhärtung")
    44. sw.WriteLine("auscultare - abhören")
    45. sw.WriteLine("cenam parare - abkochen")
    46. sw.WriteLine("derivare - ableiten")
    47. sw.WriteLine("proficisci - abreisen")
    48. sw.WriteLine("praeruptus - abschüssig")
    49. sw.WriteLine("excutere - abschütteln")
    50. sw.WriteLine("deterrere - abschrecken")
    51. sw.WriteLine("secernere - absondern")
    52. sw.WriteLine("spatium - Abstand ")
    53. sw.WriteLine("horridus - abstoßend")
    54. sw.WriteLine("destringere - abstreifen")
    55. sw.WriteLine("exspectare - abwarten")
    56. sw.WriteLine("abluere - abwaschen")
    57. sw.WriteLine("repudiare - abweisen")
    58. sw.WriteLine("avertere - abwenden")
    59. sw.WriteLine("pendere - abwiegen")
    60. sw.WriteLine("abnuere - abwinken")
    61. sw.WriteLine("cloaca - Abzugskanal")
    62. sw.WriteLine("reverentia - Achtung")
    63. sw.WriteLine("nimius - allzu groß adj")
    64. sw.WriteLine("aquila -Adler ")
    65. sw.WriteLine("simia - Affe ")
    66. sw.WriteLine("proavus - Ahnherr ")
    67. sw.WriteLine("inopinans - ahnungslos")
    68. sw.WriteLine("stultus - albern ")
    69. sw.WriteLine("tyrannus - Alleinherrscher")
    70. sw.WriteLine("varius - allerlei")
    71. sw.WriteLine("ultimus - allerletzte")
    72. sw.WriteLine("quotannis adv - alljährlich")
    73. sw.WriteLine("commodus - angemessen")
    74. sw.WriteLine("timor - Angst")
    75. sw.WriteLine("(af)figere - anheften")
    76. sw.WriteLine("pulsare - anklopfen")
    77. sw.WriteLine("causa - Anlass")
    78. sw.WriteLine("arrogantia - Anmaßung")
    79. sw.WriteLine("edictum - Anordnung")
    80. sw.WriteLine("anima - Lebenskraft")
    81. sw.WriteLine("spica - Ähre")
    82. sw.WriteLine("ego sum - ich bin ")
    83. sw.WriteLine("panis - Brot")
    84. sw.WriteLine("tintinnabula - Schlagzeug")
    85. sw.WriteLine("duce - Führer")
    88. End Using
    89. End If
    90. 'Einlesen der Datei
    91. Dim sr As IO.StreamReader = New IO.StreamReader(FILE_NAME)
    92. ' MsgBox(sr.ReadLine)
    93. Dim xA As Object
    94. los:
    95. If sr.EndOfStream = False Then
    96. xA = Split(sr.ReadLine, " - ", -1, 0)
    97. dict.Add(xA(0).ToString.ToLower, xA(1).ToString)
    98. GoTo los
    99. End If
    100. sr.Close()
    102. 'suchen
    103. For Each entry In dict
    104. 'MsgBox(entry.Key - & entry.Value)
    105. Next
    107. ' MsgBox(dict.Item("S6 K10 P96"))
    108. ' dict.Item("S6 K10 P96") = "Hi"
    109. ' MsgBox(dict.Item("S6 K10 P96"))
    112. Button2.Enabled = False
    113. End Sub
    114. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    115. If dict.ContainsKey(TextBox1.Text.ToLower) = True Then
    116. RichTextBox1.Text = dict(TextBox1.Text.ToLower)
    117. Button2.Enabled = False
    118. Else
    119. RichTextBox1.Text = "Vokabel nicht gefunden.Sie können es aber hinzufügen!!"
    120. Button2.Enabled = True
    121. End If
    122. End Sub
    123. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    124. 'speichere alles in die Datei
    125. Using sw As StreamWriter = File.CreateText(FILE_NAME)
    126. For Each entry In dict
    127. sw.WriteLine(entry.Key & " - " & entry.Value)
    128. Next
    129. 'Neueintrag in Datei hinzufügen
    130. sw.WriteLine(TextBox1.Text & " - " & RichTextBox1.Text)
    131. End Using
    132. 'Neueintrag in dict hinzufügen
    133. dict.Add(TextBox1.Text.ToLower, RichTextBox1.Text)
    134. MsgBox("Eintrag erfolgreich")
    135. End Sub
    136. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    137. Me.Close()
    138. End Sub
    139. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    140. Dim Reset As String = InputBox("Wirklich zurücksetzen?Damit gehen alle Ihre Einträge in das Wörterbuch verloren", , "Zurücksetzen")
    141. If Reset = "Zurücksetzen" Then
    142. GoTo zurück
    143. End If
    145. If Reset <> "Zurücksetzen" Then
    146. GoTo gerettet
    147. End If
    150. zurück:
    151. If File.Exists(FILE_NAME) = True Then
    152. File.Delete(FILE_NAME)
    153. MsgBox("Alles zurückgesetzt!!!")
    154. GoTo Wiederbeschreiben
    155. End If
    156. Wiederbeschreiben:
    157. If Not File.Exists(FILE_NAME) Then
    158. MsgBox("Wörterbuch ist zurückgesetzt")
    159. Using sw As StreamWriter = File.CreateText(FILE_NAME)
    160. End Using
    161. GoTo weiter
    162. End If
    164. gerettet:
    165. MsgBox("Zrücksetzen wurde abgebrochen alle Vokabel noch vorhanden.")
    166. weiter:
    167. End Sub
    168. Public Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    169. Dim Reset As String = InputBox("Wirklich zurücksetzen?Damit gehen alle Ihre Karteikärtchen verloren!", , "Zurücksetzen")
    170. If Reset = "Zurücksetzen" Then
    171. GoTo zurück
    172. End If
    174. If Reset <> "Zurücksetzen" Then
    175. GoTo gerettet
    176. End If
    179. zurück:
    180. If File.Exists(FILE_NAME1) = True Then
    181. File.Delete(FILE_NAME1)
    182. GoTo Wiederbeschreiben
    183. End If
    184. Wiederbeschreiben:
    185. If Not File.Exists(FILE_NAME1) Then
    186. MsgBox("Karteikärtchen werden zrückgesetzt.")
    187. Using sw As StreamWriter = File.CreateText(FILE_NAME1)
    188. End Using
    189. GoTo weiter
    190. End If
    192. gerettet:
    193. MsgBox("Zrücksetzen wurde abgebrochen alle Karteikärtchen sind vorhanden.")
    194. weiter:
    198. End Sub
    199. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    200. Try
    201. Using sw As StreamWriter = File.CreateText(FILE_NAME1)
    202. For Each entry In Kärtchen1
    203. sw.WriteLine(entry.Key & " - " & entry.Value)
    204. Next
    205. 'Neueintrag in Datei hinzufügen
    206. sw.WriteLine(TextBox1.Text & " - " & RichTextBox1.Text)
    207. End Using
    208. 'Neueintrag in dict hinzufügen
    209. Kärtchen1.Add(TextBox1.Text.ToLower, RichTextBox1.Text)
    210. MsgBox("Eintrag erfolgreich")
    211. Catch
    212. MsgBox("Konnte nicht hinzugefügt werden!Grund:Ist vill. schon vorhanden!")
    213. End Try
    214. End Sub
    218. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    219. Dim ak As IO.StreamReader = New IO.StreamReader(FILE_NAME1)
    220. If Kärtchen1.ContainsKey(TextBox1.Text.ToLower) = True Then
    221. RichTextBox1.Text = Kärtchen1(TextBox1.Text.ToLower)
    222. Else
    223. RichTextBox1.Text = "Dieses Karteikärtchen hast du noch nicht hinzugefügt!"
    224. End If
    226. End Sub
    227. End Class
    Alles anzeigen