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!
er sagt das ich System.IndexOUTOfRangeException fehler habe
Pls help!!!!
Alles anzeigen
Ich wollte einen Latein programmierer machen doch als ich dann 20 vokabel nahm hat es nicht mehr gefunzt!
Pls help!!!!
Quellcode
- Option Explicit On
- Imports System
- Imports System.IO
- Imports System.IndexOUTOfRangeException
- Public Class Form1
- Dim visuell As New Dictionary(Of String, String)
- Dim eintragen As KeyValuePair(Of String, String)
- Dim dict As New Dictionary(Of String, String)
- Dim entry As KeyValuePair(Of String, String)
- Dim Kärtchen1 As New Dictionary(Of String, String)
- Dim eitrag As KeyValuePair(Of String, String)
- Dim sPfad As String = Environment.ExpandEnvironmentVariables("%userprofile%") & _
- "\Eigene Dateien\Übersetzer 1.1.0"
- Dim Kärtchen As String = Environment.ExpandEnvironmentVariables("%userprofile%") & _
- "\Eigene Dateien\Übersetzer 1.1.0\Karteikarten"
- Dim ii As String = FILE_NAME1
- Dim FILE_NAME1 As String = Kärtchen & "\Karteikarten.dic"
- Public FILE_NAME As String = sPfad & "\Wörterbuch.txt"
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- If Not Directory.Exists(sPfad) = True Then
- Directory.CreateDirectory(sPfad)
- End If
- If Not Directory.Exists(Kärtchen) = True Then
- Directory.CreateDirectory(Kärtchen)
- End If
- If Not File.Exists(FILE_NAME1) Then
- MsgBox("Karteikärtchenordner wurde erstellt.")
- Using sw As StreamWriter = File.CreateText(FILE_NAME1)
- End Using
- End If
- If Not File.Exists(FILE_NAME) Then
- MsgBox("Keine Datenbank vorhanden. Erstelle leere Datenbank.")
- Using sw As StreamWriter = File.CreateText(FILE_NAME)
- sw.WriteLine("simulacrum - Abbild")
- sw.WriteLine("intercipere - abfangen")
- sw.WriteLine("legatus - Abgesandter ")
- sw.WriteLine("secretus - abgesondert")
- sw.WriteLine("aversus - abgewandt")
- sw.WriteLine("durare - abhärten")
- sw.WriteLine("duritia f - Abhärtung")
- sw.WriteLine("auscultare - abhören")
- sw.WriteLine("cenam parare - abkochen")
- sw.WriteLine("derivare - ableiten")
- sw.WriteLine("proficisci - abreisen")
- sw.WriteLine("praeruptus - abschüssig")
- sw.WriteLine("excutere - abschütteln")
- sw.WriteLine("deterrere - abschrecken")
- sw.WriteLine("secernere - absondern")
- sw.WriteLine("spatium - Abstand ")
- sw.WriteLine("horridus - abstoßend")
- sw.WriteLine("destringere - abstreifen")
- sw.WriteLine("exspectare - abwarten")
- sw.WriteLine("abluere - abwaschen")
- sw.WriteLine("repudiare - abweisen")
- sw.WriteLine("avertere - abwenden")
- sw.WriteLine("pendere - abwiegen")
- sw.WriteLine("abnuere - abwinken")
- sw.WriteLine("cloaca - Abzugskanal")
- sw.WriteLine("reverentia - Achtung")
- sw.WriteLine("nimius - allzu groß adj")
- sw.WriteLine("aquila -Adler ")
- sw.WriteLine("simia - Affe ")
- sw.WriteLine("proavus - Ahnherr ")
- sw.WriteLine("inopinans - ahnungslos")
- sw.WriteLine("stultus - albern ")
- sw.WriteLine("tyrannus - Alleinherrscher")
- sw.WriteLine("varius - allerlei")
- sw.WriteLine("ultimus - allerletzte")
- sw.WriteLine("quotannis adv - alljährlich")
- sw.WriteLine("commodus - angemessen")
- sw.WriteLine("timor - Angst")
- sw.WriteLine("(af)figere - anheften")
- sw.WriteLine("pulsare - anklopfen")
- sw.WriteLine("causa - Anlass")
- sw.WriteLine("arrogantia - Anmaßung")
- sw.WriteLine("edictum - Anordnung")
- sw.WriteLine("anima - Lebenskraft")
- sw.WriteLine("spica - Ähre")
- sw.WriteLine("ego sum - ich bin ")
- sw.WriteLine("panis - Brot")
- sw.WriteLine("tintinnabula - Schlagzeug")
- sw.WriteLine("duce - Führer")
- End Using
- End If
- 'Einlesen der Datei
- Dim sr As IO.StreamReader = New IO.StreamReader(FILE_NAME)
- ' MsgBox(sr.ReadLine)
- Dim xA As Object
- los:
- If sr.EndOfStream = False Then
- xA = Split(sr.ReadLine, " - ", -1, 0)
- dict.Add(xA(0).ToString.ToLower, xA(1).ToString)
- GoTo los
- End If
- sr.Close()
- 'suchen
- For Each entry In dict
- 'MsgBox(entry.Key - & entry.Value)
- Next
- ' MsgBox(dict.Item("S6 K10 P96"))
- ' dict.Item("S6 K10 P96") = "Hi"
- ' MsgBox(dict.Item("S6 K10 P96"))
- Button2.Enabled = False
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If dict.ContainsKey(TextBox1.Text.ToLower) = True Then
- RichTextBox1.Text = dict(TextBox1.Text.ToLower)
- Button2.Enabled = False
- Else
- RichTextBox1.Text = "Vokabel nicht gefunden.Sie können es aber hinzufügen!!"
- Button2.Enabled = True
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- 'speichere alles in die Datei
- Using sw As StreamWriter = File.CreateText(FILE_NAME)
- For Each entry In dict
- sw.WriteLine(entry.Key & " - " & entry.Value)
- Next
- 'Neueintrag in Datei hinzufügen
- sw.WriteLine(TextBox1.Text & " - " & RichTextBox1.Text)
- End Using
- 'Neueintrag in dict hinzufügen
- dict.Add(TextBox1.Text.ToLower, RichTextBox1.Text)
- MsgBox("Eintrag erfolgreich")
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Me.Close()
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Dim Reset As String = InputBox("Wirklich zurücksetzen?Damit gehen alle Ihre Einträge in das Wörterbuch verloren", , "Zurücksetzen")
- If Reset = "Zurücksetzen" Then
- GoTo zurück
- End If
- If Reset <> "Zurücksetzen" Then
- GoTo gerettet
- End If
- zurück:
- If File.Exists(FILE_NAME) = True Then
- File.Delete(FILE_NAME)
- MsgBox("Alles zurückgesetzt!!!")
- GoTo Wiederbeschreiben
- End If
- Wiederbeschreiben:
- If Not File.Exists(FILE_NAME) Then
- MsgBox("Wörterbuch ist zurückgesetzt")
- Using sw As StreamWriter = File.CreateText(FILE_NAME)
- End Using
- GoTo weiter
- End If
- gerettet:
- MsgBox("Zrücksetzen wurde abgebrochen alle Vokabel noch vorhanden.")
- weiter:
- End Sub
- Public Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Dim Reset As String = InputBox("Wirklich zurücksetzen?Damit gehen alle Ihre Karteikärtchen verloren!", , "Zurücksetzen")
- If Reset = "Zurücksetzen" Then
- GoTo zurück
- End If
- If Reset <> "Zurücksetzen" Then
- GoTo gerettet
- End If
- zurück:
- If File.Exists(FILE_NAME1) = True Then
- File.Delete(FILE_NAME1)
- GoTo Wiederbeschreiben
- End If
- Wiederbeschreiben:
- If Not File.Exists(FILE_NAME1) Then
- MsgBox("Karteikärtchen werden zrückgesetzt.")
- Using sw As StreamWriter = File.CreateText(FILE_NAME1)
- End Using
- GoTo weiter
- End If
- gerettet:
- MsgBox("Zrücksetzen wurde abgebrochen alle Karteikärtchen sind vorhanden.")
- weiter:
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- Try
- Using sw As StreamWriter = File.CreateText(FILE_NAME1)
- For Each entry In Kärtchen1
- sw.WriteLine(entry.Key & " - " & entry.Value)
- Next
- 'Neueintrag in Datei hinzufügen
- sw.WriteLine(TextBox1.Text & " - " & RichTextBox1.Text)
- End Using
- 'Neueintrag in dict hinzufügen
- Kärtchen1.Add(TextBox1.Text.ToLower, RichTextBox1.Text)
- MsgBox("Eintrag erfolgreich")
- Catch
- MsgBox("Konnte nicht hinzugefügt werden!Grund:Ist vill. schon vorhanden!")
- End Try
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- Dim ak As IO.StreamReader = New IO.StreamReader(FILE_NAME1)
- If Kärtchen1.ContainsKey(TextBox1.Text.ToLower) = True Then
- RichTextBox1.Text = Kärtchen1(TextBox1.Text.ToLower)
- Else
- RichTextBox1.Text = "Dieses Karteikärtchen hast du noch nicht hinzugefügt!"
- End If
- End Sub
- End Class