vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: Variablen & Strings15.02.03
Zahleneingaben in verschiedenen TexBoxen zusammenrechnen

VB-Version:  VB5, VB6
 Views:  8.791 

Um Zahleneingaben in Textboxen zusammenrechnen und in einer weiteren TextBoxausgeben zu können, muss der Inhalt der Textbox in einen geeigneten Datentypumgewandelt werden.

Starten Sie ein neues Projekt, das Sie mit 3 TextBoxen und einemCommandButton ausstatten. Dann versuchen Sie mal folgenden Code:

Private Sub Command1_Click()
  Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text))
End Sub

Geben Sie in die ersten beiden Textboxen jeweils Zahlen ein, klicken Sie aufden CommandButton und das Ergebnis wird in der dritten TextBox angezeigt.

Sollten Sie aber auf die Idee kommen, Kommazahlen zu verwenden, werden Siefeststellen, dass dies nicht funktioniert. Der Grund hierfür ist, dass dieVal-Funktion das Komma nicht als gültiges Dezimalzeichen akzeptiert, sondernnur den Punkt. Es wird schwierig sein, den Anwender zu überzeugen, dass er inZukunft statt Kommas Punkte verwenden soll. Also benötigen wir einen Datentyp, der auch das Komma akzeptiert:

Private Sub Command1_Click()
  Text3.Text = CStr(CDbl(Text1.Text) + CDbl(Text2.Text))
End Sub

Hier wurde lediglich Val durch CDbl ersetzt - und schon klapptdas Ganze auch mit Kommazahlen

Diese Seite wurde bereits 8.791 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel