tutorials.de Buch-Aktion 05/2012
Seite 2 von 2 ErsteErste 12
Like Tree7Danke
ERLEDIGT
JA
ANTWORTEN
23
ZUGRIFFE
1234
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #16
    Avatar von Yaslaw
    Yaslaw Yaslaw ist offline n/a
    tutorials.de Moderator
    Registriert seit
    Dec 2007
    Ort
    Winterthur(CH)
    Beiträge
    5.205
    Nein, mit debuugen findest du heraus wo es happert. Zur Laufzeit den Inhalt der Variablen prüfen etc.

    Mach dich mal schlau zum Thema Debug in VB6. Das ist die mächtigste Methode um Logikfehler zu analysieren und beheben.
     
    ---------------------------------------------------------------------------------------------------
    item: Ich habe es mir aus gesundheitlichen Gründen abgewöhnt unformatierten Code zu lesen (Auch SQL-Statements kann man formatieren!)
    item: Tutorial: [PHP][MySQL] Debug Queries
    item: Schreibt mir keine PN mit Fragen die im Forum beantwortet werden können - ich mache kein persönliches coaching
    item: Bitte zur besseren Lesbarkeit PHP-Code in [PHP]...[/PHP], SQL in [SQL]...[/SQL], Visual Basic in [VB]...[/VB] etc. schreiben

  2. #17
    Bebam Bebam ist offline Bebam(Bbäm)
    Registriert seit
    Feb 2010
    Beiträge
    13
    Ok mach ich
     

  3. #18
    Bebam Bebam ist offline Bebam(Bbäm)
    Registriert seit
    Feb 2010
    Beiträge
    13
    So
    nun hab ich noch ein bisschen rumprobiert

    jetzt heißt es

    Code vb:
    1
    
    If Me(txtm + x) = Me(txtl + x) Then

    Also ohne die "
    Endlich das Laufzeitproblem gelöst

    So nun das gesamte

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    
    For x = 1 To 6
    If Me(txtm + x) = Me(txtl + x) Then
    richtige = richtige + 1
    End If
    Next x
     
    lbl16.Caption = "Herzlichen Glückwunsch, Sie haben " + CStr(richtige) + " richtige Zahlen."

    Jetzt kommt bei lbl16 aber immer , auch wenn ich keine richtige Zahl habe
    "Sie haben 6 richtige Zahlen."
     

  4. #19
    Avatar von Yaslaw
    Yaslaw Yaslaw ist offline n/a
    tutorials.de Moderator
    Registriert seit
    Dec 2007
    Ort
    Winterthur(CH)
    Beiträge
    5.205
    Code vb:
    1
    
    Me(txtm + x)
    Das macht mWn wenig Sinn
    Wenn im Textfeld txtm zum Beispeil '4' steht und x ist 3, dann sucht er glaub anch dem Feld 7

    *Hand-an-Kopf-schlag*
    Stringverknüpfungen in VB ist ja & und nicht +

    Und da hab ich was interessantes gefunden
    http://www.vb-fun.de/vb/kurztipps/kt0068.htm

    Ich war wohl zufest von VBA verführt.
    Ob Me wirklich VB6 oder nur VBA ist kann ich jetzt nicht sagen

    Code vb:
    1
    
    Me.controls("txtm" & x)
    Geändert von Yaslaw (25.02.10 um 18:28 Uhr) Grund: oh mann, wieder + mit & vertauscht
     
    ---------------------------------------------------------------------------------------------------
    item: Ich habe es mir aus gesundheitlichen Gründen abgewöhnt unformatierten Code zu lesen (Auch SQL-Statements kann man formatieren!)
    item: Tutorial: [PHP][MySQL] Debug Queries
    item: Schreibt mir keine PN mit Fragen die im Forum beantwortet werden können - ich mache kein persönliches coaching
    item: Bitte zur besseren Lesbarkeit PHP-Code in [PHP]...[/PHP], SQL in [SQL]...[/SQL], Visual Basic in [VB]...[/VB] etc. schreiben

  5. #20
    Avatar von tombe
    tombe tombe ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Sep 2004
    Ort
    Möglingen (BaWü)
    Beiträge
    3.109
    Es liegt/lag an der Namensgebung der Steuerelemente.

    Habe bei mir gerade festgestellt das er bei Me(txtm + x) sowohl "x" als auch "txtm" als Variable nimmt und einfach zusammenzählt. Diesen Wert hat er dann bei mir allerdings nicht als Namen sondern als Index des Steuerelements genommen.

    Wenn die Namen durch eine Variable übergeben werden wie in yaslaws letztem Beispiel, dann geht es.
     
    Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.

    Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.

  6. #21
    Bebam Bebam ist offline Bebam(Bbäm)
    Registriert seit
    Feb 2010
    Beiträge
    13
    Ok danke euch schon mal

    Nur leider sind wieder alle 6 Zahlen richtig.

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    
    For x = 1 To 6
    If Me.Controls(txtm + x) = Me.Controls(txtl + x) Then
    richtige = richtige + 1
    End If
    Next x
     
    lbl16.Caption = "Herzlichen Glückwunsch, Sie haben " & richtige & " richtige Zahlen."

    so hab ich es jetzt, hoffe ich habe euch also richtig verstanden
     

  7. #22
    Avatar von Yaslaw
    Yaslaw Yaslaw ist offline n/a
    tutorials.de Moderator
    Registriert seit
    Dec 2007
    Ort
    Winterthur(CH)
    Beiträge
    5.205
    Code vb:
    1
    
    Me.controls("txtm" & x)

    Jetzt habe wir dir zu Zwiet erlärt, das txtm selber als Variabel angeschaut wird und das + auch das falsche ist.

    Mit meinem Codeschnipsel musst du jetzt selber drauf kommen wie es geht.
     
    ---------------------------------------------------------------------------------------------------
    item: Ich habe es mir aus gesundheitlichen Gründen abgewöhnt unformatierten Code zu lesen (Auch SQL-Statements kann man formatieren!)
    item: Tutorial: [PHP][MySQL] Debug Queries
    item: Schreibt mir keine PN mit Fragen die im Forum beantwortet werden können - ich mache kein persönliches coaching
    item: Bitte zur besseren Lesbarkeit PHP-Code in [PHP]...[/PHP], SQL in [SQL]...[/SQL], Visual Basic in [VB]...[/VB] etc. schreiben

  8. #23
    Bebam Bebam ist offline Bebam(Bbäm)
    Registriert seit
    Feb 2010
    Beiträge
    13
    aso
    sry
    ich habe mich vertan, und das verwechselt
    probiere es gleich aus
     

  9. #24
    Bebam Bebam ist offline Bebam(Bbäm)
    Registriert seit
    Feb 2010
    Beiträge
    13
    Ich dachte nämlich du meintest das bei der Ausgabe, also beim label .
    Jetzt klappt es endlich! Ich danke euch vielmals , besonders Yaslaw !
     

Ähnliche Themen

  1. Antworten: 4
    Letzter Beitrag: 04.05.09, 19:47
  2. Label Wert ändern durch Combo Box
    Von hausmeister079 im Forum Visual Basic 6.0
    Antworten: 7
    Letzter Beitrag: 26.06.08, 14:19
  3. Antworten: 5
    Letzter Beitrag: 24.11.07, 10:19
  4. In For Schleife Label aktualisieren
    Von Horusab im Forum Java
    Antworten: 4
    Letzter Beitrag: 17.06.05, 16:40
  5. Desktop scheint durch transparentes Label
    Von wertzui im Forum .NET Archiv
    Antworten: 1
    Letzter Beitrag: 18.05.04, 11:23