VB 2010: PROZENTRECHNUNG HILFE

[Lеlouch]

Hej Community,
ich habe ein Projekt vor mir (für mich selbst),
Will damit das hier erstellen, was die anderen schonmal erstellt haben.
Aber daraus will ic hselbst was lernen.

Also das:
Einen e*gold Kurs umrechner,
sagen wir zb. 10€ sind 400eg du willst 1,55€ errechnen wv eg es sind.
Dann hast du oben Label: 10€ dann = dann eine textbox und da schreibst du den Kurs rein.

Dann hast du unten Eine 2. Textbox = 3. Textbox
beim 2. Textbox schreibst du 1,55 ein und es wird automatisch in das 3. Textbox umgerechnet und reingeschrieben wie viel eg es sind.

wie kann man sowas mahen?

Danke.

[Kraizy​]

PHP Code:

//Euro -> Elite*Gold
10Euro -> 400eG
1Euro -> 40eG
-> 1,55 * 40 = 62eG 


PHP Code:

Dim euro As Double
Dim eg As Integer

//Euro -> Elite*Gold
Private Sub TextBoxEuro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxEuro.TextChanged
        If Double.TryParse(TextBoxEuro.Text, euro) Then //Wenn der Wert in der TextBox eine Zahl ist
            TextBoxEG.Text = euro * 40 & " eG"
        End If
    End Sub

//Elite*Gold -> Euro
Private Sub TextBoxEG_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxEG.TextChanged
        If Integer.TryParse(TextBoxEG.Text, eg) Then
            TextBoxEuro.Text = eg / 40 & " Euro"
        End If
    End Sub 


[Lеlouch]

Originally Posted by xKraizy

PHP Code:

//Euro -> Elite*Gold
10Euro -> 400eG
1Euro -> 40eG
-> 1,55 * 40 = 62eG 


PHP Code:

Dim euro As Double
Dim eg As Integer

//Euro -> Elite*Gold
Private Sub TextBoxEuro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxEuro.TextChanged
        If Double.TryParse(TextBoxEuro.Text, euro) Then //Wenn der Wert in der TextBox eine Zahl ist
            TextBoxEG.Text = euro * 40 & " eG"
        End If
    End Sub

//Elite*Gold -> Euro
Private Sub TextBoxEG_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxEG.TextChanged
        If Integer.TryParse(TextBoxEG.Text, eg) Then
            TextBoxEuro.Text = eg / 40 & " Euro"
        End If
    End Sub 


Danke, hat alles geklappt.
Nur ich habe eine Bitte unzwar wie mache ich es sowie hier:


- Das man von 10er psc den Kurs selbst reinschreiben kann.

[Kraizy​]

Ich hab in dem Beispiel geschrieben:

PHP Code:

//Euro -> Elite*Gold
10Euro -> 400eG
1Euro -> 40eG 


Wie du siehst, sind 10€ 400eG, 1€ ist dann 40eG. Nun nimmst du halt den Wert, den man selbst in die TextBox eintragen kann und rechnest davon aus, wie viel 1€ ist. Diesen Wert benutzt du dann zum rechnen, wie hier:

PHP Code:

...
TextBoxEG.Text = euro * 40 & " eG"
... 


Die 40 ersetzt du dann mit deinem errechneten Wert.

[Lеlouch]

genau, da hänge ich fest.
Wie mache ich das?
Ich schaff das nich >.<

[Kraizy​]

PHP Code:

    Dim kurs As Integer

    Private Sub TextBoxKurs_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxKurs.TextChanged
        If Integer.TryParse(TextBoxKurs.Text, kurs) Then //Wenn die TextBox eine Zahl enthält
            kurs = CInt(kurs / 10) //durch 10 teilen, damit du den Wert für 1€ hast.
        End If
    End Sub 


Nun benutzt du die Variable "kurs" anstatt die 40:

PHP Code:

TextBoxEG.Text = euro * kurs & " eG" 


[Zero Day Exploit]

Ist doch leicht also z.B

Gibt er den kurs von 10euro = 400 eg.
Also muss dein programm beide um 10 teilen.

10 / 10 = 400 / 10
1 = 40
---------------
10 = 440
10 / 10 = 440 / 10
1 = 44

Und das ist ja das wichtige.
Dann stellst du ein das er erst den kurs angeben muss den spreicherst du in einer variable und schon kannst du wenn er z.B den wert von 50 euro haben will mit der variable multipliezieren

variabla wert = 44eg

Also 50 * 44 eg kommt der wert raus einfach

[Lеlouch]

danke hat geklappt.