Visual Basic Zeilenumbruch im Code?

Ich bin zur Zeit dabei ein Verschlüsselungsprogramm mit VB zu programmieren. Leider gibts hier ein Problem mit den Zeilenumbrüchen. Wenn man im Orginaltext in zwei Zeilen schreibt, dann wir der Zeilenumbruch als 'z' ausgelesen und dann mit dem Schlüsselwort verrechnet und ausgegeben. Das verfälscht die Verschlüsselung und wenn man es dann wieder entschlüsseln lässt. deshalb will ich den String dann irgendwie so machen:

If Eingabe = >Zeilenumbruch< then Ausgabe = >Zeilenumbruch<

oder: If Eingabe = >Zeilenumbruch< then Ausgabe = " "

Sodass der Zeilenumbruch erhalten bleibt oder ein Leerzeichen setzt, aber die Verschlüsselung nicht verfälscht. Ich weis nur nicht, wie ich diesen >Zeilenumbruch< - Teil im Code ausdrücken soll. ich hab schon sowas wie vbCr und vbCrLf versucht, aber hat nicht funktioniert und, dass man die Zeile in () dahinter schreibt, geht in diesem Fall auch nicht. Wisst ihr da vielleicht was?

Wichtig zu wissen wär, dass die Variable Eingabe eine Mid$ - Funktion ist von einem Text, der verschlüsselt werden soll von einer immer größer werdenden Stelle mit der Länge 1:

While Stelle < EingebenerText.length + 1

Eingabe = Mid$(Ein

Stelle = Stelle + 1

End While

1 Antwort

horstfh

26.06.2017, 17:10

Ist Dein Ansatz überhaupt richtig? Du kannst doch nicht mit If-Then eine Verschlüsselung vornehmen.

Vielleicht hilft Dir folgender Ansatz:

Alle Zeichen in Deinem Text sind ASCII oder Unicode-Zeichen. Der ASCII Zeichensatz enthält Zeichen mit dem Code 0 bis 255, Unicode bis 65535. ASCII kannst Du für Editor-Texte verwenden, bei Word Unicode. Und vbCrLf besteht aus den beiden Codes 10 und 13 (Chr(10) und Chr(13))

Jetzt eine Vorschlag zu Deinem Verschlüsselungsprogram:

Du hast beispielsweise einen ASCII- Text und einen ASCII-Schlüssel.

Wenn Du die Codewerte der Zeichen einzeln addierst verschlüsselst Du und entschlüsselst indem Du später die Schlüsselcodes wieder subtrahierst.

Einziges Problem ist: Beim Addieren von zwei Werten kannst Du eine Zahl über 255 bekommen. Du musst also beim Verschlüsseln bei einem Wert über 255 diesen Grenzwert abziehen und beim Entschlüsseln bei Werten unter 0 die 255 wieder abziehen.

Hier ein Codebeispiel für das Codieren:

    Function Codieren(ByVal Tx1 As String, ByVal Schlüssel As String) As String
        Dim m, n As Integer
        Dim Cd1 As Integer
        Dim Tx2 As String = ""
        n = 0
        For m = 0 To Tx1.Length - 1
            Cd1 = Asc(Tx1.Substring(m, 1)) + Asc(Schlüssel.Substring(n, 1))
            If Cd1 > 255 Then Cd1 = Cd1 - 255
            Tx2 = Tx2 & Chr(Cd1)
            If n = Schlüssel.Length - 1 Then n = 0
        Next
        Return Tx2
    End Function

Das Decodieren kannst Di sicher selbst programmieren.

Viel Spaß!

Horst

horstfh

26.06.2017, 17:19

Beim Entschlüsseln natürlich ADDIEREN !!

YoutubeAG

Fragesteller

26.06.2017, 17:32

Das funktioniert schon. Ich hab zwei Mid$ - Funktionen mit sich erhöhender Stelle einmal auf den Eingabetext und einmal auf den Schlüssel laufen lassen. Beim Schlüssel eben noch so, dass, wenn die Stelle gleich der Länge des Schlüssels + 1 ist, sich wieder auf 1 zurücksetzt. Das Schlüsselwort soll hierbei individuell vom User ausgesucht werden.

Die beiden werte der Mid$ - Funktionen speichere ich ein einem String (ccc für Text, swd für Schlüssel). Mit den beiden subs az für ccc und bz für swd weise ich dann jeweils einem String - Wert einen Integer - Wert (abc bei az, acb für bz) zu (az: 1 - 26; bz: 0 - 25).

Diese beiden werde überlagere ich (bei der Entschlüsselung überlagere ich mit -acb) dann mit dem Integer cab und lass über die Verrechnungsmethode vr einen String zzz ausgeben.

Der Ausgabe - String aus aus setzt sich dann aus aus = aus + zzz zusammen.

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zur Frage

VBA Message-Box mit zwei Bedingungen?

Hallo zusammen,

ich versuche eine Message-Box in Excel zu erzeugen, die beim Wechsel eines Worksheets bald fällige bzw. überfällige Termine anzeigt. Dabei stehen die Fälligkeiten in der Spalte K. Eine solche Meldung soll allerdings unterbleiben, sofern der Bearbeitungsstand auf "abgeschlossen" gesetzt wurde. Der Bearbeitungsstand wird in der Spalte N mittels Dropdown-Liste erfasst.

Mein Code sieht folgendermaßen aus:

Private Sub Worksheet_Activate()

Dim rDatTermin

Dim rDatStand

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

Dim sMsgAbgeschlossen As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

For Each rDatTermin In Range("K4:K500")

If rDatTermin.Value <> "" Then

If rDatTermin.Value < Date Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatTermin.Row, 2) & vbCrLf

Else

If rDatTermin.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatTermin.Row, 2) & vbCrLf

End If

For Each rDatStand In Range("N4:N500")

If rDatStand.Value <> "" Then

If rDatStand.Value = "abgeschlossen" Then _

sMsgAbgeschlossen = 1

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" & sMsgAbgeschlossen <> 1 Then

MsgBox "Überfällig" & vbCrLf & vbCrLf & sMsgUeberFaellig & "Bald fällig" & vbCrLf & sMsgBaldFaellig

End If

End Sub

Offensichtlich klappt hier die Verknüpfung zur zweiten Bedingung noch nicht. Die erste Bedingung wird geprüft und korrekt angezeigt. Der Bearbeitungsstand wird dabei jedoch nicht berücksichtigt. Wo habe ich da meinen Gedankenfehler?

...zur Frage

bash script: prüfen ob man in richtigem verzeichnis ist?

will das quasi so haben aber wie prüfe ich da links die ausgabe von pwd ? :

if [AUSGABE VON pwd == "/home/user3/ordner"]; then

...zur Frage

"Loop ohne Do" Hilfe!?

Private Sub CommandButton1_Click()

Dim a, b, c, d As Integer

a = 0

Do While Tabelle1.Cells(6, 3 + r) <> ""

b = Tabelle1.Cells(6, 3 + r)

d = Tabelle1.Cells(6, 3 + r + 1)

If b = "A" Or "a" Or "Ä" Or "ä" Then

c = 1

If b = "B" Or "b" Then

c = 2

If b = "G" Or "g" Then

c = 3

If b = "D" Or "d" Then

c = 4

If b = "E" Or "e" Then

c = 5

If b = "U" Or "u" Or "Ü" Or "ü" Or "V" Or "v" Or "W" Or "w" Then

c = 6

If b = "Z" Or "z" Then

c = 7

If b = "H" Or "h" Then

c = 8

If b = "C" Or "c" And d = "H" Or "h" Then

c = 8

End If

Tabelle1.Cells(7, 3 + r) = c

r = r + 1

Loop

End Sub

--------------------------------------------------------------------------------------------------------------------------------------

Es ist nochnicht fertig aber ich wollte es testen und weiß nicht was ich falsch gemacht habe... kann mir wer helfen?

...zur Frage

While Schleife in Python?

Hallo,

ich habe eine Übung zur while-Schleife (in Python), in der ich ein Programm schreiben muss, das den Anwender wiederholt dazu auffordert, einen Wert in Inch einzugeben. Der eingegebene Wert soll anschließend in Zentimeter umgerechnet und ausgegeben werden. Das Programm soll nach der Eingabe des Werts 0 beendet werden.

Ihr könnt ja mal meinen Code kopieren und selber sehen was passiert, ist glaube ich einfacher, als wenn ich es erkläre.

#Zuteilung
print("Geben Sie einen Inch-Wert ein: ")
inchwert = input()
eingabe = int(inchwert)

#While-Schleife
while eingabe != 0:
  print("Geben Sie einen Inch-Wert ein: ")
  inchwert = input()
  eingabe = int(inchwert)

  if eingabe != 0:
    print(eingabe, " inch, sind: ", eingabe*2,54, "cm")

  elif eingabe == 0:
    print("Eingabe darf nicht gleich 0 sein")
    break

Meine Frage: Wie mache ich, dass das Programm richtig läuft (Ich meine, dass ich am Anfang des Programms etwas falsch habe), und zweitens: Habe ich die while-Schleife hier richtig in Verwendung?

Danke für jede Hilfe :)

...zur Frage

C++: Einkaufsliste nur noch Ausgabe?

Ich habe ein Programm geschrieben und jetzt muss ich zum Schluss noch die Ausgabe machen, dass mir die Sachen, die ich davor reingeschrieben habe, untereinander angezeigt werden. Doch ich sehe als Buchstabe für Buchstabe.

Hier ist der Code:

#include<iostream>
#include<vector>

using namespace std;

int main()
{
  char cEingabe = 'a';
  char cBeenden = 'b';
  vector<char> vec_Eingabe;

  cout << "Geben Sie an was auf die Einkaufsliste kommen soll";
  cout << "Wenn sie die Eingabe beenden wollen dann druecken sie 0";

  // Eingabe
  do {
    cin >> cEingabe;

    if (cEingabe == '0') {
      cout << "Wollen sie die Eingabe Beenden (a)";
      cin >> cBeenden;

      if (cBeenden != 'a') {
        vec_Eingabe.push_back(cEingabe);
      }
    }
    else {
      vec_Eingabe.push_back(cEingabe);
    }
  }
  while (cBeenden != 'a');

  // DAS IST MEINE AUSGABE DIE NICHT FUNKTIONIERT
  for (int i = 0; i < vec_Eingabe.size(); i++) {
    cout << vec_Eingabe[i] << endl;
  }

  system("Pause");
  return 0;
}

...zur Frage

If-Else in eine Schleife binden(z.b while Schleife)(C++)?

Ich versuche die ganze Zeit if-Else in eine Schleife ein zu binden. So das der Benutzer nach der Eingabe nochmal das Gewünschte Eingibt(Alter).Aber irgendwie geht das nicht. Anstatt das die Zeile sich wiederholt wo der Benutzer sein Alter bestätigen muss, wird immer der eingegebene Alter wiederholt. Also wie schaffe ich es, das der Benutzer mit einer Schleife nach der Eingabe,noch mal sein Alter bestätigen muss. (Ich bin noch ein Anfänger)

Screenshot ist unten:

...zur Frage

Ich versuche einen Taschenrechner mit Java zu programmieren, warum wiederholt sich die do-while-Schleife nicht, wenn.....?

man eine ungülgite Rechenoperation auswählt?

Stattdessen springt er aus der Schleife und macht mit der nächsten Ausgabe weiter.

Scanner s = new Scanner (System.in);
        
        
        System.out.println("Hallo, dies ist ein Taschenrechner.\nWähle eine Rechenoperation aus. Zur Auswhl stehen: +,-,/,");         String Eingabe = s.next();                  boolean bool;                           do         {             if (Eingabe.equals("+")) {                 System.out.println("Eingabe bestätigt.");                 bool=true;}             else if(Eingabe.equals("-")) {                 System.out.println("Eingabe bestätigt.");                 bool=true;}             else if(Eingabe.equals("/")) {                 System.out.println("Eingabe bestätigt.");                 bool=true;}             else if(Eingabe.equals("")) {
                System.out.println("Eingabe bestätigt.");
                bool=true;}
            else {System.out.println("Eingabe nicht verstanden. Bitte wähle eine gültige Rechenoperation aus.");
                bool=false;
                Eingabe = s.next();
                
                }
            
        }while(bool = false);
    
        System.out.println("Nun gib zwei Zahlen ein, mit denen gerechnet werden soll");

Hier nochmal als Bild

https://www2.pic-upload.de/img/35478781/Unbenannt.png

...zur Frage

Deepl zu korrektem Zeilenumbruch zwingen?

Hallo,

ich arbeite an einer kniffligen Herausforderung:

Wenn ich einen Zeilenumbruch in einem englischen Satz habe, und ich will, dass die deutsche Übersetzung den Zeilenumbruch an der richtigen Stelle hat, wie kann ich Deepl.com dazu austricksen? Es müsste eine Zeichenfolge anstelle des Zeilenumbruches im Englischen hingeschrieben werden, die 1) den Übersetzungsinhalt nicht verfälscht und 2) im Deutschen ebenfalls vorkommt, also von Deepl nicht "verschluckt" wird. Ich habe bereits ## oder [##%##] benutzt. Manchmal funktionieren sie, manchmal nicht.

Hat jemand zufällig ne geniale Idee?

Danke

...zur Frage

Java - Scanner Eingabe nur positive Double Werte?

Hallo.

Ich will kontrollieren, ob die Scanner Eingabe ein positiver Double ist.

Ich will ebenfalls das ganze so lange loopen, bis die Richtige Eingabe getätigt wirde.

Hier ist mein Code:

boolean done = false;
while (!done) {
    if (scan.hasNextDouble()) {
        done = true;
    } else {
        System.out.println("*** Please give in a numeric value ***");
        int number = scan.nextDouble();
        if(number < 0){
           done = false;
           scan.nextLine();
        }

    }
}
scan.nextLine();

...zur Frage

Python Pickle Vokabeltrainer?

Hallo,

ich will einen simplen Vokabeltrainer mit python programmieren. Um die Vokabeln die vom user eingeben werden zu speichern verwende ich pickle. Leider werden ohne Fehlermeldung keine Vokabeln in der von mir angelegten Datei gespeichert.

import random
import pickle



class Entry:
    def __init__(self, deutsch, englisch):
        self.deutsch = deutsch
        self.englisch = englisch


    def toString(self):
        return self.deutsch + " - " + self.englisch
        
eintraege = [Entry("hallo", "hello")]


def save():
    with open('vocabulary.pkl', 'wb') as voc_pkl:
        pickle.dump(eintraege, voc_pkl)


save()
 
with open('vocabulary.pkl', 'rb') as voc_pkl:
    eintraege = pickle.load(voc_pkl)



def eingabe():
    while True:
        deutsch = input("Deutsches Wort: ")
        if deutsch == "#fertig":
            return
        englisch = input("Englisches Wort: ")
        if englisch == "#fertig":
            return
        eintraege.append(Entry(deutsch, englisch))
        save()
        
def abfrage():
    while True:
        i = random.randint(0,len(eintraege)-1)
        englisch = input("Englische Übersetzung von " + eintraege[i].deutsch + ": ")
        if(englisch == "#fertig"):
            return
        if eintraege[i].englisch == englisch:
            print("korrekt!")
        else:
            print("leider falsch. Richtige Antwort: " + eintraege[i].englisch)
            
def printall():
    for eintrag in eintraege:
        print(eintrag.toString())
        
while True:
    befehl = input("Befehl: ")
    if befehl == "eingabe":
        eingabe()
    elif befehl == "abfrage":
        abfrage()
    elif befehl == "beenden":
        break
    elif befehl == "ausgabe":
        printall()
    else:
        print("keine bekannte Ausgabe. Tippe: eingabe, abfrage, ausgabe oder beenden.")

...zur Frage

PHP macht \n (Zeilenumbruch) nicht?

Hallo, was ist hier falsch?

if ($res->num_rows > 0) {
  while ($i = $res->fetch_assoc()) {
    echo ("Nummer: " . $i["id"] . " || Name: " . $i["name"] . " || Eintragsdatum: " . $i["datum"] . " || Geburtstagsdatum: " . $i["gebdatum"] . "\n");
  }
}

PHP macht nach dem "\n" keinen Zeilenumbruch?

...zur Frage

VBScript Zahlenspiel?

Hi,

Ich habe folgendes VBScript geschrieben:

Dim Untergrenze, Obergrenze, Wert, Zufallszahl, Counter

Randomize()

Wert = 0
Untergrenze = 1
Obergrenze = 5
Zufallszahl = Int((Obergrenze - Untergrenze + 1) * Rnd() + Untergrenze)
Counter = 0

Do

Counter=Counter+1

Wert = InputBox("Bitte geben Sie eine Zahl zwischen 1 und 5 ein", "Eingabe")

If Zufallszahl<Wert Then _
    WScript.Echo("Meine Zahl ist kleiner!")

If Zufallszahl>Wert Then _
    WScript.Echo("Meine Zahl ist größer!")

If Wert=Zufallszahl Then _
    WScript.Echo("Richtig. Versuche: " + CStr(Counter))

Loop while Wert<>Zufallszahl

nur will das ganze nicht wirklich funktionieren. Ich hab soweit schon herausgefunden, dass es an der InputBox liegen muss, da das ganze ohne InputBox funktioniert. Für jede Antwort bin ich dankbar.

...zur Frage

NIKI der Roboter, Hilfe

Hallo zusammen :)

An alle, die sich ein bisschen mit programieren auskennen. Ich habe diesen Befehl beim Programierspiel "NIKI der Roboter" eingegeben:

IF vorne_frei THEN
BEGIN
 WHILE vorne_frei DO vor;
END;

IF NOT vorne_frei THEN
BEGIN
 WHILE NOT vorne_frei DO drehe_links;
END;

nun möchte ich wissen, wie ich machen kann, dass der Befehl sich immer und immer wieder wiederholt, sodass ich nicht auf den grünen Pfeil klicken muss.

Danke im Vorraus MBudgetOwn

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen