|
| |
Visual-Basic Einsteiger| benötige Hilfe bei BMI-Berechnung | |  | | Autor: TheDestroyer | | Datum: 06.01.07 10:31 |
| Hi, nutze Visula-Basic so wie es in Excel vorkommt.
Hab eine Aufgabe, bei welcher ich wieder mal den BMI berechnen und anschliessend auswerten soll. Die Eingabe von Größe und Gewicht erfolgt in jeweils einer textBox. Die Eingabe des Alters, welches für die Auswertung notwendig ist erfolgt hingegen über eine ComboBox. Mein StartButton soll nur freigegeben werden wenn in den TextBoxen Zahlen stehen und wenn in der ComboBox ein Alter gewählt wurde.
Für die umsetztung soll ich ein Formular und ein Modul verwenden ( siehe unten).
Ich habe jetzt das Problem mit der Freigabe des Buttons und das mein Programmn nicht startet, was daran liegt dass das Modul nicht richtig im Formular verwendet wird.
ICh hoffe jemand von euch kann mir bei diesem Problem helfen, da es wirklich wichtig für mich ist.
Danke
P.S.: Kann die Excel Datei aber auch mal hochladen! Leider ist die Nachricht zu lang, werd versuchen das Modul im nächsten Beitrag zu schreiben.
Formular:
Option Explicit
Private Sub CommandButton1_Click()
Dim groesse As Single
Dim gewicht As Single
Dim bmi As Single
Dim eingabeok As Single
Dim bmiwert As Single
If (TextBox1.Text <> "") And (TextBox2.Text <> "") Then
eingabeok = True
groesse = TextBox1.Text
gewicht = TextBox2.Text
If eingabeok Then
bmiwert = bmi(groesse, gewicht)
TextBox3.Text = bmiwert
MsgBox (check(bmiwert, ComboBox1.Value))
If (groesse < 1.5) Then
MsgBox ("Bitte eine Größe über 1,50m angeben")
TextBox1.Text = ""
TextBox1.SetFocus
TextBox3.Text = ""
eingabeok = False
End If
If (groesse > 2.5) Then
MsgBox ("Bitte eine Größe unter 2,50m angeben")
TextBox1.Text = ""
TextBox1.SetFocus
TextBox3.Text = ""
eingabeok = False
End If
If (gewicht < 45 And gewicht) Then
MsgBox ("Bitte ein Gewicht über 45kg angeben")
TextBox2.Text = ""
TextBox2.SetFocus
TextBox3.Text = ""
eingabeok = False
End If
If (gewicht > 200) Then
MsgBox ("Bitte ein Gewicht unter 200kg angeben")
TextBox2.Text = ""
TextBox2.SetFocus
TextBox3.Text = ""
eingabeok = False
End If
Else
MsgBox ("Bitte Größe, Gewicht angeben!")
End If
End If
End Sub
Private Sub CommandButton2_Click()
'löst neue Berechnung aus
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub UserForm_Click()
'prüft Freigabe CommandButton1
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "19 bis 24"
ComboBox1.AddItem "25 bis 34"
ComboBox1.AddItem "35 bis 44"
ComboBox1.AddItem "45 bis 54"
ComboBox1.AddItem "55 bis 64"
Label1.Caption = " BMI "
CommandButton1.AutoSize = True
CommandButton1.Caption = "Eingabe, Berechnen, Ausgabe"
UserForm2.Caption = "Berechnung des BMI, Beenden mit DblClick auf UserForm"
Label1.Caption = " BMI "
Label4.Caption = "fuer Freigabe Button: auf UserForm clicken"
CommandButton2.Caption = "neue Berechnung ?"
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload UserForm2
End Sub | |
 | 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 |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
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
|
|
Sie sind aktuell nicht angemeldet.
