Hallo,
wir machen im Informatikunterricht momentan Verschlüsselung usw.
Nun soll ich in VB ein Programm erstellen, mitdem es möglich ist einen Text mit der Cäsar-Methode zu verschlüsseln. (Bei der Cäser Methode wird jeder einzelne Buchstabe eines Textes um x Buchstaben verschoben. z.B. "Verschiebung" beträgt 4, der Text ist "hallo" und wird nach der Verschlüsselung zu "lepps".)
In VB sieht dass dann folgendermaßen aus:
Ich habe 3 Textboxen und einen Button. Eine, in der ich die "Verschiebung" eintrage, eine in die ich den zu verschlüsselnden Text eintrage und eine, in der der verschlüsselte Text nachdem man auf den Button geklickt hat angezeigt wird.
Code ist dieser hier:
Private Sub cmdverschlüsseln_Click()
Dim text$
text = txttext.text
txtverschlüsselt.text = encode(text)
txttext.text = decode(encode(text))
End Sub
Function encode(str As String)
Dim str_crypt$
Dim i%
Dim verschiebung As Integer
verschiebung = txtverschiebung.text
For i = 1 To Len(str)
str_crypt = str_crypt & Chr(Asc(Mid(str, i, 1)) + verschiebung)
Next i
encode = str_crypt
End Function
Function decode(str_crypt As String)
Dim str$
Dim i%
Dim verschiebung
verschiebung = txtverschiebung.text
For i = 1 To Len(str_crypt)
str = str & Chr(Asc(Mid(str_crypt, i, 1)) - verschiebung)
Next i
decode = str
End Function
Nun zum Problem. Wenn ich den Code und die Form im VB-Editor von Excel öffne und starte klappt alles. Nun will ich das ganze aber unter Visual Studios programmieren. Wenn ich jetzt genau die gleiche Form erstelle, diesen Code benutze und das Programm starte, kommt diese Meldung hier:
"Die str_crypt Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten."
Bitte um Hilfe...
Mit freundlichen Grüßen Golox
wir machen im Informatikunterricht momentan Verschlüsselung usw.
Nun soll ich in VB ein Programm erstellen, mitdem es möglich ist einen Text mit der Cäsar-Methode zu verschlüsseln. (Bei der Cäser Methode wird jeder einzelne Buchstabe eines Textes um x Buchstaben verschoben. z.B. "Verschiebung" beträgt 4, der Text ist "hallo" und wird nach der Verschlüsselung zu "lepps".)
In VB sieht dass dann folgendermaßen aus:
Ich habe 3 Textboxen und einen Button. Eine, in der ich die "Verschiebung" eintrage, eine in die ich den zu verschlüsselnden Text eintrage und eine, in der der verschlüsselte Text nachdem man auf den Button geklickt hat angezeigt wird.
Code ist dieser hier:
Private Sub cmdverschlüsseln_Click()
Dim text$
text = txttext.text
txtverschlüsselt.text = encode(text)
txttext.text = decode(encode(text))
End Sub
Function encode(str As String)
Dim str_crypt$
Dim i%
Dim verschiebung As Integer
verschiebung = txtverschiebung.text
For i = 1 To Len(str)
str_crypt = str_crypt & Chr(Asc(Mid(str, i, 1)) + verschiebung)
Next i
encode = str_crypt
End Function
Function decode(str_crypt As String)
Dim str$
Dim i%
Dim verschiebung
verschiebung = txtverschiebung.text
For i = 1 To Len(str_crypt)
str = str & Chr(Asc(Mid(str_crypt, i, 1)) - verschiebung)
Next i
decode = str
End Function
Nun zum Problem. Wenn ich den Code und die Form im VB-Editor von Excel öffne und starte klappt alles. Nun will ich das ganze aber unter Visual Studios programmieren. Wenn ich jetzt genau die gleiche Form erstelle, diesen Code benutze und das Programm starte, kommt diese Meldung hier:
"Die str_crypt Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten."
Bitte um Hilfe...
Mit freundlichen Grüßen Golox
