VB 2010: PROZENTRECHNUNG HILFE

08/17/2011 11:45 Lеlouch#1

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.

08/17/2011 12:38 Kraizy#2

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

08/17/2011 13:19 Lеlouch#3

Quote:

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:
[Only registered and activated users can see links. Click Here To Register...]

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

08/17/2011 13:38 Kraizy#4

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.

08/17/2011 14:22 Lеlouch#5

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

08/17/2011 14:36 Kraizy#6

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"

08/17/2011 14:39 Zero Day Exploit#7

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

08/18/2011 14:16 Lеlouch#8

danke hat geklappt.