Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: Simon1902

Simon1902 (Level 1) - Jetzt verbinden

30.10.2006, aktualisiert 02.11.2006, 3041 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 ..
Ähnliche Inhalte
PHP
Bewertungssystem wie berechnen?
gelöst Frage von icegetPHP4 Kommentare

Hallo liebe Community, ich habe folgendes Problem: Die Benutzer auf einer Website (angemeldet mit ihrer email) dürfen Rezepte bewerten. ...

Ausbildung
Datenübertragung berechnen
Frage von M.MarzAusbildung6 Kommentare

Hallo zusammen, ich habe folgende Aufgabe zu erledigen und weis nicht wie ich da vorgehen soll, kann mir da ...

Batch & Shell
Zwischenzeit berechnen
gelöst Frage von MPFGBatch & Shell5 Kommentare

Hallo, ich suche eine Möglichkeit ein Programm zu einer eingegebenen Zeit mit Batch zu schließen. mit timeout soll die ...

Festplatten, SSD, Raid

Speicher der nächsten Jahre berechnen

Frage von RaversFestplatten, SSD, Raid10 Kommentare

Hallo zusammen, ich bin dabei neue Server bei uns anzuschaffen. Nunmehr stell ich mir die Frage, wie hoch wird ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...