simon1902
Oct 30, 2006, updated at Nov 02, 2006 (UTC)
view3592
view3
0
Goto Top

Mit VB Wiederstände berechnen

GermanQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 43308

Url: https://administrator.de/contentid/43308

Printed on: April 20, 2024 at 04:04 o'clock

3 Comments
Latest comment
Goto Top
Member: bastla
bastla Oct 30, 2006 at 14:11:47 (UTC)
Goto Top
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:
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 Select

Fü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 If

HTH
bastla
Member: bastla
bastla Oct 30, 2006 at 17:35:03 (UTC)
Goto Top
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
Member: miniversum
miniversum Nov 02, 2006 at 07:55:56 (UTC)
Goto Top
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
GermanQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment