Hallo ich schon wieder,
ich wollte einen leichten codierer für meinen freund machen weil sein bruder imer gespeicherte nachrichten ließt machen
Nur hatte ich das Problem das wenn ich es so gemacht hab:
hier war das Problem das nun alle "a", "e" und "z" zu "d" wurden
also hab ich versucht das Problem mit and zu lösen
Jetzt bekomme ich immer die Fehler meldung:
Ungültige Konvertierung von der Zeichenfolge in Typ Boolean.
Vorher kam das nicht
ich hab sehr wahrscheinlich nur ein Brett vorm Kopf aber den Fehler seh ich net...
MfG Nixodas
ich wollte einen leichten codierer für meinen freund machen weil sein bruder imer gespeicherte nachrichten ließt machen
Nur hatte ich das Problem das wenn ich es so gemacht hab:
hier war das Problem das nun alle "a", "e" und "z" zu "d" wurden
also hab ich versucht das Problem mit and zu lösen
VB.NET-Quellcode
- Dim umwandeln
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- umwandeln = RichTextBox1.Text
- If TextBox1.Text = "1" Then
- umwandeln = umwandeln.Replace("a", "e") And umwandeln = umwandeln.Replace("b", "o") And umwandeln = umwandeln.Replace("c", "a") And umwandeln = umwandeln.Replace("d", "b") And umwandeln = umwandeln.Replace("e", "z") And umwandeln = umwandeln.Replace("f", "l") And umwandeln = umwandeln.Replace("g", "p") And umwandeln = umwandeln.Replace("h", "q") And umwandeln = umwandeln.Replace("i", "m") And umwandeln = umwandeln.Replace("j", "s") And umwandeln = umwandeln.Replace("k", "t") And umwandeln = umwandeln.Replace("l", "y") And umwandeln = umwandeln.Replace("m", "r") And umwandeln = umwandeln.Replace("n", "v") And umwandeln = umwandeln.Replace("o", "n") And umwandeln = umwandeln.Replace("p", "w") And umwandeln = umwandeln.Replace("q", "u") And umwandeln = umwandeln.Replace("r", "x") And umwandeln = umwandeln.Replace("s", "g") And umwandeln = umwandeln.Replace("t", "i") And umwandeln = umwandeln.Replace("u", "h") And umwandeln = umwandeln.Replace("v", "f") And umwandeln = umwandeln.Replace("w", "c") And umwandeln = umwandeln.Replace("x", "j") And umwandeln = umwandeln.Replace("y", "k") And umwandeln = umwandeln.Replace("z", "d")
- Button1.Enabled = True
- Label5.Visible = False
- Else
- Label5.Visible = True
- End If
- RichTextBox1.Text = umwandeln
- End Sub
Jetzt bekomme ich immer die Fehler meldung:
Ungültige Konvertierung von der Zeichenfolge in Typ Boolean.
Vorher kam das nicht
ich hab sehr wahrscheinlich nur ein Brett vorm Kopf aber den Fehler seh ich net...
MfG Nixodas