vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Fehler beim Ausweisungsende "Then" 
Autor: Kuca
Datum: 11.09.03 10:26

ich lese gerade das Buch "Jetzt lerne ich VB" und habe bereits ein Problem, denn es ist ein Fehler aufgetreten und ich weiß nicht, wie ich es lösen soll. Den Befehl habe ich genauso abgeschrieben, wie es auch im Buch stand, habe es auch schon 100mal überprüft.. aber kein Erfolg..

und zwar ist ein Fehler beim Ausweisungsende "Then" s.u. (was ich fett markiert habe).

Ich hoffe, dass Sie mir helfen können und warte auf Ihre Antwort.

MfG

Sina Blum


-----------------------------------------------------------------------------

Option Explicit
Const ICON_PFAD = "C:\Programme\Microsoft Visual Studio \" _
& "Common\Graphics\Icons\Nisc\"

Private Sub cmdUmrechnen_Click()
'lblIdealgewicht.Caption = txtGrösse.Text - 100 & " Kg"
Dim intGewicht As Integer, intBMI As Integer
intGewicht = txtGrösse.Text - 100
lblIdealgewicht.Caption = "Zwischen " & intGewicht - _
intGewicht \ 10 & " und " & intGewicht _
+ intGewicht \ 10 & " Kg"
intBMI = txtGewicht.Text / (txtGrösse.Text / 100) ^ 2
lblBMI.Caption = intBMI
If intBMI > 18 Then
imgBewertung.Picture = LoadPicture(ICON_PFAD & "Face01.ico")
Elself intBMI >= 18 And intBMI <= 27 Then
imgBewertung.Picture = LoadPicture(ICON_PFAD & "Faceo2.ico")
Else
imgBewertung.Picture = LoadPicture(ICON_PFAD & "Face03.ico")
End If

-------------------------------------------------------------
Ein guter Anf?nger ist aller Ehren wert !!!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler beim Ausweisungsende "Then"845Kuca11.09.03 10:26
Re: Fehler beim Ausweisungsende "Then"470VBxler11.09.03 10:51
Re: Fehler beim Ausweisungsende "Then"483ModeratorDieter11.09.03 10:52
Re: Fehler beim Ausweisungsende "Then"512ThinkingBomb11.09.03 10:55
Re: Fehler beim Ausweisungsende "Then"455Kuca11.09.03 13:09
Re: Fehler beim Ausweisungsende "Then"443ThinkingBomb11.09.03 14:05
Re: Fehler beim Ausweisungsende "Then"472Kuca11.09.03 15:12

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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