vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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: Kaffeautomat 
Autor: ModeratorDaveS (Moderator)
Datum: 14.04.05 19:51
Gratuliere. Aber vielleicht ein paar Tipps. Erstens ist checkBox.Checked schon ein boolischer Wert, du musst das nicht mit True oder False vergleichen. Es wird ein wenig übersichtlicher wenn du das so schreibst: 
        If rdb_kaffee.Checked And rdb_klein.Checked Then
            strbetrag = 1
        ElseIf rdb_kaffee.Checked And rdb_mittel.Checked Then
            strbetrag = 2
        ElseIf rdb_kaffee.Checked And rdb_gross.Checked Then
            strbetrag = 3
        ElseIf rdb_kaffee.Checked And rdb_maxi.Checked Then
            strbetrag = 4
        ElseIf rdb_kakao.Checked And rdb_klein.Checked Then
            strbetrag = 1
        ElseIf rdb_kakao.Checked And rdb_mittel.Checked Then
            strbetrag = 2
        ElseIf rdb_kakao.Checked And rdb_gross.Checked Then
            strbetrag = 3
        ElseIf rdb_kakao.Checked And rdb_maxi.Checked Then
            strbetrag = 4
        ElseIf rdb_tee.Checked And rdb_klein.Checked Then
            strbetrag = 1
        ' ...
        ElseIf rdb_cola.Checked And rdb_maxi.Checked Then
            strbetrag = 4.5
        End If
Verschachtelte Ifs oder ElseIfs sind aber an sich nicht sehr leicht zu lesen. Ein kleiner Trick ist in so einem Fall Select Case zu benutzen: 
        Select Case True
            Case rdb_kaffee.Checked And rdb_klein.Checked
                strbetrag = 1
            Case rdb_kaffee.Checked And rdb_mittel.Checked
                strbetrag = 2
            Case rdb_kaffee.Checked And rdb_gross.Checked
                strbetrag = 3
            Case rdb_kaffee.Checked And rdb_maxi.Checked
                strbetrag = 4
            Case rdb_kakao.Checked And rdb_klein.Checked
                strbetrag = 1
            ' ...
            Case rdb_cola.Checked And rdb_mittel.Checked
                strbetrag = 2.5
            Case rdb_cola.Checked And rdb_gross.Checked
                strbetrag = 3.5
            Case rdb_cola.Checked And rdb_maxi.Checked
                strbetrag = 4.5
        End Select
was noch übersichtlicher ist. Zu deiner Frage, du könntest z.B. zusätzliche Tasten (Buttons) für verschiedene Münzen haben, wenn geklickt wird sammelst du den Betrag in einer Klassenvariable. Dann klickt man einfach auf OK und die Auswahl und einbezahlter Betrag werden ausgewertet.

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Kaffeautomat1.336Tatanka14.04.05 16:01
Re: Kaffeautomat808ModeratorDaveS14.04.05 19:51
Re: Kaffeautomat756Tatanka14.04.05 20:23
Re: Kaffeautomat734Tatanka15.04.05 08:36
Re: Kaffeautomat837spike2415.04.05 08:50
Re: Kaffeautomat770Tatanka15.04.05 09:24
Re: Kaffeautomat713spike2415.04.05 09:37
So weiter im Stoff756Tatanka15.04.05 15:26
Re: So weiter im Stoff776spike2415.04.05 17:12
Re: So weiter im Stoff768Tatanka18.04.05 10:49
Re: Kaffeautomat741BasTler15.04.05 09:07

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