Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mit VB Wiederstände berechnen

Frage Entwicklung VB for Applications

Mitglied: Simon1902

Simon1902 (Level 1) - Jetzt verbinden

30.10.2006, aktualisiert 02.11.2006, 3007 Aufrufe, 3 Kommentare

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
Mitglied: bastla
30.10.2006 um 15:11 Uhr
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:
01.
cboFarbe1.AddItem "Schwarz" 
02.
cboFarbe1.AddItem "Weiß" 
03.
cboFarbe1.AddItem "Grün" 
04.
... 
05.
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:
01.
bolOK = True 
02.
 
03.
'Variante lfd Nummer 
04.
Select Case cboFarbe1.ListIndex 
05.
Case 0 
06.
    dblWert1 = 0.01 
07.
Case 1 
08.
    dblWert1 = 0.05 
09.
... 
10.
Case Else  'dürfte nicht vorkommen, wenn alle Möglichkeiten oberhalb abgedeckt wurden 
11.
    MsgBox "Auswahl in Farbe 1 nicht zuordenbar!" 
12.
    bolOK = False 
13.
End Select 
14.
 
15.
'oder Variante Text 
16.
Select Case cboFarbe1.Text 
17.
Case "Schwarz" 
18.
    dblWert1 = 0.01 
19.
Case "Weiß" 
20.
    dblWert1 = 0.05 
21.
... 
22.
Case Else 'dürfte nicht vorkommen, wenn alle Möglichkeiten oberhalb abgedeckt wurden 
23.
    MsgBox "Auswahl in Farbe 1 nicht zuordenbar!" 
24.
    bolOK = False 
25.
 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:
01.
If bolOK = True Then 
02.
    'Berechnung ausführen 
03.
    txtErg.Text = Format(dblErg, "#,##0.0000") 'Formatierung mit Tausendertrennung und 4 Nachkommastellen 
04.
Else 
05.
    MsgBox "Es wurden nicht alle Farben gewählt!" 
06.
End If
HTH
bastla
Bitte warten ..
Mitglied: bastla
30.10.2006 um 18:35 Uhr
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
Bitte warten ..
Mitglied: miniversum
02.11.2006 um 08:55 Uhr
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
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Netzwerke
HTTP Overhead Berechnen und Protokolstack

Frage von karlosss zum Thema Netzwerke ...

Visual Studio
gelöst (VB) Form-Elemente nicht wie im Entwurf angeordnet (2)

Frage von MrCount zum Thema Visual Studio ...

Festplatten, SSD, Raid
Speicher der nächsten Jahre berechnen (10)

Frage von Ravers zum Thema Festplatten, SSD, Raid ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...