Przerabianie kodu, coś takiego jak szyfrowanie

[klipbun]

Siema

 

chce sobie zrobić program do szyfrowania i użyłem takiego kodziku:

Public Class Form2

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim WpisanyTekst As String = RichTextBox1.Text
        Dim PrzerobionyTekst As String = Replace(WpisanyTekst, "1", "rss")

        RichTextBox2.Text = PrzerobionyTekst

        Dim WpisanyTekst1 As String = RichTextBox1.Text
        Dim PrzerobionyTekst1 As String = Replace(WpisanyTekst, "2", "xem")

        RichTextBox2.Text = PrzerobionyTekst1
    End Sub

i gdy użyłem go to 2 działa czyli 2 zmienia sie na xem a 1 nie działa nie zmienia sie na rss

 

 

próbowałem też użyć takiego kodu:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim WpisanyTekst As String = RichTextBox1.Text
        Dim PrzerobionyTekst As String = Replace(WpisanyTekst, "1", "rss")
        Dim PrzerobionyTekst As String = Replace(WpisanyTekst, "2", "xem")

        RichTextBox2.Text = PrzerobionyTekst

    End Sub

lecz pojawia się błąd:

Local variable 'PrzerobionyTekst' is already declared in the current block.

CO ZROBIĆ ?

[klipbun]

@ref

[ZeuSXP]

Spróbuj tak:

 

 

 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim WpisanyTekst As String = RichTextBox1.Text
 
Dim PrzerobionyTekst As String
PrzerobionyTekst = Replace(WpisanyTekst, "1", "rss")
PrzerobionyTekst = Replace(WpisanyTekst, "2", "xem")

RichTextBox2.Text = PrzerobionyTekst

End Sub

[MistrzMaster]

lecz pojawia się błąd:

Local variable 'PrzerobionyTekst' is already declared in the current block.

CO ZROBIĆ ?

@klipbun

Nauczyć się podstaw jakiegoś języka programowania

Nigdy nie mając styczności z tym językiem na pierwszy rzut oka widać że słowo kluczowe "Dim" służy do deklaracji zmiennej o zasięgu lokalnym(tak, dla pewności sprawdziłem w internecie) ty deklarujesz dwa razy zmienną o takiej samej nazwie, czyli nie wiesz co robisz. Rozumiem że można się pomylić, ale wszystko masz w komunikacie od kompilatora, a ty w dalszym ciągu nie wiesz jak to naprawić? :/

[Crossiik]

Kolega wyżej już wyrobił kazanie więc ja spróbuję rozwiązać twój problem - do tego mamy to forum.

 

Tak więc "Dim" to zmienna, w twoim przypadku deklarujesz "PrzerobionyTekst" jako zmienną tekstową czyli ciąg znaków więcej na Wikipedi

Zauważ że próbujesz do jednej deklaracji przypisać dwa ciągi to tak samo jak mówienie że X=abc i X=cba w tym samym czasie, program po prostu nie wie co jest czym.

Wystarczy coś dodać do "X" np. "X2=abc", "X1=cba"

Raczej nie zrozumiesz mojego bidloenia więc użyj tego jako drugiej deklaracji "Dim PrzerobionyTekst2 As String = Replace(WpisanyTekst, "2", "xem")"

[klipbun]

HMMMM..... , Nadal nie działa,

 

 

kod ZeuSXP nie zadziałał więc spróbowałem zrobić to co pisał Crossiik czyli zrobiłem taki kodzik:

      Dim WpisanyTekst As String = RichTextBox1.Text
        Dim PrzerobionyTekst As String = Replace(WpisanyTekst, "1", "rss")
        Dim PrzerobionyTekst2 As String = Replace(WpisanyTekst, "2", "xem")

        RichTextBox2.Text = PrzerobionyTekst
        RichTextBox2.Text = PrzerobionyTekst2

ale też nie działa, może wytłumacze o co chodzi:

 

chodzi o to że wpisany tekst w richtextbox1 po kliknięciu przycisku ma się zamienić na określone znaki / tekst / symbole i pojawić w richtextbox2 , czyli w tym przypadku: jak wpisze w richtextbox1 "12" to się powinno zmienić na "rssxem"  a to się zmienia ten kod i kod ZeuSXP na to "1xem" dwójka działa ale jedynka już nie.

[Crossiik]

Błąd który wywołwał konflikt ze zmiennymi został rozwiązany, zostaje źle napisany kod programu.

 

zwróć uwagę na ostatnie dwie komendy:

 

RichTextBox2.Text = PrzerobionyTekst

RichTextBox2.Text = PrzerobionyTekst2

 

 

znów mówisz że X = 123 i 321 w tym samym czasie, spróbuj powiedzieć że X=123 + 321

RichTextBox2.Text = PrzerobionyTekst & PrzerobionyTekst2

 

 

 

====EDIT====

 

Wyprzedzając twój problem ze wciskającymi się znakami pomiędzy zmieniony text. Masz tu kodzik w którym poszedłem na łatwiznę zapewne można to zrobić o wiele prościej.

 

Dim x As String = Replace(RichTextBox1.Text, "1", "x")

Dim PrzerobionyTekst As String = Replace(x, "2", "D")

RichTextBox2.Text = PrzerobionyTekst

 

efektem będzie "xD" w Richtextboxie... tyle że... nie rozumiem po co. Skoro program jest z góry zdefiniowany pod stałe "1" i "2".

Mam nadzieję że to tylko dziwne próby zrozumienia kodu, zastosuj do tego więcej zmiennych i jakiś porządny algorytm, najlepiej numer płyty głównej zmieszany z czasem i nazwą użytkownika.

[klipbun]

Pytanko:

 

o treści tego kodu:

Dim x As String = Replace(RichTextBox1.Text, "1", "x")
Dim PrzerobionyTekst As String = Replace(x, "2", "D")
RichTextBox2.Text = PrzerobionyTekst

wszystko jase 1 to x 2 to d tylko po co jest tu x ?:

Dim PrzerobionyTekst As String = Replace(x, "2", "D")

(x,

oraz co zrobić / jak zrobić / jak dopisać kod gdybym chciał więcej tych znaków znaczy że chce se dodać inne zmieniające się znaki czyli 3 na Q przykładowo i może kilka ?

[Crossiik]

Dim x As String = Replace(RichTextBox1.Text, "1", "x") - zmienia 1 w X czyli nasza zmienna ma teraz wartość "X2" (Wcześniej miała "12")
Dim PrzerobionyTekst As String = Replace(x, "2", "D") - zmienia 2 z wartości X w D co dajme nam "xD"
RichTextBox2.Text = PrzerobionyTekst

 

Z pewnością możesz dodawć następne "literki" ale lepiej napisać jakiś algorytm niż bawić się w dodawanie kolejnych zmiennych. Poszperam i dam znać jak coś wykombinuję.

[klipbun]

A pokaż mi kilka przykładów z tym kodem bawienia się w dodawanie zmiennych bo dla mnie to nie problem , byle program działał .

 

(czyli pokaż jak dodać więcej "literek" w sposób bawienia się zmiennymi)

[Crossiik]

Przerabiamy "123" na "xDD"

 

Dim x As String = Replace(RichTextBox1.Text, "1", "x")
Dim y As String = Replace(x, "2", "D")

Dim PrzerobionyTekst As String = Replace(y, "3", "D")

RichTextBox2.Text = PrzerobionyTekst2

 

Tak jak mówię, na dłuższą ilość znaków niem a to sensu, trzeba znaleźć sposób który samoczynie będzie zamieniał kolejną literkę, w zasadzie to nie jest trudne wystarzcy dodać indexowanie albo zmieną z literką i dodawać jedną