Hallo

ich bin absoluter Anfänger also ist das vllt eine recht einfache Frage
ich will bei einem Programm durch eine IF schleife den label Inhalt verändern :
z.B. gibt man zwei mal 10 Zahlen ein
und im Label will ich ausdrücken wie viele richtig sind
es muss aber jeweils z.B. die 6. Zahl von ersten 10 Zahlen und die 6. Zahl von zweiten 10 zahlen übereinstimmen, dann würde im Label erscheinen : Es stimmt 1 Zahl überein.

Weil so wie ich es machen würde hätte ich 100 Zeilen unnötigen Code

Vielen Dank schon mal im Voraus
Simon

Code vb:

1	mform.mylabel.text = "neuerText"

soweit bin ich ja auch
ich habe ein Lotto Programm entwickelt
da sind einmal links die eingegebenen Zahlen und rechts daneben die zufälligen Lottozahlen
daneben wiederum steht entweder Richtig oder Falsch
Dazu habe ich ein label erstellt (kann auch ruhig ein textfeld sein) in dem angezeigt werden soll, wie viele der ganzen Lottozahlen übereinstimmen

Angenommen du hast die Feldnamen sauber aufgebaut.

wahl1-wahlx: die Wahl des Spielers
lotto1-lottox: die Lottozahlen
result1-resultx: Die labels zur Einzelausgabe

Weitere Annamhe: Du hast den Code direkt hinter dem Forum (also kann man mit Me drauf zugreiffen)

Code vb:

1 2 3 4 5 6 7

For i=1 to 10     if me["wahl" & i] = me["lotto" + 1] then         count = count + 1         me["result"+1].text = "Treffer"     end if next i me.total.text = "Es stimmt " + count + " Zahl überein"

Nimms mir bitte nicht übel ich hab wenig plan davon xD
aber so aufgebaut hab ich es, nur was meinst du mit

"Weitere Annamhe: Du hast den Code direkt hinter dem Forum (also kann man mit Me drauf zugreiffen)"

danke auf jeden fall schon ma

Wo ist der Code bei dir? In eienem eigenen Modul? Im Klassenmodul des Formulars?

Is natürlich kein super code, aber bin eben Anfänger.
Ich hab alles soweit hingekriegt : Habe jetzt geschrieben:

If txtm1 = txtl1 Then
count = count + 1
ElseIf txtm2 = txtl2 Then
count = count + 1
ElseIf txtm3 = txtl3 Then
count = count + 1
ElseIf txtm4 = txtl4 Then
count = count + 1
ElseIf txtm5 = txtl5 Then
count = count + 1
ElseIf txtm6 = txtl6 Then
count = count + 1
End If

lbl16.Caption = "Herzlichen Glückwunsch! Sie haben " + count + " Zahlen richtig"

So, das Problem ist, das mir Laufzeit Fehler 13 als Error angezeigt wird... sobald ich das mit lbl16.caption = ... im code eingebaut habe

Währe nett wenn du deinen VB-Code in VB-Tags schreiben würdest
[vb]VB-Code[/vb]

Dein Code könnte auch so aussehen

Code vb:

1 2 3 4

dim i, total For i = 1 to 6     If Me["txtm" + i] = Me["txtl" + i] Then total = total+ 1 Next i

Wenn das überchreiben des Labels nicht geht, dann mach daraus ein inaktives Textfeld....

Danke, ich hab es gleich ma ausprobiert, der sagt mir jetzt nur das bei

Code vb:

1	["txtm" + i]

then oder go to fehlt.
Wenn ich fragen darf, was bringt dieses me , bzw. kann man es nicht einfach weglassen?

Me ist das Objekt Formular. Ich muss zugeben, ich programmiere VB6 nur noch aus dem Kopf, da ich keine Instance mehr habe.

Eventuell sind es auch () anstelle von []

Code vb:

1	If Me("txtm" + i) = Me("txtl" + i) Then total = total+ 1

Gut. Also es klappt alles wunderbar , nur das Problem, das der mir
Laufzeitfehler '13' Typen unverträglich anzeigt
( ich glaube das ist, wenn ein Feld leer ist? )

aber erst wenn ich

Code vb:

1	txttry.Text = "herzlichen Glückwunsch, Sie haben" + count + " Zahlen richtig"

eingebe.
Das gleiche ist auch bei meinem label passiert.

Schau dier dein Code hier im Forum mal an. count ist Dunkelrot eingefärbt, denn dies ist ein Funktionsname.

Nimm mal ein anderer Variablennamen.

ggf hat er auch keine Freude dass eine Zahl kommt. Also kannst du auch ein cstr() versuchen

Code vb:

1	txttry.Text = "herzlichen Glückwunsch, Sie haben" + cstr(mycount) + " Zahlen richtig"

Habe jetzt genommen :

Code vb:

1	txttry.Text = "herzlichen Glückwunsch, Sie haben" + CStr(richtige) + " Zahlen richtig"

Habe natürlich alles mit richtige getauscht und richtige auch deklariert ( als integer reicht das? )
Leider kommt immer noch laufzeitfehler 13
Mir fällt gerade auf, die txtl Felder, also wo die Lottozahlen sein sollten, sind dann alle leer
und Laufzeitfehler 13 kommt ja immer, wenn etwas leer ist.

Kenne Laufzeitfehler 13 nicht (nunja, seit 1 Jahr kein VB6 mehr..)
Aber bist du schon mal mit dem Debugger durchgegangen und hast die Inhalte der verscheidenen Zugriffe geprüft?

Laufzeitfehler ist z.B.
wenn man ein Textfeld hat, der Benutzer soll dann eine Zahl eingeben,
wenn er jedoch KEINE Zahl eingibt, kommt Laufzeitfehler 13.
Was bringt debuggen im direkten Fall, findet das die Fehler selbst?
Oder was macht das?
Ich danke dir aber auf jeden Fall schon mal für deine Hilfe !