3
Mit VB Wiederstände berechnen
Schönen Guten Tag,
ich steh vor einem etwas größeren Problem. Ich soll mit VB 6 Wiederstände berechen. Das soll wie folgt passieren. Es sollen aus Combo-Boxen die Farben ausgewählt werden. Mit einem Klick auf den Button Auswerten soll er dann den Wiederstand anzeigen. Den Rechenweg weiß ich, aber ich hab leider noch überhaupt keine Ahnung von VB. Kann mir einer bei dem Quelltext helfen.
Mit freundlichen Grüßen
Simon
ich steh vor einem etwas größeren Problem. Ich soll mit VB 6 Wiederstände berechen. Das soll wie folgt passieren. Es sollen aus Combo-Boxen die Farben ausgewählt werden. Mit einem Klick auf den Button Auswerten soll er dann den Wiederstand anzeigen. Den Rechenweg weiß ich, aber ich hab leider noch überhaupt keine Ahnung von VB. Kann mir einer bei dem Quelltext helfen.
Mit freundlichen Grüßen
Simon
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 43308
Url: https://administrator.de/contentid/43308
Ausgedruckt am: 26.11.2024 um 08:11 Uhr
3 Kommentare
Neuester Kommentar
Hallo Simon!
Falls es für den Anfang genügt, die Farben als Texteinträge in den Kombinationsfeldern zu verwenden, könntest Du wie folgt vorgehen:
Kombinationsfeld (Name zB "cboFarbe1") erstellen und im Code für "Sub Form_Load()" (Doppelklick auf Formularhintergrund) die einzelnen Einträge festlegen:
Analog für die weiteren ComboBoxen ...
Schaltfläche "Auswerten" (Name "btnAuswerten"):
Im Code "Sub btnAuswerten_Click" (Doppelklick auf den Button) die einzelnen ComboBoxen durchgehen und entweder über laufende Nummer des Eintrages oder über gewählten Text einen Zahlenwert speichern; dabei mit Hilfe einer Boolean-Variablen "bolOK" feststellen, ob alle Eingaben erfolgt sind:
Für alle anderen Kombinationsfelder detto ...
Wenn die Eingaben korrekt waren, Berechnung ausführen und Ergebnis (Variale zB "dblErg") in Textbox (Name "txtErg") schreiben:
HTH
bastla
Falls es für den Anfang genügt, die Farben als Texteinträge in den Kombinationsfeldern zu verwenden, könntest Du wie folgt vorgehen:
Kombinationsfeld (Name zB "cboFarbe1") erstellen und im Code für "Sub Form_Load()" (Doppelklick auf Formularhintergrund) die einzelnen Einträge festlegen:
cboFarbe1.AddItem "Schwarz"
cboFarbe1.AddItem "Weiß"
cboFarbe1.AddItem "Grün"
...
cboFarbe1.ListIndex = 0 'ersten Eintrag als Vorgabe auswählen Analog für die weiteren ComboBoxen ...
Schaltfläche "Auswerten" (Name "btnAuswerten"):
Im Code "Sub btnAuswerten_Click" (Doppelklick auf den Button) die einzelnen ComboBoxen durchgehen und entweder über laufende Nummer des Eintrages oder über gewählten Text einen Zahlenwert speichern; dabei mit Hilfe einer Boolean-Variablen "bolOK" feststellen, ob alle Eingaben erfolgt sind:
bolOK = True
'Variante lfd Nummer
Select Case cboFarbe1.ListIndex
Case 0
dblWert1 = 0.01
Case 1
dblWert1 = 0.05
...
Case Else 'dürfte nicht vorkommen, wenn alle Möglichkeiten oberhalb abgedeckt wurden
MsgBox "Auswahl in Farbe 1 nicht zuordenbar!"
bolOK = False
End Select
'oder Variante Text
Select Case cboFarbe1.Text
Case "Schwarz"
dblWert1 = 0.01
Case "Weiß"
dblWert1 = 0.05
...
Case Else 'dürfte nicht vorkommen, wenn alle Möglichkeiten oberhalb abgedeckt wurden
MsgBox "Auswahl in Farbe 1 nicht zuordenbar!"
bolOK = False
End SelectFür alle anderen Kombinationsfelder detto ...
Wenn die Eingaben korrekt waren, Berechnung ausführen und Ergebnis (Variale zB "dblErg") in Textbox (Name "txtErg") schreiben:
If bolOK = True Then
'Berechnung ausführen
txtErg.Text = Format(dblErg, "#,##0.0000") 'Formatierung mit Tausendertrennung und 4 Nachkommastellen
Else
MsgBox "Es wurden nicht alle Farben gewählt!"
End IfHTH
bastla
Als Nachtrag:
Schöner wird's natürlich, wenn die Combobox tatsächlich Farben anzeigt ...
http://www.vbarchiv.net/archiv/tipp_details.php?pid=426
HTH
bastla
Schöner wird's natürlich, wenn die Combobox tatsächlich Farben anzeigt ...
http://www.vbarchiv.net/archiv/tipp_details.php?pid=426
HTH
bastla
Kleiner Vorschlag zur Verbesserung:
Wenn dir reihenvolge der Farben entsprechent ihrer Wertigkeiten angeordnet werden kannst du dir die Zuordnung der ganzen Farben mit Hilfe eines Select Case Konstrukts sparen indem du dann direkt mit dem ListIndex arbeitest:
Brauchst also nur beim Starten die Zuordnung vorzunehmen und beim klicken auf den Button dann volgende Formel (naja so ungefär)
R=(cboFarbe1.ListIndex*100+cboFarbe2.ListIndex*10+cboFarbe3.ListIndex)*10^(cboFarbe4.ListIndex-2)
miniversum
Wenn dir reihenvolge der Farben entsprechent ihrer Wertigkeiten angeordnet werden kannst du dir die Zuordnung der ganzen Farben mit Hilfe eines Select Case Konstrukts sparen indem du dann direkt mit dem ListIndex arbeitest:
Brauchst also nur beim Starten die Zuordnung vorzunehmen und beim klicken auf den Button dann volgende Formel (naja so ungefär)
R=(cboFarbe1.ListIndex*100+cboFarbe2.ListIndex*10+cboFarbe3.ListIndex)*10^(cboFarbe4.ListIndex-2)
miniversum
