vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Noch ein problem 
Autor: Moderatorralf_oop (Moderator)
Datum: 29.03.06 14:59
Hier eine verbesserte Version, die funktionieren müsste (hab ich jetzt einfach so geschrieben, dürfte aber funktionieren): 

Select Case cmbFrom.SelectedText
  Case cmbFrom.Items.Item(0).ToString()
    ' Euro in Euro umrechnen?
    lblErgebnis.Text = "Sie können nur in Euro umrechnen."
  Case cmbFrom.Items.Item(1).ToString()
    ' DM in Euro umrechnen
    Ergebnis = Math.Round(Betrag / DM, 2)
    lblErgebnis.Text = txtBetrag.Text & " DM sind " & _
      "umgerechnet " & Ergebnis.ToString() & " Euro."
  Case cmbFrom.Items.Item(2).ToString()
    ' Belgische Francs in Euro umrechnen
    Ergebnis = Math.Round(Betrag / BEF, 2)
    lblErgebnis.Text = txtBetrag.Text & " BEF sind " & _
      "umgerechnet " & Ergebnis.ToString() & " Euro."
  Case cmbFrom.Items.Item(3).ToString()
    ' Französische Francs in Euro umrechnen
    Ergebnis = Math.Round(Betrag / FRF, 2)
    lblErgebnis.Text = txtBetrag.Text & " FRF sind " & _
      "umgerechnet " & Ergebnis.ToString() & " Euro."
  Case cmbFrom.Items.Item(4).ToString()
    ' Österreichische Schilling in Euro umrechnen
    Ergebnis = Math.Round(Betrag / ATS, 2)
    lblErgebnis.Text = txtBetrag.Text & " ATS sind " & _
      "umgerechnet " & Ergebnis.ToString() & " Euro."
End Select
Ich habe die geänderten Zeilen mal fett hervorgehoben.

Ralf

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Frage zu Option Strike On2.119Lefay28.03.06 13:42
Re: Frage zu Option Strike On1.339ModeratorDaveS28.03.06 14:00
Re: Frage zu Option Strike On1.259Lefay28.03.06 14:01
Noch ein problem1.299Lefay28.03.06 14:00
Re: Noch ein problem1.283ModeratorDaveS28.03.06 14:04
Re: Noch ein problem1.364Lefay28.03.06 14:11
Re: Noch ein problem1.342ModeratorDaveS28.03.06 14:30
Re: Noch ein problem1.369Lefay28.03.06 14:33
Problemstellung und Erklärung1.374Lefay28.03.06 14:39
Re: Problemstellung und Erklärung1.283ModeratorDaveS28.03.06 14:47
Re: Problemstellung und Erklärung1.342Moderatorralf_oop29.03.06 15:02
Re: Problemstellung und Erklärung 1.288ModeratorDaveS29.03.06 16:03
Re: Problemstellung und Erklärung 1.239Moderatorralf_oop29.03.06 16:33
Re: Problemstellung und Erklärung 1.320Lefay30.03.06 10:00
Was zum Nachdenken...1.278vbtest203.04.06 15:53
Re: Was zum Nachdenken...1.294Lefay03.04.06 16:00
Re: Was zum Nachdenken...1.508ModeratorDaveS03.04.06 16:50
Re: Was zum Nachdenken...1.226Moderatorralf_oop03.04.06 16:50
Re: Was zum Nachdenken...1.401ModeratorDaveS03.04.06 18:13
Re: Was zum Nachdenken...1.254ModeratorFZelle03.04.06 19:06
Re: Was zum Nachdenken...1.267ModeratorDaveS03.04.06 19:21
Re: Was zum Nachdenken...1.280ModeratorFZelle03.04.06 21:14
Re: Problemstellung und Erklärung1.291Drapondur03.04.06 20:21
Re: Noch ein problem1.290Moderatorralf_oop29.03.06 14:59
Re: Noch ein problem1.272Lefay30.03.06 09:59
Re: Noch ein problem (Problem nicht behoben)1.287Lefay30.03.06 11:41
Re: Noch ein problem (Problem nicht behoben)1.236Moderatorralf_oop30.03.06 15:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 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