VB6 schleifen

Re(3): VB6 schleifen

Xane — Sat, 30 Oct 2004 05:03:27 GMT

lol

Re(2): VB6 schleifen

promillo — Fri, 29 Oct 2004 22:18:38 GMT

genau.. ich wollte das von dir ausgesprochene noch mit einem dezentenuntermalen

Re(9): VB6 schleifen

Xane — Fri, 29 Oct 2004 20:18:47 GMT

Hast denn keine Referenz?
Die beste ist wohl die MS:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctLen.asp

Ermittelt die Anzahl der Zeichen.

Re(9): VB6 schleifen

wissender — Fri, 29 Oct 2004 20:08:16 GMT

(userinput)

Re(8): VB6 schleifen

wissender — Fri, 29 Oct 2004 20:06:54 GMT

noch was
was bedeutet z.b. IF len(userinout) <> 0
was heißt das len?

Re(7): VB6 schleifen

wissender — Fri, 29 Oct 2004 20:04:39 GMT

danke dir

Re(6): VB6 schleifen

Xane — Fri, 29 Oct 2004 19:54:16 GMT

Ähh .. da gibst dann jedemsal verschiedene Werte für a ein, probier halt 1, 10, 100 ....

Re(5): VB6 schleifen

Xane — Fri, 29 Oct 2004 19:53:03 GMT

Was willst denn machen?

Klassisch zum rumprobieren wär sowas :

Dim a As Single
<b>a = InputBox("Message", "Title", 0)</b>
If a < 10 Then
...

Re(4): VB6 schleifen

wissender — Fri, 29 Oct 2004 19:43:09 GMT

wie soll i des sonst schreiben?

Re(3): VB6 schleifen

Xane — Fri, 29 Oct 2004 19:40:56 GMT

Sicher reichts, aber Du änderst ja nirgends den Wert von a ...
Jedesmal wenn der Code durchlaufen wird, ist a = 0.
--> die Verzweigung sieht dann immer so aus:

if (0 < 10)       ' ist IMMER wahr
   Print "Geil"    ' die Ausführung landet demnach IMMER hier
else
   ...

Was willst denn?

Re(2): VB6 schleifen

wissender — Fri, 29 Oct 2004 19:36:49 GMT

reicht a < 10 net?

Re(2): VB6 schleifen

wissender — Fri, 29 Oct 2004 19:36:19 GMT

i weiß *g* verzweigung

Re: VB6 schleifen

Xane — Fri, 29 Oct 2004 19:35:10 GMT

Ähh ... und Schleife hast Du überhaupt keine dabei ...

Re: VB6 schleifen

Xane — Fri, 29 Oct 2004 19:33:14 GMT

Du hast doch nirgends a einen Wert zugewisen, also ist a = 0 ...
Oder seh ich da was falsch?

VB6 schleifen

wissender — Fri, 29 Oct 2004 19:31:30 GMT

I will ma grad die schleifen beibringen also i versteh da was net

quellcode:
Option Explicit

Private Sub Command1_Click()

Dim a As Single
If a < 10 Then
Print "Geil"
ElseIf a > 10 And a < 100 Then
Print "cool"
Else
Print "Danke"
End If

If Not IsNumeric(Text1.text) Then
MsgBox " Hallo"
End If
End Sub

Er schreibt bei jeder zahl geil!
Warum?