|
You last visited: Today at 01:50
Advertisement
VB 2010: PROZENTRECHNUNG HILFE
Discussion on VB 2010: PROZENTRECHNUNG HILFE within the .NET Languages forum part of the Coders Den category.
08/17/2011, 11:45
|
#1
|
elite*gold: 389
Join Date: Jul 2010
Posts: 4,911
Received Thanks: 530
|
VB 2010: PROZENTRECHNUNG HILFE
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
|
#2
|
elite*gold: 0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,810
|
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
|
#3
|
elite*gold: 389
Join Date: Jul 2010
Posts: 4,911
Received Thanks: 530
|
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:
- Das man von 10er psc den Kurs selbst reinschreiben kann.
|
|
|
08/17/2011, 13:38
|
#4
|
elite*gold: 0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,810
|
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
|
#5
|
elite*gold: 389
Join Date: Jul 2010
Posts: 4,911
Received Thanks: 530
|
genau, da hänge ich fest.
Wie mache ich das?
Ich schaff das nich >.<
|
|
|
08/17/2011, 14:36
|
#6
|
elite*gold: 0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,810
|
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
|
#7
|
elite*gold: 2
Join Date: Oct 2010
Posts: 257
Received Thanks: 141
|
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
|
#8
|
elite*gold: 389
Join Date: Jul 2010
Posts: 4,911
Received Thanks: 530
|
danke hat geklappt.
|
|
|
|
Similar Threads
|
Visual C++ 2010 Hilfe!
07/17/2011 - .NET Languages - 5 Replies
Hallo, kann einer ein Tut mir Video machen wo man drin Spricht ?? ein gutes habe ein von c++ 2008 gesehen aber die befehle sind anderest wie beim 2010 irgen wie
z.B. schreibt er um console was zu senden muss man cout << "Hallo Welt" ;
schreiben das mit cout geht aber nicht -.- beim 2010
|
Hilfe 2010
04/23/2011 - Metin2 Private Server - 1 Replies
Hallo e*pvp
Ich habe meinen Server 500mb RAM für 1 Spieler geben dazu noch die 2010 Files von Kay331 mit 8GB SWAP.
Wenn ich mich einlogge habe ich etwa 70& des CPU belegt und dann wenn ich spiele habe ich 1,5gb ram frei und trozdem gibt es oft ein kick.
Was ist hier los:rtfm:
Habe zwei 2,80GHZ CPU´s
|
[2010]Hilfe
04/13/2011 - Metin2 Private Server - 7 Replies
Gibt es eine Portmap für den 2010er CLient?
Wenn nicht könnte mir jemand bitte die Serverinfo.py auf diese Ports ändern.
Serverinfo.py
import os
import app
import locale
import debugInfo
CHINA_PORT = 50000
|
Hilfe mit den 2010 sf und ne frage
03/17/2011 - Metin2 Private Server - 5 Replies
Hay leute ich habe folgendes problem ich kan zwar den stadt wechte ranklikken aber keine gilde machen. Kan mir vil wer helfen sind 2010 sf.
2.frage das max lvl bei mienem sf ist 127 und ich möchte gerne 150 haben kan mir vil wer sagen wie ich das machen mfg...
|
Hilfe bei 2010 Client...
12/10/2010 - Metin2 Private Server - 2 Replies
Hallo. Ich wollte mit 2010 Client auf den Hamachiserver vom Freund connecten.
folgendes Ports sind eingetragen :11002 , 13000. (In der serverinfo.py)
Ich habe das Problem , dass ich nach der Charauswahl gekickt werde.
Wie kann ich den Bug beheben?
|
All times are GMT +2. The time now is 01:50.
|
|