Entwicklung eines softwaregesteuerten Prüfstandes

  • VB.NET

Es gibt 49 Antworten in diesem Thema. Der letzte Beitrag () ist von obersniggy.

    Ok, danke für den Tipp. Habs hinbekommen. Gibt es eigentlich eine Möglichkeit, ein Diagramm während der Messwertaufnahme "on the fly" zu erstellen? D.h., dass jeder aufgenommene Messwert darin nach und nach eingetragen und miteinander verbunden wird?

    LG

    Hallo,
    hat jemand eine Idee, wie ich ein Array innerhalb einer Timerprozedur pro Intervallzyklus jeweils einen Wert zuweise? Ich bekomme immer die Fehlermeldung, dass der Index außerhalb des Bereichs liegt.

    So sieht das Ganze ungefähr aus:


    Quellcode

    1. Private Sub Command1_Click()
    3. Dim wertArray() As Variant
    4. Dim timeArray(14) As String
    6. timeArray(1) = 50 '50 entspricht 5 Sekunden
    7. timeArray(2) = 50
    8. timeArray(3) = 50
    9. timeArray(4) = 50
    10. timeArray(5) = 30
    11. timeArray(6) = 30
    12. timeArray(7) = 30
    13. timeArray(8) = 30
    14. timeArray(9) = 30
    15. timeArray(10) = 30
    16. timeArray(11) = 30
    17. timeArray(12) = 30
    18. timeArray(13) = 30
    19. timeArray(14) = 30
    22. Do
    23. If bEnde = True Then 'wenn Ende-Button gedrückt wird, soll er die Schleife verlassen
    24. Exit Do
    25. End If
    27. Index = Index + 1
    29. wait = timeArray(Index) 'x Sekunden Timer, siehe timeArray
    30. Timer4.Interval = 100 'Intervall = 100ms
    31. Timer4.Enabled = True
    33. Do
    34. DoEvents
    35. If bEnde = True Then 'wenn Ende-Button gedrückt wird, soll er die Schleife verlassen
    36. Exit Do
    37. End If
    38. Set_Pump False 'Pumpe ein
    40. 'jetzt will ich eigentlich, dass er während Timer4 runtergezählt wird,
    41. alle 100ms (Interval) die FunktionRead ausführt und diese dem
    42. wertArray zuführt. Die Obergrenze (dynamisch) für step ergibt
    43. sich aus den 100ms, und da liegt wahrscheinlich auch mein Fehler.
    44. Wenn in timeArray z.B. 50 steht (entspricht 5 Sekunden), soll er
    45. alle 100ms FunktionRead ausführen und dem Array die Werte
    46. nacheinander zuweisen. Das wären nach der Formel
    47. "step = 1 To (timeArray(Index) * 10) + 1" für dieses Beispiel
    48. 50 Werte in den 5 Sekunden die er auslesen und dem Array zuweisen
    49. sollte. Aber irgendwas mache ich hier falsch. Ich bekomme immer die
    50. Fehlermeldung, dass dr Index außerhalb des Gültigkeitsbereichs liegt..:
    52. For step = 1 To (timeArray(Index) * 10) + 1
    53. read = FunktionRead
    54. wertArray(step) = FunktionRead
    55. Next step
    57. Loop Until wait = 0
    59. End Sub
    61. Private Sub Timer4_Timer()
    63. If wait > 0 Then
    64. wait = wait - 1
    65. End If
    67. End Sub


    Kann mir jemand helfen? Vielen Dank...

    Option Base statement is obsolete in VB.NET (This is going to be a major problem when we are porting out code from VB6 to VB.NET. This change is critically required to give interoperability between other .NET-enabled languages).


    OptionBase kenn ich nur noch von VB 6 und auch laut diesem Text gibt es das nicht mehr...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    jvbsl schrieb:

    Option Base statement is obsolete in VB.NET (This is going to be a major problem when we are porting out code from VB6 to VB.NET. This change is critically required to give interoperability between other .NET-enabled languages).


    OptionBase kenn ich nur noch von VB 6 und auch laut diesem Text gibt es das nicht mehr...


    Sorry, da ich anfangs vor hatte, in VB 2008 zu programmieren, aber ich mich dann doch dafür entschied, mit VB6 zu arbeiten, sollte der Thread evtl. dorthin verschoben werden (falls ein Mod mitliest).
    Du hast also völlig recht, Option Base 1 funktioniert mit VB6. Und da ich ja mit VB6 arbeite, müsste das in dem Fall richtig sein. Evtl. noch nen anderen Tipp?

    Gruß

    Edit: hmm, hast recht, laut dem Statement gibts da wohl Probleme. Mal sehen, ich werd die Arrays mal mit 0 beginnen lassen.

    Habe OptionBase 1 jetzt weggelassen, doch trotzdem bekomme ich "Laufzeitfehler "9" - Index außerhalb des gültigen Bereichs"...

    Anstatt das Array nach und nach mit Daten zu befüllen, könnte ich auch permanent die Werte innerhalb von 30 sec auslesen (so schnell wie möglich, unter Berücksichtigung einer bestimmten Reaktionszeit für das Gerät) und alle dann sofort addieren. Wenn das möglich ist, könnte mir jemand evtl. nen Code dafür schicken, wie ich das angehen kann?

    Ansonsten bliebe mir halt die Möglichkeit, das Array nach und nach zu füllen. Aber da hänge ich wie gesagt irgendwo (siehe Post weiter oben). Ich weiß nur nicht, wie ich das machen kann...

    Danke

    Es fehlt noch ein 2. Loop.

    Lass das Programm in der IDE laufen und sieh dir die Werte der Variablen step und Index nach dem Fehler an oder bau eine eigene Fehlerroutine mit rein, welche die Werte dieser Variablen im Fehlerfall anzeigt.

    VB.NET-Quellcode

    1. private sub Fehlertest()
    2. dim Wert(3) as integer
    3. dim index as integer
    4. on error goto Fehler
    5. Do
    6. index=4
    7. wert(index)=1
    8. loop
    11. Fehler:
    12. if err.number > 0 then
    13. msgbox "Index hat den Wert " & index
    14. end if
    15. err.clear
    16. on error goto 0
    17. end sub
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende