Visual Basic: If

Zivilist
Power-User

Beiträge: 204

Ich bräuchte für Mathe ein Programm, mit dem ich ne Fallunterscheidung drchführen kann:
Ein Prgramm, mit dem ich das Alter abfragen kann (18 oder äler). Wenn der Benutzer über 18 ist, soll ne MsgBox kommen (zB über 18) wenn nicht, MsgBox (zb "das nacfolgende ist nicht für Personn unter 18 geeignte...)
Vielleicht kann mir ja jemand weterhelfen. Die Befehlsreihe:

Private Sub Command1_Click()
Dim a As Double
a = InputBox("Alter in Jahren eingeben")
If a >= 18 Then MsgBox ("alt genug")
Else
MsgBox ("zu jung")
End If
End Sub

Nubira
Moderator

Beiträge: 15134

Herzlichen Glückwunsch zum 1. Stern!
[Link zum eingefügten Bild]

Deine Matheaufgabe kannst Du mit Excel lösen.
Dort kannst Du Formeln eingeben
wenn - dann
(ich weiß nur, wir haben immer eingegeben: wenn - Temperatur über 25°, dann - gehen wir nach Hause)
Frag mich aber nicht, wo das bei Excel ist.
Vielleicht ist ja jemand anderes dafür Experte.

Nubira

Mr. Not Perfect
Boardmeister

Beiträge: 673

Das ist doch schon das was du geschrieben hast. Was willst du denn genau weil deine Befehlsreihe sehr richtig ist!?

Gruß Kris

Zivilist
Power-User

Beiträge: 204

naja, ich krieg halt immer ne Fehlermeldung:
Compile Error
Else without If

vielleicht is aber auch die Demoversion Schuld?

Ich hab nen Stern *freu*

Mr. Not Perfect
Boardmeister

Beiträge: 673

Wenn dann versuch das programm mal auf nen schulrechner zu hauen und probier es dort mit der Vollversion. um dir mehr zu sagen bräuchte ich schon das Programm aber das habe ich nicht. Ich kann dir ja auch nur sagen was ich in der Schule gelernt habe.

Gruß Kris

Zivilist
Power-User

Beiträge: 204

hmmm... dan´n mach ichs halt so, is zwar net so schön, läuft aber dafür:

Private Sub Command1_Click()
Dim a As Double
a = InputBox("Alter in Jahren eingeben")
If a >= 18 Then MsgBox ("alt genug")
If a < 18 Then MsgBox ("zu jung")
End Sub

caboehmer
Boardkaiser

Beiträge: 2633

Hi Zivilist!
so funktioniert der Code:

Private Sub Command1_Click()
Dim a As Double
a = InputBox("Alter in Jahren eingeben")
If a >= 18 Then
MsgBox ("alt genug")
Else
MsgBox ("zu jung")
End If
End Sub

Also mit einer Entertaste nach "Then"!
MfG Carsten

Version 3.1 | Load: 0.002745 | S: 1_2

Autor	Mitteilung
Zivilist Power-User Beiträge: 204	Gesendet: 14:34 - 15.06.2005 Ich bräuchte für Mathe ein Programm, mit dem ich ne Fallunterscheidung drchführen kann: Ein Prgramm, mit dem ich das Alter abfragen kann (18 oder äler). Wenn der Benutzer über 18 ist, soll ne MsgBox kommen (zB über 18) wenn nicht, MsgBox (zb "das nacfolgende ist nicht für Personn unter 18 geeignte...) Vielleicht kann mir ja jemand weterhelfen. Die Befehlsreihe: Private Sub Command1_Click() Dim a As Double a = InputBox("Alter in Jahren eingeben") If a >= 18 Then MsgBox ("alt genug") Else MsgBox ("zu jung") End If End Sub
Nubira Moderator Beiträge: 15134	Gesendet: 14:59 - 15.06.2005 Herzlichen Glückwunsch zum 1. Stern! [Link zum eingefügten Bild] Deine Matheaufgabe kannst Du mit Excel lösen. Dort kannst Du Formeln eingeben wenn - dann (ich weiß nur, wir haben immer eingegeben: wenn - Temperatur über 25°, dann - gehen wir nach Hause) Frag mich aber nicht, wo das bei Excel ist. Vielleicht ist ja jemand anderes dafür Experte. Nubira
Mr. Not Perfect Boardmeister Beiträge: 673	Gesendet: 15:02 - 15.06.2005 Das ist doch schon das was du geschrieben hast. Was willst du denn genau weil deine Befehlsreihe sehr richtig ist!? Gruß Kris
Zivilist Power-User Beiträge: 204	Gesendet: 15:06 - 15.06.2005 naja, ich krieg halt immer ne Fehlermeldung: Compile Error Else without If vielleicht is aber auch die Demoversion Schuld? Ich hab nen Stern freu
Mr. Not Perfect Boardmeister Beiträge: 673	Gesendet: 15:17 - 15.06.2005 Wenn dann versuch das programm mal auf nen schulrechner zu hauen und probier es dort mit der Vollversion. um dir mehr zu sagen bräuchte ich schon das Programm aber das habe ich nicht. Ich kann dir ja auch nur sagen was ich in der Schule gelernt habe. Gruß Kris
Zivilist Power-User Beiträge: 204	Gesendet: 15:58 - 15.06.2005 hmmm... dan´n mach ichs halt so, is zwar net so schön, läuft aber dafür: Private Sub Command1_Click() Dim a As Double a = InputBox("Alter in Jahren eingeben") If a >= 18 Then MsgBox ("alt genug") If a < 18 Then MsgBox ("zu jung") End Sub
caboehmer Boardkaiser Beiträge: 2633	Gesendet: 18:22 - 15.06.2005 Hi Zivilist! so funktioniert der Code: Private Sub Command1_Click() Dim a As Double a = InputBox("Alter in Jahren eingeben") If a >= 18 Then MsgBox ("alt genug") Else MsgBox ("zu jung") End If End Sub Also mit einer Entertaste nach "Then"! MfG Carsten